[wasi-libc.git] / libc-top-half / musl / src / complex / csinl.c

#include "complex_impl.h"

#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
long double complex csinl(long double complex z)
{
	return csin(z);
}
#else
long double complex csinl(long double complex z)
{
	z = csinhl(CMPLXL(-cimagl(z), creall(z)));
	return CMPLXL(cimagl(z), -creall(z));
}
#endif
Commit	Line	Data
d4db3fa2	1	#include "complex_impl.h"
320054e8 DG	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	{
	11	z = csinhl(CMPLXL(-cimagl(z), creall(z)));
	12	return CMPLXL(cimagl(z), -creall(z));
	13	}
	14	#endif