snapshot

Author: bobzhang

lib/4.06.1/unstable/js_compiler.ml

@@ -87383,9 +87383,9 @@ let bytes = "Caml_bytes"
 let float = "Caml_float"
 let hash_primitive = "Caml_hash_primitive" 
 let hash = "Caml_hash"
-let oo = "Caml_oo"
+
 let curry = "Curry"
-let caml_oo_curry = "Caml_oo_curry"
+
 let caml_primitive = "Caml_primitive"
 let int64 = "Caml_int64"
 let md5 = "Caml_md5"
@@ -87619,7 +87619,7 @@ val runtime_ref :
   string -> 
   t  
 
-val public_method_call : string -> t -> t -> Int32.t -> t list -> t
+
 
 
 val str : 
@@ -88811,21 +88811,7 @@ let tag ?comment e : t =
 (* according to the compiler, [Btype.hash_variant], 
    it's reduced to 31 bits for hash
 *)
-(* FIXME: unused meth_name *)
-let public_method_call _meth_name obj label cache args = 
-  let len = List.length args in 
-  (* econd (int_equal (tag obj ) obj_int_tag_literal) *)
-  if len <= 7 then          
-    runtime_call Js_runtime_modules.caml_oo_curry 
-      ("js" ^ string_of_int (len + 1) )
-      (label:: ( int cache) :: obj::args)
-  else 
-    runtime_call Js_runtime_modules.caml_oo_curry "js"
-      [label; 
-       int cache;
-       obj ;  
-       array NA (obj::args)
-      ]
+
 
 (* TODO: handle arbitrary length of args .. 
    we can reduce part of the overhead by using
@@ -109521,9 +109507,6 @@ let translate loc (prim_name : string)
       call Js_runtime_modules.exceptions
     | "caml_as_js_exn" ->
       call Js_runtime_modules.caml_js_exceptions  
-    | "caml_set_oo_id" (* needed in {!camlinternalOO.set_id} *)
-      ->
-      call Js_runtime_modules.oo
 
     | "caml_sys_get_argv" 
     (** TODO: refine
@@ -109651,9 +109634,7 @@ let translate loc (prim_name : string)
       begin match args with 
         | [e] -> E.tag e 
         | _ -> assert false end    
-    | "caml_get_public_method"
-      ->
-      call Js_runtime_modules.oo
+
     (** TODO: Primitives not implemented yet ...*)
     | "caml_install_signal_handler"
       -> 

lib/4.06.1/whole_compiler.ml

@@ -377180,9 +377180,9 @@ let bytes = "Caml_bytes"
 let float = "Caml_float"
 let hash_primitive = "Caml_hash_primitive" 
 let hash = "Caml_hash"
-let oo = "Caml_oo"
+
 let curry = "Curry"
-let caml_oo_curry = "Caml_oo_curry"
+
 let caml_primitive = "Caml_primitive"
 let int64 = "Caml_int64"
 let md5 = "Caml_md5"
@@ -377416,7 +377416,7 @@ val runtime_ref :
   string -> 
   t  
 
-val public_method_call : string -> t -> t -> Int32.t -> t list -> t
+
 
 
 val str : 
@@ -378608,21 +378608,7 @@ let tag ?comment e : t =
 (* according to the compiler, [Btype.hash_variant], 
    it's reduced to 31 bits for hash
 *)
-(* FIXME: unused meth_name *)
-let public_method_call _meth_name obj label cache args = 
-  let len = List.length args in 
-  (* econd (int_equal (tag obj ) obj_int_tag_literal) *)
-  if len <= 7 then          
-    runtime_call Js_runtime_modules.caml_oo_curry 
-      ("js" ^ string_of_int (len + 1) )
-      (label:: ( int cache) :: obj::args)
-  else 
-    runtime_call Js_runtime_modules.caml_oo_curry "js"
-      [label; 
-       int cache;
-       obj ;  
-       array NA (obj::args)
-      ]
+
 
 (* TODO: handle arbitrary length of args .. 
    we can reduce part of the overhead by using
@@ -391799,9 +391785,6 @@ let translate loc (prim_name : string)
       call Js_runtime_modules.exceptions
     | "caml_as_js_exn" ->
       call Js_runtime_modules.caml_js_exceptions  
-    | "caml_set_oo_id" (* needed in {!camlinternalOO.set_id} *)
-      ->
-      call Js_runtime_modules.oo
 
     | "caml_sys_get_argv" 
     (** TODO: refine
@@ -391929,9 +391912,7 @@ let translate loc (prim_name : string)
       begin match args with 
         | [e] -> E.tag e 
         | _ -> assert false end    
-    | "caml_get_public_method"
-      ->
-      call Js_runtime_modules.oo
+
     (** TODO: Primitives not implemented yet ...*)
     | "caml_install_signal_handler"
       ->