Mercurial > hg > xemacs-beta

comparison src/data.c @ 603:1c880911c386

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 55e998c311f5
children 023b83f4e54b
comparison
equal deleted inserted replaced
602:b9f1a2e84ead 603:1c880911c386
1011 Uses a minus sign if negative. 1011 Uses a minus sign if negative.
1012 NUMBER may be an integer or a floating point number. 1012 NUMBER may be an integer or a floating point number.
1013 */ 1013 */
1014 (number)) 1014 (number))
1015 { 1015 {
1016 char buffer[VALBITS];
1017
1018 CHECK_INT_OR_FLOAT (number); 1016 CHECK_INT_OR_FLOAT (number);
1019 1017
1020 #ifdef LISP_FLOAT_TYPE 1018 #ifdef LISP_FLOAT_TYPE
1021 if (FLOATP (number)) 1019 if (FLOATP (number))
1022 { 1020 {
1025 float_to_string (pigbuf, XFLOAT_DATA (number)); 1023 float_to_string (pigbuf, XFLOAT_DATA (number));
1026 return build_string (pigbuf); 1024 return build_string (pigbuf);
1027 } 1025 }
1028 #endif /* LISP_FLOAT_TYPE */ 1026 #endif /* LISP_FLOAT_TYPE */
1029 1027
1030 long_to_string (buffer, XINT (number)); 1028 {
1031 return build_string (buffer); 1029 char buffer[DECIMAL_PRINT_SIZE (long)];
1030
1031 long_to_string (buffer, XINT (number));
1032 return build_string (buffer);
1033 }
1032 } 1034 }
1033 1035
1034 static int 1036 static int
1035 digit_to_number (int character, int base) 1037 digit_to_number (int character, int base)
1036 { 1038 {