Add nqp::p6init() which initializes runtime.

Need a mechanism similar to Parrot dynops init for the JVM also.
rakudo · May 10, 2013 · aea68d2 · aea68d2
1 parent b24d10d
commit aea68d2
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/src/Perl6/Metamodel/BOOTSTRAP.nqp b/src/Perl6/Metamodel/BOOTSTRAP.nqp
@@ -80,10 +80,8 @@ my stub ForeignCode metaclass Perl6::Metamodel::ClassHOW { ... };
 # We stick all the declarative bits inside of a BEGIN, so they get
 # serialized.
 BEGIN {
-#?if parrot
-    # Ensure Rakudo dynops are initialized.
-    pir::rakudo_dynop_setup__v();
-#?endif
+    # Ensure Rakudo runtime support is initialized.
+    nqp::p6init();
 
     # class Mu { ... }
 #?if parrot

diff --git a/src/vm/parrot/Perl6/Ops.nqp b/src/vm/parrot/Perl6/Ops.nqp
@@ -63,6 +63,7 @@ $ops.add_hll_pirop_mapping('nqp', 'p6parcel', 'perl6_parcel_from_rpa', 'PPP', :i
 $ops.add_hll_pirop_mapping('nqp', 'p6isbindable', 'perl6_is_sig_bindable', 'IPP');
 $ops.add_hll_pirop_mapping('nqp', 'p6trialbind', 'perl6_trial_bind_ct', 'IPPP');
 $ops.add_hll_pirop_mapping('nqp', 'p6settypes', 'p6settypes', 'vP', :inlinable(1));
+$ops.add_hll_pirop_mapping('nqp', 'p6init', 'rakudo_dynop_setup', 'v', :inlinable(1));
 
 # Override defor to avoid v-table call.
 $ops.add_hll_op('perl6', 'defor', :inlinable(1), -> $qastcomp, $op {