--- gforth/arch/generic/machine.h 1998/12/08 22:02:54 1.5 +++ gforth/arch/generic/machine.h 1999/08/07 21:40:36 1.10 @@ -21,12 +21,32 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ +#ifndef THREADING_SCHEME +#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 #define SYSCALL #endif +#ifndef SYSSIGNALS +#define SYSSIGNALS +#endif + #ifndef USE_FTOS #ifndef USE_NO_FTOS /* keep top of FP stack in register. Since most processors have FP @@ -79,3 +99,7 @@ typedef void *Label; #define HAS_HASH #define HAS_OS #define HAS_XCONDS +#define HAS_STANDARDTHREADING +#define HAS_DEBUG + +#define RELINFOBITS 8