--- gforth/Attic/hppa.h	1994/10/04 18:23:59	1.3
+++ gforth/Attic/hppa.h	1995/09/06 21:00:18	1.8
@@ -1,11 +1,21 @@
 /*
-  $Id: hppa.h,v 1.3 1994/10/04 18:23:59 pazsan Exp $
+  $Id: hppa.h,v 1.8 1995/09/06 21:00:18 pazsan Exp $
   Copyright 1992 by the ANSI figForth Development Group
 
   This is the machine-specific part for a HPPA running HP-UX
 */
-/* cache flush stuff */
 
+#if !defined(USE_TOS) && !defined(USE_NO_TOS)
+#define USE_TOS
+#endif
+
+#ifndef INDIRECT_THREADED
+#ifndef DIRECT_THREADED
+#define DIRECT_THREADED
+#endif
+#endif
+
+/* cache flush stuff */
 #ifdef DIRECT_THREADED
 
 extern void * cacheflush(void *, int, int);
@@ -21,26 +31,7 @@ extern void * cacheflush(void *, int, in
 #  endif
 #endif
 
-
-/* Cell and UCell must be the same size as a pointer */
-typedef long Cell;
-typedef unsigned long UCell;
-
-/* DCell and UDCell must be twice as large as Cell */
-typedef long long DCell;
-typedef unsigned long long UDCell;
-
-/* define this if IEEE singles and doubles are available as C data types */
-#define IEEE_FP
-
-/* the IEEE types are used only for loading and storing */
-/* the IEEE double precision type */
-typedef double DFloat;
-/* the IEEE single precision type */
-typedef float SFloat;
-
-/* define this if the least-significant byte is at the largets address */
-#define BIG_ENDIAN
+#include "32bit.h"
 
 #ifdef DIRECT_THREADED
 	/* PFA gives the parameter field address corresponding to a cfa */
@@ -236,9 +227,14 @@ typedef float SFloat;
 	/* this stores a call dodoes at addr */
 #endif
 
-/* OS dependences */
-
-#define SEEK_SET 0
-#define rint(x)	floor((x)+0.5)
-
+#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 */