From dcf2e2fdfc7d73e6d7c504fcdfc9f32c29efaed5 Mon Sep 17 00:00:00 2001
From: jnthn <jnthn@jnthn.net>
Date: Sat, 20 Apr 2013 21:11:00 +0200
Subject: [PATCH] Add an nqp::getenvhash op.

---
 src/vm/parrot/QAST/Operations.nqp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/vm/parrot/QAST/Operations.nqp b/src/vm/parrot/QAST/Operations.nqp
index 3f84087ef7..d72e3019e7 100644
--- 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') )
+    ))
+});