Mercurial > hg > xemacs-beta
diff src/lisp-disunion.h @ 5936:574f0cded429 cygwin
try to replace all nnnL or nnnUL constants with EMACS_[U]INT
| author | Henry Thompson <ht@markup.co.uk> |
|---|---|
| date | Sun, 13 Dec 2015 13:22:58 +0000 |
| parents | f5dfcf2323bc |
| children |
line wrap: on
line diff
--- a/src/lisp-disunion.h Sat Dec 12 21:49:31 2015 +0000 +++ b/src/lisp-disunion.h Sun Dec 13 13:22:58 2015 +0000 @@ -77,7 +77,7 @@ typedef EMACS_INT Lisp_Object; #define Lisp_Type_Fixnum_Bit (Lisp_Type_Fixnum_Even & Lisp_Type_Fixnum_Odd) -#define VALMASK ((((uintptr_t)1UL << VALBITS) - 1UL) << GCTYPEBITS) +#define VALMASK ((((uintptr_t)UE1 << VALBITS) - 1UL) << GCTYPEBITS) #define XTYPE(x) ((enum Lisp_Type) (((EMACS_UINT)(x)) & ~VALMASK)) #define XPNTRVAL(x) (x) /* This depends on Lisp_Type_Record == 0 */ #define XCHARVAL(x) ((x) >> GCBITS)