(setglobal Module_coercion! (let (M = (module-defn(M) Module_coercion module_coercion.ml(15):436-1135 (makeblock 0))) (makeblock 0 M (module-defn(M_int) Module_coercion module_coercion.ml(46):1552-1591 (makeblock 0 (function prim stub (array.length[int] prim)) (function prim prim stub (array.get[int] prim prim)) (function prim prim stub (array.unsafe_get[int] prim prim)) (function prim prim prim stub (array.set[int] prim prim prim)) (function prim prim prim stub (array.unsafe_set[int] prim prim prim)) (function prim prim stub (compare_ints prim prim)) (function prim prim stub (== prim prim)) (function prim prim stub (!= prim prim)) (function prim prim stub (< prim prim)) (function prim prim stub (> prim prim)) (function prim prim stub (<= prim prim)) (function prim prim stub (>= prim prim)))) (module-defn(M_float) Module_coercion module_coercion.ml(47):1594-1637 (makeblock 0 (function prim stub (array.length[addr] prim)) (function prim prim stub (array.get[addr] prim prim)) (function prim prim stub (array.unsafe_get[addr] prim prim)) (function prim prim prim stub (array.set[addr] prim prim prim)) (function prim prim prim stub (array.unsafe_set[addr] prim prim prim)) (function prim prim stub (compare_floats prim prim)) (function prim prim stub (==. prim prim)) (function prim prim stub (!=. prim prim)) (function prim prim stub (<. prim prim)) (function prim prim stub (>. prim prim)) (function prim prim stub (<=. prim prim)) (function prim prim stub (>=. prim prim)))) (module-defn(M_string) Module_coercion module_coercion.ml(48):1640-1685 (makeblock 0 (function prim stub (array.length[addr] prim)) (function prim prim stub (array.get[addr] prim prim)) (function prim prim stub (array.unsafe_get[addr] prim prim)) (function prim prim prim stub (array.set[addr] prim prim prim)) (function prim prim prim stub (array.unsafe_set[addr] prim prim prim)) (function prim prim stub (caml_string_compare prim prim)) (function prim prim stub (caml_string_equal prim prim)) (function prim prim stub (caml_string_notequal prim prim)) (function prim prim stub (caml_string_lessthan prim prim)) (function prim prim stub (caml_string_greaterthan prim prim)) (function prim prim stub (caml_string_lessequal prim prim)) (function prim prim stub (caml_string_greaterequal prim prim)))) (module-defn(M_int32) Module_coercion module_coercion.ml(49):1688-1731 (makeblock 0 (function prim stub (array.length[addr] prim)) (function prim prim stub (array.get[addr] prim prim)) (function prim prim stub (array.unsafe_get[addr] prim prim)) (function prim prim prim stub (array.set[addr] prim prim prim)) (function prim prim prim stub (array.unsafe_set[addr] prim prim prim)) (function prim prim stub (compare_bints int32 prim prim)) (function prim prim stub (Int32.== prim prim)) (function prim prim stub (Int32.!= prim prim)) (function prim prim stub (Int32.< prim prim)) (function prim prim stub (Int32.> prim prim)) (function prim prim stub (Int32.<= prim prim)) (function prim prim stub (Int32.>= prim prim)))) (module-defn(M_int64) Module_coercion module_coercion.ml(50):1734-1777 (makeblock 0 (function prim stub (array.length[addr] prim)) (function prim prim stub (array.get[addr] prim prim)) (function prim prim stub (array.unsafe_get[addr] prim prim)) (function prim prim prim stub (array.set[addr] prim prim prim)) (function prim prim prim stub (array.unsafe_set[addr] prim prim prim)) (function prim prim stub (compare_bints int64 prim prim)) (function prim prim stub (Int64.== prim prim)) (function prim prim stub (Int64.!= prim prim)) (function prim prim stub (Int64.< prim prim)) (function prim prim stub (Int64.> prim prim)) (function prim prim stub (Int64.<= prim prim)) (function prim prim stub (Int64.>= prim prim)))) (module-defn(M_nativeint) Module_coercion module_coercion.ml(51):1780-1831 (makeblock 0 (function prim stub (array.length[addr] prim)) (function prim prim stub (array.get[addr] prim prim)) (function prim prim stub (array.unsafe_get[addr] prim prim)) (function prim prim prim stub (array.set[addr] prim prim prim)) (function prim prim prim stub (array.unsafe_set[addr] prim prim prim)) (function prim prim stub (compare_bints nativeint prim prim)) (function prim prim stub (Nativeint.== prim prim)) (function prim prim stub (Nativeint.!= prim prim)) (function prim prim stub (Nativeint.< prim prim)) (function prim prim stub (Nativeint.> prim prim)) (function prim prim stub (Nativeint.<= prim prim)) (function prim prim stub (Nativeint.>= prim prim)))))))