--- gforth/arch/generic/machine.h 1999/02/06 22:28:22 1.7 +++ gforth/arch/generic/machine.h 1999/08/07 21:40:36 1.10 @@ -25,6 +25,18 @@ #define THREADING_SCHEME 6 #endif +#ifdef GFORTH_DEBUGGING +/* schedule the ip update after the rest of the primitive; + never mind speed */ +#undef THREADING_SCHEME +#ifdef DIRECT_THREADED +#define THREADING_SCHEME 10 +#else +#define THREADING_SCHEME 8 +#endif /* DIRECT_THREADED */ +#endif /* GFORTH_DEBUGGING */ + + /* define SYSCALL */ #ifndef SYSCALL @@ -87,5 +99,7 @@ typedef void *Label; #define HAS_HASH #define HAS_OS #define HAS_XCONDS +#define HAS_STANDARDTHREADING +#define HAS_DEBUG #define RELINFOBITS 8