Author: blueswirl Date: 2009-02-21 17:27:51 +0100 (Sat, 21 Feb 2009) New Revision: 458
Modified: openbios-devel/forth/device/fcode.fs Log: Fix b?branch (Mark Cave-Ayland)
Modified: openbios-devel/forth/device/fcode.fs =================================================================== --- openbios-devel/forth/device/fcode.fs 2009-02-21 11:11:56 UTC (rev 457) +++ openbios-devel/forth/device/fcode.fs 2009-02-21 16:27:51 UTC (rev 458) @@ -416,7 +416,7 @@ \ Conditional branch FCode. Followed by FCode-offset.
: b?branch - ['] do?branch , + setup-tmp-comp ['] do?branch , fcode-offset 0< if \ if we jump backwards, we can forsee where it goes resolve-dest else @@ -439,6 +439,7 @@
: b(>resolve) resolve-orig + execute-tmp-comp ; immediate