# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 789437918 0
# Node ID 5087094fb4d7a2f7a8d35fd8f4d2675cce038b51
# Parent  9d27a4627c137640cb9d6c4bccd743d1a2cefc33
(VALBITS, XTYPE): Adjust for new bit layout.

diff -r 9d27a4627c13 -r 5087094fb4d7 src/m/att3b.h
--- a/src/m/att3b.h	Sat Jan 07 00:14:11 1995 +0000
+++ b/src/m/att3b.h	Sat Jan 07 00:18:38 1995 +0000
@@ -58,7 +58,7 @@
 #define NO_UNION_TYPE
 
 /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
-   the 24-bit bit field into an int.  In other words, if bit fields
+   the bit field into an int.  In other words, if bit fields
    are always unsigned.
 
    If you use NO_UNION_TYPE, this flag does not matter.  */
@@ -136,10 +136,9 @@
 #if u3b2 || u3b5 || u3b15
 
 /* On 3b2/5/15, data space has high order bit on. */
+#define VALBITS 27
 #define VALMASK (((1<<VALBITS) - 1) | (1 << 31))
-#define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & 0x7F))
-#define GCTYPEBITS 5
-#define XADDRFIX(a)	((a) |= 0X80000000)	/* Because of high order */
+#define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK))
 
 #endif /* 3b2, 3b5 or 3b15 */
 
diff -r 9d27a4627c13 -r 5087094fb4d7 src/m/pfa50.h
--- a/src/m/pfa50.h	Sat Jan 07 00:14:11 1995 +0000
+++ b/src/m/pfa50.h	Sat Jan 07 00:18:38 1995 +0000
@@ -66,7 +66,7 @@
 
 #define START_FILES crt0.o
 
-/* Define LD_SWITCH_MACHINE if your linker need it.
+/* Define LD_SWITCH_MACHINE if your linker needs it.
  */
 
 #define LD_SWITCH_MACHINE -e __start
@@ -74,9 +74,9 @@
 #if	pfa50 || pfa70
 
 /* On A-50/60/70/80, data space has high order byte use. */
+#define VALBITS 26
 #define VALMASK (((1<<VALBITS) - 1) | 0x60000000)
-#define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & 0x1f))
-#define XGCTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & 0x1f))
+#define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK))
 
 #endif /* pfa50, pfa70 */