gforth/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth

version 1.11, 1994/07/13 19:21:02	version 1.12, 1994/08/25 15:25:21
Line 94 Label engine(Xt ip, Cell sp, Cell rp	Line 94 Label engine(Xt ip, Cell sp, Cell rp
&&docon,	&&docon,
&&dovar,	&&dovar,
&&douser,	&&douser,
	&&dodefer,
&&dodoes,	&&dodoes,
&&dodoes, /* dummy for does handler address */	&&dodoes, /* dummy for does handler address */
#include "prim_labels.i"	#include "prim_labels.i"
Line 174 Label engine(Xt ip, Cell sp, Cell rp	Line 175 Label engine(Xt ip, Cell sp, Cell rp
#endif	#endif
NEXT;	NEXT;

	dodefer:
	#ifdef DEBUG
	printf("%08x: defer: %08x\n",(Cell)ip,(Cell)PFA1(cfa));
	#endif
	cfa = (Xt )PFA1(cfa);
	NEXT1;

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