14 lines
161 B
OCaml
14 lines
161 B
OCaml
|
type t = {
|
||
|
|
mutable a : int;
|
||
|
|
};;
|
||
|
|
|
||
|
|
{ a = 0 };;
|
||
|
|
|
||
|
|
(**
|
||
|
|
0 CONST0
|
||
|
|
1 MAKEBLOCK1 0
|
||
|
|
3 ATOM0
|
||
|
|
4 SETGLOBAL T040-makeblock1
|
||
|
|
6 STOP
|
||
|
|
**)
|