cvsuser 05/01/13 02:23:18
Modified: languages/bf bfc.imc
Log:
add final label
Revision Changes Path
1.7 +5 -1 parrot/languages/bf/bfc.imc
Index: bfc.imc
===================================================================
RCS file: /cvs/public/parrot/languages/bf/bfc.imc,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- bfc.imc 13 Jan 2005 09:16:32 -0000 1.6
+++ bfc.imc 13 Jan 2005 10:23:18 -0000 1.7
@@ -1,4 +1,4 @@
-# $Id: bfc.imc,v 1.6 2005/01/13 09:16:32 leo Exp $
+# $Id: bfc.imc,v 1.7 2005/01/13 10:23:18 leo Exp $
# A Brainfuck compiler
# By Leon Brocard <[EMAIL PROTECTED]>
#
@@ -240,6 +240,10 @@
inc pc
if pc < maxpc goto INTERP
+ labelstr = pc
+ concat code, "STEP"
+ concat code, labelstr
+ concat code, ":\n"
concat code, "end\n"
# printerr code
