[svn:parrot] r45664 - trunk/compilers/pge/PGE
allison at svn.parrot.org
allison at svn.parrot.org
Wed Apr 14 12:09:48 UTC 2010
Author: allison
Date: Wed Apr 14 12:09:48 2010
New Revision: 45664
URL: https://trac.parrot.org/parrot/changeset/45664
Log:
[pge] Preparing for deprecation change, methods are only stored in the
namespace when :nsentry is specified. See TT #389.
Modified:
trunk/compilers/pge/PGE/Exp.pir
trunk/compilers/pge/PGE/Regex.pir
Modified: trunk/compilers/pge/PGE/Exp.pir
==============================================================================
--- trunk/compilers/pge/PGE/Exp.pir Wed Apr 14 12:02:42 2010 (r45663)
+++ trunk/compilers/pge/PGE/Exp.pir Wed Apr 14 12:09:48 2010 (r45664)
@@ -163,7 +163,7 @@
.local string returnop
returnop = '.yield'
code.'emit'(<<" CODE", name, pirflags, namecorou, .INTERPINFO_CURRENT_SUB)
- .sub %0 :method %1
+ .sub %0 :method :nsentry(%0) %1
.param pmc adverbs :slurpy :named
.local pmc mob
.const 'Sub' corou = %2
@@ -192,7 +192,7 @@
## Initial code for a rule that cannot be backtracked into.
returnop = '.return'
code.'emit'(<<" CODE", name, pirflags)
- .sub %0 :method %1
+ .sub %0 :method :nsentry(%0) %1
.param pmc adverbs :unique_reg :slurpy :named
.local pmc mob
.local string target :unique_reg
Modified: trunk/compilers/pge/PGE/Regex.pir
==============================================================================
--- trunk/compilers/pge/PGE/Regex.pir Wed Apr 14 12:02:42 2010 (r45663)
+++ trunk/compilers/pge/PGE/Regex.pir Wed Apr 14 12:09:48 2010 (r45664)
@@ -37,7 +37,7 @@
=cut
-.sub 'ident' :method
+.sub 'ident' :method :nsentry('ident')
.param pmc adverbs :slurpy :named
.local string target
.local pmc mob, mfrom, mpos
More information about the parrot-commits
mailing list