[Emacs-diffs] emacs/src lisp.h

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/11/03 21:12:15

Modified files:
        src            : lisp.h 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/lisp.h?cvsroot=emacs&r1=1.671&r2=1.672

Patches:
Index: lisp.h
===================================================================
RCS file: /sources/emacs/emacs/src/lisp.h,v
retrieving revision 1.671
retrieving revision 1.672
diff -u -b -r1.671 -r1.672
--- lisp.h      3 Nov 2009 15:30:41 -0000       1.671
+++ lisp.h      3 Nov 2009 21:12:15 -0000       1.672
@@ -427,7 +427,10 @@
    (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 */