--- gforth/arch/alpha/machine.h	1998/12/08 22:02:54	1.3
+++ gforth/arch/alpha/machine.h	1999/02/06 22:28:22	1.5
@@ -1,4 +1,4 @@
-/* preliminary machine file for DEC Alpha
+/* DEC Alpha
 
   Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
 
@@ -20,7 +20,10 @@
 */
 
 /* Be careful: long long on Alpha are 64 bit :-(( */
-#define LONG_LATENCY
+
+#ifndef THREADING_SCHEME
+#define THREADING_SCHEME 5
+#endif
 
 #if !defined(USE_TOS) && !defined(USE_NO_TOS)
 #define USE_TOS
@@ -159,3 +162,13 @@ typedef short Int16;
 				    _cfa[1] = (doesp); })
 #endif
 
+#ifdef FORCE_REG
+/* $9-$14 are callee-saved, $1-$8 and $22-$25 are caller-saved */
+#define IPREG asm("$10")
+#define SPREG asm("$11")
+#define RPREG asm("$12")
+#define LPREG asm("$13")
+#define TOSREG asm("$14")
+/* #define CFAREG asm("$22") egcs-1.0.3 crashes with any caller-saved
+   register decl */
+#endif /* FORCE_REG */