| Rich Felker | b69f695 | 2012-03-13 01:17:53 -0400 | [diff] [blame] | 1 | #include "libm.h" |
| 2 | |||||
| 3 | #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024 | ||||
| 4 | long double complex csinl(long double complex z) | ||||
| 5 | { | ||||
| 6 | return csin(z); | ||||
| 7 | } | ||||
| 8 | #else | ||||
| 9 | long double complex csinl(long double complex z) | ||||
| 10 | { | ||||
| Szabolcs Nagy | cfbaba7 | 2012-11-13 01:31:49 +0100 | [diff] [blame] | 11 | z = csinhl(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 | ||||