ocaml/testsuite/tests/tool-ocaml/t330-compact-1.ml

16 lines
249 B
OCaml

open Lib;;
Gc.compact ();;
(**
0 CONSTINT 42
2 PUSHACC0
3 MAKEBLOCK1 0
5 POP 1
7 SETGLOBAL Lib
9 CONST0
10 C_CALL1 gc_compaction
12 ATOM0
13 SETGLOBAL T330-compact-1
15 STOP
**)