no warnings for release mode

Author: bobzhang

jscomp/core/js_pass_debug.ml

@@ -26,13 +26,13 @@
 
 
 
-
+#if BS_COMPILER_IN_BROWSER || BS_RELEASE_BUILD then
+ let dump _ (prog : J.program) = 
+  prog
+#else
 let log_counter = ref 0 
 
 let dump name (prog : J.program) =
-#if BS_COMPILER_IN_BROWSER || BS_RELEASE_BUILD then
-    prog
-#else 
   begin
     let () = 
       if Js_config.is_same_file ()

jscomp/core/lam_util.ml

@@ -211,13 +211,12 @@ let generate_label ?(name="") ()  =
   incr count; 
   Printf.sprintf "%s_tailcall_%04d" name !count
 
-let log_counter = ref 0
-
-
+#if BS_COMPILER_IN_BROWSER || BS_RELEASE_BUILD then  
 let dump ext  lam = 
-#if BS_COMPILER_IN_BROWSER || BS_RELEASE_BUILD then
-      ()
+  ()
 #else
+let log_counter = ref 0
+let dump ext  lam = 
    if Js_config.is_same_file ()
     then 
       (* ATTENTION: easy to introduce a bug during refactoring when forgeting `begin` `end`*)

lib/4.06.1/unstable/js_compiler.ml

@@ -111874,11 +111874,8 @@ end = struct
 
 
 
-let log_counter = ref 0 
-
-let dump name (prog : J.program) =
-
-    prog
+ let dump _ (prog : J.program) = 
+  prog
 
 
 
@@ -115368,12 +115365,9 @@ let generate_label ?(name="") ()  =
   incr count; 
   Printf.sprintf "%s_tailcall_%04d" name !count
 
-let log_counter = ref 0
-
-
+  
 let dump ext  lam = 
-
-      ()
+  ()
 
 
 

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -390980,11 +390980,8 @@ end = struct
 
 
 
-let log_counter = ref 0 
-
-let dump name (prog : J.program) =
-
-    prog
+ let dump _ (prog : J.program) = 
+  prog
 
 
 
@@ -394474,12 +394471,9 @@ let generate_label ?(name="") ()  =
   incr count; 
   Printf.sprintf "%s_tailcall_%04d" name !count
 
-let log_counter = ref 0
-
-
+  
 let dump ext  lam = 
-
-      ()
+  ()
 
 
 

lib/4.06.1/whole_compiler.ml

@@ -103904,11 +103904,8 @@ end = struct
 
 
 
-let log_counter = ref 0 
-
-let dump name (prog : J.program) =
-
-    prog
+ let dump _ (prog : J.program) = 
+  prog
 
 
 
@@ -107658,12 +107655,9 @@ let generate_label ?(name="") ()  =
   incr count; 
   Printf.sprintf "%s_tailcall_%04d" name !count
 
-let log_counter = ref 0
-
-
+  
 let dump ext  lam = 
-
-      ()
+  ()