ocaml/test/testinterp/t040-makeblock2.ml

16 lines
208 B
OCaml

type t = {
mutable a : int;
mutable b : int;
};;
{ a = 0; b = 0 };;
(**
0 CONST0
1 PUSHCONST0
2 MAKEBLOCK2 0
4 ATOM0
5 SETGLOBAL T040-makeblock2
7 STOP
**)