diff options
author | K. Richard Pixley <rich@cygnus> | 1992-02-15 21:09:34 +0000 |
---|---|---|
committer | K. Richard Pixley <rich@cygnus> | 1992-02-15 21:09:34 +0000 |
commit | a87b3269340cca83c2197909ade48e28023b9cfd (patch) | |
tree | 70aaf742bce3e0cb67d7500523b91108cd3981cd /gas/config/atof-ieee.c | |
parent | 5b3fb530400928638f5a542f9bb8e37d7e4db8a9 (diff) | |
download | gdb-a87b3269340cca83c2197909ade48e28023b9cfd.zip gdb-a87b3269340cca83c2197909ade48e28023b9cfd.tar.gz gdb-a87b3269340cca83c2197909ade48e28023b9cfd.tar.bz2 |
White space and comment changes, and #ifdef __STDC__ becomes #if
__STDC__ == 1.
Diffstat (limited to 'gas/config/atof-ieee.c')
-rw-r--r-- | gas/config/atof-ieee.c | 342 |
1 files changed, 171 insertions, 171 deletions
diff --git a/gas/config/atof-ieee.c b/gas/config/atof-ieee.c index d9bf68b..df98e4c 100644 --- a/gas/config/atof-ieee.c +++ b/gas/config/atof-ieee.c @@ -1,5 +1,5 @@ /* atof_ieee.c - turn a Flonum into an IEEE floating point number - Copyright (C) 1987 Free Software Foundation, Inc. + Copyright (C) 1987, 1992 Free Software Foundation, Inc. This file is part of GAS, the GNU Assembler. @@ -74,8 +74,8 @@ static unsigned long mask [] = { 0x1fffffff, 0x3fffffff, 0x7fffffff, - 0xffffffff - }; + 0xffffffff, +}; static int bits_left_in_littlenum; @@ -84,29 +84,27 @@ static LITTLENUM_TYPE *littlenum_pointer; static int next_bits (number_of_bits) -int number_of_bits; +int number_of_bits; { - int return_value; + int return_value; - if(!littlenums_left) - return 0; - if (number_of_bits >= bits_left_in_littlenum) - { - return_value = mask [bits_left_in_littlenum] & *littlenum_pointer; - number_of_bits -= bits_left_in_littlenum; - return_value <<= number_of_bits; - if(--littlenums_left) { - bits_left_in_littlenum = LITTLENUM_NUMBER_OF_BITS - number_of_bits; - littlenum_pointer --; - return_value |= (*littlenum_pointer>>bits_left_in_littlenum) & mask[number_of_bits]; - } - } - else - { - bits_left_in_littlenum -= number_of_bits; - return_value = mask [number_of_bits] & (*littlenum_pointer>>bits_left_in_littlenum); - } - return (return_value); + if (!littlenums_left) + return(0); + if (number_of_bits >= bits_left_in_littlenum) { + return_value = mask[bits_left_in_littlenum] & *littlenum_pointer; + number_of_bits -= bits_left_in_littlenum; + return_value <<= number_of_bits; + + if (--littlenums_left) { + bits_left_in_littlenum = LITTLENUM_NUMBER_OF_BITS - number_of_bits; + --littlenum_pointer; + return_value |= (*littlenum_pointer >> bits_left_in_littlenum) & mask[number_of_bits]; + } + } else { + bits_left_in_littlenum -= number_of_bits; + return_value = mask[number_of_bits] & (*littlenum_pointer >> bits_left_in_littlenum); + } + return(return_value); } /* Num had better be less than LITTLENUM_NUMBER_OF_BITS */ @@ -114,29 +112,29 @@ static void unget_bits(num) int num; { - if(!littlenums_left) { + if (!littlenums_left) { ++littlenum_pointer; ++littlenums_left; - bits_left_in_littlenum=num; - } else if(bits_left_in_littlenum+num>LITTLENUM_NUMBER_OF_BITS) { - bits_left_in_littlenum= num-(LITTLENUM_NUMBER_OF_BITS-bits_left_in_littlenum); + bits_left_in_littlenum = num; + } else if (bits_left_in_littlenum + num > LITTLENUM_NUMBER_OF_BITS) { + bits_left_in_littlenum = num - (LITTLENUM_NUMBER_OF_BITS - bits_left_in_littlenum); ++littlenum_pointer; ++littlenums_left; } else - bits_left_in_littlenum+=num; + bits_left_in_littlenum += num; } static void - make_invalid_floating_point_number (words) -LITTLENUM_TYPE * words; + make_invalid_floating_point_number(words) +LITTLENUM_TYPE *words; { as_bad("cannot create floating-point number"); - words[0]= ((unsigned)-1)>>1; /* Zero the leftmost bit */ - words[1]= -1; - words[2]= -1; - words[3]= -1; - words[4]= -1; - words[5]= -1; + words[0] = ((unsigned) -1) >> 1; /* Zero the leftmost bit */ + words[1] = -1; + words[2] = -1; + words[3] = -1; + words[4] = -1; + words[5] = -1; } /***********************************************************************\ @@ -151,19 +149,19 @@ LITTLENUM_TYPE * words; them. */ char * /* Return pointer past text consumed. */ - atof_ieee (str, what_kind, words) -char * str; /* Text to convert to binary. */ -char what_kind; /* 'd', 'f', 'g', 'h' */ -LITTLENUM_TYPE * words; /* Build the binary here. */ + atof_ieee(str, what_kind, words) +char *str; /* Text to convert to binary. */ +char what_kind; /* 'd', 'f', 'g', 'h' */ +LITTLENUM_TYPE *words; /* Build the binary here. */ { - static LITTLENUM_TYPE bits [MAX_PRECISION + MAX_PRECISION + GUARD]; + static LITTLENUM_TYPE bits[MAX_PRECISION + MAX_PRECISION + GUARD]; /* Extra bits for zeroed low-order bits. */ /* The 1st MAX_PRECISION are zeroed, */ /* the last contain flonum bits. */ - char * return_value; - int precision; /* Number of 16-bit words in the format. */ - long exponent_bits; - FLONUM_TYPE save_gen_flonum; + char *return_value; + int precision; /* Number of 16-bit words in the format. */ + long exponent_bits; + FLONUM_TYPE save_gen_flonum; /* We have to save the generic_floating_point_number because it contains storage allocation about the array of LITTLENUMs @@ -183,9 +181,9 @@ LITTLENUM_TYPE * words; /* Build the binary here. */ /* necessary: the highest flonum may have */ /* 15 leading 0 bits, so could be useless. */ - bzero (bits, sizeof(LITTLENUM_TYPE) * MAX_PRECISION); + bzero(bits, sizeof(LITTLENUM_TYPE) * MAX_PRECISION); - switch(what_kind) { + switch (what_kind) { case 'f': case 'F': case 's': @@ -214,20 +212,20 @@ LITTLENUM_TYPE * words; /* Build the binary here. */ case 'P': precision = P_PRECISION; - exponent_bits= -1; + exponent_bits = -1; break; default: - make_invalid_floating_point_number (words); - return NULL; + make_invalid_floating_point_number(words); + return(NULL); } generic_floating_point_number.high = generic_floating_point_number.low + precision - 1 + GUARD; - if (atof_generic (& return_value, ".", EXP_CHARS, & generic_floating_point_number)) { + if (atof_generic(&return_value, ".", EXP_CHARS, &generic_floating_point_number)) { /* as_bad("Error converting floating point number (Exponent overflow?)"); */ - make_invalid_floating_point_number (words); - return NULL; + make_invalid_floating_point_number(words); + return(NULL); } gen_to_words(words, precision, exponent_bits); @@ -235,7 +233,7 @@ LITTLENUM_TYPE * words; /* Build the binary here. */ (and everything else). */ generic_floating_point_number = save_gen_flonum; - return return_value; + return(return_value); } /* Turn generic_floating_point_number into a real float/double/extended */ @@ -244,62 +242,62 @@ LITTLENUM_TYPE *words; int precision; long exponent_bits; { - int return_value=0; + int return_value = 0; - long exponent_1; - long exponent_2; - long exponent_3; - long exponent_4; - int exponent_skippage; - LITTLENUM_TYPE word1; - LITTLENUM_TYPE * lp; + long exponent_1; + long exponent_2; + long exponent_3; + long exponent_4; + int exponent_skippage; + LITTLENUM_TYPE word1; + LITTLENUM_TYPE *lp; if (generic_floating_point_number.low > generic_floating_point_number.leader) { /* 0.0e0 seen. */ - if(generic_floating_point_number.sign=='+') - words[0]=0x0000; + if (generic_floating_point_number.sign == '+') + words[0] = 0x0000; else - words[0]=0x8000; - bzero (&words[1], sizeof(LITTLENUM_TYPE) * (precision-1)); - return return_value; + words[0] = 0x8000; + bzero(&words[1], sizeof(LITTLENUM_TYPE) * (precision - 1)); + return(return_value); } /* NaN: Do the right thing */ - if(generic_floating_point_number.sign==0) { - if(precision==F_PRECISION) { - words[0]=0x7fff; - words[1]=0xffff; + if (generic_floating_point_number.sign == 0) { + if (precision == F_PRECISION) { + words[0] = 0x7fff; + words[1] = 0xffff; } else { - words[0]=0x7fff; - words[1]=0xffff; - words[2]=0xffff; - words[3]=0xffff; + words[0] = 0x7fff; + words[1] = 0xffff; + words[2] = 0xffff; + words[3] = 0xffff; } return return_value; - } else if(generic_floating_point_number.sign=='P') { + } else if (generic_floating_point_number.sign == 'P') { /* +INF: Do the right thing */ - if(precision==F_PRECISION) { - words[0]=0x7f80; - words[1]=0; + if (precision == F_PRECISION) { + words[0] = 0x7f80; + words[1] = 0; } else { - words[0]=0x7ff0; - words[1]=0; - words[2]=0; - words[3]=0; + words[0] = 0x7ff0; + words[1] = 0; + words[2] = 0; + words[3] = 0; } - return return_value; - } else if(generic_floating_point_number.sign=='N') { + return(return_value); + } else if (generic_floating_point_number.sign == 'N') { /* Negative INF */ - if(precision==F_PRECISION) { - words[0]=0xff80; - words[1]=0x0; + if (precision == F_PRECISION) { + words[0] = 0xff80; + words[1] = 0x0; } else { - words[0]=0xfff0; - words[1]=0x0; - words[2]=0x0; - words[3]=0x0; + words[0] = 0xfff0; + words[1] = 0x0; + words[2] = 0x0; + words[3] = 0x0; } - return return_value; + return(return_value); } /* * The floating point formats we support have: @@ -313,12 +311,11 @@ long exponent_bits; */ bits_left_in_littlenum = LITTLENUM_NUMBER_OF_BITS; littlenum_pointer = generic_floating_point_number.leader; - littlenums_left = 1+generic_floating_point_number.leader - generic_floating_point_number.low; + littlenums_left = 1 + generic_floating_point_number.leader - generic_floating_point_number.low; /* Seek (and forget) 1st significant bit */ - for (exponent_skippage = 0;! next_bits(1); exponent_skippage ++) - ; - exponent_1 = generic_floating_point_number.exponent + generic_floating_point_number.leader + 1 - - generic_floating_point_number.low; + for (exponent_skippage = 0;! next_bits(1); exponent_skippage ++) ;; + exponent_1 = generic_floating_point_number.exponent + generic_floating_point_number.leader + + 1 - generic_floating_point_number.low; /* Radix LITTLENUM_RADIX, point just higher than generic_floating_point_number.leader. */ exponent_2 = exponent_1 * LITTLENUM_NUMBER_OF_BITS; /* Radix 2. */ @@ -330,84 +327,84 @@ long exponent_bits; lp = words; /* Word 1. Sign, exponent and perhaps high bits. */ - word1 = (generic_floating_point_number.sign == '+') ? 0 : (1<<(LITTLENUM_NUMBER_OF_BITS-1)); + word1 = (generic_floating_point_number.sign == '+') ? 0 : (1 << (LITTLENUM_NUMBER_OF_BITS - 1)); /* Assume 2's complement integers. */ - if(exponent_4<1 && exponent_4>=-62) { + if (exponent_4 < 1 && exponent_4 >= -62) { int prec_bits; int num_bits; unget_bits(1); - num_bits= -exponent_4; - prec_bits=LITTLENUM_NUMBER_OF_BITS*precision-(exponent_bits+1+num_bits); - if(precision==X_PRECISION && exponent_bits==15) - prec_bits-=LITTLENUM_NUMBER_OF_BITS+1; + num_bits = -exponent_4; + prec_bits = LITTLENUM_NUMBER_OF_BITS * precision - (exponent_bits + 1 + num_bits); + if(precision == X_PRECISION && exponent_bits == 15) + prec_bits -= LITTLENUM_NUMBER_OF_BITS + 1; - if(num_bits>=LITTLENUM_NUMBER_OF_BITS-exponent_bits) { + if (num_bits >= LITTLENUM_NUMBER_OF_BITS - exponent_bits) { /* Bigger than one littlenum */ - num_bits-=(LITTLENUM_NUMBER_OF_BITS-1)-exponent_bits; - *lp++=word1; - if(num_bits+exponent_bits+1>=precision*LITTLENUM_NUMBER_OF_BITS) { + num_bits -= (LITTLENUM_NUMBER_OF_BITS - 1) - exponent_bits; + *lp++ = word1; + if (num_bits + exponent_bits + 1 >= precision * LITTLENUM_NUMBER_OF_BITS) { /* Exponent overflow */ make_invalid_floating_point_number(words); - return return_value; + return(return_value); } - if(precision==X_PRECISION && exponent_bits==15) { - *lp++=0; - *lp++=0; - num_bits-=LITTLENUM_NUMBER_OF_BITS-1; + if (precision == X_PRECISION && exponent_bits == 15) { + *lp++ = 0; + *lp++ = 0; + num_bits -= LITTLENUM_NUMBER_OF_BITS - 1; } - while(num_bits>=LITTLENUM_NUMBER_OF_BITS) { - num_bits-=LITTLENUM_NUMBER_OF_BITS; - *lp++=0; + while (num_bits >= LITTLENUM_NUMBER_OF_BITS) { + num_bits -= LITTLENUM_NUMBER_OF_BITS; + *lp++ = 0; } - if(num_bits) - *lp++=next_bits(LITTLENUM_NUMBER_OF_BITS-(num_bits)); + if (num_bits) + *lp++ = next_bits(LITTLENUM_NUMBER_OF_BITS - (num_bits)); } else { - if(precision==X_PRECISION && exponent_bits==15) { - *lp++=word1; - *lp++=0; - if(num_bits==LITTLENUM_NUMBER_OF_BITS) { - *lp++=0; - *lp++=next_bits(LITTLENUM_NUMBER_OF_BITS-1); - } else if(num_bits==LITTLENUM_NUMBER_OF_BITS-1) - *lp++=0; + if (precision == X_PRECISION && exponent_bits == 15) { + *lp++ = word1; + *lp++ = 0; + if (num_bits == LITTLENUM_NUMBER_OF_BITS) { + *lp++ = 0; + *lp++ = next_bits(LITTLENUM_NUMBER_OF_BITS - 1); + } else if (num_bits == LITTLENUM_NUMBER_OF_BITS - 1) + *lp++ = 0; else - *lp++=next_bits(LITTLENUM_NUMBER_OF_BITS-1-num_bits); - num_bits=0; + *lp++ = next_bits(LITTLENUM_NUMBER_OF_BITS - 1 - num_bits); + num_bits = 0; } else { - word1|= next_bits ((LITTLENUM_NUMBER_OF_BITS-1) - (exponent_bits+num_bits)); - *lp++=word1; + word1 |= next_bits((LITTLENUM_NUMBER_OF_BITS - 1) - (exponent_bits + num_bits)); + *lp++ = word1; } } - while(lp<words+precision) - *lp++=next_bits(LITTLENUM_NUMBER_OF_BITS); + while (lp < words + precision) + *lp++ = next_bits(LITTLENUM_NUMBER_OF_BITS); /* Round the mantissa up, but don't change the number */ - if(next_bits(1)) { + if (next_bits(1)) { --lp; - if(prec_bits>LITTLENUM_NUMBER_OF_BITS) { + if (prec_bits > LITTLENUM_NUMBER_OF_BITS) { int n = 0; int tmp_bits; - n=0; - tmp_bits=prec_bits; - while(tmp_bits>LITTLENUM_NUMBER_OF_BITS) { - if(lp[n]!=(LITTLENUM_TYPE)-1) + n = 0; + tmp_bits = prec_bits; + while (tmp_bits > LITTLENUM_NUMBER_OF_BITS) { + if (lp[n] != (LITTLENUM_TYPE) - 1) break; --n; - tmp_bits-=LITTLENUM_NUMBER_OF_BITS; + tmp_bits -= LITTLENUM_NUMBER_OF_BITS; } - if(tmp_bits>LITTLENUM_NUMBER_OF_BITS || (lp[n]&mask[tmp_bits])!=mask[tmp_bits]) { + if (tmp_bits > LITTLENUM_NUMBER_OF_BITS || (lp[n] & mask[tmp_bits]) != mask[tmp_bits]) { unsigned long carry; for (carry = 1; carry && (lp >= words); lp --) { - carry = * lp + carry; - * lp = carry; + carry = *lp + carry; + *lp = carry; carry >>= LITTLENUM_NUMBER_OF_BITS; } } - } else if((*lp&mask[prec_bits])!=mask[prec_bits]) + } else if ((*lp & mask[prec_bits]) != mask[prec_bits]) lp++; } @@ -425,25 +422,25 @@ long exponent_bits; make_invalid_floating_point_number (words); return return_value; } else { - word1 |= (exponent_4 << ((LITTLENUM_NUMBER_OF_BITS-1) - exponent_bits)) - | next_bits ((LITTLENUM_NUMBER_OF_BITS-1) - exponent_bits); + word1 |= (exponent_4 << ((LITTLENUM_NUMBER_OF_BITS - 1) - exponent_bits)) + | next_bits ((LITTLENUM_NUMBER_OF_BITS - 1) - exponent_bits); } - * lp ++ = word1; + *lp++ = word1; /* X_PRECISION is special: it has 16 bits of zero in the middle, followed by a 1 bit. */ - if(exponent_bits==15 && precision==X_PRECISION) { - *lp++=0; - *lp++= 1<<(LITTLENUM_NUMBER_OF_BITS)|next_bits(LITTLENUM_NUMBER_OF_BITS-1); + if (exponent_bits == 15 && precision == X_PRECISION) { + *lp++ = 0; + *lp++ = 1 << (LITTLENUM_NUMBER_OF_BITS) | next_bits(LITTLENUM_NUMBER_OF_BITS - 1); } /* The rest of the words are just mantissa bits. */ while(lp < words + precision) - *lp++ = next_bits (LITTLENUM_NUMBER_OF_BITS); + *lp++ = next_bits(LITTLENUM_NUMBER_OF_BITS); - if (next_bits (1)) { - unsigned long carry; + if (next_bits(1)) { + unsigned long carry; /* * Since the NEXT bit is a 1, round UP the mantissa. * The cunning design of these hidden-1 floats permits @@ -453,7 +450,6 @@ long exponent_bits; * Is that clear? */ - /* #if (sizeof(carry)) < ((sizeof(bits[0]) * BITS_PER_CHAR) + 2) Please allow at least 1 more bit in carry than is in a LITTLENUM. We need that extra bit to hold a carry during a LITTLENUM carry @@ -461,17 +457,17 @@ long exponent_bits; don't get a sticky sign bit after shifting right, and that permits us to propagate the carry without any masking of bits. #endif */ - for (carry = 1, lp --; carry && (lp >= words); lp --) { - carry = * lp + carry; - * lp = carry; + for (carry = 1, lp--; carry && (lp >= words); lp--) { + carry = *lp + carry; + *lp = carry; carry >>= LITTLENUM_NUMBER_OF_BITS; } - if ( (word1 ^ *words) & (1 << (LITTLENUM_NUMBER_OF_BITS - 1)) ) { + if ((word1 ^ *words) & (1 << (LITTLENUM_NUMBER_OF_BITS - 1))) { /* We leave return_value alone: admit we read the * number, but return a floating exception * because we can't encode the number. */ - *words&= ~ (1 << (LITTLENUM_NUMBER_OF_BITS - 1)); + *words &= ~(1 << (LITTLENUM_NUMBER_OF_BITS - 1)); /* make_invalid_floating_point_number (words); */ /* return return_value; */ } @@ -491,8 +487,8 @@ long x; char *bufp; sprintf(buf,"%ld",x); - bufp= &buf[0]; - if(atof_generic(&bufp,".", EXP_CHARS, &generic_floating_point_number)) + bufp = &buf[0]; + if (atof_generic(&bufp, ".", EXP_CHARS, &generic_floating_point_number)) as_bad("Error converting number to floating point (Exponent overflow?)"); } @@ -507,19 +503,23 @@ FLONUM_TYPE *gen; float fv; static char sbuf[40]; - if(gen) { - f=generic_floating_point_number; - generic_floating_point_number= *gen; + if (gen) { + f = generic_floating_point_number; + generic_floating_point_number = *gen; } - gen_to_words(&arr[0],4,11); - bcopy(&arr[0],&dv,sizeof(double)); - sprintf(sbuf,"%x %x %x %x %.14G ",arr[0],arr[1],arr[2],arr[3],dv); + gen_to_words(&arr[0], 4, 11); + bcopy(&arr[0], &dv, sizeof(double)); + sprintf(sbuf, "%x %x %x %x %.14G ", arr[0], arr[1], arr[2], arr[3], dv); gen_to_words(&arr[0],2,8); bcopy(&arr[0],&fv,sizeof(float)); - sprintf(sbuf+strlen(sbuf),"%x %x %.12g\n",arr[0],arr[1],fv); - if(gen) - generic_floating_point_number=f; - return sbuf; + sprintf(sbuf + strlen(sbuf), "%x %x %.12g\n", arr[0], arr[1], + fv); + + if (gen) { + generic_floating_point_number = f; + } + + return(sbuf); } #endif |