develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33424 - trunk/compilers/pge/PGE

From:
pmichaud
Date:
December 1, 2008 08:53
Subject:
[svn:parrot] r33424 - trunk/compilers/pge/PGE
Message ID:
20081201165301.E323ACB9AF@x12.develooper.com
Author: pmichaud
Date: Mon Dec  1 08:53:01 2008
New Revision: 33424

Modified:
   trunk/compilers/pge/PGE/Match.pir

Log:
[pge]:  Use box opcode instead of new + set.


Modified: trunk/compilers/pge/PGE/Match.pir
==============================================================================
--- trunk/compilers/pge/PGE/Match.pir	(original)
+++ trunk/compilers/pge/PGE/Match.pir	Mon Dec  1 08:53:01 2008
@@ -124,11 +124,9 @@
     .local pmc mob, mfrom, mpos
     mob = new grammar_class
     setattribute mob, '$.target', target
-    mfrom = new 'Integer'
-    mfrom = pos
+    mfrom = box pos
     setattribute mob, '$.from', mfrom
-    mpos = new 'Integer'
-    mpos = -1
+    mpos = box -1
     setattribute mob, '$.pos', mpos
 
     .return (mob, pos, target, mfrom, mpos, iscont)



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About