[svn:parrot] r30261 - trunk/languages/perl6/src/parser

[pmichaud]

Author: pmichaud
Date: Sat Aug 16 02:01:02 2008
New Revision: 30261

Modified:
   trunk/languages/perl6/src/parser/actions.pm

Log:
[rakudo]:  Eliminate some inline pir by using PAST::Var/register for 'self'.


Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Sat Aug 16 02:01:02 2008
@@ -504,7 +504,7 @@
                 :scope('lexical'),
                 :isdecl(1)
             ),
-            PAST::Op.new(:inline('    %r = self'))
+            PAST::Var.new( :name('self'), :scope('register') )
         ));
 
         # Set up the block details.
@@ -902,9 +902,7 @@
                         :name($parameter.name()),
                         :scope('lexical')
                     ),
-                    PAST::Op.new(
-                        :inline('%r = self')
-                    )
+                    PAST::Var.new( :name('self'), :scope('register') )
                 ));
             }