1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
(* TEST include tool-ocaml-lib flags = "-w -a" ocaml_script_as_argument = "true" * setup-ocaml-build-env ** ocaml *) type t = { mutable a : int; };; { a = 0 };; (** 0 CONST0 1 MAKEBLOCK1 0 3 ATOM0 4 SETGLOBAL T040-makeblock1 6 STOP **)