1999-11-08 07:18:52 -08:00
|
|
|
type t = {
|
|
|
|
|
mutable a : int;
|
|
|
|
|
mutable b : int;
|
|
|
|
|
mutable c : int;
|
|
|
|
|
};;
|
|
|
|
|
|
|
|
|
|
{ a = 0; b = 0; c = 0 };;
|
|
|
|
|
|
|
|
|
|
(**
|
2000-01-07 05:36:29 -08:00
|
|
|
0 CONST0
|
|
|
|
|
1 PUSHCONST0
|
|
|
|
|
2 PUSHCONST0
|
|
|
|
|
3 MAKEBLOCK3 0
|
|
|
|
|
5 ATOM0
|
|
|
|
|
6 SETGLOBAL T040-makeblock3
|
|
|
|
|
8 STOP
|
1999-11-08 07:18:52 -08:00
|
|
|
**)
|
