blob: b84637f44015a14fc8de970b5aab982bb281a633 (
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
(setglobal Module_coercion!
(let (M = (makeblock 0))
(makeblock 0 M
(makeblock 0 (function prim (array.length[int] prim))
(function prim prim (array.get[int] prim prim))
(function prim prim
(array.unsafe_get[int] prim prim))
(function prim prim prim
(array.set[int] prim prim prim))
(function prim prim prim
(array.unsafe_set[int] prim prim prim))
(function prim prim (caml_int_compare prim prim))
(function prim prim (== prim prim))
(function prim prim (!= prim prim))
(function prim prim (< prim prim))
(function prim prim (> prim prim))
(function prim prim (<= prim prim))
(function prim prim (>= prim prim)))
(makeblock 0 (function prim (array.length[float] prim))
(function prim prim (array.get[float] prim prim))
(function prim prim
(array.unsafe_get[float] prim prim))
(function prim prim prim
(array.set[float] prim prim prim))
(function prim prim prim
(array.unsafe_set[float] prim prim prim))
(function prim prim
(caml_float_compare prim prim))
(function prim prim (==. prim prim))
(function prim prim (!=. prim prim))
(function prim prim (<. prim prim))
(function prim prim (>. prim prim))
(function prim prim (<=. prim prim))
(function prim prim (>=. prim prim)))
(makeblock 0 (function prim (array.length[addr] prim))
(function prim prim (array.get[addr] prim prim))
(function prim prim
(array.unsafe_get[addr] prim prim))
(function prim prim prim
(array.set[addr] prim prim prim))
(function prim prim prim
(array.unsafe_set[addr] prim prim prim))
(function prim prim
(caml_string_compare prim prim))
(function prim prim
(caml_string_equal prim prim))
(function prim prim
(caml_string_notequal prim prim))
(function prim prim
(caml_string_lessthan prim prim))
(function prim prim
(caml_string_greaterthan prim prim))
(function prim prim
(caml_string_lessequal prim prim))
(function prim prim
(caml_string_greaterequal prim prim)))
(makeblock 0 (function prim (array.length[addr] prim))
(function prim prim (array.get[addr] prim prim))
(function prim prim
(array.unsafe_get[addr] prim prim))
(function prim prim prim
(array.set[addr] prim prim prim))
(function prim prim prim
(array.unsafe_set[addr] prim prim prim))
(function prim prim
(caml_int32_compare prim prim))
(function prim prim (Int32.== prim prim))
(function prim prim (Int32.!= prim prim))
(function prim prim (Int32.< prim prim))
(function prim prim (Int32.> prim prim))
(function prim prim (Int32.<= prim prim))
(function prim prim (Int32.>= prim prim)))
(makeblock 0 (function prim (array.length[addr] prim))
(function prim prim (array.get[addr] prim prim))
(function prim prim
(array.unsafe_get[addr] prim prim))
(function prim prim prim
(array.set[addr] prim prim prim))
(function prim prim prim
(array.unsafe_set[addr] prim prim prim))
(function prim prim
(caml_int64_compare prim prim))
(function prim prim (Int64.== prim prim))
(function prim prim (Int64.!= prim prim))
(function prim prim (Int64.< prim prim))
(function prim prim (Int64.> prim prim))
(function prim prim (Int64.<= prim prim))
(function prim prim (Int64.>= prim prim)))
(makeblock 0 (function prim (array.length[addr] prim))
(function prim prim (array.get[addr] prim prim))
(function prim prim
(array.unsafe_get[addr] prim prim))
(function prim prim prim
(array.set[addr] prim prim prim))
(function prim prim prim
(array.unsafe_set[addr] prim prim prim))
(function prim prim
(caml_nativeint_compare prim prim))
(function prim prim (Nativeint.== prim prim))
(function prim prim (Nativeint.!= prim prim))
(function prim prim (Nativeint.< prim prim))
(function prim prim (Nativeint.> prim prim))
(function prim prim (Nativeint.<= prim prim))
(function prim prim (Nativeint.>= prim prim))))))
|
