--- gforth/Attic/forth.h	1995/02/23 20:17:19	1.14
+++ gforth/Attic/forth.h	1995/10/07 17:38:13	1.15
@@ -74,6 +74,12 @@ Label *engine(Xt *ip, Cell *sp, Cell *rp
 
 #define CF_NIL	-1
 
-#ifndef CACHE_FLUSH
-#	define CACHE_FLUSH(addr,size)
+#ifndef FLUSH_ICACHE
+#	define FLUSH_ICACHE(addr,size) 0
+#endif
+
+#ifdef DIRECT_THREADED
+#define CACHE_FLUSH(addr,size) FLUSH_ICACHE(addr,size)
+#else
+#define CACHE_FLUSH(addr,size) 0
 #endif