gforth/primitives - diff

Return to primitives CVS log

Up to [gforth] / gforth

version 1.56, 1996/05/23 15:13:11	version 1.57, 1996/07/25 09:25:16
Line 1562 c_addr = CODE_ADDRESS(xt);	Line 1562 c_addr = CODE_ADDRESS(xt);

>does-code xt -- a_addr gforth to_does_code	>does-code xt -- a_addr gforth to_does_code
""If xt ist the execution token of a defining-word-defined word,	""If xt ist the execution token of a defining-word-defined word,
a_addr is the start of the Forth code after the DOES>; Otherwise the	a_addr is the start of the Forth code after the DOES>;
behaviour is undefined""	Otherwise a_addr is 0.""
/* !! there is currently no way to determine whether a word is
defining-word-defined */
a_addr = (Cell *)DOES_CODE(xt);	a_addr = (Cell *)DOES_CODE(xt);

code-address! c_addr xt -- gforth code_address_store	code-address! c_addr xt -- gforth code_address_store