Mercurial > hg > xemacs-beta

comparison src/lisp-disunion.h @ 217:d44af0c54775 r20-4b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b7
author cvs
date Mon, 13 Aug 2007 10:08:34 +0200
parents 78f53ef88e17
children 11cf20601dec
comparison
equal deleted inserted replaced
216:43306a74e31c 217:d44af0c54775
72 * bits (really LONGBITS - GCTYPEBITS - 1 bits). 72 * bits (really LONGBITS - GCTYPEBITS - 1 bits).
73 */ 73 */
74 74
75 #ifdef USE_MINIMAL_TAGBITS 75 #ifdef USE_MINIMAL_TAGBITS
76 # define Qzero Lisp_Type_Int_Even 76 # define Qzero Lisp_Type_Int_Even
77 # define VALMASK (((1L << (VALBITS)) - 1L) << (GCTYPEBITS)) 77 # define VALMASK (((1UL << (VALBITS)) - 1L) << (GCTYPEBITS))
78 #else 78 #else
79 # define Qzero Lisp_Type_Int 79 # define Qzero Lisp_Type_Int
80 # define VALMASK ((1L << (VALBITS)) - 1L) 80 # define VALMASK ((1L << (VALBITS)) - 1L)
81 # define GCTYPEMASK ((1L << (GCTYPEBITS)) - 1L) 81 # define GCTYPEMASK ((1L << (GCTYPEBITS)) - 1L)
82 #endif 82 #endif