--- gforth/arch/generic/machine.h 1998/12/08 22:02:54 1.5 +++ gforth/arch/generic/machine.h 2000/09/23 15:06:05 1.11 @@ -2,7 +2,7 @@ This is a generic file for 32-bit machines with IEEE FP arithmetic (no VMS). It only supports indirect threading. - Copyright (C) 1995,1998 Free Software Foundation, Inc. + Copyright (C) 1995,1998,1999 Free Software Foundation, Inc. This file is part of Gforth. @@ -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