procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Give a name FLOAT_TO_STRING_BUFSIZE to the constant 350.

Browse source 
* lisp.h (FLOAT_TO_STRING_BUFSIZE): New macro.
* data.c (Fnumber_to_string): Use it.
* print.c (float_to_string, print_object): Likewise.
This commit is contained in:
Paul Eggert 2011-01-09 00:21:21 -08:00
parent 4004364e67
commit 6e8e6bf253
4 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -1,5 +1,10 @@
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:

2
src/data.c
View file

@ -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);

1
src/lisp.h
View file

@ -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);

8
src/print.c
View file

@ -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);