[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