(print_object): Add cast when passing EMACS_INT

values to sprintf.

2 files changed, 8 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index a9bac7dbf6b..01eb385d032 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+2007-11-22  Andreas Schwab  <schwab@suse.de>
+
+        * data.c (Fnumber_to_string): Add cast when passing EMACS_INT
+        values to sprintf.
+        * keymap.c (Fsingle_key_description): Likewise.
+        * print.c (print_object): Likewise.
+
 2007-11-22  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
         * gtkutil.c (update_frame_tool_bar): Don't call x-gtk-map-stock if
diff --git a/src/print.c b/src/print.c
index acac49eb801..3a2e6926729 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1549,7 +1549,7 @@ print_object (obj, printcharfun, escapeflag)
     {
     case Lisp_Int:
       if (sizeof (int) == sizeof (EMACS_INT))
-        sprintf (buf, "%d", XINT (obj));
+        sprintf (buf, "%d", (int) XINT (obj));
       else if (sizeof (long) == sizeof (EMACS_INT))
         sprintf (buf, "%ld", (long) XINT (obj));
       else