inline Math.imul

Author: bobzhang

jscomp/core/js_exp_make.ml

@@ -1256,11 +1256,11 @@ let int32_mul ?comment
     else 
       call ?comment 
         ~info:Js_call_info.builtin_runtime_call
-        (runtime_var_dot Js_runtime_modules.int32 Literals.imul) [e1;e2]
+        (dot (js_global "Math") Literals.imul) [e1;e2]
   | _ ->
     call ?comment 
       ~info:Js_call_info.builtin_runtime_call
-      (runtime_var_dot Js_runtime_modules.int32 Literals.imul) [e1;e2] 
+      (dot (js_global "Math") Literals.imul) [e1;e2] 
 
 
 let unchecked_int32_mul ?comment e1 e2 : J.expression = 

jscomp/runtime/caml_int32.ml

@@ -37,11 +37,3 @@ let mod_ (x : nativeint) (y:nativeint) =
     raise Division_by_zero
   else Caml_nativeint_extern.rem x  y
 
-
-
-
-(* -FIXME not polyfill any more in next release *)
-let imul : int32 -> int32 -> int32 = [%bs.raw{| Math.imul || function (x,y) {
-  y |= 0; return ((((x >> 16) * y) << 16) + (x & 0xffff) * y)|0; 
-}
-|}]

jscomp/runtime/caml_int32.mli

@@ -29,6 +29,3 @@ val div : nativeint -> nativeint -> nativeint
 val mod_ : nativeint -> nativeint -> nativeint
 
 
-
-val imul :int32 -> int32 -> int32
-