Mercurial > hg > xemacs-beta
diff src/lisp.h @ 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 | 5fd7ba8b56e7 |
| children | 13e3d7ae7155 |
line wrap: on
line diff
--- a/src/lisp.h Fri Jun 01 08:17:05 2001 +0000 +++ b/src/lisp.h Fri Jun 01 08:23:12 2001 +0000 @@ -2839,7 +2839,15 @@ void print_cons (Lisp_Object, Lisp_Object, int); void print_vector (Lisp_Object, Lisp_Object, int); void print_string (Lisp_Object, Lisp_Object, int); + +/* The number of bytes required to store the decimal printed + representation of an integral type. Add a few bytes for truncation, + optional sign prefix, and null byte terminator. + 2.40824 == log (256) / log (10). */ +#define DECIMAL_PRINT_SIZE(integral_type) \ +((size_t) (2.40824 * sizeof (integral_type)) + 3) void long_to_string (char *, long); + void print_internal (Lisp_Object, Lisp_Object, int); void print_symbol (Lisp_Object, Lisp_Object, int); void print_float (Lisp_Object, Lisp_Object, int);