Mercurial > hg > xemacs-beta

comparison src/m/pfa50.h @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents 0132846995bd
children a86b2b5e0111
comparison
equal deleted inserted replaced
202:61eefc8fc970 203:850242ba4a81
54 #if pfa50 || pfa70 54 #if pfa50 || pfa70
55 55
56 /* On A-50/60/70/80, data space has high order byte use. */ 56 /* On A-50/60/70/80, data space has high order byte use. */
57 #define VALBITS 26 57 #define VALBITS 26
58 #define VALMASK (((1<<VALBITS) - 1) | 0x60000000) 58 #define VALMASK (((1<<VALBITS) - 1) | 0x60000000)
59 #define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK)) 59 /* XEmacs: markbit is between type bits and value bits */
60 /* #define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK)) */
61 #define XTYPE(a) ((enum Lisp_Type) (((a) >> ((VALBITS) + 1)) & GCTYPEMASK))
60 62
61 #endif /* pfa50, pfa70 */ 63 #endif /* pfa50, pfa70 */
62 64
63 /* SX/A has alloca in the PW library. */ 65 /* SX/A has alloca in the PW library. */
64 66