blob: a1e2891c303a8c402fbbae3ec88985a20060e065 (
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
28
29
30
31
32
|
(seq (ignore (let (x = [0: 13 37]) (makeblock 0 x)))
(let
(A =
(apply (field_imm 0 (global CamlinternalMod!))
[0: "anonymous.ml" 25 6] [0: [0]])
B =
(apply (field_imm 0 (global CamlinternalMod!))
[0: "anonymous.ml" 35 6] [0: [0]]))
(seq (ignore (let (x = [0: 4 2]) (makeblock 0 x)))
(apply (field_imm 1 (global CamlinternalMod!)) [0: [0]] A A)
(apply (field_imm 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 : int 0))
(setfield_ptr(root-init) 2 (global Anonymous!) f))
(let (s = (makemutable 0 ""))
(setfield_ptr(root-init) 3 (global Anonymous!) s))
(ignore
(let
(*match* =
(setfield_ptr 0 (field_imm 3 (global Anonymous!))
"Hello World!"))
(makeblock 0)))
(let (drop = (function param : int 0))
(setfield_ptr(root-init) 4 (global Anonymous!) drop))
(let
(*match* =
(apply (field_imm 4 (global Anonymous!))
(field_mut 0 (field_imm 3 (global Anonymous!)))))
0)
0)))
|
