tweak

Author: bobzhang

jscomp/core/lam_analysis.ml

@@ -46,7 +46,7 @@ let rec no_side_effects (lam : Lam.t) : bool =
     Ext_list.for_all args  no_side_effects && 
     (
       match primitive with 
-      | Pccall {prim_name ; _} ->
+      | Pccall {prim_name } ->
         begin 
           match prim_name,args with 
           | ("caml_register_named_value"

jscomp/core/lam_primitive.ml

@@ -57,16 +57,17 @@ type t =
   | Pnegint | Paddint | Psubint | Pmulint | Pdivint | Pmodint
   | Pandint | Porint | Pxorint
   | Plslint | Plsrint | Pasrint
-  | Pintcomp of Lam_compat.comparison
+  
   | Poffsetint of int
   | Poffsetref of int
   (* Float operations *)
   | Pintoffloat | Pfloatofint
   | Pnegfloat 
-  (* | Pabsfloat *) (* is {!Pervasives.abs_float} %abs_float*)
   | Paddfloat | Psubfloat | Pmulfloat | Pdivfloat
+  | Pintcomp of Lam_compat.comparison
   | Pfloatcomp of Lam_compat.comparison
   | Pjscomp of Lam_compat.comparison
+  | Pbintcomp of Lam_compat.boxed_integer * Lam_compat.comparison
   | Pjs_apply (*[f;arg0;arg1; arg2; ... argN]*)
   | Pjs_runtime_apply (* [f; [...]] *)
   (* String operations *)
@@ -108,7 +109,7 @@ type t =
   | Plslbint of Lam_compat.boxed_integer
   | Plsrbint of Lam_compat.boxed_integer
   | Pasrbint of Lam_compat.boxed_integer
-  | Pbintcomp of Lam_compat.boxed_integer * Lam_compat.comparison
+  
   (* Compile time constants *)
   | Pctconst of Lam_compat.compile_time_constant
   (* byte swap *)

jscomp/core/lam_primitive.mli

@@ -54,15 +54,17 @@ type t =
   | Pnegint | Paddint | Psubint | Pmulint | Pdivint | Pmodint
   | Pandint | Porint | Pxorint
   | Plslint | Plsrint | Pasrint
-  | Pintcomp of Lam_compat.comparison
+
   | Poffsetint of int
   | Poffsetref of int
   | Pintoffloat | Pfloatofint
   | Pnegfloat 
-  (* | Pabsfloat *)
+  
   | Paddfloat | Psubfloat | Pmulfloat | Pdivfloat
+  | Pintcomp of Lam_compat.comparison
   | Pfloatcomp of Lam_compat.comparison
   | Pjscomp of Lam_compat.comparison
+  | Pbintcomp of Lam_compat.boxed_integer * Lam_compat.comparison
   | Pjs_apply (*[f;arg0;arg1; arg2; ... argN]*)
   | Pjs_runtime_apply (* [f; [...]] *)
   | Pstringlength 
@@ -103,7 +105,7 @@ type t =
   | Plslbint of Lam_compat.boxed_integer
   | Plsrbint of Lam_compat.boxed_integer
   | Pasrbint of Lam_compat.boxed_integer
-  | Pbintcomp of Lam_compat.boxed_integer * Lam_compat.comparison
+
   (* Compile time constants *)
   | Pctconst of Lam_compat.compile_time_constant
   (* byte swap *)