Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 614:42bfaea76395

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-06-11 01:55:26 by martinb] DECIMAL_PRINT_SIZE sun cc bug workaround
author martinb
date Mon, 11 Jun 2001 01:55:28 +0000
parents 38db05db9cb5
children af57a77cbc92
comparison
equal deleted inserted replaced
613:023b83f4e54b 614:42bfaea76395
2854 void print_string (Lisp_Object, Lisp_Object, int); 2854 void print_string (Lisp_Object, Lisp_Object, int);
2855 2855
2856 /* The number of bytes required to store the decimal printed 2856 /* The number of bytes required to store the decimal printed
2857 representation of an integral type. Add a few bytes for truncation, 2857 representation of an integral type. Add a few bytes for truncation,
2858 optional sign prefix, and null byte terminator. 2858 optional sign prefix, and null byte terminator.
2859 2.40824 == log (256) / log (10). */ 2859 2.40824 == log (256) / log (10).
2860
2861 We don't use floating point since Sun cc (buggily?) cannot use
2862 floating point computations to define a compile-time integral
2863 constant. */
2860 #define DECIMAL_PRINT_SIZE(integral_type) \ 2864 #define DECIMAL_PRINT_SIZE(integral_type) \
2861 ((size_t) (2.40824 * sizeof (integral_type)) + 3) 2865 (((2410824 * sizeof (integral_type)) / 1000000) + 3)
2862 void long_to_string (char *, long); 2866 void long_to_string (char *, long);
2863 2867
2864 void print_internal (Lisp_Object, Lisp_Object, int); 2868 void print_internal (Lisp_Object, Lisp_Object, int);
2865 void print_symbol (Lisp_Object, Lisp_Object, int); 2869 void print_symbol (Lisp_Object, Lisp_Object, int);
2866 void print_float (Lisp_Object, Lisp_Object, int); 2870 void print_float (Lisp_Object, Lisp_Object, int);