test.ml

let test x y =
  let () = () in
  (fun () -> ignore x; ignore y; ())

(* ggole@Stross:~/src/ocaml❯ ocamlopt -c -dcmm test.ml *)
(* (data int 1792 global "camlTest" "camlTest": int 1) *)
(* (data *)
(*  int 4087 *)
(*  "camlTest__1": *)
(*  addr "caml_curry2" *)
(*  int 5 *)
(*  addr "camlTest__test_1008") *)
(* (function camlTest__fun_1015 (param/1012: addr env/1017: addr) *)
(*  (load (+a env/1017 8)) [] (load (+a env/1017 12)) [] 1a) *)

(* (function camlTest__test_1008 (x/1009: addr y/1010: addr) *)
(*  (alloc 4343 "camlTest__fun_1015" 3 x/1009 y/1010)) *)

(* (function camlTest__entry () *)
(*  (let test/1008 "camlTest__1" (store "camlTest" test/1008)) 1a) *)

(* (data) *)