[svn:parrot] r40119 - trunk/tools/dev

[fperrad at svn.parrot.org]

Author: fperrad
Date: Thu Jul 16 17:13:22 2009
New Revision: 40119
URL: https://trac.parrot.org/parrot/changeset/40119

Log:
[Languages] use the opcode 'iter' instead of a instantiation of 'Iterator'

Modified:
   trunk/tools/dev/create_language.pl
   trunk/tools/dev/mk_language_shell.pl

Modified: trunk/tools/dev/create_language.pl
==============================================================================
--- trunk/tools/dev/create_language.pl	Thu Jul 16 11:48:46 2009	(r40118)
+++ trunk/tools/dev/create_language.pl	Thu Jul 16 17:13:22 2009	(r40119)
@@ -810,11 +810,11 @@
 
 .sub 'say'
     .param pmc args            :slurpy
-    .local pmc iter
-    iter = new 'Iterator', args
+    .local pmc it
+    it = iter args
   iter_loop:
-    unless iter goto iter_end
-    $P0 = shift iter
+    unless it goto iter_end
+    $P0 = shift it
     print $P0
     goto iter_loop
   iter_end:

Modified: trunk/tools/dev/mk_language_shell.pl
==============================================================================
--- trunk/tools/dev/mk_language_shell.pl	Thu Jul 16 11:48:46 2009	(r40118)
+++ trunk/tools/dev/mk_language_shell.pl	Thu Jul 16 17:13:22 2009	(r40119)
@@ -1256,11 +1256,11 @@
 
 .sub 'say'
     .param pmc args            :slurpy
-    .local pmc iter
-    iter = new 'Iterator', args
+    .local pmc it
+    it = iter args
   iter_loop:
-    unless iter goto iter_end
-    $P0 = shift iter
+    unless it goto iter_end
+    $P0 = shift it
     print $P0
     goto iter_loop
   iter_end: