gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.78, 2001/03/11 21:47:27	version 1.81, 2001/04/08 13:48:12
Line 74	Line 74
\ xt.* XT	\ xt.* XT
\ f83name.* F83Name *	\ f83name.* F83Name *

	\E stack data-stack sp Cell
	\E stack fp-stack fp Float
	\E stack return-stack rp Cell
	\E
\E get-current prefixes set-current	\E get-current prefixes set-current
\E	\E
\E s" Bool" single data-stack type-prefix f	\E s" Bool" single data-stack type-prefix f
Line 2139 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 2347 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 2373 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);

	\+