remove unused modules

Author: bobzhang

jscomp/lam_compile.ml

@@ -175,6 +175,24 @@ and get_exp_with_args (cxt : Lam_compile_defs.cxt)  lam args_lambda
              E.seq (E.dump Log args) (E.unit ())
            | {name = "Pervasives"; _}, "prerr_endline", ([ _ ] as args) ->  
              E.seq (E.dump Error args) (E.unit ())
+           | {name = "CamlinternalMod"; _}, "update_mod" ,
+             [  _shape  ; _module ; 
+                {expression_desc = (Array ([], _ ) | Caml_block  ([], _, _, _)) ; _} ]
+             ->
+             E.unit ()
+           | {name = "CamlinternalMod"; _}, "init_mod" ,
+             [ 
+                _ ;
+                {expression_desc = Caml_block([ {expression_desc = Caml_block ([],_,_,_) ; _ }],_,_,_) ; _}  ;
+                (* Module []
+                   TODO: add a function [empty_shape]
+                   This pattern match is fragile, since it depends 
+                   on how we compile [Lconst]
+                *)
+             ]
+             ->
+             E.dummy_obj () (* purely type definition*)
+
            | _ -> 
 
 

jscomp/runtime/.depend

@@ -1,6 +1,5 @@
 caml_array.cmi :
 caml_exceptions.cmi :
-caml_internalMod.cmi :
 caml_obj.cmi :
 caml_oo.cmi :
 caml_string.cmi :
@@ -10,8 +9,6 @@ caml_curry.cmo :
 caml_curry.cmx :
 caml_exceptions.cmo : caml_exceptions.cmi
 caml_exceptions.cmx : caml_exceptions.cmi
-caml_internalMod.cmo : caml_obj.cmi caml_internalMod.cmi
-caml_internalMod.cmx : caml_obj.cmx caml_internalMod.cmi
 caml_obj.cmo : caml_obj.cmi
 caml_obj.cmx : caml_obj.cmi
 caml_oo.cmo : caml_oo.cmi
@@ -24,8 +21,6 @@ caml_curry.cmo :
 caml_curry.cmj :
 caml_exceptions.cmo : caml_exceptions.cmi
 caml_exceptions.cmj : caml_exceptions.cmi
-caml_internalMod.cmo : caml_obj.cmi caml_internalMod.cmi
-caml_internalMod.cmj : caml_obj.cmj caml_internalMod.cmi
 caml_obj.cmo : caml_obj.cmi
 caml_obj.cmj : caml_obj.cmi
 caml_oo.cmo : caml_oo.cmi

jscomp/runtime/caml_internalMod.d.ts

@@ -4,4 +4,3 @@ caml_string
 caml_oo
 caml_exceptions
 caml_obj
-caml_internalMod

jscomp/runtime/caml_internalMod.js

@@ -118,21 +118,13 @@ CamlinternalMod.update_mod([[
       y
     ]);
 
-var Even = CamlinternalMod.init_mod([
-      "rec_module_test.ml",
-      42,
-      6
-    ], [[]]);
-
-var Odd = CamlinternalMod.init_mod([
-      "rec_module_test.ml",
-      47,
-      6
-    ], [[]]);
-
-CamlinternalMod.update_mod([[]], Even, []);
+var Even = {
+  
+};
 
-CamlinternalMod.update_mod([[]], Odd, []);
+var Odd = {
+  
+};
 
 var AAA = CamlinternalMod.init_mod([
       "rec_module_test.ml",