Mercurial > hg > xemacs-beta
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 5935:d5eb0914ca1f | 5936:574f0cded429 |
|---|---|
| 75 | 75 |
| 76 | 76 |
| 77 typedef EMACS_INT Lisp_Object; | 77 typedef EMACS_INT Lisp_Object; |
| 78 | 78 |
| 79 #define Lisp_Type_Fixnum_Bit (Lisp_Type_Fixnum_Even & Lisp_Type_Fixnum_Odd) | 79 #define Lisp_Type_Fixnum_Bit (Lisp_Type_Fixnum_Even & Lisp_Type_Fixnum_Odd) |
| 80 #define VALMASK ((((uintptr_t)1UL << VALBITS) - 1UL) << GCTYPEBITS) | 80 #define VALMASK ((((uintptr_t)UE1 << VALBITS) - 1UL) << GCTYPEBITS) |
| 81 #define XTYPE(x) ((enum Lisp_Type) (((EMACS_UINT)(x)) & ~VALMASK)) | 81 #define XTYPE(x) ((enum Lisp_Type) (((EMACS_UINT)(x)) & ~VALMASK)) |
| 82 #define XPNTRVAL(x) (x) /* This depends on Lisp_Type_Record == 0 */ | 82 #define XPNTRVAL(x) (x) /* This depends on Lisp_Type_Record == 0 */ |
| 83 #define XCHARVAL(x) ((x) >> GCBITS) | 83 #define XCHARVAL(x) ((x) >> GCBITS) |
| 84 #define XREALFIXNUM(x) ((x) >> FIXNUM_GCBITS) | 84 #define XREALFIXNUM(x) ((x) >> FIXNUM_GCBITS) |
| 85 #define XUINT(x) ((EMACS_UINT)(x) >> FIXNUM_GCBITS) | 85 #define XUINT(x) ((EMACS_UINT)(x) >> FIXNUM_GCBITS) |