[svn:parrot] r37764 - branches/pge1/compilers/pge/PGE
pmichaud at svn.parrot.org
pmichaud at svn.parrot.org
Fri Mar 27 20:20:32 UTC 2009
Author: pmichaud
Date: Fri Mar 27 20:20:32 2009
New Revision: 37764
URL: https://trac.parrot.org/parrot/changeset/37764
Log:
[pge]: Change $!item to $!ast.
Modified:
branches/pge1/compilers/pge/PGE/Match.pir
Modified: branches/pge1/compilers/pge/PGE/Match.pir
==============================================================================
--- branches/pge1/compilers/pge/PGE/Match.pir Fri Mar 27 20:18:35 2009 (r37763)
+++ branches/pge1/compilers/pge/PGE/Match.pir Fri Mar 27 20:20:32 2009 (r37764)
@@ -15,7 +15,7 @@
load_bytecode 'PGE/Dumper.pir' # FIXME, XXX, etc.
.local pmc p6meta
p6meta = new 'P6metaclass'
- $P0 = p6meta.'new_class'('PGE::Match', 'parent'=>'Capture', 'attr'=>'$.target $.from $.pos &!corou $!item')
+ $P0 = p6meta.'new_class'('PGE::Match', 'parent'=>'Capture', 'attr'=>'$.target $.from $.pos &!corou $!ast')
set_hll_global ['PGE'], '$!MATCH', $P0
.return ()
.end
@@ -266,10 +266,10 @@
.param pmc obj :optional
.param int has_obj :opt_flag
if has_obj == 0 goto get_obj
- setattribute self, '$!item', obj
+ setattribute self, '$!ast', obj
goto ret_obj
get_obj:
- obj = getattribute self, '$!item'
+ obj = getattribute self, '$!ast'
ret_obj:
if null obj goto ret_null
.return (obj)
@@ -323,7 +323,7 @@
null $P0
setattribute self, '$.target', $P0
setattribute self, '&!corou', $P0
- setattribute self, '$!item', $P0
+ setattribute self, '$!ast', $P0
setref self, $P0
.return ()
.end
More information about the parrot-commits
mailing list