Front page | perl.cvs.parrot |
Postings from December 2008
Author: pmichaud
Date: Sat Dec 6 13:56:11 2008
New Revision: 33579
Modified:
trunk/compilers/pge/PGE/OPTable.pir
Log:
[pge]: Workaround problem of trying to shift PMCs from a Hash iterator.
Modified: trunk/compilers/pge/PGE/OPTable.pir
==============================================================================
--- trunk/compilers/pge/PGE/OPTable.pir (original)
+++ trunk/compilers/pge/PGE/OPTable.pir Sat Dec 6 13:56:11 2008
@@ -112,9 +112,9 @@
$P0 = new 'Iterator', args
args_loop:
unless $P0 goto args_end
- $P1 = shift $P0
- $P2 = $P0[$P1]
- token[$P1] = $P2
+ $S1 = shift $P0
+ $P2 = $P0[$S1]
+ token[$S1] = $P2
goto args_loop
args_end: