From 705f084c25018ce7dca406efd4fa33045f1d60b1 Mon Sep 17 00:00:00 2001
From: Francois Perrad <francois.perrad@gadz.org>
Date: Tue, 21 Jul 2009 00:57:39 +0200
Subject: [PATCH] use the opcode 'iter' instead of a instantiation of
 'Iterator'

---
 src/lib/gl_binding.pir | 2 +-
 src/lib/lpeg.pir       | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/lib/gl_binding.pir b/src/lib/gl_binding.pir
index a776d01..7ac152c 100644
--- a/src/lib/gl_binding.pir
+++ b/src/lib/gl_binding.pir
@@ -85,7 +85,7 @@ LIST
     .param int enum
     .local pmc gl_str
     gl_str = get_hll_global ['gl_binding'], 'gl_str'
-    new $P0, 'Iterator', gl_str
+    $P0 = iter gl_str
   L1:
     unless $P0 goto L2
     $S0 = shift $P0
diff --git a/src/lib/lpeg.pir b/src/lib/lpeg.pir
index 3617ed7..4fd7b4f 100644
--- a/src/lib/lpeg.pir
+++ b/src/lib/lpeg.pir
@@ -1059,7 +1059,7 @@ NOT YET IMPLEMENTED.
 
 .sub 'get_string' :vtable :method
     $S0 = "[]\n"
-    new $P0, 'Iterator', self
+    $P0 = iter self
     $I0 = 0
     new $P1, 'FixedIntegerArray'
     set $P1, 1