gforth/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth

version 1.23, 1995/02/22 18:40:13	version 1.24, 1995/02/23 20:17:18
Line 214 Label engine(Xt ip0, Cell sp0, Cell	Line 214 Label engine(Xt ip0, Cell sp0, Cell
&&dovar,	&&dovar,
&&douser,	&&douser,
&&dodefer,	&&dodefer,
	&&dostruc,
&&dodoes,	&&dodoes,
&&dodoes, /* dummy for does handler address */	&&dodoes, /* dummy for does handler address */
#include "prim_labels.i"	#include "prim_labels.i"
Line 309 Label engine(Xt ip0, Cell sp0, Cell	Line 310 Label engine(Xt ip0, Cell sp0, Cell
cfa = (Xt )PFA1(cfa);	cfa = (Xt )PFA1(cfa);
NEXT1;	NEXT1;

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

dodoes:	dodoes:
/* this assumes the following structure:	/* this assumes the following structure:
defining-word:	defining-word: