105 lines
4.4 KiB
Plaintext
105 lines
4.4 KiB
Plaintext
(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))))))
|