gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.80, 2001/03/18 22:20:27	version 1.82, 2001/05/01 13:35:42
Line 2143 Variable UP	Line 2143 Variable UP
wcall ( u -- ) gforth	wcall ( u -- ) gforth
IF_fpTOS(fp[0]=fpTOS);	IF_fpTOS(fp[0]=fpTOS);
FP=fp;	FP=fp;
sp=(SYSCALL(Cell()(Cell , void *))u)(sp, &FP);	sp=(Cell)(SYSCALL(Cell()(Cell , void ))u)(sp, &FP);
fp=FP;	fp=FP;
IF_spTOS(spTOS=sp[0];)	IF_spTOS(spTOS=sp[0];)
IF_fpTOS(fpTOS=fp[0]);	IF_fpTOS(fpTOS=fp[0]);
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)

\+	\+