gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.79, 2001/03/18 12:39:33	version 1.81, 2001/04/08 13:48:12
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 2351 while(a_addr != NULL)	Line 2351 while(a_addr != NULL)

\+	\+

	\+peephole

primtable ( -- wprimtable ) new	primtable ( -- wprimtable ) new
""wprimtable is a table containing the xts of the primitives indexed	""wprimtable is a table containing the xts of the primitives indexed
by sequence-number in prim (for use in prepare-peephole-table).""	by sequence-number in prim (for use in prepare-peephole-table).""
Line 2377 SET_IP((Xt *)a_callee);	Line 2379 SET_IP((Xt *)a_callee);
useraddr ( #u -- a_addr )	useraddr ( #u -- a_addr )
a_addr = (Cell *)(up+u);	a_addr = (Cell *)(up+u);

	\+