Mercurial > emacs
comparison src/m/pfa50.h @ 10359:5087094fb4d7
(VALBITS, XTYPE): Adjust for new bit layout.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 07 Jan 1995 00:18:38 +0000 |
| parents | 23f72b18b420 |
| children | 1d4654a97585 |
comparison
equal
deleted
inserted
replaced
| 10358:9d27a4627c13 | 10359:5087094fb4d7 |
|---|---|
| 64 /* Define START_FILES if your machine used _start. | 64 /* Define START_FILES if your machine used _start. |
| 65 */ | 65 */ |
| 66 | 66 |
| 67 #define START_FILES crt0.o | 67 #define START_FILES crt0.o |
| 68 | 68 |
| 69 /* Define LD_SWITCH_MACHINE if your linker need it. | 69 /* Define LD_SWITCH_MACHINE if your linker needs it. |
| 70 */ | 70 */ |
| 71 | 71 |
| 72 #define LD_SWITCH_MACHINE -e __start | 72 #define LD_SWITCH_MACHINE -e __start |
| 73 | 73 |
| 74 #if pfa50 || pfa70 | 74 #if pfa50 || pfa70 |
| 75 | 75 |
| 76 /* On A-50/60/70/80, data space has high order byte use. */ | 76 /* On A-50/60/70/80, data space has high order byte use. */ |
| 77 #define VALBITS 26 | |
| 77 #define VALMASK (((1<<VALBITS) - 1) | 0x60000000) | 78 #define VALMASK (((1<<VALBITS) - 1) | 0x60000000) |
| 78 #define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & 0x1f)) | 79 #define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK)) |
| 79 #define XGCTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & 0x1f)) | |
| 80 | 80 |
| 81 #endif /* pfa50, pfa70 */ | 81 #endif /* pfa50, pfa70 */ |
| 82 | 82 |
| 83 /* SX/A has alloca in the PW library. */ | 83 /* SX/A has alloca in the PW library. */ |
| 84 | 84 |