gforth/primitives - diff

Return to primitives CVS log

Up to [gforth] / gforth

version 1.19, 1994/09/26 20:31:15	version 1.20, 1994/09/28 17:02:49
Line 1179 a_addr is the start of the Forth code af	Line 1179 a_addr is the start of the Forth code af
behaviour is uundefined""	behaviour is uundefined""
/* !! there is currently no way to determine whether a word is	/* !! there is currently no way to determine whether a word is
defining-word-defined */	defining-word-defined */
a_addr = DOES_CODE(xt);	a_addr = (Cell *)DOES_CODE(xt);

code-address! n xt -- new code_address_store	code-address! n xt -- new code_address_store
""Creates a code field with code address c_addr at xt""	""Creates a code field with code address c_addr at xt""