Add WHERE support for words in kernel (excluding interpret/compile: for now,...

Add WHERE support for words in kernel (excluding interpret/compile: for now, and not correctly resolving aliases)
parent cc69cd8e
Pipeline #207 failed with stage
in 4 minutes and 33 seconds
This diff is collapsed.
...@@ -82,6 +82,7 @@ doc-on ...@@ -82,6 +82,7 @@ doc-on
has? header [IF] has? header [IF]
1802 <> [IF] .s cr .( header start address expected!) cr uffz [THEN] 1802 <> [IF] .s cr .( header start address expected!) cr uffz [THEN]
wheres-off
AConstant image-header AConstant image-header
: forthstart image-header @ ; : forthstart image-header @ ;
[THEN] [THEN]
...@@ -128,7 +129,7 @@ include kernel/pass.fs \ pass pointers from cross to target ...@@ -128,7 +129,7 @@ include kernel/pass.fs \ pass pointers from cross to target
has? header [IF] has? header [IF]
\ set image size \ set image size
here image-header 2 cells + ! here image-header 2 cells + !
." set image entry point" cr .( set image entry point) cr
' boot >body image-header #08 cells + ! ' boot >body image-header #08 cells + !
' quit >body image-header #10 cells + ! ' quit >body image-header #10 cells + !
' do-execute >body image-header #11 cells + ! ' do-execute >body image-header #11 cells + !
......
...@@ -45,4 +45,7 @@ included-files, included-files ! ...@@ -45,4 +45,7 @@ included-files, included-files !
align here default-recognizer ! align here default-recognizer !
2 cells , ' rec-num A, ' rec-word A, 2 cells , ' rec-num A, ' rec-word A,
align here wheres !
wheres,
>ram here normal-dp ! >ram here normal-dp !
...@@ -1291,12 +1291,12 @@ require animation.fs ...@@ -1291,12 +1291,12 @@ require animation.fs
' widget-sync is screen-ops ' widget-sync is screen-ops
: widgets-loop ( -- ) depth { d } : widgets-loop ( -- ) depth fdepth { d fd }
level# @ 0= IF enter-minos THEN level# @ 0= IF enter-minos THEN
1 level# +!@ >r top-widget .widget-draw 1 level# +!@ >r top-widget .widget-draw
BEGIN 0 looper-to# anims[] $@len ?sync or select BEGIN 0 looper-to# anims[] $@len ?sync or select
#looper time( ." looper: " .!time cr ) #looper time( ." looper: " .!time cr )
widget-sync gui( depth d u> IF ~~bt THEN ) widget-sync gui( depth d u> fdepth fd u> or IF ~~bt THEN )
level# @ r@ = UNTIL r> 0= IF leave-minos THEN ; level# @ r@ = UNTIL r> 0= IF leave-minos THEN ;
previous previous previous previous previous previous
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment