| \ CROSS.FS The Cross-Compiler 06oct92py |
\ CROSS.FS The Cross-Compiler 06oct92py |
| \ Idea and implementation: Bernd Paysan (py) |
\ Idea and implementation: Bernd Paysan (py) |
| |
|
| \ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. |
|
| |
|
| \ This file is part of Gforth. |
\ This file is part of Gforth. |
| |
|
| \G SetValue searches in the current vocabulary |
\G SetValue searches in the current vocabulary |
| save-input bl word >r restore-input throw r> count |
save-input bl word >r restore-input throw r> count |
| get-current search-wordlist |
get-current search-wordlist |
| IF ['] to execute ELSE Value THEN ; |
IF drop >r |
| |
\ we have to set current to be topmost context wordlist |
| |
get-order get-order get-current swap 1+ set-order |
| |
r> ['] to execute |
| |
set-order order |
| |
ELSE Value THEN ; |
| |
|
| : DefaultValue ( n -- <name> ) |
: DefaultValue ( n -- <name> ) |
| \G Same behaviour as "Value" if the <name> is not defined |
\G Same behaviour as "Value" if the <name> is not defined |
| |
|
| : mirrored \G mark a region as mirrored |
: mirrored \G mark a region as mirrored |
| mirrored-link |
mirrored-link |
| linked last-defined-region @ , ; |
align linked last-defined-region @ , ; |
| |
|
| : .addr ( u -- ) |
: .addr ( u -- ) |
| \G prints a 16 or 32 Bit nice hex value |
\G prints a 16 or 32 Bit nice hex value |
| [ELSE] |
[ELSE] |
| ' drop IS relon |
' drop IS relon |
| ' drop IS reloff |
' drop IS reloff |
| ' (correcter) IS >image |
' (>regionimage) IS >image |
| [THEN] |
[THEN] |
| |
|
| \ Target memory access 06oct92py |
\ Target memory access 06oct92py |
