Add a post-process pass to whole_compiler.ml/bsppx.ml

Author: bobzhang

jscomp/bsb/templates/tea/bsconfig.json

@@ -12,8 +12,5 @@
   "suffix": ".bs.js",
   "bs-dependencies": [
       "bucklescript-tea"
-  ],
-  "warnings": {
-    "error" : "+101"
-  }
+  ]
 }

jscomp/snapshot.ninja

@@ -1,10 +1,10 @@
 releaseMode = -D BS_RELEASE_BUILD=true
 rule bspack    
-    command = ./bin/bspack.exe $flags -bs-main $main -o $out
+    command = ./bin/bspack.exe $flags -bs-main $main -o $out  $post_process
     depfile = $out.d
     generator = true
 
-
+LTO= ../scripts/buckle_lto.js
 OCAML_SRC_UTILS=$native_ocaml_path/utils
 OCAML_SRC_PARSING=$native_ocaml_path/parsing
 OCAML_SRC_TYPING=$native_ocaml_path/typing
@@ -19,12 +19,12 @@ build snapshot: phony  $SNAP/whole_compiler.ml $SNAP/bsppx.ml $SNAP/bsdep.ml $SN
 build $SNAP/whole_compiler.ml: bspack | ./bin/bspack.exe
     flags = ${releaseMode} -bs-MD -module-alias Config=Config_whole_compiler -bs-exclude-I config  -I $OCAML_SRC_UTILS -I $OCAML_SRC_PARSING -I $OCAML_SRC_TYPING -I $OCAML_SRC_BYTECOMP -I $OCAML_SRC_DRIVER   ${includes}
     main = Js_main
-
+    post_process = && node $LTO $SNAP/whole_compiler.ml
 
 build $SNAP/bsppx.ml: bspack | ./bin/bspack.exe
     flags =  ${releaseMode} -bs-MD  -module-alias Config=Config_whole_compiler  -I $OCAML_SRC_UTILS -I $OCAML_SRC_PARSING  -I stubs -I common -I ext -I syntax -I core -I js_parser -I main 
     main = Bsppx_main
-
+    post_process = && node $LTO $SNAP/bsppx.ml
 
 build $SNAP/bsdep.ml: bspack | ./bin/bspack.exe
     flags = -D BS_OCAMLDEP=true  ${releaseMode} -bs-MD  -module-alias Config=Config_whole_compiler   -I $OCAML_SRC_UTILS -I $OCAML_SRC_PARSING -I $OCAML_SRC_DRIVER -I $OCAML_SRC_TOOLS -I common -I ext -I syntax -I depends -I core -I stubs -I main 

lib/4.06.1/bsppx.ml

@@ -3791,7 +3791,7 @@ let defaults_w = "+a-4-6-7-9-27-29-32..42-44-45-48-50-60-102";;
 let defaults_warn_error = "-a+31";;
 
 let () = 
-  if not !Config.bs_only then (
+  if not true then (
     parse_options false defaults_w;
     parse_options true defaults_warn_error;
   )
@@ -303337,7 +303337,7 @@ let app_exp_mapper
            Ast_attributes.is_bs with
        | None -> default_expr_mapper self e
        | Some pexp_attributes ->
-         if !Config.bs_only then 
+         if true then 
            {e with pexp_desc = Ast_util.uncurry_fn_apply e.pexp_loc self fn (check_and_discard args) ;
                    pexp_attributes }
          else   {e with pexp_attributes } (* BS_NATIVE branch*)