gforth/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth

version 1.16, 1994/09/26 20:31:10	version 1.19, 1994/10/24 19:15:56
Line 1	Line 1
/*	/*
$Id$
Copyright 1992 by the ANSI figForth Development Group	Copyright 1992 by the ANSI figForth Development Group
*/	*/

Line 182 Label engine(Xt ip0, Cell sp0, Cell	Line 181 Label engine(Xt ip0, Cell sp0, Cell

#ifdef DEBUG	#ifdef DEBUG
fprintf(stderr,"ip=%x, sp=%x, rp=%x, fp=%x, lp=%x, up=%x\n",	fprintf(stderr,"ip=%x, sp=%x, rp=%x, fp=%x, lp=%x, up=%x\n",
ip,sp,rp,fp,lp,up);	(unsigned)ip,(unsigned)sp,(unsigned)rp,
	(unsigned)fp,(unsigned)lp,(unsigned)up);
#endif	#endif

if (ip == NULL)	if (ip == NULL)
Line 282 Label engine(Xt ip0, Cell sp0, Cell	Line 282 Label engine(Xt ip0, Cell sp0, Cell

*/	*/
#ifdef DEBUG	#ifdef DEBUG
fprintf(stderr,"%08x/%08x: does: %08x\n",(Cell)ip,(Cell)cfa,DOES_CODE1(cfa));	fprintf(stderr,"%08x/%08x: does: %08x\n",(Cell)ip,(Cell)PFA(cfa),(Cell)DOES_CODE1(cfa));
fflush(stderr);	fflush(stderr);
#endif	#endif
*--rp = (Cell)ip;	*--rp = (Cell)ip;