Mercurial > hg > xemacs-beta

diff src/print.c @ 603:1c880911c386

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-06-01 08:23:09 by martinb] Fix a bunch of 128-bit bugs
author martinb
date Fri, 01 Jun 2001 08:23:12 +0000
parents 0e1f61d4b978
children fdefd0186b75
line wrap: on
line diff
--- a/src/print.c	Fri Jun 01 08:17:05 2001 +0000
+++ b/src/print.c	Fri Jun 01 08:23:12 2001 +0000
@@ -1288,7 +1288,7 @@
       for (i = 0; i < print_depth; i++)
 	if (EQ (obj, being_printed[i]))
 	  {
-	    char buf[32];
+	    char buf[DECIMAL_PRINT_SIZE (long) + 1];
 	    *buf = '#';
 	    long_to_string (buf + 1, i);
 	    write_c_string (buf, printcharfun);
@@ -1307,9 +1307,7 @@
     case Lisp_Type_Int_Even:
     case Lisp_Type_Int_Odd:
       {
-	/* ASCII Decimal representation uses 2.4 times as many bits as
-	   machine binary.  */
-	char buf[3 * sizeof (EMACS_INT) + 5];
+	char buf[DECIMAL_PRINT_SIZE (EMACS_INT)];
 	long_to_string (buf, XINT (obj));
 	write_c_string (buf, printcharfun);
 	break;