Fix types of constants in k_casinh*.c.

diff --git a/ChangeLog b/ChangeLog
index 3bbcf3688df509ee52b94a0cd5cae0a075b2c8a9..d719501d3668bac0b4a4c5bae8d2a3a26281e49a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2013-03-19  Joseph Myers  <joseph@codesourcery.com>
+
+       * math/k_casinhf.c (__kernel_casinhf): Consistently use float
+       constants.
+       * math/k_casinhl.c (__kernel_casinhl): Consistently use long
+       double constants.
+
 2013-03-19  Andreas Schwab  <schwab@suse.de>
 
        * sysdeps/gnu/configure.in: Set libc_cv_rtldir for s390x.

diff --git a/math/k_casinhf.c b/math/k_casinhf.c
index 3152ea2f7d93c0372ac720f898411281271768fc..7ff4b03a1c6b5df7fcc601d3b9022e45e8d5f439 100644 (file)
--- a/math/k_casinhf.c
+++ b/math/k_casinhf.c
@@ -79,8 +79,8 @@ __kernel_casinhf (__complex__ float x, int adj)
     }
   else
     {
-      __real__ y = (rx - ix) * (rx + ix) + 1.0;
-      __imag__ y = 2.0 * rx * ix;
+      __real__ y = (rx - ix) * (rx + ix) + 1.0f;
+      __imag__ y = 2.0f * rx * ix;
 
       y = __csqrtf (y);
 

diff --git a/math/k_casinhl.c b/math/k_casinhl.c
index 110ae33dee5c98c95f865baf0ab43928a38250f1..aec501b079c40450baac134b873d45f49a413902 100644 (file)
--- a/math/k_casinhl.c
+++ b/math/k_casinhl.c
@@ -86,8 +86,8 @@ __kernel_casinhl (__complex__ long double x, int adj)
     }
   else
     {
-      __real__ y = (rx - ix) * (rx + ix) + 1.0;
-      __imag__ y = 2.0 * rx * ix;
+      __real__ y = (rx - ix) * (rx + ix) + 1.0L;
+      __imag__ y = 2.0L * rx * ix;
 
       y = __csqrtl (y);