--- gforth/engine/threaded.h	2002/12/28 17:18:27	1.18
+++ gforth/engine/threaded.h	2003/01/03 17:10:10	1.20
@@ -92,6 +92,10 @@
 */
 
 #ifdef DOUBLY_INDIRECT
+# ifndef DEBUG_DITC
+#  define DEBUG_DITC 0
+# endif
+/* define to 1 if you want to check consistency */
 #  define NEXT_P0	({cfa=*ip;})
 #  define IP		(ip)
 #  define SET_IP(p)	({ip=(p); NEXT_P0;})
@@ -99,12 +103,12 @@
 #  define INC_IP(const_inc)	({cfa=IP[const_inc]; ip+=(const_inc);})
 #  define DEF_CA	Label ca;
 #  define NEXT_P1	({\
-  if ((cfa<=vm_prims+DOESJUMP || cfa>=vm_prims+npriminfos)) \
-    fprintf(stderr,"NEXT encountered prim %p at ip=%p [%p .. %p]\n", cfa, ip, vm_prims+DOESJUMP, vm_prims+npriminfos); \
+  if (DEBUG_DITC && (cfa<=vm_prims+DOESJUMP || cfa>=vm_prims+npriminfos)) \
+    fprintf(stderr,"NEXT encountered prim %p at ip=%p\n", cfa, ip); \
   ip++; ca=**cfa;})
 #  define NEXT_P2	({goto *ca;})
 #  define EXEC(XT)	({DEF_CA cfa=(XT);\
-  if ((cfa>vm_prims+DOESJUMP && cfa<vm_prims+npriminfos)) \
+  if (DEBUG_DITC && (cfa>vm_prims+DOESJUMP && cfa<vm_prims+npriminfos)) \
     fprintf(stderr,"EXEC encountered xt %p at ip=%p, vm_prims=%p, xts=%p\n", cfa, ip, vm_prims, xts); \
  ca=**cfa; goto *ca;})
 
@@ -144,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++;})
@@ -284,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++;})