gforth/primitives - diff

Return to primitives CVS log

Up to [gforth] / gforth

version 1.3, 1994/05/03 15:24:14	version 1.4, 1994/05/05 15:46:50
Line 931 behaviour is uundefined""	Line 931 behaviour is uundefined""
defining-word-defined */	defining-word-defined */
a_addr = DOES_CODE(xt);	a_addr = DOES_CODE(xt);

code-address! c_addr 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""
MAKE_CF(xt, c_addr);	MAKE_CF(xt, symbols[CF(n)]);

does-code! a_addr xt -- new does_code_store	does-code! a_addr xt -- new does_code_store
""creates a code field at xt for a defining-word-defined word; a_addr	""creates a code field at xt for a defining-word-defined word; a_addr
Line 980 lp -= sizeof(Cell);	Line 980 lp -= sizeof(Cell);
f>l r -- new f_to_l	f>l r -- new f_to_l
lp -= sizeof(Float);	lp -= sizeof(Float);
(Float )lp = r;	(Float )lp = r;

	up! a_addr -- new up_store
	up=a_addr;