* lisp.h (XINT) [USE_LISP_UNION_TYPE]: Cast to EMACS_INT.

(XUINT) [USE_LISP_UNION_TYPE]: Cast to EMACS_UINT.
Otherwise, GCC 4.6.0 warns about printf (pI, XINT (...)),
presumably because the widths might not match.

diff --git a/src/ChangeLog b/src/ChangeLog
index 8dc51c0d01bd6edafa9cd65471ffcab5d70f5a32..550dd28eb24c7b5726095c901e05a32baa27b32b 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,10 @@
 2011-05-11  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * lisp.h (XINT) [USE_LISP_UNION_TYPE]: Cast to EMACS_INT.
+       (XUINT) [USE_LISP_UNION_TYPE]: Cast to EMACS_UINT.
+       Otherwise, GCC 4.6.0 warns about printf (pI, XINT (...)),
+       presumably because the widths might not match.
+
        * window.c (size_window): Avoid needless test at loop start.
 
 2011-05-10  Juanma Barranquero  <lekktu@gmail.com>

diff --git a/src/lisp.h b/src/lisp.h
index 66f5c962be88412876ae40f2aac8535748262275..2342ea2bdbefe2b7943d4095fdbe08363b64ab6e 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -470,8 +470,8 @@ enum pvec_type
 
 #define XHASH(a) ((a).i)
 #define XTYPE(a) ((enum Lisp_Type) (a).u.type)
-#define XINT(a) ((a).s.val)
-#define XUINT(a) ((a).u.val)
+#define XINT(a) ((EMACS_INT) (a).s.val)
+#define XUINT(a) ((EMACS_UINT) (a).u.val)
 
 #ifdef USE_LSB_TAG