[js] Enable stuff for precompilation

rakudo · May 21, 2017 · 68974ea · 68974ea
1 parent 786c511
commit 68974ea
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 3 deletions.
diff --git a/src/core/CompUnit/Loader.pm b/src/core/CompUnit/Loader.pm
@@ -43,7 +43,7 @@ class CompUnit::Loader is repr('Uninstantiable') {
         my $handle     := CompUnit::Handle.new;
         my $*CTXSAVE   := $handle;
         my %*COMPILING := nqp::hash();
-#?if moar
+#?if !jvm
         nqp::loadbytecodefh(nqp::getattr($file, IO::Handle, '$!PIO'), $file.path.Str);
 #?endif
         $handle

diff --git a/src/core/CompUnit/PrecompilationRepository.pm b/src/core/CompUnit/PrecompilationRepository.pm
@@ -67,10 +67,10 @@ class CompUnit::PrecompilationRepository::Default does CompUnit::PrecompilationR
     method !load-handle-for-path(CompUnit::PrecompilationUnit $unit) {
         my $preserve_global := nqp::ifnull(nqp::gethllsym('perl6', 'GLOBAL'), Mu);
         if $*RAKUDO_MODULE_DEBUG -> $RMD { $RMD("Loading precompiled\n$unit") }
-#?if moar
+#?if !jvm
         my $handle := CompUnit::Loader.load-precompilation-file($unit.bytecode-handle);
 #?endif
-#?if !moar
+#?if jvm
         my $handle := CompUnit::Loader.load-precompilation($unit.bytecode);
 #?endif
         nqp::bindhllsym('perl6', 'GLOBAL', $preserve_global);

diff --git a/src/core/Process.pm b/src/core/Process.pm
@@ -25,6 +25,11 @@ Rakudo::Internals.REGISTER-DYNAMIC: '$*EXECUTABLE', {
       nqp::execname()
       // ($*VM.config<prefix> ~ '/bin/'
         ~ ($*VM.config<osname> eq 'MSWin32' ?? 'perl6-m.bat' !! 'perl6-m'))
+#?endif
+#?if js
+      nqp::execname()
+      // ($*VM.config<prefix> ~ '/bin/'
+        ~ ($*VM.config<osname> eq 'MSWin32' ?? 'perl6-js.bat' !! 'perl6-js'))
 #?endif
     ).IO;
 }