gforth/code.fs - diff

Return to code.fs CVS log

Up to [gforth] / gforth

version 1.2, 1995/11/07 18:06:34	version 1.5, 1996/08/21 14:58:37
Line 35 vocabulary assembler ( -- ) \ tools-ext	Line 35 vocabulary assembler ( -- ) \ tools-ext
\ execution semantics of @code{;code}	\ execution semantics of @code{;code}
r> lastxt code-address! ;	r> lastxt code-address! ;

: ;code ( colon-sys1 -- colon-sys2 ) \ tools-ext semicolon-code	:noname ( colon-sys1 -- colon-sys2 ) \ tools-ext semicolon-code
( create the [;code] part of a low level defining word )	( create the [;code] part of a low level defining word )
state @	;-hook postpone (;code) ?struc postpone [
IF	defstart init-asm ;
;-hook postpone (;code) ?struc postpone [	:noname ( -- colon-sys )
ELSE	align here lastxt code-address!
align here lastxt code-address!	defstart init-asm ;
THEN	interpret/compile: ;code
defstart init-asm ; immediate

: end-code ( colon-sys -- ) \ gforth end_code	: end-code ( colon-sys -- ) \ gforth end_code
( end a code definition )	( end a code definition )