Index: fusl/src/complex/casinl.c |
diff --git a/fusl/src/complex/casinl.c b/fusl/src/complex/casinl.c |
new file mode 100644 |
index 0000000000000000000000000000000000000000..0916c60f2a6b3c7eeb71d74c4cff06a5a1273fae |
--- /dev/null |
+++ b/fusl/src/complex/casinl.c |
@@ -0,0 +1,20 @@ |
+#include "libm.h" |
+ |
+#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024 |
+long double complex casinl(long double complex z) |
+{ |
+ return casin(z); |
+} |
+#else |
+// FIXME |
+long double complex casinl(long double complex z) |
+{ |
+ long double complex w; |
+ long double x, y; |
+ |
+ x = creall(z); |
+ y = cimagl(z); |
+ w = CMPLXL(1.0 - (x - y)*(x + y), -2.0*x*y); |
+ return clogl(CMPLXL(-y, x) + csqrtl(w)); |
+} |
+#endif |