gforth/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth

version 1.28, 1995/09/06 21:00:13	version 1.29, 1995/10/07 17:38:12
Line 261 Label engine(Xt ip0, Cell sp0, Cell	Line 261 Label engine(Xt ip0, Cell sp0, Cell
&&dovar,	&&dovar,
&&douser,	&&douser,
&&dodefer,	&&dodefer,
&&dostruc,	&&dofield,
&&dodoes,	&&dodoes,
&&dodoes, /* dummy for does handler address */	&&dodoes, /* dummy for does handler address */
#include "prim_labels.i"	#include "prim_labels.i"
Line 357 Label engine(Xt ip0, Cell sp0, Cell	Line 357 Label engine(Xt ip0, Cell sp0, Cell
cfa = (Xt )PFA1(cfa);	cfa = (Xt )PFA1(cfa);
NEXT1;	NEXT1;

dostruc:	dofield:
#ifdef DEBUG	#ifdef DEBUG
fprintf(stderr,"%08x: struc: %08x\n",(Cell)ip,(Cell)PFA1(cfa));	fprintf(stderr,"%08x: field: %08x\n",(Cell)ip,(Cell)PFA1(cfa));
#endif	#endif
TOS += (Cell)PFA1(cfa);	TOS += (Cell)PFA1(cfa);
NEXT_P0;	NEXT_P0;