Return to engine.c CVS log | Up to [gforth] / gforth / engine |
version 1.101, 2007/03/31 21:43:18 | version 1.103, 2007/07/07 21:46:05 |
---|---|
Line 24 | Line 24 |
#else | #else |
#define USE_TOS | #define USE_TOS |
#endif | #endif |
#define USE_NO_FTOS | |
#include "config.h" | #include "config.h" |
#include "forth.h" | #include "forth.h" |
Line 236 extern int gforth_memcmp(const char * s1 | Line 235 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 |