diff options
| author | Ken Raeburn | 2002-07-22 00:08:18 +0000 |
|---|---|---|
| committer | Ken Raeburn | 2002-07-22 00:08:18 +0000 |
| commit | d9c5f5ed316614b97aae27de33a92a717bf6482e (patch) | |
| tree | df014864e5d335e4d835ad0d461408d12003538c /src/m | |
| parent | 915882dae1b1566961fd31879db85e0da695035f (diff) | |
| download | emacs-d9c5f5ed316614b97aae27de33a92a717bf6482e.tar.gz emacs-d9c5f5ed316614b97aae27de33a92a717bf6482e.zip | |
* m/att3b.h (XINT): Don't define.
(VALBITS, VALMASK, XTYPE): Deleted.
(DATA_SEG_BITS): Define.
Diffstat (limited to 'src/m')
| -rw-r--r-- | src/m/att3b.h | 11 |
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! */ |
| 117 | extern int sign_extend_temp; | 122 | extern 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 |