blob: 05855f2c2b4a818932e27ec016556ce583ed8e6a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(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)))
(let (f = (function param : int 0) s = (makemutable 0 ""))
(seq
(ignore
(let (*match* = (setfield_ptr 0 s "Hello World!")) (makeblock 0)))
(let
(drop = (function param : int 0)
*match* = (apply drop (field_mut 0 s)))
(makeblock 0 A B f s drop)))))))
|
