1 /* Complex cosine hyperbole function for float.
2 Copyright (C) 1997-2013 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/>. */
23 #include <math_private.h>
27 __ccoshf (__complex__ float x)
29 __complex__ float retval;
30 int rcls = fpclassify (__real__ x);
31 int icls = fpclassify (__imag__ x);
33 if (__builtin_expect (rcls >= FP_ZERO, 1))
35 /* Real part is finite. */
36 if (__builtin_expect (icls >= FP_ZERO, 1))
38 /* Imaginary part is finite. */
39 const int t = (int) ((FLT_MAX_EXP - 1) * M_LN2);
42 if (__builtin_expect (icls != FP_SUBNORMAL, 1))
44 __sincosf (__imag__ x, &sinix, &cosix);
52 if (fabsf (__real__ x) > t)
54 float exp_t = __ieee754_expf (t);
55 float rx = fabsf (__real__ x);
56 if (signbit (__real__ x))
59 sinix *= exp_t / 2.0f;
60 cosix *= exp_t / 2.0f;
69 /* Overflow (original real part of x > 3t). */
70 __real__ retval = FLT_MAX * cosix;
71 __imag__ retval = FLT_MAX * sinix;
75 float exp_val = __ieee754_expf (rx);
76 __real__ retval = exp_val * cosix;
77 __imag__ retval = exp_val * sinix;
82 __real__ retval = __ieee754_coshf (__real__ x) * cosix;
83 __imag__ retval = __ieee754_sinhf (__real__ x) * sinix;
88 __imag__ retval = __real__ x == 0.0 ? 0.0 : __nanf ("");
89 __real__ retval = __nanf ("");
91 if (icls == FP_INFINITE)
92 feraiseexcept (FE_INVALID);
95 else if (__builtin_expect (rcls == FP_INFINITE, 1))
97 /* Real part is infinite. */
98 if (__builtin_expect (icls > FP_ZERO, 1))
100 /* Imaginary part is finite. */
103 if (__builtin_expect (icls != FP_SUBNORMAL, 1))
105 __sincosf (__imag__ x, &sinix, &cosix);
113 __real__ retval = __copysignf (HUGE_VALF, cosix);
114 __imag__ retval = (__copysignf (HUGE_VALF, sinix)
115 * __copysignf (1.0, __real__ x));
117 else if (icls == FP_ZERO)
119 /* Imaginary part is 0.0. */
120 __real__ retval = HUGE_VALF;
121 __imag__ retval = __imag__ x * __copysignf (1.0, __real__ x);
125 /* The addition raises the invalid exception. */
126 __real__ retval = HUGE_VALF;
127 __imag__ retval = __nanf ("") + __nanf ("");
130 if (icls == FP_INFINITE)
131 feraiseexcept (FE_INVALID);
137 __real__ retval = __nanf ("");
138 __imag__ retval = __imag__ x == 0.0 ? __imag__ x : __nanf ("");
144 weak_alias (__ccoshf, ccoshf)