snapshot

Author: bobzhang

lib/4.06.1/unstable/js_compiler.ml

@@ -88756,7 +88756,6 @@ let caml_oo_curry = "Caml_oo_curry"
 let caml_primitive = "Caml_primitive"
 let int64 = "Caml_int64"
 let md5 = "Caml_md5"
-let gc = "Caml_gc"
 let int32 = "Caml_int32"
 
 
@@ -110655,23 +110654,6 @@ let translate loc (prim_name : string)
   let call m = 
     E.runtime_call m prim_name args in 
   begin match prim_name with 
-    (* | "caml_gc_stat" 
-    | "caml_gc_quick_stat"  
-    | "caml_gc_get" *)
-    | "caml_gc_counters"
-    | "caml_gc_set"
-    | "caml_gc_minor"
-    | "caml_gc_major_slice"
-    | "caml_gc_major"
-    | "caml_gc_full_major"
-    | "caml_gc_compaction"
-    | "caml_final_register"
-    | "caml_final_release"
-      ->  call Js_runtime_modules.gc
-    (* | "caml_abs_float" -> 
-      E.math "abs" args  *)
-    (* | "caml_acos_float" -> 
-      E.math "acos" args  *)
     |  "caml_add_float" -> 
       begin match args with 
         | [e0;e1] -> E.float_add e0 e1 (** TODO float plus*)

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -88756,7 +88756,6 @@ let caml_oo_curry = "Caml_oo_curry"
 let caml_primitive = "Caml_primitive"
 let int64 = "Caml_int64"
 let md5 = "Caml_md5"
-let gc = "Caml_gc"
 let int32 = "Caml_int32"
 
 
@@ -110655,23 +110654,6 @@ let translate loc (prim_name : string)
   let call m = 
     E.runtime_call m prim_name args in 
   begin match prim_name with 
-    (* | "caml_gc_stat" 
-    | "caml_gc_quick_stat"  
-    | "caml_gc_get" *)
-    | "caml_gc_counters"
-    | "caml_gc_set"
-    | "caml_gc_minor"
-    | "caml_gc_major_slice"
-    | "caml_gc_major"
-    | "caml_gc_full_major"
-    | "caml_gc_compaction"
-    | "caml_final_register"
-    | "caml_final_release"
-      ->  call Js_runtime_modules.gc
-    (* | "caml_abs_float" -> 
-      E.math "abs" args  *)
-    (* | "caml_acos_float" -> 
-      E.math "acos" args  *)
     |  "caml_add_float" -> 
       begin match args with 
         | [e0;e1] -> E.float_add e0 e1 (** TODO float plus*)

lib/4.06.1/whole_compiler.ml

@@ -378306,7 +378306,6 @@ let caml_oo_curry = "Caml_oo_curry"
 let caml_primitive = "Caml_primitive"
 let int64 = "Caml_int64"
 let md5 = "Caml_md5"
-let gc = "Caml_gc"
 let int32 = "Caml_int32"
 
 
@@ -392747,23 +392746,6 @@ let translate loc (prim_name : string)
   let call m = 
     E.runtime_call m prim_name args in 
   begin match prim_name with 
-    (* | "caml_gc_stat" 
-    | "caml_gc_quick_stat"  
-    | "caml_gc_get" *)
-    | "caml_gc_counters"
-    | "caml_gc_set"
-    | "caml_gc_minor"
-    | "caml_gc_major_slice"
-    | "caml_gc_major"
-    | "caml_gc_full_major"
-    | "caml_gc_compaction"
-    | "caml_final_register"
-    | "caml_final_release"
-      ->  call Js_runtime_modules.gc
-    (* | "caml_abs_float" -> 
-      E.math "abs" args  *)
-    (* | "caml_acos_float" -> 
-      E.math "acos" args  *)
     |  "caml_add_float" -> 
       begin match args with 
         | [e0;e1] -> E.float_add e0 e1 (** TODO float plus*)