Thu Mar 14 15:20:45 1996 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de>
authorroland <roland>
Sat, 16 Mar 1996 21:29:45 +0000 (21:29 +0000)
committerroland <roland>
Sat, 16 Mar 1996 21:29:45 +0000 (21:29 +0000)
* sysdeps/libm-ieee754/e_atan2.c (__ieee754_atan2): Change atan
call to __atan.
* sysdeps/libm-ieee754/e_atan2f.c (__ieee754_atan2f): Change atanf
  call to __atanf.

sysdeps/libm-ieee754/e_atan2.c
sysdeps/libm-ieee754/e_atan2f.c

index 920cfaf..4bf5f57 100644 (file)
@@ -74,7 +74,7 @@ pi_lo   = 1.2246467991473531772E-16; /* 0x3CA1A626, 0x33145C07 */
        if(((ix|((lx|-lx)>>31))>0x7ff00000)||
           ((iy|((ly|-ly)>>31))>0x7ff00000))    /* x or y is NaN */
           return x+y;
-       if((hx-0x3ff00000|lx)==0) return atan(y);   /* x=1.0 */
+       if((hx-0x3ff00000|lx)==0) return __atan(y);   /* x=1.0 */
        m = ((hy>>31)&1)|((hx>>30)&2);  /* 2*sign(x)+sign(y) */
 
     /* when y = 0 */
@@ -114,7 +114,7 @@ pi_lo   = 1.2246467991473531772E-16; /* 0x3CA1A626, 0x33145C07 */
        k = (iy-ix)>>20;
        if(k > 60) z=pi_o_2+0.5*pi_lo;  /* |y/x| >  2**60 */
        else if(hx<0&&k<-60) z=0.0;     /* |y|/x < -2**60 */
-       else z=atan(fabs(y/x));         /* safe to do y/x */
+       else z=__atan(fabs(y/x));       /* safe to do y/x */
        switch (m) {
            case 0: return       z  ;   /* atan(+,+) */
            case 1: {
index c1f8d22..437975f 100644 (file)
@@ -49,7 +49,7 @@ pi_lo   = 1.5099578832e-07; /* 0x34222168 */
        if((ix>0x7f800000)||
           (iy>0x7f800000))     /* x or y is NaN */
           return x+y;
-       if(hx==0x3f800000) return atanf(y);   /* x=1.0 */
+       if(hx==0x3f800000) return __atanf(y);   /* x=1.0 */
        m = ((hy>>31)&1)|((hx>>30)&2);  /* 2*sign(x)+sign(y) */
 
     /* when y = 0 */
@@ -89,7 +89,7 @@ pi_lo   = 1.5099578832e-07; /* 0x34222168 */
        k = (iy-ix)>>23;
        if(k > 60) z=pi_o_2+(float)0.5*pi_lo;   /* |y/x| >  2**60 */
        else if(hx<0&&k<-60) z=0.0;     /* |y|/x < -2**60 */
-       else z=atanf(fabsf(y/x));       /* safe to do y/x */
+       else z=__atanf(fabsf(y/x));     /* safe to do y/x */
        switch (m) {
            case 0: return       z  ;   /* atan(+,+) */
            case 1: {