From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 3 Nov 2009 21:12:15 +0000 (+0000)
Subject: (XPNTR) [USE_LSB_TAG && USE_LISP_UNION_TYPE]: silence compiler.
X-Git-Tag: emacs-pretest-23.1.90~584
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=524420d28903e8b8c35c9e942ad79f38a2e20dde;p=emacs.git

(XPNTR) [USE_LSB_TAG && USE_LISP_UNION_TYPE]: silence compiler.
---

diff --git a/src/lisp.h b/src/lisp.h
index 4bf3d392811..19950f79055 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -427,7 +427,10 @@ enum pvec_type
    (var).u.val = ((EMACS_UINT) (ptr)) >> GCTYPEBITS,			\
    (var).u.type = ((char) (vartype)))
 
-# define XPNTR(v) (((v).s.val) << GCTYPEBITS)
+/* Some versions of gcc seem to consider the bitfield width when issuing
+   the "cast to pointer from integer of different size" warning, so the
+   cast is here to widen the value back to its natural size.  */
+# define XPNTR(v) ((EMACS_INT)((v).s.val) << GCTYPEBITS)
 
 #else  /* !USE_LSB_TAG */