Merge pull request rescript-lang#3022 from BuckleScript/syn_upgrade

remove unnecessary changes to simplif (not used actually)

Author: bobzhang

jscomp/watch-build.sh

@@ -9,7 +9,8 @@ export npm_package_name=bs-platform
 
 echo "Checking"
 
-# make -r -j5 syntax.cmxa
+# make -r -j5 syntax.cmxa depends.cmxa bsb.cmxa
+
 make -r -j5  check 
 echo "Linking"
 make -r -j3 ../lib/bsc.exe ../lib/bsb.exe bin/cmjdump.exe ../lib/bsb_helper.exe

lib/bsdep.ml

@@ -38884,7 +38884,7 @@ let rec unsafe_mapper : Bs_ast_mapper.mapper =
                     pcsig_fields = Ast_core_type_class_type.handle_class_type_fields self pcsig_fields
                   };
                 pcty_attributes
-               }
+               }               
 
              | Pcty_constr _
              | Pcty_extension _

lib/bsppx.ml

@@ -20889,7 +20889,7 @@ let rec unsafe_mapper : Bs_ast_mapper.mapper =
                     pcsig_fields = Ast_core_type_class_type.handle_class_type_fields self pcsig_fields
                   };
                 pcty_attributes
-               }
+               }               
 
              | Pcty_constr _
              | Pcty_extension _

lib/whole_compiler.ml

@@ -27098,13 +27098,19 @@ type module_name = private string
 
 module String_set = Depend.StringSet
 
+(* FIXME: [Clflags.open_modules] seems not to be properly used *)
+ 
+let bound_vars = String_set.empty 
+
+
 type 'a kind = 'a Ml_binary.kind 
 
+
 let read_parse_and_extract (type t) (k : t kind) (ast : t) : String_set.t =
   Depend.free_structure_names := String_set.empty;
-  let bound_vars = String_set.empty in
   List.iter
     (fun modname  ->
+       
        Depend.open_module bound_vars (Longident.Lident modname))
     (!Clflags.open_modules);
   (match k with
@@ -113913,7 +113919,7 @@ let rec unsafe_mapper : Bs_ast_mapper.mapper =
                     pcsig_fields = Ast_core_type_class_type.handle_class_type_fields self pcsig_fields
                   };
                 pcty_attributes
-               }
+               }               
 
              | Pcty_constr _
              | Pcty_extension _

vendor/ocaml/bytecomp/simplif.mli

@@ -17,9 +17,6 @@
 
 open Lambda
 
-val simplify_exits: lambda -> lambda
-val eliminate_ref: Lambda.IdentSet.elt -> Lambda.lambda -> Lambda.lambda
-val simplify_lets: Lambda.lambda -> Lambda.lambda
 val simplify_lambda: lambda -> lambda
 
 (* To be filled by asmcomp/selectgen.ml *)