[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