clean up - keep runtime exposure minimal

Author: bobzhang

jscomp/main/builtin_cmi_datasets.ml

@@ -27,7 +27,7 @@
 
 
 
-type obj = Caml_obj_extern.t
+type obj = Obj.t
 
 (* Note that when we introduce it in {!Js_dump} 
    we need introduce dependency properly *)

jscomp/main/builtin_cmj_datasets.ml

@@ -27,7 +27,7 @@
 
 
 (** *)
-type obj = Caml_obj_extern.t
+type obj = Obj.t
 
 val __ : int -> obj -> obj
 

jscomp/runtime/block.ml

@@ -23,7 +23,7 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
 
-type obj = Caml_obj_extern.t
+type obj = Obj.t
 
 let setupChromeDebugger : unit -> unit [@bs]= [%raw{|
   function () {

jscomp/runtime/block.mli

@@ -22,7 +22,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
-type obj = Caml_obj_extern.t
+type obj = Obj.t
 
 val __ : int -> obj -> obj
 

jscomp/runtime/caml_chrome_debugger.ml

@@ -80,12 +80,12 @@ external ( +~ ) : nativeint -> nativeint -> nativeint =
    "caml_int32_add"
 
 (*ATTENTION: refer {!Oo.id} *)
-external oo_id : Caml_obj_extern.t -> int  = "%field1"
+external oo_id : Obj.t -> int  = "%field1"
 
 open Caml_hash_primitive
 
 let caml_hash (count : int) _limit (seed : nativeint) 
-  (obj : Caml_obj_extern.t) : nativeint = 
+  (obj : Obj.t) : nativeint = 
   let hash = ref seed in 
   if Js.typeof obj = "number" then
     begin 

jscomp/runtime/caml_chrome_debugger.mli

@@ -26,4 +26,4 @@
 
 
 (** *)
-val caml_hash : int -> 'a -> nativeint -> Caml_obj_extern.t -> nativeint
+val caml_hash : int -> 'a -> nativeint -> Obj.t -> nativeint

jscomp/runtime/caml_hash.ml

@@ -16,7 +16,7 @@ exception Error of  t
    This function has to be in this module Since 
    [Error] is defined here 
 *)
-let internalToOCamlException (e : Caml_obj_extern.t) =
+let internalToOCamlException (e : Obj.t) =
   if Caml_exceptions.caml_is_extension e  then
     (Obj.magic e  : exn)
   else Error (Any e)

jscomp/runtime/caml_hash.mli

@@ -33,14 +33,14 @@ type shape =
    | Lazy
    | Class
    | Module of (shape * string) array
-   | Value of Caml_obj_extern.t
+   | Value of Obj.t
 (* ATTENTION: check across versions *)
 module Array = Caml_array_extern 
 
-external set_field : Caml_obj_extern.t -> string -> Caml_obj_extern.t -> unit   = ""
+external set_field : Obj.t -> string -> Obj.t -> unit   = ""
   [@@bs.set_index]
 
-external get_field : Caml_obj_extern.t -> string -> Caml_obj_extern.t = ""
+external get_field : Obj.t -> string -> Obj.t = ""
   [@@bs.get_index]
 
 module type Empty = sig end
@@ -51,7 +51,7 @@ module type Empty = sig end
  *)
 let init_mod (loc : string * int * int) (shape : shape) =    
   let undef_module _ = raise (Undefined_recursive_module loc) in
-  let rec loop (shape : shape) (struct_ : Caml_obj_extern.t) idx = 
+  let rec loop (shape : shape) (struct_ : Obj.t) idx = 
     match shape with 
     | Function ->
       set_field struct_ idx (Obj.magic undef_module) 
@@ -82,7 +82,7 @@ let init_mod (loc : string * int * int) (shape : shape) =
 (* Note the [shape] passed between [init_mod] and [update_mod] is always the same 
    and we assume [module] is encoded as an array
  *)
-let update_mod (shape : shape)  (o : Caml_obj_extern.t)  (n : Caml_obj_extern.t) :  unit = 
+let update_mod (shape : shape)  (o : Obj.t)  (n : Obj.t) :  unit = 
   let rec aux (shape : shape) o n parent i  =
     match shape with
     | Function