src/libm/s_scalbn.c
changeset 3337 9ac6f0782dd6
parent 3162 dc1eb82ffdaa
child 6044 35448a5ea044
     1.1 --- a/src/libm/s_scalbn.c	Sun Oct 04 09:18:48 2009 +0000
     1.2 +++ b/src/libm/s_scalbn.c	Sun Oct 04 09:51:04 2009 +0000
     1.3 @@ -33,7 +33,7 @@
     1.4  #endif
     1.5         two54 = 1.80143985094819840000e+16,      /* 0x43500000, 0x00000000 */
     1.6           twom54 = 5.55111512312578270212e-17,   /* 0x3C900000, 0x00000000 */
     1.7 -         huge = 1.0e+300, tiny = 1.0e-300;
     1.8 +         huge_val = 1.0e+300, tiny = 1.0e-300;
     1.9  
    1.10  libm_hidden_proto(scalbn)
    1.11  #ifdef __STDC__
    1.12 @@ -60,14 +60,14 @@
    1.13          return x + x;           /* NaN or Inf */
    1.14      k = k + n;
    1.15      if (k > 0x7fe)
    1.16 -        return huge * copysign(huge, x);        /* overflow  */
    1.17 +        return huge_val * copysign(huge_val, x);        /* overflow  */
    1.18      if (k > 0) {                /* normal result */
    1.19          SET_HIGH_WORD(x, (hx & 0x800fffff) | (k << 20));
    1.20          return x;
    1.21      }
    1.22      if (k <= -54) {
    1.23          if (n > 50000)          /* in case integer overflow in n+k */
    1.24 -            return huge * copysign(huge, x);    /*overflow */
    1.25 +            return huge_val * copysign(huge_val, x);    /*overflow */
    1.26          else
    1.27              return tiny * copysign(tiny, x);    /*underflow */
    1.28      }