21 |
Boston, MA 02111-1307, USA. */ |
Boston, MA 02111-1307, USA. */ |
22 |
|
|
23 |
|
|
24 |
/* The following line tells the configuration script what sort of |
/* The following line tells the configuration script what sort of |
25 |
operating system this machine is likely to run. |
operating system this machine is likely to run. |
26 |
USUAL-OPSYS="usg5-2-2" */ |
USUAL-OPSYS="usg5-2-2" */ |
27 |
|
|
106 |
|
|
107 |
#define NBPC 2048 |
#define NBPC 2048 |
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. */ |
113 |
/* The usual definition of XINT, which involves shifting, does not |
/* The usual definition of XINT, which involves shifting, does not |
114 |
sign-extend properly on this machine. */ |
sign-extend properly on this machine. */ |
115 |
|
|
116 |
#define XINT(i) (((sign_extend_temp=(i)) & 0x00800000) \ |
#define XINT(i) (((sign_extend_temp=(i)) & 0x00800000) \ |
117 |
? (sign_extend_temp | 0xFF000000) \ |
? (sign_extend_temp | 0xFF000000) \ |
118 |
: (sign_extend_temp & 0x00FFFFFF)) |
: (sign_extend_temp & 0x00FFFFFF)) |
119 |
|
#endif |
120 |
|
|
121 |
#ifdef emacs /* Don't do this when making xmakefile! */ |
#ifdef emacs /* Don't do this when making xmakefile! */ |
122 |
extern int sign_extend_temp; |
extern int sign_extend_temp; |
123 |
#endif |
#endif |
124 |
|
|
125 |
#if u3b2 || u3b5 || u3b15 |
#if u3b2 || u3b5 || u3b15 |
|
|
|
126 |
/* On 3b2/5/15, data space has high order bit on. */ |
/* On 3b2/5/15, data space has high order bit on. */ |
127 |
#define VALBITS 27 |
#define DATA_SEG_BITS 0x80000000 |
|
#define VALMASK (((1<<VALBITS) - 1) | (1 << 31)) |
|
|
#define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK)) |
|
|
|
|
128 |
#endif /* 3b2, 3b5 or 3b15 */ |
#endif /* 3b2, 3b5 or 3b15 */ |
129 |
|
|
130 |
#define TEXT_START 0 |
#define TEXT_START 0 |