From 6754bf95555ceec5fd5a3f0e0296fe7ac02b37e7 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 14 Jun 2001 06:29:27 +0000 Subject: [PATCH] (XCHARVAL): Cast the argument into EMACS_UINT. --- src/lisp-disunion.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lisp-disunion.h b/src/lisp-disunion.h index 4c8c69e..be51957 100644 --- a/src/lisp-disunion.h +++ b/src/lisp-disunion.h @@ -82,7 +82,7 @@ typedef EMACS_INT Lisp_Object; #define VALMASK (((1UL << 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) +#define XCHARVAL(x) ((EMACS_UINT)(x) >> GCBITS) #define XREALINT(x) ((x) >> INT_GCBITS) #define XUINT(x) ((EMACS_UINT)(x) >> INT_GCBITS) #define INTP(x) ((EMACS_UINT)(x) & Lisp_Type_Int_Bit) -- 1.7.10.4