avoid creating a separate method add_use

Author: bobzhang

jscomp/core/js_pass_get_used.ml

@@ -22,6 +22,8 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
+let add_use stats id = 
+  Hash_ident.add_or_update stats id 1 ~update:succ 
 
 (** Update ident info use cases, it is a non pure function, 
     it will annotate [program] with some meta data
@@ -37,8 +39,6 @@ let count_collects my_export_set =
     (* collect all def sites *)
     val defined_idents : J.variable_declaration Hash_ident.t = Hash_ident.create 83
 
-    method add_use id = 
-      Hash_ident.add_or_update stats id 1 ~update:succ 
     method! variable_declaration 
         ({ident; value ; property = _ ; ident_info = _}  as v)
       =  
@@ -48,7 +48,7 @@ let count_collects my_export_set =
         self
       | Some x
         -> self#expression x 
-    method! ident id = self#add_use id; self
+    method! ident id = add_use stats id; self
     method get_stats = 
       Hash_ident.iter defined_idents (fun ident v  -> 
           if Set_ident.mem my_export_set ident then 

lib/4.06.1/unstable/js_compiler.ml

@@ -102595,6 +102595,8 @@ end = struct
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
+let add_use stats id = 
+  Hash_ident.add_or_update stats id 1 ~update:succ 
 
 (** Update ident info use cases, it is a non pure function, 
     it will annotate [program] with some meta data
@@ -102610,8 +102612,6 @@ let count_collects my_export_set =
     (* collect all def sites *)
     val defined_idents : J.variable_declaration Hash_ident.t = Hash_ident.create 83
 
-    method add_use id = 
-      Hash_ident.add_or_update stats id 1 ~update:succ 
     method! variable_declaration 
         ({ident; value ; property = _ ; ident_info = _}  as v)
       =  
@@ -102621,7 +102621,7 @@ let count_collects my_export_set =
         self
       | Some x
         -> self#expression x 
-    method! ident id = self#add_use id; self
+    method! ident id = add_use stats id; self
     method get_stats = 
       Hash_ident.iter defined_idents (fun ident v  -> 
           if Set_ident.mem my_export_set ident then 

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -102595,6 +102595,8 @@ end = struct
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
+let add_use stats id = 
+  Hash_ident.add_or_update stats id 1 ~update:succ 
 
 (** Update ident info use cases, it is a non pure function, 
     it will annotate [program] with some meta data
@@ -102604,14 +102606,12 @@ end = struct
 *)
 let count_collects my_export_set = 
   object (self)
-    inherit Js_fold.fold as super
+    inherit Js_fold.fold 
     (* collect used status*)
     val stats : int Hash_ident.t = Hash_ident.create 83
     (* collect all def sites *)
     val defined_idents : J.variable_declaration Hash_ident.t = Hash_ident.create 83
 
-    method add_use id = 
-      Hash_ident.add_or_update stats id 1 ~update:succ 
     method! variable_declaration 
         ({ident; value ; property = _ ; ident_info = _}  as v)
       =  
@@ -102621,7 +102621,7 @@ let count_collects my_export_set =
         self
       | Some x
         -> self#expression x 
-    method! ident id = self#add_use id; self
+    method! ident id = add_use stats id; self
     method get_stats = 
       Hash_ident.iter defined_idents (fun ident v  -> 
           if Set_ident.mem my_export_set ident then 

lib/4.06.1/whole_compiler.ml

@@ -385077,6 +385077,8 @@ end = struct
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
+let add_use stats id = 
+  Hash_ident.add_or_update stats id 1 ~update:succ 
 
 (** Update ident info use cases, it is a non pure function, 
     it will annotate [program] with some meta data
@@ -385092,8 +385094,6 @@ let count_collects my_export_set =
     (* collect all def sites *)
     val defined_idents : J.variable_declaration Hash_ident.t = Hash_ident.create 83
 
-    method add_use id = 
-      Hash_ident.add_or_update stats id 1 ~update:succ 
     method! variable_declaration 
         ({ident; value ; property = _ ; ident_info = _}  as v)
       =  
@@ -385103,7 +385103,7 @@ let count_collects my_export_set =
         self
       | Some x
         -> self#expression x 
-    method! ident id = self#add_use id; self
+    method! ident id = add_use stats id; self
     method get_stats = 
       Hash_ident.iter defined_idents (fun ident v  -> 
           if Set_ident.mem my_export_set ident then