gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

version 1.40, 2002/02/04 21:25:18	version 1.41, 2002/02/10 14:02:26
Line 264 is basic-block-end	Line 264 is basic-block-end
\ !! all POSTPONEs here postpone primitives; this can be optimized	\ !! all POSTPONEs here postpone primitives; this can be optimized
dup >does-code if	dup >does-code if
POSTPONE does-exec , EXIT	POSTPONE does-exec , EXIT
	\ dup >body POSTPONE literal POSTPONE call >does-code , EXIT
then	then
dup >code-address CASE	dup >code-address CASE
docon: OF >body POSTPONE lit@ , EXIT ENDOF	docon: OF >body POSTPONE literal POSTPONE @ EXIT ENDOF
\ docon is also used by VALUEs, so don't @ at compile time	\ docon is also used by VALUEs, so don't @ at compile time
docol: OF >body POSTPONE call , EXIT ENDOF	docol: OF >body POSTPONE call , EXIT ENDOF
dovar: OF >body POSTPONE literal EXIT ENDOF	dovar: OF >body POSTPONE literal EXIT ENDOF
douser: OF >body @ POSTPONE useraddr , EXIT ENDOF	douser: OF >body @ POSTPONE useraddr , EXIT ENDOF
dodefer: OF >body POSTPONE lit-perform , EXIT	dodefer: OF >body POSTPONE lit-perform , EXIT
ENDOF	ENDOF
dofield: OF >body @ POSTPONE lit+ , EXIT ENDOF	dofield: OF >body @ POSTPONE literal POSTPONE + EXIT ENDOF
ENDCASE	ENDCASE
static-compile, ;	static-compile, ;