diff options
Diffstat (limited to 'sysdeps/libm-ieee754/s_catanhl.c')
| -rw-r--r-- | sysdeps/libm-ieee754/s_catanhl.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/sysdeps/libm-ieee754/s_catanhl.c b/sysdeps/libm-ieee754/s_catanhl.c index 6937996..22f3d4b 100644 --- a/sysdeps/libm-ieee754/s_catanhl.c +++ b/sysdeps/libm-ieee754/s_catanhl.c @@ -1,5 +1,5 @@ /* Return arc hyperbole tangent for long double value. - Copyright (C) 1997 Free Software Foundation, Inc. + Copyright (C) 1997, 1998 Free Software Foundation, Inc. This file is part of the GNU C Library. Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. @@ -36,13 +36,13 @@ __catanhl (__complex__ long double x) if (icls == FP_INFINITE) { __real__ res = __copysignl (0.0, __real__ x); - __imag__ res = __copysignl (M_PI_2, __imag__ x); + __imag__ res = __copysignl (M_PI_2l, __imag__ x); } else if (rcls == FP_INFINITE || rcls == FP_ZERO) { __real__ res = __copysignl (0.0, __real__ x); if (icls >= FP_ZERO) - __imag__ res = __copysignl (M_PI_2, __imag__ x); + __imag__ res = __copysignl (M_PI_2l, __imag__ x); else __imag__ res = __nanl (""); } |