remove unused code

Author: bobzhang

jscomp/core/js_stmt_make.ml

@@ -34,9 +34,6 @@ type t = J.statement
 let return_stmt ?comment e : t = 
   {statement_desc = Return {return_value = e; } ; comment}
 
-(* let return_unit  : t list =              
-    [{ statement_desc = Return {return_value = E.unit; } ; 
-      comment = None}] *)
 
 let empty_stmt  : t = 
   { statement_desc = Block []; comment = None}
@@ -301,21 +298,7 @@ let assign ?comment  id e : t =
     statement_desc = J.Exp ( E.assign (E.var id) e ) ;
     comment
   }
-(* let assign_unit ?comment  id :  t = 
-  {
-    statement_desc = J.Exp( E.assign (E.var id) E.unit);
-    comment
-  }
-let declare_unit ?comment  id :  t = 
-  {
-    statement_desc = 
-      J.Variable { ident =  id; 
-                   value = Some E.unit;
-                   property = Variable;
-                   ident_info = {used_stats = NA}
-                 };
-    comment
-  } *)
+
 
 let while_  ?comment  ?label ?env (e : E.t) (st : J.block) : t = 
   let env = 

jscomp/core/lam_dispatch_primitive.ml

@@ -563,35 +563,7 @@ let translate loc (prim_name : string)
     | "caml_blit_bytes"
       -> 
       call Js_runtime_modules.bytes
-
-    | "caml_register_named_value" -> 
-      (**
-         callback.ml
-         {[ external register_named_value : string -> Obj.t -> unit
-           = "caml_register_named_value" ]}
-
-         See the manual chap19, Interfacing C with OCaml
-
-         {[
-           let f x = print_string "f is applied to "; print_int x; print_newline()
-           let _ = Callback.register "test function" f
-         ]}
-
-         On the C side 
-         {[
-           let f x = print_string "f is applied to "; print_int x; print_newline()
-           let _ = Callback.register "test function" f
-         ]}
-
-         [caml_named_value] is a c primitive but not belong to OCaml/runtimedef.ml,
-         so we don't needs
-         handle it 
-      *)
-      E.unit
-
     | "caml_backtrace_status"
-
-
     | "caml_get_exception_backtrace"
     | "caml_get_exception_raw_backtrace"
     | "caml_record_backtrace"

jscomp/stdlib-406/callback.ml

@@ -15,6 +15,10 @@
 [@@@bs.config { flags = [|"-bs-no-cross-module-opt" |]}]
 (* Registering OCaml values with the C runtime for later callbacks *)
 
+#if BS then 
+let register _ _ = ()
+let register_exception _ _  = ()
+#else
 external register_named_value : string -> Obj.t -> unit
                               = "caml_register_named_value"
 
@@ -25,3 +29,4 @@ let register_exception name (exn : exn) =
   let exn = Obj.repr exn in
   let slot = if Obj.tag exn = Obj.object_tag then exn else Obj.field exn 0 in
   register_named_value name slot
+#end

jscomp/stdlib-406/printexc.ml

@@ -12,7 +12,7 @@
 (*   special exception on linking described in the file LICENSE.          *)
 (*                                                                        *)
 (**************************************************************************)
-
+[@@@bs.config { flags = [|"-bs-no-cross-module-opt" |]}]
 open Printf
 
 let printers = ref []