# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743330070 0
# Node ID 6cb1cfba6500dfe4b8dadb8c9589b961381b9e30
# Parent  b044f6d3c4cbea4fabd7ad9bdddeee1e83c33c8c
(float_to_string): Don't use uninitialized pointer `cp'.
Set width to -1 at lose: and other places.
Default to .17g, not .20g.

diff -r b044f6d3c4cb -r 6cb1cfba6500 src/print.c
--- a/src/print.c	Thu Jul 22 08:06:55 1993 +0000
+++ b/src/print.c	Thu Jul 22 08:34:30 1993 +0000
@@ -611,12 +611,15 @@
      double data;
 {
   unsigned char *cp;
-  int width = -1;
+  int width;
       
   if (NILP (Vfloat_output_format)
       || XTYPE (Vfloat_output_format) != Lisp_String)
   lose:
-    sprintf (buf, "%.20g", data);
+    {
+      sprintf (buf, "%.17g", data);
+      width = -1;
+    }
   else			/* oink oink */
     {
       /* Check that the spec we have is fully valid.
@@ -632,6 +635,7 @@
       cp += 2;
 
       /* Check the width specification.  */
+      width = -1;
       if ('0' <= *cp && *cp <= '9')
 	for (width = 0; (*cp >= '0' && *cp <= '9'); cp++)
 	  width = (width * 10) + (*cp - '0');
@@ -654,9 +658,9 @@
 
   /* Make sure there is a decimal point with digit after, or an
      exponent, so that the value is readable as a float.  But don't do
-     this with "%.0f"; it's legal for that not to produce a decimal
-     point.  */
-  if (*cp != 'f' || width != 0)
+     this with "%.0f"; it's valid for that not to produce a decimal
+     point.  Note that width can be 0 only for %.0f.  */
+  if (width != 0)
     {
       for (cp = buf; *cp; cp++)
 	if ((*cp < '0' || *cp > '9') && *cp != '-')
@@ -1038,7 +1042,7 @@
 The precision in any of these cases is the number of digits following\n\
 the decimal point.  With `f', a precision of 0 means to omit the\n\
 decimal point.  0 is not allowed with `e' or `g'.\n\n\
-A value of nil means to use `%.20g'.");
+A value of nil means to use `%.17g'.");
   Vfloat_output_format = Qnil;
   Qfloat_output_format = intern ("float-output-format");
   staticpro (&Qfloat_output_format);