From 6af1696d06d2221a3bc72557b8a0851c62326cba Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Thu, 22 Nov 2007 16:16:09 +0000 Subject: [PATCH] (print_object): Add cast when passing EMACS_INT values to sprintf. --- src/ChangeLog | 7 +++++++ src/print.c | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * 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 * 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 -- 2.39.2