Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.110, 2001/09/05 14:25:48 | version 1.111, 2001/09/06 08:14:16 |
---|---|
Line 3085 Create name-buf 200 chars allot | Line 3085 Create name-buf 200 chars allot |
THEN | THEN |
@nb ; | @nb ; |
\ FIXME why disabled?! | |
: label-from-ghostnameXX ( ghost -- addr len ) | : label-from-ghostnameXX ( ghost -- addr len ) |
\ same as (label-from-ghostname) but caches generated names | \ same as (label-from-ghostname) but caches generated names |
dup >asm-name @ ?dup IF nip count EXIT THEN | dup >asm-name @ ?dup IF nip count EXIT THEN |