--- gforth/engine/threaded.h	2003/01/02 21:40:22	1.19
+++ gforth/engine/threaded.h	2003/01/03 17:10:10	1.20
@@ -148,6 +148,10 @@
 */
 #define KILLS asm("":"=X"(cfa));
 
+#ifndef THREADING_SCHEME
+#define THREADING_SCHEME 6
+#endif
+
 #if THREADING_SCHEME==1
 #warning direct threading scheme 1: autoinc, long latency, cfa live
 #  define NEXT_P0	({cfa=*ip++;})
@@ -288,6 +292,10 @@
 #else
 /* indirect THREADED  */
 
+#ifndef THREADING_SCHEME
+#define THREADING_SCHEME 6
+#endif
+
 #if THREADING_SCHEME==1
 #warning indirect threading scheme 1: autoinc, long latency, cisc
 #  define NEXT_P0	({cfa=*ip++;})