--- gforth/Attic/hppa.h	1994/12/12 17:10:39	1.5
+++ gforth/Attic/hppa.h	1995/08/27 19:56:32	1.7
@@ -1,10 +1,14 @@
 /*
-  $Id: hppa.h,v 1.5 1994/12/12 17:10:39 anton Exp $
+  $Id: hppa.h,v 1.7 1995/08/27 19:56:32 pazsan Exp $
   Copyright 1992 by the ANSI figForth Development Group
 
   This is the machine-specific part for a HPPA running HP-UX
 */
 
+#if !defined(USE_TOS) && !defined(USE_NO_TOS)
+#define USE_TOS
+#endif
+
 #ifndef INDIRECT_THREADED
 #ifndef DIRECT_THREADED
 #define DIRECT_THREADED
@@ -223,3 +227,14 @@ extern void * cacheflush(void *, int, in
 	/* this stores a call dodoes at addr */
 #endif
 
+#undef HAVE_LOG1P
+#undef HAVE_RINT
+
+#ifdef FORCE_REG
+#define IPREG asm("%r10")
+#define SPREG asm("%r9")
+#define RPREG asm("%r8")
+#define LPREG asm("%r7")
+#define CFAREG asm("%r6")
+#define TOSREG asm("%r11")
+#endif /* FORCE_REG */