1999-11-08 07:18:52 -08:00
|
|
|
type t = {
|
|
|
|
|
mutable a : int;
|
|
|
|
|
mutable b : int;
|
|
|
|
|
mutable c : int;
|
|
|
|
|
mutable d : int;
|
|
|
|
|
};;
|
|
|
|
|
|
|
|
|
|
{ a = 0; b = 0; c = 0; d = 0 };;
|
|
|
|
|
|
|
|
|
|
(**
|
2000-01-07 05:36:29 -08:00
|
|
|
0 CONST0
|
|
|
|
|
1 PUSHCONST0
|
|
|
|
|
2 PUSHCONST0
|
|
|
|
|
3 PUSHCONST0
|
|
|
|
|
4 MAKEBLOCK 4, 0
|
|
|
|
|
7 ATOM0
|
|
|
|
|
8 SETGLOBAL T041-makeblock
|
|
|
|
|
10 STOP
|
1999-11-08 07:18:52 -08:00
|
|
|
**)
|
