|
version 1.66, 2005/01/29 16:55:30
|
version 1.67, 2005/07/31 20:27:42
|
|
Line 243 typedef Label *Xt;
|
Line 243 typedef Label *Xt;
|
| #define NO_DYNAMIC_DEFAULT 1 |
#define NO_DYNAMIC_DEFAULT 1 |
| #endif |
#endif |
| |
|
| #ifdef USE_TOS |
#if defined(GFORTH_DEBUGGING) || defined(INDIRECT_THREADED) || defined(DOUBLY_INDIRECT) || defined(VM_PROFILING) |
| #define IF_spTOS(x) x |
#define STACK_CACHE_DEFAULT 0 |
| #else |
#else |
| #define IF_spTOS(x) |
#define STACK_CACHE_DEFAULT STACK_CACHE_DEFAULT_FAST |
| #define spTOS (sp[0]) |
|
| #endif |
#endif |
| |
|
| #ifdef USE_FTOS |
#ifdef USE_FTOS |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to forth.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / engine