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

[svn:parrot] r33577 - trunk/compilers/tge/TGE

From:
pmichaud
Date:
December 6, 2008 13:44
Subject:
[svn:parrot] r33577 - trunk/compilers/tge/TGE
Message ID:
20081206214446.81A5DCB9AF@x12.develooper.com
Author: pmichaud
Date: Sat Dec  6 13:44:45 2008
New Revision: 33577

Modified:
   trunk/compilers/tge/TGE/Compiler.pir

Log:
[tge]:  When iterating keyed values of TGE;Parser (Match) objects, use .hash()


Modified: trunk/compilers/tge/TGE/Compiler.pir
==============================================================================
--- trunk/compilers/tge/TGE/Compiler.pir	(original)
+++ trunk/compilers/tge/TGE/Compiler.pir	Sat Dec  6 13:44:45 2008
@@ -113,7 +113,8 @@
     .local pmc result
 
     .local pmc iter
-    iter = new 'Iterator', node    # setup iterator for node
+    $P0 = node.'hash'()
+    iter = new 'Iterator', $P0    # setup iterator for node
     iter = 0
   iter_loop:
     unless iter, iter_end         # while (entries) ...
@@ -135,7 +136,8 @@
     rule = new 'Hash'
 
     .local pmc iter
-    iter = new 'Iterator', node    # setup iterator for node
+    $P0 = node.'hash'()
+    iter = new 'Iterator', $P0    # setup iterator for node
     iter = 0
   iter_loop:
     unless iter, iter_end         # while (entries) ...
@@ -169,7 +171,8 @@
     decl = new 'Hash'
 
     .local pmc iter
-    iter = new 'Iterator', node    # setup iterator for node
+    $P0 = node.'hash'()
+    iter = new 'Iterator', $P0    # setup iterator for node
     iter = 0
   iter_loop:
     unless iter, iter_end         # while (entries) ...



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