yggdrasil/binutils-gdb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

2000-09-07 Kazu Hirata <kazu@hxi.com>

Browse Source 
* atof-generic.c: Fix formatting.
This commit is contained in:
Kazu Hirata 2000-09-07 21:04:26 +00:00
parent e13b337af5
commit e49bc11ea5
2 changed files with 27 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gas/ChangeLog
View File

@ -1,6 +1,7 @@
2000-09-07 Kazu Hirata <kazu@hxi.com> 2000-09-07 Kazu Hirata <kazu@hxi.com>
* config/tc-mips.c: Fix formatting. * atof-generic.c: Fix formatting.
* config/tc-mips.c: Likewise.
* config/tc-vax.c: Likewise. * config/tc-vax.c: Likewise.
* input-scrub.c: Likewise. * input-scrub.c: Likewise.

52
gas/atof-generic.c
View File

@ -1,5 +1,5 @@
/* atof_generic.c - turn a string of digits into a Flonum /* atof_generic.c - turn a string of digits into a Flonum
Copyright (C) 1987, 90, 91, 92, 93, 94, 95, 96, 1998 Copyright (C) 1987, 90, 91, 92, 93, 94, 95, 96, 98, 2000
Free Software Foundation, Inc. Free Software Foundation, Inc.
This file is part of GAS, the GNU Assembler. This file is part of GAS, the GNU Assembler.
@ -15,8 +15,9 @@
GNU General Public License for more details. GNU General Public License for more details.
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with GAS; see the file COPYING. If not, write to along with GAS; see the file COPYING. If not, write to the Free
the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
02111-1307, USA. */
#include <ctype.h> #include <ctype.h>
#include <string.h> #include <string.h>
@ -78,14 +79,14 @@ atof_generic (address_of_string_pointer,
string_of_decimal_marks, string_of_decimal_marks,
string_of_decimal_exponent_marks, string_of_decimal_exponent_marks,
address_of_generic_floating_point_number) address_of_generic_floating_point_number)
/* return pointer to just AFTER number we read. */ /* return pointer to just AFTER number we read. */
char **address_of_string_pointer; char **address_of_string_pointer;
/* At most one per number. */ /* At most one per number. */
const char *string_of_decimal_marks; const char *string_of_decimal_marks;
const char *string_of_decimal_exponent_marks; const char *string_of_decimal_exponent_marks;
FLONUM_TYPE *address_of_generic_floating_point_number; FLONUM_TYPE *address_of_generic_floating_point_number;
{ {
int return_value; /* 0 means OK. */ int return_value; /* 0 means OK. */
char *first_digit; char *first_digit;
unsigned int number_of_digits_before_decimal; unsigned int number_of_digits_before_decimal;
unsigned int number_of_digits_after_decimal; unsigned int number_of_digits_after_decimal;
@ -184,9 +185,9 @@ atof_generic (address_of_string_pointer,
} }
else else
{ {
break; /* p -> char after pre-decimal digits. */ break; /* p -> char after pre-decimal digits. */
} }
} /* For each digit before decimal mark. */ } /* For each digit before decimal mark. */
#ifndef OLD_FLOAT_READS #ifndef OLD_FLOAT_READS
/* Ignore trailing 0's after the decimal point. The original code here /* Ignore trailing 0's after the decimal point. The original code here
@ -222,7 +223,7 @@ atof_generic (address_of_string_pointer,
{ {
if (isdigit ((unsigned char) c)) if (isdigit ((unsigned char) c))
{ {
/* This may be retracted below. */ /* This may be retracted below. */
number_of_digits_after_decimal++; number_of_digits_after_decimal++;
if ( /* seen_significant_digit || */ c > '0') if ( /* seen_significant_digit || */ c > '0')
@ -238,7 +239,7 @@ atof_generic (address_of_string_pointer,
} }
break; break;
} }
} /* For each digit after decimal mark. */ } /* For each digit after decimal mark. */
} }
while (number_of_digits_after_decimal while (number_of_digits_after_decimal
@ -295,8 +296,6 @@ atof_generic (address_of_string_pointer,
*address_of_string_pointer = p; *address_of_string_pointer = p;
number_of_digits_available = number_of_digits_available =
number_of_digits_before_decimal + number_of_digits_after_decimal; number_of_digits_before_decimal + number_of_digits_after_decimal;
return_value = 0; return_value = 0;
@ -311,7 +310,7 @@ atof_generic (address_of_string_pointer,
} }
else else
{ {
int count; /* Number of useful digits left to scan. */ int count; /* Number of useful digits left to scan. */
LITTLENUM_TYPE *digits_binary_low; LITTLENUM_TYPE *digits_binary_low;
unsigned int precision; unsigned int precision;
@ -326,7 +325,7 @@ atof_generic (address_of_string_pointer,
precision = (address_of_generic_floating_point_number->high precision = (address_of_generic_floating_point_number->high
- address_of_generic_floating_point_number->low - address_of_generic_floating_point_number->low
+ 1); /* Number of destination littlenums. */ + 1); /* Number of destination littlenums. */
/* Includes guard bits (two littlenums worth) */ /* Includes guard bits (two littlenums worth) */
#if 0 /* The integer version below is very close, and it doesn't #if 0 /* The integer version below is very close, and it doesn't
@ -335,12 +334,12 @@ atof_generic (address_of_string_pointer,
maximum_useful_digits = (((double) (precision - 2)) maximum_useful_digits = (((double) (precision - 2))
* ((double) (LITTLENUM_NUMBER_OF_BITS)) * ((double) (LITTLENUM_NUMBER_OF_BITS))
/ (LOG_TO_BASE_2_OF_10)) / (LOG_TO_BASE_2_OF_10))
+ 2; /* 2 :: guard digits. */ + 2; /* 2 :: guard digits. */
#else #else
maximum_useful_digits = (((precision - 2)) maximum_useful_digits = (((precision - 2))
* ( (LITTLENUM_NUMBER_OF_BITS)) * ( (LITTLENUM_NUMBER_OF_BITS))
* 1000000 / 3321928) * 1000000 / 3321928)
+ 2; /* 2 :: guard digits. */ + 2; /* 2 :: guard digits. */
#endif #endif
if (number_of_digits_available > maximum_useful_digits) if (number_of_digits_available > maximum_useful_digits)
@ -388,7 +387,7 @@ atof_generic (address_of_string_pointer,
memset ((char *) digits_binary_low, '\0', size_of_digits_in_chars); memset ((char *) digits_binary_low, '\0', size_of_digits_in_chars);
/* Digits_binary_low[] is allocated and zeroed. */ /* Digits_binary_low[] is allocated and zeroed. */
/* /*
* Parse the decimal digits as if * digits_low was in the units position. * Parse the decimal digits as if * digits_low was in the units position.
@ -440,11 +439,10 @@ atof_generic (address_of_string_pointer,
} }
else else
{ {
++count; /* '.' doesn't alter digits used count. */ ++count; /* '.' doesn't alter digits used count. */
} }
} }
/* /*
* Digits_binary_low[] properly encodes the value of the digits. * Digits_binary_low[] properly encodes the value of the digits.
* Forget about any high-order littlenums that are 0. * Forget about any high-order littlenums that are 0.
@ -480,7 +478,7 @@ atof_generic (address_of_string_pointer,
LITTLENUM_TYPE *power_binary_low; LITTLENUM_TYPE *power_binary_low;
int decimal_exponent_is_negative; int decimal_exponent_is_negative;
/* This refers to the "-56" in "12.34E-56". */ /* This refers to the "-56" in "12.34E-56". */
/* FALSE: decimal_exponent is positive (or 0) */ /* FALSE: decimal_exponent is positive (or 0) */
/* TRUE: decimal_exponent is negative */ /* TRUE: decimal_exponent is negative */
FLONUM_TYPE temporary_flonum; FLONUM_TYPE temporary_flonum;
@ -489,7 +487,7 @@ atof_generic (address_of_string_pointer,
unsigned int size_of_power_in_chars; unsigned int size_of_power_in_chars;
size_of_power_in_littlenums = precision; size_of_power_in_littlenums = precision;
/* Precision has a built-in fudge factor so we get a few guard bits. */ /* Precision has a built-in fudge factor so we get a few guard bits. */
decimal_exponent_is_negative = decimal_exponent < 0; decimal_exponent_is_negative = decimal_exponent < 0;
if (decimal_exponent_is_negative) if (decimal_exponent_is_negative)
@ -497,7 +495,7 @@ atof_generic (address_of_string_pointer,
decimal_exponent = -decimal_exponent; decimal_exponent = -decimal_exponent;
} }
/* From now on: the decimal exponent is > 0. Its sign is separate. */ /* From now on: the decimal exponent is > 0. Its sign is separate. */
size_of_power_in_chars = size_of_power_in_littlenums size_of_power_in_chars = size_of_power_in_littlenums
* sizeof (LITTLENUM_TYPE) + 2; * sizeof (LITTLENUM_TYPE) + 2;
@ -530,7 +528,7 @@ atof_generic (address_of_string_pointer,
int place_number_limit; int place_number_limit;
/* Any 10^(2^n) whose "n" exceeds this */ /* Any 10^(2^n) whose "n" exceeds this */
/* value will fall off the end of */ /* value will fall off the end of */
/* flonum_XXXX_powers_of_ten[]. */ /* flonum_XXXX_powers_of_ten[]. */
int place_number; int place_number;
const FLONUM_TYPE *multiplicand; /* -> 10^(2^n) */ const FLONUM_TYPE *multiplicand; /* -> 10^(2^n) */
@ -540,8 +538,8 @@ atof_generic (address_of_string_pointer,
? flonum_negative_powers_of_ten ? flonum_negative_powers_of_ten
: flonum_positive_powers_of_ten); : flonum_positive_powers_of_ten);
for (place_number = 1;/* Place value of this bit of exponent. */ for (place_number = 1;/* Place value of this bit of exponent. */
decimal_exponent;/* Quit when no more 1 bits in exponent. */ decimal_exponent;/* Quit when no more 1 bits in exponent. */
decimal_exponent >>= 1, place_number++) decimal_exponent >>= 1, place_number++)
{ {
if (decimal_exponent & 1) if (decimal_exponent & 1)
@ -586,7 +584,7 @@ atof_generic (address_of_string_pointer,
(void) putchar ('\n'); (void) putchar ('\n');
#endif #endif
} /* If this bit of decimal_exponent was computable.*/ } /* If this bit of decimal_exponent was computable.*/
} /* If this bit of decimal_exponent was set. */ } /* If this bit of decimal_exponent was set. */
} /* For each bit of binary representation of exponent */ } /* For each bit of binary representation of exponent */
#ifdef TRACE #ifdef TRACE
printf ("after computing power_of_10_flonum:\n"); printf ("after computing power_of_10_flonum:\n");
@ -605,7 +603,7 @@ atof_generic (address_of_string_pointer,
*/ */
flonum_multip (&power_of_10_flonum, &digits_flonum, address_of_generic_floating_point_number); flonum_multip (&power_of_10_flonum, &digits_flonum, address_of_generic_floating_point_number);
/* Assert sign of the number we made is '+'. */ /* Assert sign of the number we made is '+'. */
address_of_generic_floating_point_number->sign = digits_sign_char; address_of_generic_floating_point_number->sign = digits_sign_char;
} }