Add an nqp::scgetdesc op.

Raku · Apr 14, 2013 · 41237e1 · 41237e1
1 parent 604ef1d
commit 41237e1
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/vm/parrot/QAST/Operations.nqp b/src/vm/parrot/QAST/Operations.nqp
@@ -2140,6 +2140,12 @@ QAST::Operations.add_core_op('scgethandle', -> $qastcomp, $op {
         $op[0]
     ))
 });
+QAST::Operations.add_core_op('scgetdesc', -> $qastcomp, $op {
+    $qastcomp.as_post(QAST::Op.new(
+        :op('callmethod'), :name('description'), :returns(str),
+        $op[0]
+    ))
+});
 QAST::Operations.add_core_op('scgetobjidx', -> $qastcomp, $op {
     $qastcomp.as_post(QAST::Op.new(
         :op('callmethod'), :name('slot_index_for'), :returns(int),