gforth/engine/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth / engine

version 1.101, 2007/03/31 21:43:18	version 1.102, 2007/04/01 21:30:26
Line 236 extern int gforth_memcmp(const char * s1	Line 236 extern int gforth_memcmp(const char * s1

#ifdef GFORTH_DEBUGGING	#ifdef GFORTH_DEBUGGING
#if DEBUG	#if DEBUG
#define NAME(string) { saved_ip=ip; asmcomment(string); fprintf(stderr,"%08lx depth=%3ld: "string"\n",(Cell)ip,sp0+3-sp);}	#define NAME(string) { saved_ip=ip; asmcomment(string); fprintf(stderr,"%08lx depth=%3ld tos=%016lx: "string"\n",(Cell)ip,sp0+3-sp,sp[0]);}
#else /* !DEBUG */	#else /* !DEBUG */
#define NAME(string) { saved_ip=ip; asm(""); }	#define NAME(string) { saved_ip=ip; asm(""); }
/* the asm here is to avoid reordering of following stuff above the	/* the asm here is to avoid reordering of following stuff above the