Commit 6e8e6bf2 authored by Paul Eggert's avatar Paul Eggert
Browse files

Give a name FLOAT_TO_STRING_BUFSIZE to the constant 350.

* lisp.h (FLOAT_TO_STRING_BUFSIZE): New macro.
* data.c (Fnumber_to_string): Use it.
* print.c (float_to_string, print_object): Likewise.
parent 4004364e
2011-01-09 Paul Eggert <eggert@cs.ucla.edu>
 
Give a name FLOAT_TO_STRING_BUFSIZE to the constant 350.
* lisp.h (FLOAT_TO_STRING_BUFSIZE): New macro.
* data.c (Fnumber_to_string): Use it.
* print.c (float_to_string, print_object): Likewise.
Include <unistd.h> unilaterally.
* alloc.c, atimer.c, buffer.c, callproc.c, dired.c, dispnew.c, doc.c:
* doprnt.c, editfns.c, emacs.c, fileio.c, filelock.c, fns.c:
......
......@@ -2375,7 +2375,7 @@ NUMBER may be an integer or a floating point number. */)
if (FLOATP (number))
{
char pigbuf[350]; /* see comments in float_to_string */
char pigbuf[FLOAT_TO_STRING_BUFSIZE];
float_to_string (pigbuf, XFLOAT_DATA (number));
return build_string (pigbuf);
......
......@@ -2781,6 +2781,7 @@ extern void print_error_message (Lisp_Object, Lisp_Object, const char *,
Lisp_Object);
extern Lisp_Object internal_with_output_to_temp_buffer
(const char *, Lisp_Object (*) (Lisp_Object), Lisp_Object);
#define FLOAT_TO_STRING_BUFSIZE 350
extern void float_to_string (unsigned char *, double);
extern void syms_of_print (void);
......
......@@ -1054,6 +1054,7 @@ print_error_message (Lisp_Object data, Lisp_Object stream, const char *context,
* case of -1e307 in 20d float_output_format. What is one to do (short of
* re-writing _doprnt to be more sane)?
* -wsr
* Given the above, the buffer must be least FLOAT_TO_STRING_BUFSIZE bytes.
*/
void
......@@ -1100,9 +1101,8 @@ float_to_string (unsigned char *buf, double data)
lose:
{
/* Generate the fewest number of digits that represent the
floating point value without losing information.
The 350 is by convention, e.g., this file's pigbuf. */
dtoastr (buf, 350, 0, 0, data);
floating point value without losing information. */
dtoastr (buf, FLOAT_TO_STRING_BUFSIZE, 0, 0, data);
}
else /* oink oink */
{
......@@ -1493,7 +1493,7 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
case Lisp_Float:
{
char pigbuf[350]; /* see comments in float_to_string */
char pigbuf[FLOAT_TO_STRING_BUFSIZE];
float_to_string (pigbuf, XFLOAT_DATA (obj));
strout (pigbuf, -1, -1, printcharfun, 0);
......
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