extend cmath (some of the functions are dummy)
[libm] / src / cmath / catanhl.c
1 #include "libm.h"
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 {
11         z = catanl(cpackl(-cimagl(z), creall(z)));
12         return cpackl(cimagl(z), -creall(z));
13 }
14 #endif