18 lines
717 B
Plaintext
18 lines
717 B
Plaintext
(seq (ignore (let (x = [0: 13 37]) (makeblock 0 x)))
|
|
(let
|
|
(A =
|
|
(apply (field 0 (global CamlinternalMod!)) [0: "anonymous.ml" 25 6]
|
|
[0: [0]])
|
|
B =
|
|
(apply (field 0 (global CamlinternalMod!)) [0: "anonymous.ml" 35 6]
|
|
[0: [0]]))
|
|
(seq (ignore (let (x = [0: 4 2]) (makeblock 0 x)))
|
|
(apply (field 1 (global CamlinternalMod!)) [0: [0]] A A)
|
|
(apply (field 1 (global CamlinternalMod!)) [0: [0]] B
|
|
(let (x = [0: "foo" "bar"]) (makeblock 0)))
|
|
(setfield_ptr(root-init) 0 (global Anonymous!) A)
|
|
(setfield_ptr(root-init) 1 (global Anonymous!) B)
|
|
(let (f = (function param 0a))
|
|
(setfield_ptr(root-init) 2 (global Anonymous!) f))
|
|
0a)))
|