--- gforth/Attic/forth.h	1995/02/23 20:17:19	1.14
+++ gforth/Attic/forth.h	1995/10/12 20:43:24	1.17
@@ -13,7 +13,7 @@ typedef void *Label;
 #define DOVAR	2
 #define DOUSER	3
 #define DODEFER	4
-#define DOSTRUC	5
+#define DOFIELD	5
 #define DODOES	6
 #define DOESJUMP	7
 
@@ -74,6 +74,13 @@ Label *engine(Xt *ip, Cell *sp, Cell *rp
 
 #define CF_NIL	-1
 
-#ifndef CACHE_FLUSH
-#	define CACHE_FLUSH(addr,size)
+#ifndef FLUSH_ICACHE
+#warning flush-icache probably will not work (see manual)
+#	define FLUSH_ICACHE(addr,size)
+#endif
+
+#ifdef DIRECT_THREADED
+#define CACHE_FLUSH(addr,size) FLUSH_ICACHE(addr,size)
+#else
+#define CACHE_FLUSH(addr,size)
 #endif