| 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 ctanl(long double complex z) | 4 long double complex ctanl(long double complex z) { |
| 5 { | 5 return ctan(z); |
| 6 » return ctan(z); | |
| 7 } | 6 } |
| 8 #else | 7 #else |
| 9 long double complex ctanl(long double complex z) | 8 long double complex ctanl(long double complex z) { |
| 10 { | 9 z = ctanhl(CMPLXL(-cimagl(z), creall(z))); |
| 11 » z = ctanhl(CMPLXL(-cimagl(z), creall(z))); | 10 return CMPLXL(cimagl(z), -creall(z)); |
| 12 » return CMPLXL(cimagl(z), -creall(z)); | |
| 13 } | 11 } |
| 14 #endif | 12 #endif |
| OLD | NEW |