From cfbaba79a2dd380e580a247b8fd36af60c878e8f Mon Sep 17 00:00:00 2001 From: Szabolcs Nagy Date: Tue, 13 Nov 2012 01:31:49 +0100 Subject: complex: add C11 CMPLX macros and replace cpack with them --- src/complex/casinl.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/complex/casinl.c') diff --git a/src/complex/casinl.c b/src/complex/casinl.c index f9aa8ded..0916c60f 100644 --- a/src/complex/casinl.c +++ b/src/complex/casinl.c @@ -14,7 +14,7 @@ long double complex casinl(long double complex z) x = creall(z); y = cimagl(z); - w = cpackl(1.0 - (x - y)*(x + y), -2.0*x*y); - return clogl(cpackl(-y, x) + csqrtl(w)); + w = CMPLXL(1.0 - (x - y)*(x + y), -2.0*x*y); + return clogl(CMPLXL(-y, x) + csqrtl(w)); } #endif -- cgit v1.2.1