tweak

Author: bobzhang

lib/4.06.1/whole_compiler.ml

@@ -20705,8 +20705,8 @@ module PpxContext = struct
         lid "open_modules", make_list make_string !Clflags.open_modules;
         lid "for_package",  make_option make_string !Clflags.for_package;
         lid "debug",        make_bool !Clflags.debug;
-        lid "use_threads",  make_bool !Clflags.use_threads;
-        lid "use_vmthreads", make_bool !Clflags.use_vmthreads;
+        lid "use_threads",  make_bool false;
+        lid "use_vmthreads", make_bool false;
         get_cookies ()
       ]
     in
@@ -368475,8 +368475,8 @@ open Compenv
 
 let init_path ?(dir="") native =
   let dirs =
-    if !Clflags.use_threads then "+threads" :: !Clflags.include_dirs
-    else if !Clflags.use_vmthreads && not native then
+    if false then "+threads" :: !Clflags.include_dirs
+    else if false && not native then
       "+vmthreads" :: !Clflags.include_dirs
     else
       !Clflags.include_dirs

scripts/buckle_lto.js

@@ -7,7 +7,10 @@ var pairs = [
   ["Clflags.unsafe_string", "false"],
   ["Clflags.record_event_when_debug", "false"],
   ["Clflags.no_std_include", "true"],
-  ["no_std_include", "true"]
+  ["no_std_include", "true"],
+  ["Clflags.use_threads", "false"],
+  ["Clflags.use_vmthreads", "false"],
+  ["Clflags.no_implicit_current_dir","true"]
 ];
 
 var regexp = RegExp(`${pairs.map(x => "!" + x[0]).join("|")}`, "g");