From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 5 May 1995 02:56:50 +0000 (+0000)
Subject: (doprnt): Handle long EMACS_INT in sprintf.
X-Git-Tag: emacs-19.34~4158
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9fa352f109bb7f9b4314c57348d7eecfa2aa63c;p=emacs.git

(doprnt): Handle long EMACS_INT in sprintf.
---

diff --git a/src/doprnt.c b/src/doprnt.c
index 1743c785f01..39562af19fa 100644
--- a/src/doprnt.c
+++ b/src/doprnt.c
@@ -126,6 +126,16 @@ doprnt (buffer, bufsize, format, format_end, nargs, args)
 	    case 'x':
 	      if (cnt == nargs)
 		error ("not enough arguments for format string");
+	      if (sizeof (int) == sizeof (EMACS_INT))
+		;
+	      else if (sizeof (long) == sizeof (EMACS_INT))
+		/* Insert an `l' the right place.  */
+		string[1] = string[0],
+		string[0] = string[-1],
+		string[-1] = 'l',
+		string++;
+	      else
+		abort ();
 	      sprintf (sprintf_buffer, fmtcpy, args[cnt++]);
 	      /* Now copy into final output, truncating as nec.  */
 	      string = sprintf_buffer;