Last couple of tweaks needed to get CORE.setting compilation to PIR t…

…o complete. The generated PIR doesn't quite work yet.
rakudo · Jul 21, 2012 · 34ad03b · 34ad03b
1 parent bb7a618
commit 34ad03b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -24,7 +24,7 @@ my class Exception {
             unless nqp::defined($!ex);
         pir::setattribute__vPsP($!ex, 'payload', nqp::p6decont(self));
         my $msg := self.?message;
-        pir::setattribute__vPsP($!ex, 'message', nqp::unbox_s($msg.Str))
+        pir::setattribute__0PsP($!ex, 'message', nqp::unbox_s($msg.Str))
             if $msg.defined;
         nqp::throw($!ex)
     }
@@ -143,7 +143,7 @@ do {
             $_() for pir::perl6ize_type__PP(@*END_PHASERS);
         }
         if $! {
-            pir::perl6_based_rethrow__vPP(nqp::getattr($!, Exception, '$!ex'), $ex);
+            pir::perl6_based_rethrow__0PP(nqp::getattr($!, Exception, '$!ex'), $ex);
         }
     }
 

diff --git a/src/core/MapIter.pm b/src/core/MapIter.pm
@@ -33,7 +33,7 @@ my class MapIter is Iterator {
 
             if $!first {
                 $!items := nqp::qlist();
-                pir::perl6_set_block_first_flag__vP($block)
+                pir::perl6_set_block_first_flag__0P($block)
                   if (nqp::can($block, 'phasers') && $block.phasers('FIRST'));
             }