NPTL: Refactor scheduler setup in pthread_create.
[glibc.git] / math / s_ccoshf.c
blob084fc6d6509a660e35630d53f87abece96e1953d
1 /* Complex cosine hyperbole function for float.
2 Copyright (C) 1997-2014 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, see
18 <http://www.gnu.org/licenses/>. */
20 #include <complex.h>
21 #include <fenv.h>
22 #include <math.h>
23 #include <math_private.h>
24 #include <float.h>
26 __complex__ float
27 __ccoshf (__complex__ float x)
29 __complex__ float retval;
30 int rcls = fpclassify (__real__ x);
31 int icls = fpclassify (__imag__ x);
33 if (__glibc_likely (rcls >= FP_ZERO))
35 /* Real part is finite. */
36 if (__glibc_likely (icls >= FP_ZERO))
38 /* Imaginary part is finite. */
39 const int t = (int) ((FLT_MAX_EXP - 1) * M_LN2);
40 float sinix, cosix;
42 if (__glibc_likely (icls != FP_SUBNORMAL))
44 __sincosf (__imag__ x, &sinix, &cosix);
46 else
48 sinix = __imag__ x;
49 cosix = 1.0f;
52 if (fabsf (__real__ x) > t)
54 float exp_t = __ieee754_expf (t);
55 float rx = fabsf (__real__ x);
56 if (signbit (__real__ x))
57 sinix = -sinix;
58 rx -= t;
59 sinix *= exp_t / 2.0f;
60 cosix *= exp_t / 2.0f;
61 if (rx > t)
63 rx -= t;
64 sinix *= exp_t;
65 cosix *= exp_t;
67 if (rx > t)
69 /* Overflow (original real part of x > 3t). */
70 __real__ retval = FLT_MAX * cosix;
71 __imag__ retval = FLT_MAX * sinix;
73 else
75 float exp_val = __ieee754_expf (rx);
76 __real__ retval = exp_val * cosix;
77 __imag__ retval = exp_val * sinix;
80 else
82 __real__ retval = __ieee754_coshf (__real__ x) * cosix;
83 __imag__ retval = __ieee754_sinhf (__real__ x) * sinix;
86 if (fabsf (__real__ retval) < FLT_MIN)
88 volatile float force_underflow
89 = __real__ retval * __real__ retval;
90 (void) force_underflow;
92 if (fabsf (__imag__ retval) < FLT_MIN)
94 volatile float force_underflow
95 = __imag__ retval * __imag__ retval;
96 (void) force_underflow;
99 else
101 __imag__ retval = __real__ x == 0.0 ? 0.0 : __nanf ("");
102 __real__ retval = __nanf ("");
104 if (icls == FP_INFINITE)
105 feraiseexcept (FE_INVALID);
108 else if (__glibc_likely (rcls == FP_INFINITE))
110 /* Real part is infinite. */
111 if (__glibc_likely (icls > FP_ZERO))
113 /* Imaginary part is finite. */
114 float sinix, cosix;
116 if (__glibc_likely (icls != FP_SUBNORMAL))
118 __sincosf (__imag__ x, &sinix, &cosix);
120 else
122 sinix = __imag__ x;
123 cosix = 1.0f;
126 __real__ retval = __copysignf (HUGE_VALF, cosix);
127 __imag__ retval = (__copysignf (HUGE_VALF, sinix)
128 * __copysignf (1.0, __real__ x));
130 else if (icls == FP_ZERO)
132 /* Imaginary part is 0.0. */
133 __real__ retval = HUGE_VALF;
134 __imag__ retval = __imag__ x * __copysignf (1.0, __real__ x);
136 else
138 /* The addition raises the invalid exception. */
139 __real__ retval = HUGE_VALF;
140 __imag__ retval = __nanf ("") + __nanf ("");
142 #ifdef FE_INVALID
143 if (icls == FP_INFINITE)
144 feraiseexcept (FE_INVALID);
145 #endif
148 else
150 __real__ retval = __nanf ("");
151 __imag__ retval = __imag__ x == 0.0 ? __imag__ x : __nanf ("");
154 return retval;
156 #ifndef __ccoshf
157 weak_alias (__ccoshf, ccoshf)
158 #endif