[svn:parrot] r37760 - branches/pge1/compilers/pge/PGE

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Fri Mar 27 19:33:03 2009
New Revision: 37760
URL: https://trac.parrot.org/parrot/changeset/37760

Log:
[pge]:  PGE::Exp::Literal nodes now _always_ get their text from the ast obj.

Modified:
   branches/pge1/compilers/pge/PGE/Exp.pir
   branches/pge1/compilers/pge/PGE/Perl6Regex.pir

Modified: branches/pge1/compilers/pge/PGE/Exp.pir
==============================================================================
--- branches/pge1/compilers/pge/PGE/Exp.pir	Fri Mar 27 19:28:55 2009	(r37759)
+++ branches/pge1/compilers/pge/PGE/Exp.pir	Fri Mar 27 19:33:03 2009	(r37760)
@@ -353,7 +353,7 @@
     args = self.'getargs'(label, next)
     .local string literal
     .local int litlen
-    literal = self
+    literal = self.'ast'()
     litlen = length literal
 
     args['I'] = ''

Modified: branches/pge1/compilers/pge/PGE/Perl6Regex.pir
==============================================================================
--- branches/pge1/compilers/pge/PGE/Perl6Regex.pir	Fri Mar 27 19:28:55 2009	(r37759)
+++ branches/pge1/compilers/pge/PGE/Perl6Regex.pir	Fri Mar 27 19:33:03 2009	(r37760)
@@ -333,7 +333,7 @@
     $S0 = substr target, pos, litlen
     pos += litlen
     mob = mob.'new'(mob, 'grammar'=>'PGE::Exp::Literal')
-    mob.'result_object'($S0)
+    mob.'ast'($S0)
     mob.'to'(pos)
     .return (mob)
 
@@ -376,7 +376,7 @@
   quoted_metachar:
     inc pos
     mob = mob.'new'(mob, 'grammar'=>'PGE::Exp::Literal')
-    mob.'result_object'(initchar)
+    mob.'ast'(initchar)
     mob.'to'(pos)
     .return (mob)
 
@@ -401,7 +401,7 @@
 
   term_literal:
     mob = mob.'new'(mob, 'grammar'=>'PGE::Exp::Literal')
-    mob.'result_object'(charlist)
+    mob.'ast'(charlist)
     mob.'to'(pos)
     .return (mob)
 
@@ -1032,7 +1032,7 @@
     goto literal_iter
   literal_end:
     inc pos
-    mob.'result_object'(lit)
+    mob.'ast'(lit)
     mob.'to'(pos)
     .return (mob)
   literal_error: