gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.81, 2001/04/08 13:48:12	version 1.82, 2001/05/01 13:35:42
Line 2369 peephole-opt ( xt1 xt2 wpeeptable -- xt	Line 2369 peephole-opt ( xt1 xt2 wpeeptable -- xt
they cannot be combined, xt is 0.""	they cannot be combined, xt is 0.""
xt = peephole_opt(xt1, xt2, wpeeptable);	xt = peephole_opt(xt1, xt2, wpeeptable);

lit_plus = lit +

call ( #a_callee -- R:a_retaddr )	call ( #a_callee -- R:a_retaddr )
""Call callee (a variant of docol with inline argument).""	""Call callee (a variant of docol with inline argument).""
a_retaddr = (Cell *)IP;	a_retaddr = (Cell *)IP;
Line 2379 SET_IP((Xt *)a_callee);	Line 2377 SET_IP((Xt *)a_callee);
useraddr ( #u -- a_addr )	useraddr ( #u -- a_addr )
a_addr = (Cell *)(up+u);	a_addr = (Cell *)(up+u);

	include(peeprules.vmg)

\+	\+