| : 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] |
