develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34060 - branches/main/languages/perl6/src/parser

From:
pmichaud
Date:
December 17, 2008 22:05
Subject:
[svn:parrot] r34060 - branches/main/languages/perl6/src/parser
Message ID:
20081218060458.19452CBA12@x12.develooper.com
Author: pmichaud
Date: Wed Dec 17 22:04:57 2008
New Revision: 34060

Modified:
   branches/main/languages/perl6/src/parser/actions.pm

Log:
[rakudo]:  change '$def' lexical to 'def' register in actions.pm


Modified: branches/main/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/main/languages/perl6/src/parser/actions.pm	(original)
+++ branches/main/languages/perl6/src/parser/actions.pm	Wed Dec 17 22:04:57 2008
@@ -754,8 +754,9 @@
             PAST::Op.new(
                 :pasttype('bind'),
                 PAST::Var.new(
-                    :name('$def'),
-                    :scope('lexical')
+                    :name('def'),
+                    :scope('register'),
+                    :isdecl(1)
                 ),
                 PAST::Op.new(
                     :pasttype('call'),
@@ -767,8 +768,8 @@
                 :pasttype('call'),
                 :name('!keyword_has'),
                 PAST::Var.new(
-                    :name('$def'),
-                    :scope('lexical')
+                    :name('def'),
+                    :scope('register')
                 ),
                 PAST::Val.new( :value("$!" ~ $name) ),
                 # XXX Set declared type here, when we parse that.
@@ -781,8 +782,8 @@
                 :pasttype('callmethod'),
                 :name('add_method'),
                 PAST::Var.new(
-                    :name('$def'),
-                    :scope('lexical')
+                    :name('def'),
+                    :scope('register')
                 ),
                 PAST::Val.new( :value($name) ),
                 make_accessor($/, undef, "$!" ~ $name, 1, 'attribute')
@@ -794,8 +795,8 @@
                 :pasttype('callmethod'),
                 :name('add_method'),
                 PAST::Var.new(
-                    :name('$def'),
-                    :scope('lexical')
+                    :name('def'),
+                    :scope('register')
                 ),
                 PAST::Val.new( :value($_) ),
                 PAST::Block.new(
@@ -823,23 +824,24 @@
             PAST::Op.new(
                 :pasttype('bind'),
                 PAST::Var.new(
-                    :name('$def'),
-                    :scope('lexical')
+                    :name('def'),
+                    :scope('register'),
+                    :isdecl(1)
                 ),
                 PAST::Op.new(
                     :pasttype('call'),
                     :name('!keyword_enum'),
                     PAST::Var.new(
-                        :name('$def'),
-                        :scope('lexical')
+                        :name('def'),
+                        :scope('register')
                     )
                 )
             ),
             PAST::Op.new(
                 :inline('    setprop %0, "enum", %1'),
                 PAST::Var.new(
-                    :name('$def'),
-                    :scope('lexical')
+                    :name('def'),
+                    :scope('register')
                 ),
                 PAST::Val.new(
                     :value(1),
@@ -855,8 +857,8 @@
             :pasttype('callmethod'),
             :name('add_vtable_override'),
             PAST::Var.new(
-                :scope('lexical'),
-                :name('$def')
+                :scope('register'),
+                :name('def')
             ),
             'invoke',
             PAST::Block.new(
@@ -872,8 +874,8 @@
             :pasttype('callmethod'),
             :name('add_vtable_override'),
             PAST::Var.new(
-                :scope('lexical'),
-                :name('$def')
+                :scope('register'),
+                :name('def')
             ),
             'get_string',
             PAST::Block.new(
@@ -893,8 +895,8 @@
             :pasttype('callmethod'),
             :name('add_vtable_override'),
             PAST::Var.new(
-                :scope('lexical'),
-                :name('$def')
+                :scope('register'),
+                :name('def')
             ),
             'get_integer',
             PAST::Block.new(
@@ -914,8 +916,8 @@
             :pasttype('callmethod'),
             :name('add_vtable_override'),
             PAST::Var.new(
-                :scope('lexical'),
-                :name('$def')
+                :scope('register'),
+                :name('def')
             ),
             'get_number',
             PAST::Block.new(
@@ -948,8 +950,8 @@
                     :pasttype('callmethod'),
                     :name('new'),
                     PAST::Var.new(
-                        :name('$def'),
-                        :scope('lexical')
+                        :name('def'),
+                        :scope('register')
                     ),
                     PAST::Val.new(
                         :value(%values{$_}),
@@ -1710,8 +1712,8 @@
                         :name('trait_auxiliary:is'),
                         $superclass,
                         PAST::Var.new(
-                            :name('$def'),
-                            :scope('lexical')
+                            :name('def'),
+                            :scope('register')
                         )
                     )
                 );
@@ -1731,8 +1733,8 @@
                     :pasttype('call'),
                     :name('!keyword_does'),
                     PAST::Var.new(
-                        :name('$def'),
-                        :scope('lexical')
+                        :name('def'),
+                        :scope('register')
                     ),
                     $role_name
                 )
@@ -1885,8 +1887,9 @@
                 PAST::Op.new(
                     :pasttype('bind'),
                     PAST::Var.new(
-                        :name('$def'),
-                        :scope('lexical')
+                        :name('def'),
+                        :scope('register'),
+                        :isdecl(1)
                     ),
                     PAST::Op.new(
                         :pasttype('call'),
@@ -1905,8 +1908,9 @@
                 $class_def := PAST::Op.new(
                     :pasttype('bind'),
                     PAST::Var.new(
-                        :name('$def'),
-                        :scope('lexical')
+                        :name('def'),
+                        :scope('register'),
+                        :isdecl(1)
                     ),
                     PAST::Op.new(
                         :pasttype('call'),
@@ -1931,8 +1935,9 @@
                     :node($/),
                     :pasttype('bind'),
                     PAST::Var.new(
-                        :name('$def'),
-                        :scope('lexical')
+                        :name('def'),
+                        :scope('register'),
+                        :isdecl(1)
                     ),
                     PAST::Op.new(
                         :pasttype('callmethod'),
@@ -2001,8 +2006,8 @@
                             :namespace('Perl6Object')
                         ),
                         PAST::Var.new(
-                            :scope('lexical'),
-                            :name('$def')
+                            :scope('register'),
+                            :name('def')
                         ),
                         PAST::Val.new(
                             :value('Grammar'),
@@ -2042,8 +2047,8 @@
                                 :namespace('Perl6Object')
                             ),
                             PAST::Var.new(
-                                :scope('lexical'),
-                                :name('$def')
+                                :scope('register'),
+                                :name('def')
                             ),
                             PAST::Val.new(
                                 :value('Any'),
@@ -2060,8 +2065,8 @@
                     $past.pirflags('');
                     $past.blocktype('immediate');
                     $past[0].push(PAST::Var.new(
-                        :name('$def'),
-                        :scope('lexical'),
+                        :name('def'),
+                        :scope('register'),
                         :isdecl(1)
                     ));
                 }
@@ -2102,8 +2107,9 @@
             PAST::Op.new(
                 :pasttype('bind'),
                 PAST::Var.new(
-                    :name('$def'),
-                    :scope('lexical')
+                    :name('def'),
+                    :scope('register'),
+                    :isdecl(1)
                 ),
                 PAST::Op.new(
                     :pasttype('call'),
@@ -2298,8 +2304,8 @@
                 :pasttype('call'),
                 :name('!keyword_has'),
                 PAST::Var.new(
-                    :name('$def'),
-                    :scope('lexical')
+                    :name('def'),
+                    :scope('register')
                 ),
                 PAST::Val.new( :value($name) ),
                 build_type($/<scoped><fulltypename>)
@@ -2312,8 +2318,8 @@
                 :pasttype('call'),
                 :name('!keyword_has'),
                 PAST::Var.new(
-                    :name('$def'),
-                    :scope('lexical')
+                    :name('def'),
+                    :scope('register')
                 ),
                 PAST::Val.new( :value($name) )
             )
@@ -3046,8 +3052,8 @@
                     :pasttype('call'),
                     :name('!ADD_TO_WHENCE'),
                     PAST::Var.new(
-                        :name('$def'),
-                        :scope('lexical')
+                        :name('def'),
+                        :scope('register')
                     ),
                     $lhs.name(),
                     $rhs
@@ -3749,8 +3755,8 @@
             :pasttype('callmethod'),
             :name('add_method'),
             PAST::Var.new(
-                :name('$def'),
-                :scope('lexical')
+                :name('def'),
+                :scope('register')
             ),
             PAST::Val.new( :value($method.name()) ),
             $new_method



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About