Fix warnings when building playground compiler

Author: cknitt

jscomp/core/js_name_of_module_id.ml

@@ -25,7 +25,22 @@
 let (=)  (x : int) (y:float) = assert false 
 *)
 
+#ifdef BROWSER
+
+let string_of_module_id_in_browser (x : Lam_module_ident.t) =  
+  match x.kind with
+  | External {name} -> name
+  | Runtime | Ml -> 
+    "./stdlib/" ^  Ext_string.uncapitalize_ascii x.id.name ^ ".js"
 
+let string_of_module_id 
+    (id : Lam_module_ident.t)
+    ~output_dir:(_:string)
+    (_module_system : Js_packages_info.module_system)
+  = string_of_module_id_in_browser id
+
+#else
+  
 let (//) = Filename.concat 
 
 
@@ -87,8 +102,6 @@ let get_runtime_module_path
              path //dep_path // js_file 
           )  
 
-
-
 (* [output_dir] is decided by the command line argument *)
 let string_of_module_id 
     (dep_module_id : Lam_module_ident.t) 
@@ -187,18 +200,4 @@ let string_of_module_id
           | None -> 
             Bs_exception.error (Js_not_found js_file))
 
-
-
-(* Override it in browser *)
-#ifdef BROWSER
-let string_of_module_id_in_browser (x : Lam_module_ident.t) =  
-  match x.kind with
-  | External {name} -> name
-  | Runtime | Ml -> 
-    "./stdlib/" ^  Ext_string.uncapitalize_ascii x.id.name ^ ".js"
-let string_of_module_id 
-    (id : Lam_module_ident.t)
-    ~output_dir:(_:string)
-    (_module_system : Js_packages_info.module_system)
-  = string_of_module_id_in_browser id
-#endif
+#endif

jscomp/ml/cmt_format.ml

@@ -13,7 +13,10 @@
 (*                                                                        *)
 (**************************************************************************)
 
-open Cmi_format
+#ifdef BROWSER
+[@@@warning "-32"]
+#endif
+
 open Typedtree
 
 (* Note that in Typerex, there is an awful hack to save a cmt file
@@ -164,10 +167,12 @@ let record_value_dependency vd1 vd2 =
   if vd1.Types.val_loc <> vd2.Types.val_loc then
     value_deps := (vd1, vd2) :: !value_deps
 
-let save_cmt filename modname binary_annots sourcefile initial_env cmi =
 #ifdef BROWSER
-  ()  
-#else  
+let save_cmt _filename _modname _binary_annots _sourcefile _initial_env _cmi = ()  
+#else
+open Cmi_format
+
+let save_cmt filename modname binary_annots sourcefile initial_env cmi =
   if !Clflags.binary_annotations then begin
     (if !Config.bs_only then Misc.output_to_bin_file_directly else 
     Misc.output_to_file_via_temporary