Commit ac9330fa authored by jwilke's avatar jwilke

Bugfixes from last changes.

parent 72496159
\ 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.
...@@ -52,9 +52,14 @@ Warnings off ...@@ -52,9 +52,14 @@ 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
...@@ -425,7 +430,7 @@ Variable mirrored-link \ linked list for mirrored regions ...@@ -425,7 +430,7 @@ Variable mirrored-link \ linked list for mirrored regions
: 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
...@@ -684,7 +689,7 @@ T has? relocate H ...@@ -684,7 +689,7 @@ 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
......
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