gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

version 1.46, 2002/12/19 23:22:20	version 1.47, 2002/12/25 21:16:55
Line 267 is basic-block-end	Line 267 is basic-block-end
\ dup >body POSTPONE literal POSTPONE call >does-code , 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 lit@ , EXIT ENDOF
docon: OF >body POSTPONE literal POSTPONE @ 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 ENDOF	dodefer: OF >body POSTPONE lit-perform , EXIT ENDOF
\ dofield: OF >body @ POSTPONE lit+ , EXIT ENDOF	dofield: OF >body @ POSTPONE lit+ , EXIT ENDOF
dofield: OF >body @ POSTPONE literal POSTPONE + EXIT ENDOF	\ dofield: OF >body @ POSTPONE literal POSTPONE + EXIT ENDOF
ENDCASE	ENDCASE
static-compile, ;	static-compile, ;