version 1.122, 2002/03/20 11:28:26
|
version 1.123, 2002/03/21 16:35:18
|
Line 71 H
|
Line 71 H
|
|
|
>CROSS |
>CROSS |
|
|
|
\ Test against this definitions to find out whether we are cross-compiling |
|
\ may be usefull for assemblers |
|
0 Constant gforth-cross-indicator |
|
|
\ find out whether we are compiling with gforth |
\ find out whether we are compiling with gforth |
|
|
: defined? bl word find nip ; |
: defined? bl word find nip ; |
Line 315 set-order previous
|
Line 319 set-order previous
|
\ POSTPONE false |
\ POSTPONE false |
THEN ; immediate |
THEN ; immediate |
|
|
|
: symentry ( adr len taddr -- ) |
|
\G Produce a symbol table (an optional symbol address |
|
\G map) if wanted |
|
[ [IFDEF] fd-symbol-table ] |
|
base @ swap hex s>d <# 8 0 DO # LOOP #> fd-symbol-table write-file throw base ! |
|
s" :" fd-symbol-table write-file throw |
|
fd-symbol-table write-line throw |
|
[ [ELSE] ] |
|
2drop drop |
|
[ [THEN] ] ; |
|
|
|
|
\ \ -------------------- source file |
\ \ -------------------- source file |
|
|
decimal |
decimal |
Line 1258 Variable mirrored-link \ linked
|
Line 1274 Variable mirrored-link \ linked
|
>r r@ last-defined-region ! |
>r r@ last-defined-region ! |
r@ >rlen ! dup r@ >rstart ! r> >rdp ! ; |
r@ >rlen ! dup r@ >rstart ! r> >rdp ! ; |
|
|
: region ( addr len -- ) |
: region ( addr len -- "name" ) |
\G create a new region |
\G create a new region |
\ check whether predefined region exists |
\ check whether predefined region exists |
save-input bl word find >r >r restore-input throw r> r> 0= |
save-input bl word find >r >r restore-input throw r> r> 0= |
Line 1417 variable sromdp \ start of rom-area for
|
Line 1433 variable sromdp \ start of rom-area for
|
|
|
[THEN] |
[THEN] |
|
|
|
0 Value current-region |
0 value tdp |
0 Value tdp |
variable fixed \ flag: true: no automatic switching |
Variable fixed \ flag: true: no automatic switching |
\ false: switching is done automatically |
\ false: switching is done automatically |
|
|
\ Switch-Policy: |
\ Switch-Policy: |
Line 1434 variable constflag constflag off
|
Line 1450 variable constflag constflag off
|
|
|
: activate ( region -- ) |
: activate ( region -- ) |
\G next code goes to this region |
\G next code goes to this region |
>rdp to tdp ; |
dup to current-region >rdp to tdp ; |
|
|
: (switchram) |
: (switchram) |
fixed @ ?EXIT s" rom" T $has? H 0= ?EXIT |
fixed @ ?EXIT s" rom" T $has? H 0= ?EXIT |
Line 2150 Defer setup-execution-semantics
|
Line 2166 Defer setup-execution-semantics
|
\ >in @ cr ." sym:s/CFA=" there 4 0.r ." /" bl word count .sym ." /g" cr >in ! |
\ >in @ cr ." sym:s/CFA=" there 4 0.r ." /" bl word count .sym ." /g" cr >in ! |
HeaderGhost |
HeaderGhost |
\ output symbol table to extra file |
\ output symbol table to extra file |
[ [IFDEF] fd-symbol-table ] |
dup >ghostname there symentry |
base @ hex there s>d <# 8 0 DO # LOOP #> fd-symbol-table write-file throw base ! |
|
s" :" fd-symbol-table write-file throw |
|
dup >ghostname fd-symbol-table write-line throw |
|
[ [THEN] ] |
|
dup Last-Header-Ghost ! dup to lastghost |
dup Last-Header-Ghost ! dup to lastghost |
dup >magic ^imm ! \ a pointer for immediate |
dup >magic ^imm ! \ a pointer for immediate |
alias-mask flag! |
alias-mask flag! |
Line 2367 Defer (end-code)
|
Line 2379 Defer (end-code)
|
: Code: |
: Code: |
defempty? |
defempty? |
Ghost >r |
Ghost >r |
|
r@ >ghostname there symentry |
r@ there ca>native resolve-noforwards |
r@ there ca>native resolve-noforwards |
<do:> r@ >magic ! |
<do:> r@ >magic ! |
r> drop |
r> drop |
Line 3475 Cond: [IFUNDEF] postpone [IFUNDEF] ;Cond
|
Line 3488 Cond: [IFUNDEF] postpone [IFUNDEF] ;Cond
|
|
|
: d? d? ; |
: d? d? ; |
|
|
|
: \D ( -- "debugswitch" ) |
\G doesn't skip line when debug switch is on |
\G doesn't skip line when debug switch is on |
: \D D? 0= IF postpone \ THEN ; |
D? 0= IF postpone \ THEN ; |
|
|
|
: \- ( -- "wordname" ) |
\G interprets the line if word is not defined |
\G interprets the line if word is not defined |
: \- tdefined? IF postpone \ THEN ; |
tdefined? IF postpone \ THEN ; |
|
|
|
: \+ ( -- "wordname" ) |
\G interprets the line if word is defined |
\G interprets the line if word is defined |
: \+ tdefined? 0= IF postpone \ THEN ; |
tdefined? 0= IF postpone \ THEN ; |
|
|
|
: \? ( -- "envorinstring" ) |
|
\G Skip line if environmental variable evaluates to false |
|
X has? 0= IF postpone \ THEN ; |
|
|
Cond: \- \- ;Cond |
Cond: \- \- ;Cond |
Cond: \+ \+ ;Cond |
Cond: \+ \+ ;Cond |
Cond: \D \D ;Cond |
Cond: \D \D ;Cond |
|
Cond: \? \? ;Cond |
|
|
: ?? bl word find IF execute ELSE drop 0 THEN ; |
: ?? bl word find IF execute ELSE drop 0 THEN ; |
|
|