src/libm/s_scalbn.c
changeset 7678 286c42d7c5ed
parent 6044 35448a5ea044
child 11683 48bcba563d9c
     1.1 --- a/src/libm/s_scalbn.c	Wed Aug 21 09:43:09 2013 -0300
     1.2 +++ b/src/libm/s_scalbn.c	Wed Aug 21 09:47:10 2013 -0300
     1.3 @@ -54,7 +54,7 @@
     1.4          GET_HIGH_WORD(hx, x);
     1.5          k = ((hx & 0x7ff00000) >> 20) - 54;
     1.6          if (n < -50000)
     1.7 -            return tiny * x;    /*underflow */
     1.8 +            return tiny * x;    /* underflow */
     1.9      }
    1.10      if (k == 0x7ff)
    1.11          return x + x;           /* NaN or Inf */
    1.12 @@ -67,9 +67,9 @@
    1.13      }
    1.14      if (k <= -54) {
    1.15          if (n > 50000)          /* in case integer overflow in n+k */
    1.16 -            return huge_val * copysign(huge_val, x);    /*overflow */
    1.17 +            return huge_val * copysign(huge_val, x);    /* overflow */
    1.18          else
    1.19 -            return tiny * copysign(tiny, x);    /*underflow */
    1.20 +            return tiny * copysign(tiny, x);    /* underflow */
    1.21      }
    1.22      k += 54;                    /* subnormal result */
    1.23      SET_HIGH_WORD(x, (hx & 0x800fffff) | (k << 20));