Add nqp::getstaticcode.

Abstracts away turning a closure to its original static code ref.
Raku · Mar 9, 2013 · a95354d · a95354d
1 parent 9927e00
commit a95354d
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/QAST/Operations.nqp b/src/QAST/Operations.nqp
@@ -1903,6 +1903,17 @@ QAST::Operations.add_core_op('markcodestub', -> $qastcomp, $op {
     $ops.result($code);
     $ops
 });
+QAST::Operations.add_core_op('getstaticcode', -> $qastcomp, $op {
+    if +@($op) != 1 {
+        nqp::die('getcodecuid requires one operand');
+    }
+    $qastcomp.as_post(QAST::Op.new(
+        :op('callmethod'), :name('get_static_code'),
+        QAST::Op.new(
+            :op('callmethod'), :name('get_lexinfo'),
+            $op[0]
+        )))
+});
 
 # serialization context related opcodes
 QAST::Operations.add_core_pirop_mapping('sha1', 'nqp_sha1', 'Ss');