Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/lisp-disunion.h	Mon Aug 13 10:07:42 2007 +0200
+++ b/src/lisp-disunion.h	Mon Aug 13 10:08:34 2007 +0200
@@ -74,7 +74,7 @@
 
 #ifdef USE_MINIMAL_TAGBITS
 # define Qzero Lisp_Type_Int_Even
-# define VALMASK (((1L << (VALBITS)) - 1L) << (GCTYPEBITS))
+# define VALMASK (((1UL << (VALBITS)) - 1L) << (GCTYPEBITS))
 #else
 # define Qzero Lisp_Type_Int
 # define VALMASK ((1L << (VALBITS)) - 1L)