1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
(* TEST include tool-ocaml-lib flags = "-w -a" ocaml_script_as_argument = "true" * setup-ocaml-build-env ** 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 **)