gforth/code.fs - diff

Return to code.fs CVS log

Up to [gforth] / gforth

version 1.17, 2007/12/31 19:02:24	version 1.20, 2010/04/10 14:36:34
Line 27 vocabulary assembler ( -- ) \ tools-ext	Line 27 vocabulary assembler ( -- ) \ tools-ext
also assembler ;	also assembler ;

: code ( "name" -- colon-sys ) \ tools-ext	: code ( "name" -- colon-sys ) \ tools-ext
\ start a native code definition	\G start a native code definition
header	header
here >body cfa,	here >body cfa,
defstart init-asm ;	defstart init-asm ;

	[ifdef] doabicode:
	: abi-code ( "name" -- colon-sys ) \ gforth abi_code
	\G Start a native code definition that is called using the platform's
	\G ABI conventions corresponding to the C-prototype:
	\G @example
	\G struct@{Cellsp;doublefp;@} function (Cell sp, double fp);
	\G @end example
	header
	doabicode: cfa,
	defstart init-asm ;
	[endif]

: (;code) ( -- ) \ gforth	: (;code) ( -- ) \ gforth
\ execution semantics of @code{;code}	\ execution semantics of @code{;code}
r> latestxt code-address! ;	r> latestxt code-address! ;
Line 46 vocabulary assembler ( -- ) \ tools-ext	Line 58 vocabulary assembler ( -- ) \ tools-ext
interpret/compile: ;code ( compilation. colon-sys1 -- colon-sys2 ) \ tools-ext semicolon-code	interpret/compile: ;code ( compilation. colon-sys1 -- colon-sys2 ) \ tools-ext semicolon-code

: end-code ( colon-sys -- ) \ gforth end_code	: end-code ( colon-sys -- ) \ gforth end_code
( end a code definition )	\G end a code definition
latestxt here over - flush-icache	latestxt here over - flush-icache
previous ?struc reveal ;	previous ?struc reveal ;