(print_object): Add cast when passing EMACS_INT

values to sprintf.

diff --git a/src/ChangeLog b/src/ChangeLog
index a9bac7dbf6b4a9a6060763279ad6fcac352f91a4..01eb385d032815581ed3e784bba6f612565f95b9 100644 (file)
--- 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\e,Ad\e(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 acac49eb80190c6e6003ba2223d1df99024cb6b0..3a2e6926729bd168103e739c72f83403c8f42f70 100644 (file)
--- 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