not using object state

Author: bobzhang

jscomp/core/js_pass_flatten_and_mark_dead.ml

@@ -180,10 +180,10 @@ let mark_dead_code (js : J.program) : J.program =
     ]}
 
 *) 
-let subst_map () = object (self)
+let subst_map (substitution : J.expression Hash_ident.t) = object (self)
   inherit Js_map.map as super
 
-  val  substitution :  J.expression Hash_ident.t= Hash_ident.create 17 
+
 
 
 
@@ -288,7 +288,7 @@ end
 
 let program  (js : J.program) = 
   js 
-  |> (subst_map () )#program
+  |> (subst_map (Hash_ident.create 32) )#program
   |> mark_dead_code
   (* |> mark_dead_code *)
   (* mark dead code twice does have effect in some cases, however, we disabled it 

lib/4.06.1/unstable/js_compiler.ml

@@ -102108,10 +102108,10 @@ let mark_dead_code (js : J.program) : J.program =
     ]}
 
 *) 
-let subst_map () = object (self)
+let subst_map (substitution : J.expression Hash_ident.t) = object (self)
   inherit Js_map.map as super
 
-  val  substitution :  J.expression Hash_ident.t= Hash_ident.create 17 
+
 
 
 
@@ -102216,7 +102216,7 @@ end
 
 let program  (js : J.program) = 
   js 
-  |> (subst_map () )#program
+  |> (subst_map (Hash_ident.create 32) )#program
   |> mark_dead_code
   (* |> mark_dead_code *)
   (* mark dead code twice does have effect in some cases, however, we disabled it 

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -102108,10 +102108,10 @@ let mark_dead_code (js : J.program) : J.program =
     ]}
 
 *) 
-let subst_map () = object (self)
+let subst_map (substitution : J.expression Hash_ident.t) = object (self)
   inherit Js_map.map as super
 
-  val  substitution :  J.expression Hash_ident.t= Hash_ident.create 17 
+
 
 
 
@@ -102216,7 +102216,7 @@ end
 
 let program  (js : J.program) = 
   js 
-  |> (subst_map () )#program
+  |> (subst_map (Hash_ident.create 32) )#program
   |> mark_dead_code
   (* |> mark_dead_code *)
   (* mark dead code twice does have effect in some cases, however, we disabled it 

lib/4.06.1/whole_compiler.ml

@@ -384590,10 +384590,10 @@ let mark_dead_code (js : J.program) : J.program =
     ]}
 
 *) 
-let subst_map () = object (self)
+let subst_map (substitution : J.expression Hash_ident.t) = object (self)
   inherit Js_map.map as super
 
-  val  substitution :  J.expression Hash_ident.t= Hash_ident.create 17 
+
 
 
 
@@ -384698,7 +384698,7 @@ end
 
 let program  (js : J.program) = 
   js 
-  |> (subst_map () )#program
+  |> (subst_map (Hash_ident.create 32) )#program
   |> mark_dead_code
   (* |> mark_dead_code *)
   (* mark dead code twice does have effect in some cases, however, we disabled it