Front page | perl.cvs.parrot |
Postings from December 2008
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)