[svn:languages] r117 - in bf/trunk: . t

[fperrad at svn.parrot.org]

Author: fperrad
Date: Fri May 28 16:08:28 2010
New Revision: 117
URL: https://trac.parrot.org/languages/changeset/117

Log:
[bf] fix after ops massacre

Modified:
   bf/trunk/bf.pasm
   bf/trunk/bfc.pir
   bf/trunk/bfco.pir
   bf/trunk/t/test_bfco.t

Modified: bf/trunk/bf.pasm
==============================================================================
--- bf/trunk/bf.pasm	Fri May 28 15:58:20 2010	(r116)
+++ bf/trunk/bf.pasm	Fri May 28 16:08:28 2010	(r117)
@@ -5,6 +5,8 @@
 # See http://www.catseye.mb.ca/esoteric/bf/
 # for more information on this silly language
 
+.loadlib 'io_ops'
+
   get_params '0', P5  # P5 = @ARGV
   # Get the brainfuck source file into S0
   set S0, P5[1]

Modified: bf/trunk/bfc.pir
==============================================================================
--- bf/trunk/bfc.pir	Fri May 28 15:58:20 2010	(r116)
+++ bf/trunk/bfc.pir	Fri May 28 16:08:28 2010	(r117)
@@ -4,6 +4,9 @@
 #
 # See http://www.catseye.mb.ca/esoteric/bf/
 # for more information on this silly language
+
+.loadlib 'io_ops'
+
 .sub _main
   .param pmc argv
   .local int pc

Modified: bf/trunk/bfco.pir
==============================================================================
--- bf/trunk/bfco.pir	Fri May 28 15:58:20 2010	(r116)
+++ bf/trunk/bfco.pir	Fri May 28 16:08:28 2010	(r117)
@@ -7,6 +7,8 @@
 # XXX does no register range checking
 # it runs the bench.bf 15 times faster then bfc.imc
 
+.loadlib 'io_ops'
+
 .macro debug()
   concat code, "# depth "
   $S0 = depth
@@ -62,6 +64,7 @@
 
   # Initialise
   code = "# Code generated by bfco.pir\n"
+  concat code,  ".loadlib 'io_ops'\n"
   # concat code, "trace 1\n"
   concat code,  "new P0, 'ResizableIntegerArray' # memory\n"
   # this array doesn't support negative indices properly
@@ -74,7 +77,6 @@
   label = 0    # label count
   .local int depth, n_lt, n_gt, reg
   reg = 0
-  concat code,  "    cleari\n"
 
   # The main compiler loop
 INTERP:

Modified: bf/trunk/t/test_bfco.t
==============================================================================
--- bf/trunk/t/test_bfco.t	Fri May 28 15:58:20 2010	(r116)
+++ bf/trunk/t/test_bfco.t	Fri May 28 16:08:28 2010	(r117)
@@ -3,6 +3,8 @@
 # Test bf interpreter
 # Print TAP, Test Anything Protocol
 
+.loadlib 'sys_ops'
+
 .sub 'main' :main
     $S0 = 'parrot -r bfco.pbc test.bf'
     $I0 = spawnw $S0