On Sunday 13 October 2002 12:11, Leopold Toetsch wrote:
> Jerome Quelin wrote:
> > eq S0, "<", FLOW_GO_WEST
> [ branch not taken ]
> > And while I'm talking about strange things... Due to the fact that Parrot
> > does not branch to the correct label,
> As strings are involved, could you insert:
> sweepoff
> collectoff
> as the very first instructions, your interpreter executes?
Using those instructions make the whole work, hurray! :-)
> It would also be a good idea, to provide the instructions/files, where
> you have this broken behaviour, so that other people can try to
> reproduce this problem.
Ok, here is the complete thing.
$ rsync -avz --delete cvs.perl.org::parrot-HEAD parrot
$ cd parrot
$ perl Configure.pl --debugging
$ make
[...]
$ make test
[...]
All tests successful, 5 subtests skipped.
Files=29, Tests=457, 192 wallclock secs (154.47 cusr + 17.44 csys = 171.91
CPU)
$ cd languages/Befunge-93
==> apply the patch provided (but not on the master CVS :-)
==> or add the traces yourself on line 57 in befunge.pasm
$ perl ../../assemble.pl befunge.pasm > befunge.pbc
$ ../../parrot befunge.pbc -v test.bef | less
==> Look for the string "before [>]"
==> There should be the following line just before:
(9,8) - '<' (ord=60) dir=2 stack=
If you want details, I'm on IRC rhizomatic#parrot
Jerome
--
[EMAIL PROTECTED]
? befunge-add-traces.patch
Index: befunge.pasm
===================================================================
RCS file: /cvs/public/parrot/languages/Befunge-93/befunge.pasm,v
retrieving revision 1.2
diff -u -d -r1.2 befunge.pasm
--- befunge.pasm 14 Sep 2002 13:56:44 -0000 1.2
+++ befunge.pasm 13 Oct 2002 15:22:58 -0000
@@ -54,7 +54,13 @@
eq S0, "^", FLOW_GO_NORTH
eq S0, ">", FLOW_GO_EAST
eq S0, "v", FLOW_GO_SOUTH
+ print "before ["
+ print S0
+ print "]\n"
eq S0, "<", FLOW_GO_WEST
+ print "after ["
+ print S0
+ print "]\n"
eq S0, "?", FLOW_GO_AWAY
# Flow control.
Index: befunge.pbc
===================================================================
RCS file: /cvs/public/parrot/languages/Befunge-93/befunge.pbc,v
retrieving revision 1.2
diff -u -d -r1.2 befunge.pbc
Binary files /tmp/cvsVaYITO and befunge.pbc differ
