Add an nqp::getenvhash op.

Raku · Apr 20, 2013 · dcf2e2f · dcf2e2f
1 parent e93a51d
commit dcf2e2f
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/vm/parrot/QAST/Operations.nqp b/src/vm/parrot/QAST/Operations.nqp
@@ -2231,3 +2231,12 @@ QAST::Operations.add_core_pirop_mapping('nfarunalt', 'nqp_nfa_run_alt', '0PsiPPP
 # process related opcodes
 QAST::Operations.add_core_pirop_mapping('exit', 'exit', '0i', :inlinable(1));
 QAST::Operations.add_core_pirop_mapping('sleep', 'sleep', '0n', :inlinable(1));
+QAST::Operations.add_core_op('getenvhash', -> $qastcomp, $op {
+    if +@($op) != 0 {
+        nqp::die('getenvhash requires three operands');
+    }
+    $qastcomp.as_post(QAST::VM.new(
+        :pirop('new__Ps'),
+        QAST::SVal.new( :value('Env') )
+    ))
+});