get rid of dependency on camlinternalOO for camlinternalMod

Author: Hongbo Zhang

jscomp/runtime/caml_module.ml

@@ -32,7 +32,12 @@ let init_mod (loc : string * int * int) (shape : CamlinternalMod.shape) =
     match shape with 
     | Function -> struct_.(idx)<-(Obj.magic undef_module)
     | Lazy -> struct_.(idx)<- (Obj.magic (lazy undef_module))
-    | Class ->  struct_.(idx)<- (Obj.magic (CamlinternalOO.dummy_class loc))
+    | Class ->  
+      struct_.(idx)<- 
+        (Obj.magic (*ref {!CamlinternalOO.dummy_class loc} *)
+           (undef_module, undef_module, undef_module,  0)
+           (* depends on dummy class representation *)
+        )
     | Module comps 
       -> 
       let v =  (Obj.magic [||]) in

lib/js/caml_module.js

@@ -3,7 +3,6 @@
 
 var Caml_builtin_exceptions = require("./caml_builtin_exceptions");
 var Caml_obj                = require("./caml_obj");
-var CamlinternalOO          = require("./camlinternalOO");
 
 function init_mod(loc, shape) {
   var undef_module = function () {
@@ -20,7 +19,12 @@ function init_mod(loc, shape) {
             struct_[idx] = undef_module;
             return /* () */0;
         case 2 : 
-            struct_[idx] = CamlinternalOO.dummy_class(loc);
+            struct_[idx] = /* tuple */[
+              undef_module,
+              undef_module,
+              undef_module,
+              0
+            ];
             return /* () */0;
 
       }
@@ -74,7 +78,7 @@ function update_mod(shape, o, n) {
           Caml_builtin_exceptions.assert_failure,
           [
             "caml_module.ml",
-            74,
+            79,
             10
           ]
         ];
@@ -84,7 +88,7 @@ function update_mod(shape, o, n) {
           Caml_builtin_exceptions.assert_failure,
           [
             "caml_module.ml",
-            74,
+            79,
             10
           ]
         ];