alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix tasks ordering bug.

Browse Source
This commit is contained in:
Brad Nelson
2021-05-21 14:28:21 -07:00
parent 7789b4e182
commit d70e1081bb
3 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
ueforth/Makefile
View File

@ -124,8 +124,9 @@ $(GEN):
POSIX_BOOT = common/boot.fs common/conditionals.fs common/vocabulary.fs \
common/hide_calls.fs common/ansi.fs \
posix/posix.fs posix/posix_highlevel.fs posix/termios.fs common/locals.fs \
common/utils.fs common/highlevel.fs common/filetools.fs posix/posix_desktop.fs \
common/tasks.fs common/streams.fs common/blocks.fs posix/telnetd.fs \
common/tasks.fs common/utils.fs common/highlevel.fs common/filetools.fs \
posix/posix_desktop.fs \
common/streams.fs common/blocks.fs posix/telnetd.fs \
posix/autoboot.fs \
common/fini.fs
$(GEN)/posix_boot.h: common/source_to_string.js $(POSIX_BOOT) | $(GEN)
@ -134,7 +135,7 @@ $(GEN)/posix_boot.h: common/source_to_string.js $(POSIX_BOOT) | $(GEN)
WINDOWS_BOOT = common/boot.fs common/conditionals.fs common/vocabulary.fs \
common/hide_calls.fs common/ansi.fs \
windows/windows.fs windows/windows_highlevel.fs common/highlevel.fs \
common/utils.fs common/filetools.fs common/tasks.fs common/streams.fs \
common/tasks.fs common/utils.fs common/filetools.fs common/streams.fs \
common/blocks.fs common/locals.fs \
common/fini.fs
$(GEN)/windows_boot.h: common/source_to_string.js $(WINDOWS_BOOT) | $(GEN)

2
ueforth/common/tasks.fs
View File

@ -31,8 +31,6 @@ forth definitions tasks also internals
then
;
: .tasks task-list @ begin dup 2 cells - see. @ dup task-list @ = until drop ;
DEFINED? ms-ticks [IF]
: ms ( n -- ) ms-ticks >r begin pause ms-ticks r@ - over >= until rdrop drop ;
[THEN]

5
ueforth/common/utils.fs
View File

@ -59,3 +59,8 @@ forth definitions also internals
: vlist 0 context @ @ begin dup >name-length while onlines dup see. >link repeat 2drop cr ;
: words 0 context @ @ begin dup while onlines dup see. >link repeat 2drop cr ;
only forth definitions
( Extra Task Utils )
tasks definitions also internals
: .tasks task-list @ begin dup 2 cells - see. @ dup task-list @ = until drop ;
only forth definitions