version 1.67, 1999/02/19 18:25:28
|
version 1.68, 1999/02/19 19:59:46
|
Line 1
|
Line 1
|
\ 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. |
|
|
Line 52 Warnings off
|
Line 52 Warnings off
|
\G Same behaviour as "Value" if the <name> is not defined |
\G Same behaviour as "Value" if the <name> is not defined |
\G Same behaviour as "to" if <name> is defined |
\G Same behaviour as "to" if <name> is defined |
\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 |
Line 425 Variable mirrored-link \ linked
|
Line 430 Variable mirrored-link \ linked
|
|
|
: 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 |
Line 684 T has? relocate H
|
Line 689 T has? relocate H
|
[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 |