gforth/engine/forth.h - diff

Return to forth.h CVS log

Up to [gforth] / gforth / engine

version 1.28, 2002/06/02 15:46:16	version 1.29, 2002/08/28 17:50:29
Line 165 typedef Label *Xt;	Line 165 typedef Label *Xt;
#define MAKE_DOES_HANDLER(addr) 0	#define MAKE_DOES_HANDLER(addr) 0
#endif /* !defined(DOUBLY_INDIRECT) */	#endif /* !defined(DOUBLY_INDIRECT) */

#ifdef DEBUG	#ifdef GFORTH_DEBUGGING
	/* #define NAME(string) saved_ip=ip;*/
	#define NAME(string) (Cell )&saved_ip=(Cell)ip;
	/* the casting is there to get aliasing with loads at the start of the
	primitives, so the store is not moved down across them; does not
	work for FP-stack loads; ideally the -fno-strict-aliasing flag
	should do this for us, but at least in gcc-2.95 it does not */
	#elif DEBUG
# define NAME(string) fprintf(stderr,"%08lx: "string"\n",(Cell)ip);	# define NAME(string) fprintf(stderr,"%08lx: "string"\n",(Cell)ip);
#else	#else
# define NAME(string)	# define NAME(string)
Line 253 extern Label *xts;	Line 260 extern Label *xts;
extern Cell npriminfos;	extern Cell npriminfos;

#ifdef GFORTH_DEBUGGING	#ifdef GFORTH_DEBUGGING
extern Xt *ip;	extern Xt *saved_ip;
extern Cell *rp;	extern Cell *rp;
#endif	#endif