From: Dave Love <fx@gnu.org>
Date: Fri, 17 May 2002 16:37:56 +0000 (+0000)
Subject: (print_object): Fix print format for 64-bit
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~844
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8e19d0bd87fcce54e08907af1d934a1deadc0c0;p=emacs.git

(print_object): Fix print format for 64-bit
systems.
---

diff --git a/src/print.c b/src/print.c
index 053f6622865..b79f2fc3502 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1683,7 +1683,12 @@ print_object (obj, printcharfun, escapeflag)
 
 	  PRINTCHAR ('#');
 	  PRINTCHAR ('&');
-	  sprintf (buf, "%d", XBOOL_VECTOR (obj)->size);
+	  if (sizeof (int) == sizeof (EMACS_INT))
+            sprintf (buf, "%d", XBOOL_VECTOR (obj)->size);
+	  else if (sizeof (long) == sizeof (EMACS_INT))
+            sprintf (buf, "%ld", XBOOL_VECTOR (obj)->size);
+	  else
+	    abort ();
 	  strout (buf, -1, -1, printcharfun, 0);
 	  PRINTCHAR ('\"');