summaryrefslogtreecommitdiff
path: root/sysdeps/libm-ieee754
diff options
context:
space:
mode:
Diffstat (limited to 'sysdeps/libm-ieee754')
-rw-r--r--sysdeps/libm-ieee754/s_cacoshl.c10
-rw-r--r--sysdeps/libm-ieee754/s_cacosl.c4
-rw-r--r--sysdeps/libm-ieee754/s_casinhl.c4
-rw-r--r--sysdeps/libm-ieee754/s_catanhl.c6
-rw-r--r--sysdeps/libm-ieee754/s_catanl.c6
-rw-r--r--sysdeps/libm-ieee754/s_clog10l.c6
-rw-r--r--sysdeps/libm-ieee754/s_clogl.c4
7 files changed, 20 insertions, 20 deletions
diff --git a/sysdeps/libm-ieee754/s_cacoshl.c b/sysdeps/libm-ieee754/s_cacoshl.c
index ed5980c551..1c91e93fab 100644
--- a/sysdeps/libm-ieee754/s_cacoshl.c
+++ b/sysdeps/libm-ieee754/s_cacoshl.c
@@ -1,5 +1,5 @@
/* Return arc hyperbole cosine 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.
@@ -40,15 +40,15 @@ __cacoshl (__complex__ long double x)
else
__imag__ res = __copysignl ((rcls == FP_INFINITE
? (__real__ x < 0.0
- ? M_PI - M_PI_4 : M_PI_4)
- : M_PI_2), __imag__ x);
+ ? M_PIl - M_PI_4l : M_PI_4l)
+ : M_PI_2l), __imag__ x);
}
else if (rcls == FP_INFINITE)
{
__real__ res = HUGE_VALL;
if (icls >= FP_ZERO)
- __imag__ res = __copysignl (signbit (__real__ x) ? M_PI : 0.0,
+ __imag__ res = __copysignl (signbit (__real__ x) ? M_PIl : 0.0,
__imag__ x);
else
__imag__ res = __nanl ("");
@@ -62,7 +62,7 @@ __cacoshl (__complex__ long double x)
else if (rcls == FP_ZERO && icls == FP_ZERO)
{
__real__ res = 0.0;
- __imag__ res = __copysignl (M_PI_2, __imag__ x);
+ __imag__ res = __copysignl (M_PI_2l, __imag__ x);
}
else
{
diff --git a/sysdeps/libm-ieee754/s_cacosl.c b/sysdeps/libm-ieee754/s_cacosl.c
index 7a60de5a50..40ad812aa1 100644
--- a/sysdeps/libm-ieee754/s_cacosl.c
+++ b/sysdeps/libm-ieee754/s_cacosl.c
@@ -1,5 +1,5 @@
/* Return cosine of complex 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.
@@ -29,7 +29,7 @@ __cacosl (__complex__ long double x)
y = __casinl (x);
- __real__ res = M_PI_2 - __real__ y;
+ __real__ res = M_PI_2l - __real__ y;
__imag__ res = -__imag__ y;
return res;
diff --git a/sysdeps/libm-ieee754/s_casinhl.c b/sysdeps/libm-ieee754/s_casinhl.c
index cc6757b189..44e07f773f 100644
--- a/sysdeps/libm-ieee754/s_casinhl.c
+++ b/sysdeps/libm-ieee754/s_casinhl.c
@@ -1,5 +1,5 @@
/* Return arc hyperbole sine 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.
@@ -38,7 +38,7 @@ __casinhl (__complex__ long double x)
if (rcls == FP_NAN)
__imag__ res = __nanl ("");
else
- __imag__ res = __copysignl (rcls >= FP_ZERO ? M_PI_2 : M_PI_4,
+ __imag__ res = __copysignl (rcls >= FP_ZERO ? M_PI_2l : M_PI_4l,
__imag__ x);
}
else if (rcls <= FP_INFINITE)
diff --git a/sysdeps/libm-ieee754/s_catanhl.c b/sysdeps/libm-ieee754/s_catanhl.c
index 693799639a..22f3d4b646 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 ("");
}
diff --git a/sysdeps/libm-ieee754/s_catanl.c b/sysdeps/libm-ieee754/s_catanl.c
index 1da7c6c008..b7df5c39c2 100644
--- a/sysdeps/libm-ieee754/s_catanl.c
+++ b/sysdeps/libm-ieee754/s_catanl.c
@@ -1,5 +1,5 @@
/* Return arc tangent of complex 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.
@@ -35,13 +35,13 @@ __catanl (__complex__ long double x)
{
if (rcls == FP_INFINITE)
{
- __real__ res = __copysignl (M_PI_2, __real__ x);
+ __real__ res = __copysignl (M_PI_2l, __real__ x);
__imag__ res = __copysignl (0.0, __imag__ x);
}
else if (icls == FP_INFINITE)
{
if (rcls >= FP_ZERO)
- __real__ res = __copysignl (M_PI_2, __real__ x);
+ __real__ res = __copysignl (M_PI_2l, __real__ x);
else
__real__ res = __nanl ("");
__imag__ res = __copysignl (0.0, __imag__ x);
diff --git a/sysdeps/libm-ieee754/s_clog10l.c b/sysdeps/libm-ieee754/s_clog10l.c
index 70940f6863..186eba25cd 100644
--- a/sysdeps/libm-ieee754/s_clog10l.c
+++ b/sysdeps/libm-ieee754/s_clog10l.c
@@ -1,5 +1,5 @@
/* Compute complex base 10 logarithm.
- 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.
@@ -34,7 +34,7 @@ __clog10l (__complex__ long double x)
if (rcls == FP_ZERO && icls == FP_ZERO)
{
/* Real and imaginary part are 0.0. */
- __imag__ result = signbit (__real__ x) ? M_PI : 0.0;
+ __imag__ result = signbit (__real__ x) ? M_PIl : 0.0;
__imag__ result = __copysignl (__imag__ result, __imag__ x);
/* Yes, the following line raises an exception. */
__real__ result = -1.0 / fabsl (__real__ x);
@@ -44,7 +44,7 @@ __clog10l (__complex__ long double x)
/* Neither real nor imaginary part is NaN. */
__real__ result = __ieee754_log10l (__ieee754_hypotl (__real__ x,
__imag__ x));
- __imag__ result = M_LOG10E * __ieee754_atan2l (__imag__ x, __real__ x);
+ __imag__ result = M_LOG10El * __ieee754_atan2l (__imag__ x, __real__ x);
}
else
{
diff --git a/sysdeps/libm-ieee754/s_clogl.c b/sysdeps/libm-ieee754/s_clogl.c
index 51bee372a6..a297ec9628 100644
--- a/sysdeps/libm-ieee754/s_clogl.c
+++ b/sysdeps/libm-ieee754/s_clogl.c
@@ -1,5 +1,5 @@
/* Compute complex natural logarithm.
- 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.
@@ -34,7 +34,7 @@ __clogl (__complex__ long double x)
if (rcls == FP_ZERO && icls == FP_ZERO)
{
/* Real and imaginary part are 0.0. */
- __imag__ result = signbit (__real__ x) ? M_PI : 0.0;
+ __imag__ result = signbit (__real__ x) ? M_PIl : 0.0;
__imag__ result = __copysignl (__imag__ result, __imag__ x);
/* Yes, the following line raises an exception. */
__real__ result = -1.0 / fabsl (__real__ x);
generated by cgit v1.2.3-70-g09d2 (git 2.48.1) at 2025-01-24 03:26:22 +0000