Author: pmichaud
Date: Fri Mar 17 17:11:32 2006
New Revision: 11922
Modified:
trunk/compilers/pge/PGE/Exp.pir
trunk/compilers/pge/PGE/Match.pir
Log:
Changed "$!return" to "$!value", to better match the accessor.
Modified: trunk/compilers/pge/PGE/Exp.pir
==============================================================================
--- trunk/compilers/pge/PGE/Exp.pir (original)
+++ trunk/compilers/pge/PGE/Exp.pir Fri Mar 17 17:11:32 2006
@@ -1194,10 +1194,10 @@
emit(code, " mpos = pos")
emit(code, " ($P0 :optional, $I0 :opt_flag) = $P1(mob)")
emit(code, " if $I0 == 0 goto %s", next)
- emit(code, " setattribute mob, \"PGE::Match\\x0$!return\", $P0")
+ emit(code, " setattribute mob, \"PGE::Match\\x0$!value\", $P0")
self.emitsub(code, "succeed", "pos")
emit(code, " null $P0")
- emit(code, " setattribute mob, \"PGE::Match\\x0$!return\", $P0")
+ emit(code, " setattribute mob, \"PGE::Match\\x0$!value\", $P0")
emit(code, " goto fail")
.return ()
.end
Modified: trunk/compilers/pge/PGE/Match.pir
==============================================================================
--- trunk/compilers/pge/PGE/Match.pir (original)
+++ trunk/compilers/pge/PGE/Match.pir Fri Mar 17 17:11:32 2006
@@ -19,7 +19,7 @@
addattribute base, "$.pos" # current match position
addattribute base, "&!corou" # match's corou
addattribute base, "@!capt" # subpattern captures
- addattribute base, "$!return" # return value
+ addattribute base, "$!value" # return value
.return ()
.end
@@ -163,7 +163,7 @@
=cut
.sub "value" :method
- $P0 = getattribute self, "PGE::Match\x0$!return"
+ $P0 = getattribute self, "PGE::Match\x0$!value"
if_null $P0, value_1
.return ($P0)
value_1:
