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

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

From:
pmichaud
Date:
December 6, 2008 13:56
Subject:
[svn:parrot] r33579 - trunk/compilers/pge/PGE
Message ID:
20081206215612.76BF9CB9AF@x12.develooper.com
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:
 



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