1570af302Sopenharmony_ci#include "complex_impl.h" 2570af302Sopenharmony_ci 3570af302Sopenharmony_ci#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024 4570af302Sopenharmony_cilong double complex csinl(long double complex z) 5570af302Sopenharmony_ci{ 6570af302Sopenharmony_ci return csin(z); 7570af302Sopenharmony_ci} 8570af302Sopenharmony_ci#else 9570af302Sopenharmony_cilong double complex csinl(long double complex z) 10570af302Sopenharmony_ci{ 11570af302Sopenharmony_ci z = csinhl(CMPLXL(-cimagl(z), creall(z))); 12570af302Sopenharmony_ci return CMPLXL(cimagl(z), -creall(z)); 13570af302Sopenharmony_ci} 14570af302Sopenharmony_ci#endif 15