version 1.119, 2002/01/05 22:58:59
|
version 1.120, 2002/03/19 11:13:08
|
Line 249 hex \ the defualt base for the cross
|
Line 249 hex \ the defualt base for the cross
|
|
|
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: |
|
|
Line 902 Defer is-forward
|
Line 907 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 |
|
|
Line 1090 Ghost does-exec drop
|
Line 1097 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 |
Line 1651 T has? relocate H
|
Line 1659 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 |
|
|
Line 1874 Defer resolve-warning
|
Line 1883 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 -- ) |