Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/m/pfa50.h	Mon Aug 13 10:01:24 2007 +0200
+++ b/src/m/pfa50.h	Mon Aug 13 10:02:21 2007 +0200
@@ -56,7 +56,9 @@
 /* On A-50/60/70/80, data space has high order byte use. */
 #define VALBITS 26
 #define VALMASK (((1<<VALBITS) - 1) | 0x60000000)
-#define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK))
+/* XEmacs: markbit is between type bits and value bits */
+/* #define XTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK)) */
+#define XTYPE(a) ((enum Lisp_Type) (((a) >> ((VALBITS) + 1)) & GCTYPEMASK))
 
 #endif /* pfa50, pfa70 */