X-Git-Url: http://nsz.repo.hu/git/?p=libm;a=blobdiff_plain;f=src%2Fcmath%2Fcabsl.c;h=40a067c1c59f182d7d96957a3286e4dace5e5449;hp=31ac460f55b50ec19fa1b45cedc57ee60f07b017;hb=25215b63b9aa93089a9a05d1cffc3784109228c6;hpb=1eb8d023d8b5c286908af676cb405a2ba598d286

diff --git a/src/cmath/cabsl.c b/src/cmath/cabsl.c
index 31ac460..40a067c 100644
--- a/src/cmath/cabsl.c
+++ b/src/cmath/cabsl.c
@@ -1,6 +1,13 @@
 #include "libm.h"
 
+#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
+long double cabsl(long double complex z)
+{
+	return cabs(z);
+}
+#else
 long double cabsl(long double complex z)
 {
 	return hypotl(creall(z), cimagl(z));
 }
+#endif