Merge pull request #4145 from BuckleScript/remove_unused_code

comment unused code

Author: bobzhang

jscomp/common/bs_loc.ml

@@ -39,4 +39,4 @@ let merge (l: t) (r : t) =
     -> 
     {loc_start ;loc_end; loc_ghost = false}
 
-let none = Location.none
+(* let none = Location.none *)

jscomp/common/bs_loc.mli

@@ -28,7 +28,7 @@ type t = Location.t = {
   loc_ghost : bool
 } 
 
-val is_ghost : t -> bool
+(* val is_ghost : t -> bool *)
 val merge : t -> t -> t 
-val none : t 
+(* val none : t  *)
 

jscomp/common/js_config.ml

@@ -59,7 +59,7 @@ let set_cross_module_inline b =
 
 let diagnose = ref false
 let get_diagnose () = !diagnose
-let set_diagnose b = diagnose := b
+(* let set_diagnose b = diagnose := b *)
 
 (* let (//) = Filename.concat *)
 

jscomp/common/js_config.mli

@@ -54,7 +54,7 @@ val get_cross_module_inline : unit -> bool
 (** diagnose option *)
 val diagnose : bool ref 
 val get_diagnose : unit -> bool 
-val set_diagnose : bool -> unit 
+(* val set_diagnose : bool -> unit  *)
 
 
 (** options for builtin ppx *)

jscomp/core/js_analyzer.ml

@@ -350,7 +350,7 @@ let rev_toplevel_flatten block =
     | x :: xs -> aux (x :: acc) xs  in
   aux [] block
 
-let rec is_constant (x : J.expression)  = 
+(* let rec is_constant (x : J.expression)  = 
   match x.expression_desc with 
   | Array_index (a,b) -> is_constant a && is_constant b 
   | Str (b,_) -> b
@@ -360,7 +360,7 @@ let rec is_constant (x : J.expression)  =
     -> Ext_list.for_all xs is_constant && is_constant tag 
   | Bin (_op, a, b) -> 
     is_constant a && is_constant b     
-  | _ -> false 
+  | _ -> false  *)
 
 
 let rec is_okay_to_duplicate (e : J.expression) = 

jscomp/core/js_analyzer.mli

@@ -40,8 +40,9 @@ val free_variables_of_statement :
 val free_variables_of_expression : 
   Set_ident.t -> Set_ident.t -> J.finish_ident_expression -> Set_ident.t
 
-val no_side_effect_expression_desc :
-  J.expression_desc -> bool   
+(* val no_side_effect_expression_desc :
+  J.expression_desc -> bool    *)
+  
 val no_side_effect_expression : 
   J.expression -> bool
 (** [no_side_effect] means this expression has no side effect, 
@@ -77,7 +78,7 @@ val rev_flatten_seq : J.expression -> J.block
 val rev_toplevel_flatten : J.block -> J.block
 (** return the block in reverse order *)
 
-val is_constant : J.expression -> bool
+(* val is_constant : J.expression -> bool *)
 
 
 (** Simple expression, 

jscomp/core/js_exp_make.ml

@@ -326,8 +326,8 @@ let fuse_to_seq x xs =
   if xs = [] then x  
   else Ext_list.fold_left xs x seq 
 
-let empty_string_literal : t = 
-  {expression_desc = Str (true,""); comment = None}  
+(* let empty_string_literal : t = 
+  {expression_desc = Str (true,""); comment = None}   *)
 
 let zero_int_literal : t =   
   {expression_desc = Number (Int {i = 0l; c = None}) ; comment = None}
@@ -506,15 +506,15 @@ let function_length ?comment (e : t) : t =
   | _ -> { expression_desc = Length (e, Function) ; comment }
 
 (** no dependency introduced *)
-let js_global_dot ?comment (x : string)  (e1 : string) : t = 
+(* let js_global_dot ?comment (x : string)  (e1 : string) : t = 
   { expression_desc = Static_index (js_global x,  e1,None); comment} 
 
 let char_of_int ?comment (v : t) : t = 
   match v.expression_desc with
   | Number (Int {i; _}) ->
     str  (String.make 1(Char.chr (Int32.to_int i)))
   | Char_to_int v -> v 
-  | _ ->  {comment ; expression_desc = Char_of_int v}
+  | _ ->  {comment ; expression_desc = Char_of_int v} *)
 
 let char_to_int ?comment (v : t) : t = 
   match v.expression_desc with 

jscomp/core/js_exp_make.mli

@@ -119,12 +119,12 @@ val nint : ?comment:string -> nativeint -> t
 val small_int : int -> t
 val float : ?comment:string -> string -> t
 
-val empty_string_literal : t 
+(* val empty_string_literal : t  *)
 (* TODO: we can do hash consing for small integers *)
 val zero_int_literal : t
-val one_int_literal : t
+(* val one_int_literal : t *)
 val zero_float_lit : t 
-val obj_int_tag_literal : t
+(* val obj_int_tag_literal : t *)
 
 (** [is_out e range] is equivalent to [e > range or e <0]
 
@@ -147,7 +147,7 @@ val bytes_length :  ?comment:string -> t -> t
 
 val function_length : ?comment:string -> t -> t 
 
-val char_of_int : ?comment:string -> t -> t 
+(* val char_of_int : ?comment:string -> t -> t  *)
 
 val char_to_int : ?comment:string -> t -> t 
 
@@ -164,7 +164,7 @@ val string_append : ?comment:string -> t -> t -> t
 (* val bind_var_call : ?comment:string -> Ident.t -> string -> t list -> t  *)
 
 (* val bind_call : ?comment:string -> J.expression -> string -> J.expression list -> t *)
-val js_global_dot : ?comment:string -> string -> string -> t
+(* val js_global_dot : ?comment:string -> string -> string -> t *)
 
 
 

jscomp/core/js_fold_basic.ml

@@ -24,7 +24,7 @@
 
 
 
-class count_deps (add : Ident.t -> unit )  = 
+(* class count_deps (add : Ident.t -> unit )  = 
   object(self)
     inherit  Js_fold.fold as super
     method! expression lam = 
@@ -46,7 +46,7 @@ class count_deps (add : Ident.t -> unit )  =
       *)
       | _ -> super#expression lam
     method! ident x = add x ; self
-  end
+  end *)
 
 let add_lam_module_ident = Lam_module_ident.Hash_set.add
 let create = Lam_module_ident.Hash_set.create
@@ -82,12 +82,12 @@ let calculate_hard_dependencies block =
    will not depend [variables]
 
 *)
-let depends_j (lam : J.expression) (variables : Set_ident.t) = 
+(* let depends_j (lam : J.expression) (variables : Set_ident.t) = 
   let v = ref Set_ident.empty in
   let add id = 
     if Set_ident.mem variables id then 
       v := Set_ident.add !v id
   in
   ignore @@ (new count_deps add ) # expression lam ;
   !v
-
+ *)

jscomp/core/js_fold_basic.mli

@@ -27,7 +27,7 @@
 
 (** A module to calculate hard dependency based on JS IR in module [J] *)
 
-val depends_j : J.expression -> Set_ident.t -> Set_ident.t
+(* val depends_j : J.expression -> Set_ident.t -> Set_ident.t *)
 
 (** TODO: {!Ordered_hash_set} for better ordering *)
 val calculate_hard_dependencies : J.block -> Lam_module_ident.Hash_set.t