From: tomo <tomo>
Date: Thu, 14 Jun 2001 06:29:27 +0000 (+0000)
Subject: (XCHARVAL): Cast the argument into EMACS_UINT.
X-Git-Tag: r21-2-38-utf-2000-0_17-1~595
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6754bf95555ceec5fd5a3f0e0296fe7ac02b37e7;p=chise%2Fxemacs-chise.git-

(XCHARVAL): Cast the argument into EMACS_UINT.
---

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)