--- gforth/Attic/decstation.h	1994/05/05 15:46:41	1.2
+++ gforth/Attic/decstation.h	1994/11/30 17:46:04	1.5
@@ -1,10 +1,18 @@
 /*
-  $Id: decstation.h,v 1.2 1994/05/05 15:46:41 pazsan Exp $
   Copyright 1992 by the ANSI figForth Development Group
 
   This is the machine-specific part for a Decstation running Ultrix
 */
+/* cache flush stuff */
 
+#ifdef DIRECT_THREADED
+
+#include <mips/cachectl.h>
+
+#define CACHE_FLUSH(addr,size) \
+				cacheflush((char *)(addr), (int)(size), BCACHE)
+
+#endif
 
 /* Cell and UCell must be the same size as a pointer */
 typedef long Cell;
@@ -102,3 +110,11 @@ typedef float SFloat;
 
 #endif
 
+#ifdef FORCE_REG
+#define IPREG asm("$16")
+#define SPREG asm("$17")
+#define RPREG asm("$18")
+#define LPREG asm("$19")
+#define CFAREG asm("$20")
+#define TOSREG asm("$21")
+#endif /* FORCE_REG */