aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKen Raeburn2002-07-22 00:08:18 +0000
committerKen Raeburn2002-07-22 00:08:18 +0000
commitd9c5f5ed316614b97aae27de33a92a717bf6482e (patch)
treedf014864e5d335e4d835ad0d461408d12003538c
parent915882dae1b1566961fd31879db85e0da695035f (diff)
downloademacs-d9c5f5ed316614b97aae27de33a92a717bf6482e.tar.gz
emacs-d9c5f5ed316614b97aae27de33a92a717bf6482e.zip
* m/att3b.h (XINT): Don't define.
(VALBITS, VALMASK, XTYPE): Deleted. (DATA_SEG_BITS): Define.
-rw-r--r--src/m/att3b.h11
1 files changed, 6 insertions, 5 deletions
diff --git a/src/m/att3b.h b/src/m/att3b.h
index 4d9aab7e6bb..ed5f3c53dc9 100644
--- a/src/m/att3b.h
+++ b/src/m/att3b.h
@@ -106,24 +106,25 @@ Boston, MA 02111-1307, USA. */
106 106
107#define NBPC 2048 107#define NBPC 2048
108 108
109#if 0 /* If this is still needed, don't hard-code assumptions about
110 the number of VALBITS, or other assumptions about the
111 Lisp_Object representation. Try to extend lisp.h instead, if
112 necessary. */
109/* The usual definition of XINT, which involves shifting, does not 113/* The usual definition of XINT, which involves shifting, does not
110 sign-extend properly on this machine. */ 114 sign-extend properly on this machine. */
111 115
112#define XINT(i) (((sign_extend_temp=(i)) & 0x00800000) \ 116#define XINT(i) (((sign_extend_temp=(i)) & 0x00800000) \
113 ? (sign_extend_temp | 0xFF000000) \ 117 ? (sign_extend_temp | 0xFF000000) \
114 : (sign_extend_temp & 0x00FFFFFF)) 118 : (sign_extend_temp & 0x00FFFFFF))
119#endif
115 120
116#ifdef emacs /* Don't do this when making xmakefile! */ 121#ifdef emacs /* Don't do this when making xmakefile! */
117extern int sign_extend_temp; 122extern int sign_extend_temp;
118#endif 123#endif
119 124
120#if u3b2 || u3b5 || u3b15 125#if u3b2 || u3b5 || u3b15
121
122/* On 3b2/5/15, data space has high order bit on. */ 126/* On 3b2/5/15, data space has high order bit on. */
123#define VALBITS 27 127#define DATA_SEG_BITS 0x80000000
124#define VALMASK (((1<<VALBITS) - 1) | (1 << 31))
125#define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK))
126
127#endif /* 3b2, 3b5 or 3b15 */ 128#endif /* 3b2, 3b5 or 3b15 */
128 129
129#define TEXT_START 0 130#define TEXT_START 0