version 1.75, 1999/05/10 13:57:37
|
version 1.76, 1999/05/17 13:12:25
|
Line 118 also forth definitions \ these values m
|
Line 118 also forth definitions \ these values m
|
false DefaultValue stack-warn \ check on empty stack at any definition |
false DefaultValue stack-warn \ check on empty stack at any definition |
false DefaultValue create-forward-warn \ warn on forward declaration of created words |
false DefaultValue create-forward-warn \ warn on forward declaration of created words |
|
|
|
|
|
|
|
|
|
|
previous >CROSS |
previous >CROSS |
|
|
: .dec |
: .dec |
Line 218 hex
|
Line 214 hex
|
|
|
Variable atonce atonce off |
Variable atonce atonce off |
|
|
: NoExec true ABORT" CROSS: Don't execute ghost" ; |
: NoExec true ABORT" CROSS: Don't execute ghost, or immediate target word" ; |
|
|
: GhostHeader <fwd> , 0 , ['] NoExec , ; |
: GhostHeader <fwd> , 0 , ['] NoExec , ; |
|
|
Line 263 VARIABLE Already
|
Line 259 VARIABLE Already
|
|
|
: ghost ( "name" -- ghost ) |
: ghost ( "name" -- ghost ) |
Already off |
Already off |
>in @ bl word gfind IF Already on nip EXIT THEN |
>in @ bl word gfind IF atonce off Already on nip EXIT THEN |
drop >in ! Make-Ghost ; |
drop >in ! Make-Ghost ; |
|
|
: >ghostname ( ghost -- adr len ) |
: >ghostname ( ghost -- adr len ) |
Line 1262 NoHeaderFlag off
|
Line 1258 NoHeaderFlag off
|
\ Symbol table |
\ Symbol table |
\ >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 ! |
CreateFlag @ |
CreateFlag @ |
IF |
IF \ for a created word we need also a definition in target |
|
\ to execute the created word while compile time |
|
\ dont mind if a alias is defined twice |
|
Warnings @ >r Warnings off |
>in @ alias2 swap >in ! \ create alias in target |
>in @ alias2 swap >in ! \ create alias in target |
|
r> Warnings ! |
>in @ ghost swap >in ! |
>in @ ghost swap >in ! |
swap also ghosts ' previous swap ! \ tick ghost and store in alias |
swap also ghosts ' previous swap ! \ tick ghost and store in alias |
CreateFlag off |
CreateFlag off |