blob: 8d70bb630b813efe6624c050e26f26e1e59b31c9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(* 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;
mutable c : int;
mutable d : int;
};;
{ a = 0; b = 0; c = 0; d = 0 };;
(**
0 CONST0
1 PUSHCONST0
2 PUSHCONST0
3 PUSHCONST0
4 MAKEBLOCK 4, 0
7 ATOM0
8 SETGLOBAL T041-makeblock
10 STOP
**)
|