libm/s_scalbn.c

   1 /*
   2  * ====================================================
   3  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
   4  *
   5  * Developed at SunPro, a Sun Microsystems, Inc. business.
   6  * Permission to use, copy, modify, and distribute this
   7  * software is freely granted, provided that this notice
   8  * is preserved.
   9  * ====================================================
  10  */
  11
  12 /*
  13  * scalbln(double x, long n)
  14  * scalbln(x,n) returns x * 2**n computed by exponent
  15  * manipulation rather than by actually performing an
  16  * exponentiation or a multiplication.
  17  */
  18
  19 #include "math.h"
  20 #include "math_private.h"
  21
  22 static const double
  23 two54  = 1.80143985094819840000e+16, /* 0x43500000, 0x00000000 */
  24 twom54 = 5.55111512312578270212e-17, /* 0x3C900000, 0x00000000 */
  25 huge   = 1.0e+300,
  26 tiny   = 1.0e-300;
  27
  28 double scalbln(double x, long n)
  29 {
  30         int32_t k, hx, lx;
  31
  32         EXTRACT_WORDS(hx, lx, x);
  33         k = (hx & 0x7ff00000) >> 20; /* extract exponent */
  34         if (k == 0) { /* 0 or subnormal x */
  35                 if ((lx | (hx & 0x7fffffff)) == 0)
  36                         return x; /* +-0 */
  37                 x *= two54;
  38                 GET_HIGH_WORD(hx, x);
  39                 k = ((hx & 0x7ff00000) >> 20) - 54;
  40         }
  41         if (k == 0x7ff)
  42                 return x + x; /* NaN or Inf */
  43         k = k + n;
  44         if (k > 0x7fe)
  45                 return huge * copysign(huge, x); /* overflow */
  46         if (n < -50000)
  47                 return tiny * copysign(tiny, x); /* underflow */
  48         if (k > 0) { /* normal result */
  49                 SET_HIGH_WORD(x, (hx & 0x800fffff) | (k << 20));
  50                 return x;
  51         }
  52         if (k <= -54) {
  53                 if (n > 50000) /* in case integer overflow in n+k */
  54                         return huge * copysign(huge, x); /* overflow */
  55                 return tiny * copysign(tiny, x); /* underflow */
  56         }
  57         k += 54; /* subnormal result */
  58         SET_HIGH_WORD(x, (hx & 0x800fffff) | (k << 20));
  59         return x * twom54;
  60 }
  61 libm_hidden_def(scalbln)
  62
  63 #if LONG_MAX == INT_MAX
  64 /* strong_alias(scalbln, scalbn) - "error: conflicting types for 'scalbn'"
  65  * because it tries to declare "typeof(scalbln) scalbn;"
  66  * which tries to give "long" parameter to scalbn.
  67  * Doing it by hand:
  68  */
  69 __typeof(scalbn) scalbn __attribute__((alias("scalbln")));
  70 #else
  71 double scalbn(double x, int n)
  72 {
  73         return scalbn(x, n);
  74 }
  75 #endif
  76 libm_hidden_def(scalbn)