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
