Commit 2ce782de authored by jwilke's avatar jwilke

no functional change

parent a255920e
...@@ -249,21 +249,26 @@ hex \ the defualt base for the cross-compiler is hex !! ...@@ -249,21 +249,26 @@ hex \ the defualt base for the cross-compiler is hex !!
hex hex
\ FIXME delete`
\ 1 Constant Cross-Flag \ to check whether assembler compiler plug-ins are \ 1 Constant Cross-Flag \ to check whether assembler compiler plug-ins are
\ for cross-compiling \ for cross-compiling
\ No! we use "[IFUNDEF]" there to find out whether we are target compiling!!! \ No! we use "[IFUNDEF]" there to find out whether we are target compiling!!!
\ FIXME move down
: comment? ( c-addr u -- c-addr u ) : comment? ( c-addr u -- c-addr u )
2dup s" (" compare 0= 2dup s" (" compare 0=
IF postpone ( IF postpone (
ELSE 2dup s" \" compare 0= IF postpone \ THEN ELSE 2dup s" \" compare 0= IF postpone \ THEN
THEN ; THEN ;
: X bl word count [ ' target >wordlist ] Literal search-wordlist : X ( -- <name> )
IF state @ IF compile, \G The next word in the input is a target word.
ELSE execute THEN \G Equivalent to T <name> but without permanent
ELSE -1 ABORT" Cross: access method not supported!" \G switch to target dictionary. Used as prefix e.g. for @, !, here etc.
THEN ; immediate bl word count [ ' target >wordlist ] Literal search-wordlist
IF state @ IF compile, ELSE execute THEN
ELSE -1 ABORT" Cross: access method not supported!"
THEN ; immediate
\ Begin CROSS COMPILER: \ Begin CROSS COMPILER:
...@@ -902,8 +907,10 @@ Defer is-forward ...@@ -902,8 +907,10 @@ Defer is-forward
Defer do-refered Defer do-refered
: prim-forward ( ghost -- ) : prim-forward ( ghost -- )
\ ." PF" .sourcepos
colonmark, 0 do-refered ; \ compile space for call colonmark, 0 do-refered ; \ compile space for call
: doer-forward ( ghost -- ) : doer-forward ( ghost -- )
\ ." DF" .sourcepos
colonmark, 2 do-refered ; \ compile space for doer colonmark, 2 do-refered ; \ compile space for doer
' prim-forward IS is-forward ' prim-forward IS is-forward
...@@ -1090,6 +1097,7 @@ Ghost does-exec drop ...@@ -1090,6 +1097,7 @@ Ghost does-exec drop
Ghost :docol Ghost :doesjump Ghost :dodoes 2drop drop Ghost :docol Ghost :doesjump Ghost :dodoes 2drop drop
Ghost :dovar drop Ghost :dovar drop
' prim-forward IS is-forward ' prim-forward IS is-forward
\ \ Parameter for target systems 06oct92py \ \ Parameter for target systems 06oct92py
...@@ -1651,6 +1659,7 @@ T has? relocate H ...@@ -1651,6 +1659,7 @@ T has? relocate H
>CROSS >CROSS
: call-forward ( ghost -- ) : call-forward ( ghost -- )
\ ." CF" .sourcepos
there 0 colon, 0 do-refered ; there 0 colon, 0 do-refered ;
' call-forward IS is-forward ' call-forward IS is-forward
...@@ -1874,7 +1883,7 @@ Defer resolve-warning ...@@ -1874,7 +1883,7 @@ Defer resolve-warning
dup >comp @ EXECUTE ; dup >comp @ EXECUTE ;
: gexecute ( ghost -- ) : gexecute ( ghost -- )
dup >magic @ <imm> = IF -1 ABORT" CROSS: gexecute on immediate word" THEN dup >magic @ <imm> = ABORT" CROSS: gexecute on immediate word"
(gexecute) ; (gexecute) ;
: addr, ( ghost -- ) : addr, ( ghost -- )
......
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