Commit edb2a707 authored by Richard M. Stallman's avatar Richard M. Stallman

(float_to_string): Add `.0' at end if needed.

parent 51ac6f83
......@@ -581,11 +581,8 @@ to make it write to the debugging output.\n")
#ifdef LISP_FLOAT_TYPE
void
float_to_string (buf, data)
char *buf;
/*
* This buffer should be at least as large as the max string size of the
* The buffer should be at least as large as the max string size of the
* largest float, printed in the biggest notation. This is undoubtably
* 20d float_output_format, with the negative of the C-constant "HUGE"
* from <math.h>.
......@@ -597,6 +594,10 @@ float_to_string (buf, data)
* re-writing _doprnt to be more sane)?
* -wsr
*/
void
float_to_string (buf, data)
char *buf;
double data;
{
register unsigned char *cp, c;
......@@ -638,6 +639,19 @@ float_to_string (buf, data)
sprintf (buf, XSTRING (Vfloat_output_format)->data, data);
}
/* Make sure there is a decimal point or an exponent,
so that the value is readable as a float. */
for (cp = buf; *cp; cp++)
if (*cp < '0' || *cp > '9')
break;
if (*cp == 0)
{
*cp++ = '.';
*cp++ = '0';
*cp++ = 0;
}
}
#endif /* LISP_FLOAT_TYPE */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment