# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779780213 0
# Node ID c21c9ae5f8e75fcea2fbaa6f738da85acfd89855
# Parent  f44e40e722b248fbf27b23f7940f7e0218b85afe
(print): sprintf arg for frame depends on VALBITS.

diff -r f44e40e722b2 -r c21c9ae5f8e7 src/print.c
--- a/src/print.c	Sat Sep 17 05:30:39 1994 +0000
+++ b/src/print.c	Sat Sep 17 05:36:53 1994 +0000
@@ -972,7 +972,10 @@
 	       ? "#<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;