[svn:languages] r64 - bf/trunk

[fperrad at svn.parrot.org]

Author: fperrad
Date: Fri Mar 20 09:06:12 2009
New Revision: 64
URL: https://trac.parrot.org/languages/changeset/64

Log:
[bf] remove deprecated opcode : substr_r
(https://trac.parrot.org/parrot/changeset/37596)

Modified:
   bf/trunk/bfc.pir
   bf/trunk/bfco.pir

Modified: bf/trunk/bfc.pir
==============================================================================
--- bf/trunk/bfc.pir	Sun Mar 15 13:48:21 2009	(r63)
+++ bf/trunk/bfc.pir	Fri Mar 20 09:06:12 2009	(r64)
@@ -62,7 +62,7 @@
 
   # The main compiler loop
 INTERP:
-  substr_r char, file, pc, 1
+  substr char, file, pc, 1
   concat code,  "\nSTEP"
   labelstr = pc
   concat code,  labelstr
@@ -77,7 +77,7 @@
 plus_loop:
   inc n_plus
   if $I0 == maxpc goto emit_plus
-  substr_r char, file, $I0, 1
+  substr char, file, $I0, 1
   if char != "+" goto emit_plus
   inc $I0
   goto plus_loop
@@ -100,7 +100,7 @@
 minus_loop:
   inc n_minus
   if $I0 == maxpc goto emit_minus
-  substr_r char, file, $I0, 1
+  substr char, file, $I0, 1
   if char != "-" goto emit_minus
   inc $I0
   goto minus_loop
@@ -123,7 +123,7 @@
 gt_loop:
   inc n_gt
   if $I0 == maxpc goto emit_gt
-  substr_r char, file, $I0, 1
+  substr char, file, $I0, 1
   if char != ">" goto emit_gt
   inc $I0
   goto gt_loop
@@ -143,7 +143,7 @@
 lt_loop:
   inc n_lt
   if $I0 == maxpc goto emit_lt
-  substr_r char, file, $I0, 1
+  substr char, file, $I0, 1
   if char != "<" goto emit_lt
   inc $I0
   goto lt_loop

Modified: bf/trunk/bfco.pir
==============================================================================
--- bf/trunk/bfco.pir	Sun Mar 15 13:48:21 2009	(r63)
+++ bf/trunk/bfco.pir	Fri Mar 20 09:06:12 2009	(r64)
@@ -68,7 +68,7 @@
 
   # The main compiler loop
 INTERP:
-  substr_r char, file, pc, 1
+  substr char, file, pc, 1
   concat code,  "\nSTEP"
   labelstr = pc
   concat code,  labelstr
@@ -83,7 +83,7 @@
 plus_loop:
   inc n_plus
   if $I0 == maxpc goto emit_plus
-  substr_r char, file, $I0, 1
+  substr char, file, $I0, 1
   if char != "+" goto emit_plus
   inc $I0
   goto plus_loop
@@ -109,7 +109,7 @@
 minus_loop:
   inc n_minus
   if $I0 == maxpc goto emit_minus
-  substr_r char, file, $I0, 1
+  substr char, file, $I0, 1
   if char != "-" goto emit_minus
   inc $I0
   goto minus_loop
@@ -135,7 +135,7 @@
 gt_loop:
   inc n_gt
   if $I0 == maxpc goto emit_gt
-  substr_r char, file, $I0, 1
+  substr char, file, $I0, 1
   if char != ">" goto emit_gt
   inc $I0
   goto gt_loop
@@ -152,7 +152,7 @@
 lt_loop:
   inc n_lt
   if $I0 == maxpc goto emit_lt
-  substr_r char, file, $I0, 1
+  substr char, file, $I0, 1
   if char != "<" goto emit_lt
   inc $I0
   goto lt_loop