OpenBIOS

Download

openbios@openbios.org

July 2025

2 participants
1 discussions

[PATCH] forth: Fix loop word
by Joe van Tunen July 10, 2025

July 10, 2025

The Forth spec says a loop should end when the incremented loop index equals the loop limit. Signed-off-by: Joe van Tunen <joevt(a)shaw.ca> --- kernel/forth.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/kernel/forth.c b/kernel/forth.c index 61dd70d..848524a 100644 --- a/kernel/forth.c +++ b/kernel/forth.c @@ -314,7 +314,7 @@ static void doloop(void) PC += sizeof(cell); - if (startval < endval) { + if (startval != endval) { offset = read_cell(cell2pointer(PC)); PC += offset; PUSHR(endval); -- 2.37.1 (Apple Git-137.1)

2 6