Add to QAST::VM so we can handle pir::const::foo.

Raku · Jul 21, 2012 · 818b756 · 818b756
1 parent 876c9d5
commit 818b756
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/QAST/Compiler.nqp b/src/QAST/Compiler.nqp
@@ -553,6 +553,12 @@ class QAST::Compiler is HLL::Compiler {
             }
             return $ops;
         }
+        elsif $node.supports('pirconst') {
+            my $ops := self.post_new('Ops');
+            my $name := $node.alternative('pirconst');
+            $ops.result('.' ~ $name);
+            return $ops;
+        }
         elsif $node.supports('loadlibs') {
             $*BLOCK.add_loadlibs($node.alternative('loadlibs'));
             self.post_new('Ops');
@@ -809,6 +815,9 @@ class QAST::Compiler is HLL::Compiler {
               || nqp::substr($inferee, 0, 1) eq '"' {
             "s"
         }
+        elsif nqp::substr($inferee, 0, 1) eq '.' {
+            "P"
+        }
         elsif nqp::index($inferee, ".", 0) > 0 {
             "n"
         }