remove simple_binary_ast which is not used

Author: bobzhang

jscomp/common/js_config.ml

@@ -59,7 +59,7 @@ let get_check_div_by_zero () = !check_div_by_zero
 
 let syntax_only = ref false
 let binary_ast = ref false
-let simple_binary_ast = ref false
+
 
 let bs_suffix = ref false 
 

jscomp/common/js_config.mli

@@ -74,7 +74,7 @@ val tool_name : string
 
 val syntax_only  : bool ref
 val binary_ast : bool ref
-val simple_binary_ast : bool ref
+
 
 
 val bs_suffix : bool ref

jscomp/core/js_implementation.ml

@@ -56,11 +56,6 @@ let process_with_gentype filename =
 
 let after_parsing_sig ppf  outputprefix ast  =
   Ast_config.iter_on_bs_config_sigi ast;  
-  if !Js_config.simple_binary_ast then begin
-    let oc = open_out_bin (outputprefix ^ Literals.suffix_mliast_simple) in 
-    Ml_binary.write_ast Mli !Location.input_name ast oc;
-    close_out oc ;
-  end;
   if !Js_config.binary_ast then
     begin 
       let sourcefile = !Location.input_name in   
@@ -165,11 +160,6 @@ let after_parsing_impl ppf  outputprefix (ast : Parsetree.structure) =
   let ast =
     if !Js_config.no_export  then 
       no_export ast else ast in     
-  if !Js_config.simple_binary_ast then begin
-    let oc = open_out_bin (outputprefix ^ Literals.suffix_mlast_simple) in 
-    Ml_binary.write_ast Ml !Location.input_name  ast oc;
-    close_out oc ;
-  end;
   if !Js_config.binary_ast then begin 
     let sourcefile = !Location.input_name in 
     Binary_ast.write_ast ~sourcefile

jscomp/main/js_main.ml

@@ -386,10 +386,7 @@ let buckle_script_flags : (string * Bsc_args.spec * string) array =
 
     "-bs-list-conditionals", unit_call (fun () -> Lexer.list_variables Format.err_formatter),
     "List existing conditional variables";  
-    
-    "-bs-simple-binary-ast",  set Js_config.simple_binary_ast,
-    "*internal* Generate binary .mliast_simple and mlast_simple";
-    
+        
     "-bs-eval", string_call (fun  s -> eval s ~suffix:Literals.suffix_ml), 
     "*internal* (experimental) set the string to be evaluated in OCaml syntax";
 

lib/4.06.1/unstable/bspack.ml

@@ -11909,7 +11909,7 @@ val tool_name : string
 
 val syntax_only  : bool ref
 val binary_ast : bool ref
-val simple_binary_ast : bool ref
+
 
 
 val bs_suffix : bool ref
@@ -11999,7 +11999,7 @@ let get_check_div_by_zero () = !check_div_by_zero
 
 let syntax_only = ref false
 let binary_ast = ref false
-let simple_binary_ast = ref false
+
 
 let bs_suffix = ref false