version 1.126, 2002/03/21 17:26:00
|
version 1.127, 2002/08/22 20:07:33
|
Line 3631 previous
|
Line 3631 previous
|
: doc-on true to-doc ! ; |
: doc-on true to-doc ! ; |
|
|
: declareunique ( "name" -- ) |
: declareunique ( "name" -- ) |
\G Sets the unique flag for a ghost. The assembler output |
\ Sets the unique flag for a ghost. The assembler output |
\G generates labels with the ghostname concatenated with the address |
\ generates labels with the ghostname concatenated with the address |
\G while cross-compiling. The address is concatenated |
\ while cross-compiling. The address is concatenated |
\G because we have double occurences of the same name. |
\ because we have double occurences of the same name. |
\G If we want to reference the labels from the assembler or C |
\ If we want to reference the labels from the assembler or C |
\G code we declare them unique, so the address is skipped. |
\ code we declare them unique, so the address is skipped. |
Ghost >ghost-flags dup @ <unique> or swap ! ; |
Ghost >ghost-flags dup @ <unique> or swap ! ; |
|
|
\ [IFDEF] dbg : dbg dbg ; [THEN] |
\ [IFDEF] dbg : dbg dbg ; [THEN] |