gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.110, 2001/09/05 14:25:48	version 1.112, 2001/09/12 11:48:36
Line 2102 Variable last-prim-ghost	Line 2102 Variable last-prim-ghost

Defer setup-prim-semantics	Defer setup-prim-semantics

: aprim ( -- )	: mapprim ( "forthname" "asmlabel" -- )
THeader -1 aprim-nr +! aprim-nr @ T A, H	THeader -1 aprim-nr +! aprim-nr @ T A, H
asmprimname,	asmprimname,
setup-prim-semantics ;	setup-prim-semantics ;

: aprim: ( -- )	: mapprim: ( "forthname" "asmlabel" -- )
-1 aprim-nr +! aprim-nr @	-1 aprim-nr +! aprim-nr @
Ghost tuck swap resolve <do:> swap tuck >magic !	Ghost tuck swap resolve <do:> swap tuck >magic !
asmprimname, ;	asmprimname, ;
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
Line 3506 UNLOCK >CROSS	Line 3507 UNLOCK >CROSS
[IFDEF] extend-cross extend-cross [THEN]	[IFDEF] extend-cross extend-cross [THEN]

LOCK	LOCK