Fix b?branch (Mark Cave-Ayland)

git-svn-id: svn://coreboot.org/openbios/openbios-devel@458 f158a5a8-5612-0410-a976-696ce0be7e32
2024-02-13 08:34:06 +08:00 · 2009-02-21 16:27:51 +00:00
parent 0c9a399601
commit ef41834dc2
1 changed files with 2 additions and 1 deletions
--- a/forth/device/fcode.fs
+++ b/forth/device/fcode.fs
@@ -416,7 +416,7 @@ defer fcode-c@             \ get byte
 \   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 @@ defer fcode-c@             \ get byte

 : b(>resolve)
  resolve-orig
+  execute-tmp-comp
  ; immediate