duskos

dusk os fork
git clone git://git.alexwennerberg.com/duskos
Log | Files | Refs | README | LICENSE

commit 64484b90e4cfb86f7e0862eb119419bb71a3aec8
parent 2cb337dbfc9052120c127bb334ac959342c849b8
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Thu,  9 Mar 2023 16:28:33 -0500

HAL: fix "yield"

It's always little things...

Diffstat:
Mfs/xcomp/bootlo.fs | 1-
Mposix/vm.c | 2+-
2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/fs/xcomp/bootlo.fs b/fs/xcomp/bootlo.fs @@ -218,7 +218,6 @@ alias execute | immediate :iterator for ( n -- ) ?dup if to i begin yield -1 to+ i i not until then unyield ; -\ TODO: line below doesn't work : foo dbg for i dbg next ; 5 foo bye :iterator for2 ( lo hi -- ) diff --git a/posix/vm.c b/posix/vm.c @@ -544,7 +544,7 @@ static void buildsysdict() { entry("?branch,"); litwr(0x04); cwrite(0x05); retwr(); entry("branchz,"); litwr(0x06); cwrite(0x05); retwr(); entry("branch!"); storewr(); retwr(); - entry("yield"); compileop(0x07); retwr(); + entry("yield"); compileop(0x07); retwr(); makeimm(); entry(";"); compileop(0x02); cwrite(0x3d); retwr(); makeimm(); sysalias("in<", "boot<"); inrdaddr = find("in<");