Merge pull request #4438 from BuckleScript/tweak

tweak post-processing

Author: bobzhang

jscomp/snapshot.ninja

@@ -17,48 +17,45 @@ SNAP=../lib/$snapshot_path
 
 build snapshot: phony  $SNAP/whole_compiler.ml   $SNAP/bsb_helper.ml $SNAP/bsb.ml $SNAP/bspp.ml $SNAP/unstable/all_ounit_tests.ml
 
-build $SNAP/whole_compiler.ml: bspack | ./bin/bspack.exe
+build $SNAP/whole_compiler.ml: bspack | ./bin/bspack.exe $LTO
     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/bsb_helper.ml: bspack | ./bin/bspack.exe
+build $SNAP/bsb_helper.ml: bspack | ./bin/bspack.exe $LTO
      flags = -bs-MD ${releaseMode}   -I stubs -I common -I ext -I syntax -I depends -I bsb_helper  -I main 
      main = Bsb_helper_main 
 
-build $SNAP/bsb.ml: bspack | ./bin/bspack.exe
+build $SNAP/bsb.ml: bspack | ./bin/bspack.exe $LTO
      flags =   -D BS_MIN_LEX_DEPS=true -bs-MD ${releaseMode} -I $OCAML_SRC_UTILS -I $OCAML_SRC_PARSING -I stubs -I common -I ext -I syntax -I depends -I bsb -I ext -I main 
      main = Bsb_main 
 
-
-build $SNAP/bspp.ml: bspack | ./bin/bspack.exe
+build $SNAP/bspp.ml: bspack | ./bin/bspack.exe $LTO
      flags = -D BS_MIN_LEX_DEPS=true ${releaseMode} -bs-MD -module-alias Config=Config_whole_compiler   -I $OCAML_SRC_UTILS -I $OCAML_SRC_PARSING?parser   -I common -I ext -I syntax -I depends -I bspp -I core -I main 
      main = Bspp_main 
 
-build $SNAP/unstable/bsb_native.ml: bspack | ./bin/bspack.exe
+build $SNAP/unstable/bsb_native.ml: bspack | ./bin/bspack.exe $LTO
      flags =   -D BS_MIN_LEX_DEPS=true -D BS_NATIVE=true -bs-MD ${releaseMode} -I $OCAML_SRC_UTILS -I $OCAML_SRC_PARSING -I stubs -I common -I ext -I syntax -I depends -I bsb -I ext -I main 
      main = Bsb_main 
 
-build $SNAP/unstable/native_ppx.ml: bspack | ./bin/bspack.exe     
+build $SNAP/unstable/native_ppx.ml: bspack | ./bin/bspack.exe $LTO 
      flags =   -module-alias Config=Config_whole_compiler -D BS_MIN_LEX_DEPS=true -D BS_NATIVE=true -bs-MD ${releaseMode} -I $OCAML_SRC_UTILS -I $OCAML_SRC_PARSING -I stubs -I common -I ext -I syntax -I depends -I bsb -I ext -I core -I main 
      main = Native_ppx_main
 
 
-build $SNAP/unstable/all_ounit_tests.ml: bspack | ./bin/bspack.exe
+build $SNAP/unstable/all_ounit_tests.ml: bspack | ./bin/bspack.exe $LTO
     flags =  -bs-MD    -I ounit -I ounit_tests  -I stubs -I bsb -I bsb_helper -I common -I ext -I syntax -I depends -I bspp -I core -I main
     main = Ounit_tests_main         
 
-build $SNAP/unstable/bspack.ml: bspack | ./bin/bspack.exe 
+build $SNAP/unstable/bspack.ml: bspack | ./bin/bspack.exe $LTO
     flags = -bs-MD -module-alias Config=Config_whole_compiler  -I $OCAML_SRC_PARSING -I $OCAML_SRC_UTILS -I stubs -I ext -I common -I depends -I core -I main -bs-main Bspack_main
     main = Bspack_main
 
-build $SNAP/unstable/js_compiler.ml: bspack | ./bin/bspack.exe
+build $SNAP/unstable/js_compiler.ml: bspack | ./bin/bspack.exe $LTO
     flags = -D BS_BROWSER=true -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 -I stubs -I ext -I syntax -I depends -I common -I core -I super_errors -I bsb -I outcome_printer -I js_parser -I main
     main  = Jsoo_main
 
