Mercurial > hg > xemacs-beta

diff src/m/att3b.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/att3b.h	Mon Aug 13 10:01:24 2007 +0200
+++ b/src/m/att3b.h	Mon Aug 13 10:02:21 2007 +0200
@@ -116,7 +116,9 @@
 /* On 3b2/5/15, data space has high order bit on. */
 #define VALBITS 27
 #define VALMASK (((1<<VALBITS) - 1) | (1 << 31))
-#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 /* 3b2, 3b5 or 3b15 */