Szabolcs Nagy | 2d72b58 | 2018-11-29 22:09:53 +0000 | [diff] [blame^] | 1 | #include "complex_impl.h" |
Rich Felker | b69f695 | 2012-03-13 01:17:53 -0400 | [diff] [blame] | 2 | |
| 3 | #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024 |
| 4 | long double complex catanhl(long double complex z) |
| 5 | { |
| 6 | return catanh(z); |
| 7 | } |
| 8 | #else |
| 9 | long double complex catanhl(long double complex z) |
| 10 | { |
Szabolcs Nagy | cfbaba7 | 2012-11-13 01:31:49 +0100 | [diff] [blame] | 11 | z = catanl(CMPLXL(-cimagl(z), creall(z))); |
| 12 | return CMPLXL(cimagl(z), -creall(z)); |
Rich Felker | b69f695 | 2012-03-13 01:17:53 -0400 | [diff] [blame] | 13 | } |
| 14 | #endif |