-build $SNAP/unstable/js_refmt_compiler.ml: bspack | ./bin/bspack.exe
+build $SNAP/unstable/js_refmt_compiler.ml: bspack | ./bin/bspack.exe $LTO
     flags = -D BS_BROWSER=true -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 -I js_parser -I stubs -I ext -I syntax -I depends -I common -I core -I super_errors -I bsb -I outcome_printer -I js_parser -I main -I refmt
     main  = Jsoo_refmt_main
 

lib/4.06.1/whole_compiler.ml

@@ -4589,7 +4589,7 @@ let absolute_path s = (* This function could go into Filename *)
   aux s
 
 let show_filename file =
-  if !absname then absolute_path file else file
+  if true then absolute_path file else file
 
 let print_filename ppf file =
   Format.fprintf ppf "%s" (show_filename file)
@@ -362623,7 +362623,7 @@ let read_one_param ppf position name v =
       set "remove-unused-arguments" [ remove_unused_arguments ] v
 
   | "inlining-report" ->
-      if !native_code then
+      if false then
         set "inlining-report" [ inlining_report ] v
 
   | "flambda-verbose" ->
@@ -362679,7 +362679,7 @@ let read_one_param ppf position name v =
 
 
   | "cmo" | "cma" ->
-    if not !native_code then
+    if not false then
     begin
       match position with
       | Before_link | Before_compile _ ->
@@ -362689,7 +362689,7 @@ let read_one_param ppf position name v =
     end
 
   | "cmx" | "cmxa" ->
-    if !native_code then
+    if false then
     begin
       match position with
       | Before_link | Before_compile _ ->
@@ -362699,7 +362699,7 @@ let read_one_param ppf position name v =
     end
 
   | "pic" ->
-    if !native_code then
+    if false then
       set "pic" [ pic_code ] v
 
   | "can-discard" ->
@@ -362886,7 +362886,7 @@ let process_action
       else if Filename.check_suffix name Config.ext_obj
            || Filename.check_suffix name Config.ext_lib then
         ccobjs := name :: !ccobjs
-      else if not !native_code && Filename.check_suffix name Config.ext_dll then
+      else if not false && Filename.check_suffix name Config.ext_dll then
         dllibs := name :: !dllibs
       else
         raise(Arg.Bad("don't know what to do with " ^ name))

scripts/buckle_lto.js

@@ -7,15 +7,29 @@ var pairs = [
   ["Clflags.unsafe_string", "false"],
   ["Clflags.record_event_when_debug", "false"],
   ["Clflags.no_std_include", "true"],
-  ["no_std_include", "true"],
   ["Clflags.use_threads", "false"],
   ["Clflags.use_vmthreads", "false"],
   ["Clflags.no_implicit_current_dir", "true"],
   ["Clflags.strict_sequence", "true"],
   ["Clflags.strict_formats", "true"],
+  ["Location.absname", "true"],
 ];
 
-var regexp = RegExp(`${pairs.map((x) => "!" + x[0]).join("|")}`, "g");
+var regexp = RegExp(
+  `${pairs
+    .map((x) => {
+      let result = [];
+      result.push("!" + x[0]);
+      let xs = x[0].split(".");
+      if (xs.length === 2 && xs[1]) {
+        result.push("!" + xs[1]);
+      }
+      return result;
+    })
+    .flat()
+    .join("|")}`,
+  "g"
+);
 
 /**
  *
@@ -24,7 +38,8 @@ var regexp = RegExp(`${pairs.map((x) => "!" + x[0]).join("|")}`, "g");
 function transform(s) {
   return s.replace(regexp, (s) => {
     for (let [k, v] of pairs) {
-      if (s.includes(k)) {
+      if (s.includes(k.split(".")[1])) {
+        // "bs_only" instead of "Clflags.bs_only"
         return v;
       }
     }
@@ -33,7 +48,7 @@ function transform(s) {
 }
 // transform('!Config.bs_only && Clflags.native && !Clflags.native')
 var file = process.argv[2];
-console.log(`post processing file`, file);
+console.log(`POST-PROCESSING-FILE:`, file);
 fs.writeFileSync(
   file,