From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Sep 1994 05:36:53 +0000 (+0000)
Subject: (print): sprintf arg for frame depends on VALBITS.
X-Git-Tag: emacs-19.34~7000
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ee1a2f7a9f12372f09aa5e80a1c45c2267bf248;p=emacs.git

(print): sprintf arg for frame depends on VALBITS.
---

diff --git a/src/print.c b/src/print.c
index 27e66f98dac..f9572d69744 100644
--- a/src/print.c
+++ b/src/print.c
@@ -972,7 +972,10 @@ print (obj, printcharfun, escapeflag)
 	       ? "#<frame " : "#<dead frame "),
 	      -1, printcharfun);
       print_string (XFRAME (obj)->name, printcharfun);
-      sprintf (buf, " 0x%lx", (EMACS_UINT) (XFRAME (obj)));
+      if (sizeof (EMACS_INT) > 4)
+	sprintf (buf, " 0x%lx", (EMACS_UINT) (XFRAME (obj)));
+      else
+	sprintf (buf, " 0x%x", (EMACS_UINT) (XFRAME (obj)));
       strout (buf, -1, printcharfun);
       strout (">", -1, printcharfun);
       break;