![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to engine.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / engine|
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 |