OLD | NEW |
1 #include "libm.h" | 1 #include "libm.h" |
2 | 2 |
3 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024 | 3 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024 |
4 long double complex cacosl(long double complex z) | 4 long double complex cacosl(long double complex z) { |
5 { | 5 return cacos(z); |
6 » return cacos(z); | |
7 } | 6 } |
8 #else | 7 #else |
9 // FIXME | 8 // FIXME |
10 #define PI_2 1.57079632679489661923132169163975144L | 9 #define PI_2 1.57079632679489661923132169163975144L |
11 long double complex cacosl(long double complex z) | 10 long double complex cacosl(long double complex z) { |
12 { | 11 z = casinl(z); |
13 » z = casinl(z); | 12 return CMPLXL(PI_2 - creall(z), -cimagl(z)); |
14 » return CMPLXL(PI_2 - creall(z), -cimagl(z)); | |
15 } | 13 } |
16 #endif | 14 #endif |
OLD | NEW |