Tue Mar 12 03:15:02 1996 Roland McGrath <roland@charlie-brown.gnu.ai.mit.edu>
authorroland <roland>
Tue, 12 Mar 1996 08:56:07 +0000 (08:56 +0000)
committerroland <roland>
Tue, 12 Mar 1996 08:56:07 +0000 (08:56 +0000)
* sysdeps/libm-ieee754/s_scalbn.c (scalbn): Rename to __scalbn;
somehow this was missed, though the weak alias is already there.

sysdeps/libm-ieee754/s_scalbn.c

index 835f00e..6efaec0 100644 (file)
@@ -5,7 +5,7 @@
  *
  * Developed at SunPro, a Sun Microsystems, Inc. business.
  * Permission to use, copy, modify, and distribute this
- * software is freely granted, provided that this notice 
+ * software is freely granted, provided that this notice
  * is preserved.
  * ====================================================
  */
 static char rcsid[] = "$NetBSD: s_scalbn.c,v 1.8 1995/05/10 20:48:08 jtc Exp $";
 #endif
 
-/* 
+/*
  * scalbn (double x, int n)
- * scalbn(x,n) returns x* 2**n  computed by  exponent  
- * manipulation rather than by actually performing an 
+ * scalbn(x,n) returns x* 2**n  computed by  exponent
+ * manipulation rather than by actually performing an
  * exponentiation or a multiplication.
  */
 
@@ -35,9 +35,9 @@ huge   = 1.0e+300,
 tiny   = 1.0e-300;
 
 #ifdef __STDC__
-       double scalbn (double x, int n)
+       double __scalbn (double x, int n)
 #else
-       double scalbn (x,n)
+       double __scalbn (x,n)
        double x; int n;
 #endif
 {
@@ -46,20 +46,20 @@ tiny   = 1.0e-300;
         k = (hx&0x7ff00000)>>20;               /* extract exponent */
         if (k==0) {                            /* 0 or subnormal x */
             if ((lx|(hx&0x7fffffff))==0) return x; /* +-0 */
-           x *= two54; 
+           x *= two54;
            GET_HIGH_WORD(hx,x);
-           k = ((hx&0x7ff00000)>>20) - 54; 
+           k = ((hx&0x7ff00000)>>20) - 54;
             if (n< -50000) return tiny*x;      /*underflow*/
            }
         if (k==0x7ff) return x+x;              /* NaN or Inf */
-        k = k+n; 
-        if (k >  0x7fe) return huge*copysign(huge,x); /* overflow  */
+        k = k+n;
+        if (k >  0x7fe) return huge*__copysign(huge,x); /* overflow  */
         if (k > 0)                             /* normal result */
            {SET_HIGH_WORD(x,(hx&0x800fffff)|(k<<20)); return x;}
         if (k <= -54)
             if (n > 50000)     /* in case integer overflow in n+k */
-               return huge*copysign(huge,x);   /*overflow*/
-           else return tiny*copysign(tiny,x);  /*underflow*/
+               return huge*__copysign(huge,x); /*overflow*/
+           else return tiny*__copysign(tiny,x);        /*underflow*/
         k += 54;                               /* subnormal result */
        SET_HIGH_WORD(x,(hx&0x800fffff)|(k<<20));
         return x*twom54;