Mercurial > hg > xemacs-beta

diff src/data.c @ 603:1c880911c386
[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: 55e998c311f5
children: 023b83f4e54b
--- a/src/data.c	Fri Jun 01 08:17:05 2001 +0000
+++ b/src/data.c	Fri Jun 01 08:23:12 2001 +0000
@@ -1013,8 +1013,6 @@
 */
        (number))
 {
-  char buffer[VALBITS];
-
   CHECK_INT_OR_FLOAT (number);
 
 #ifdef LISP_FLOAT_TYPE
@@ -1027,8 +1025,12 @@
     }
 #endif /* LISP_FLOAT_TYPE */
 
-  long_to_string (buffer, XINT (number));
-  return build_string (buffer);
+  {
+    char buffer[DECIMAL_PRINT_SIZE (long)];
+
+    long_to_string (buffer, XINT (number));
+    return build_string (buffer);
+  }
 }
 
 static int