X-Git-Url: http://nsz.repo.hu/git/?p=libm;a=blobdiff_plain;f=src%2Fcmath%2Fcacosl.c;fp=src%2Fcmath%2Fcacosl.c;h=5992e0563afef6588b233e8f10bdf54b132b7aa4;hp=0000000000000000000000000000000000000000;hb=5718e964d8a5c273a91b4d86d16926f54151c58f;hpb=1305df184d9d04274ce170864c92af8cbeae23e2

diff --git a/src/cmath/cacosl.c b/src/cmath/cacosl.c
new file mode 100644
index 0000000..5992e05
--- /dev/null
+++ b/src/cmath/cacosl.c
@@ -0,0 +1,16 @@
+#include "libm.h"
+
+#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
+long double complex cacosl(long double complex z)
+{
+	return cacos(z);
+}
+#else
+// FIXME
+#define PI_2 1.57079632679489661923132169163975144L
+long double complex cacosl(long double complex z)
+{
+	z = casinl(z);
+	return cpackl(PI_2 - creall(z), -cimagl(z));
+}
+#endif