From a722056e763a01aae0fb15f6d8a1843c8abc825d Mon Sep 17 00:00:00 2001 From: mdong Date: Fri, 24 Jun 2016 17:06:46 -0400 Subject: [PATCH] change old GNU keyword __real__ __imag__ to CREAL, CIMAG macro --- kernel/x86_64/cdot.c | 12 ++++++------ kernel/x86_64/zdot.c | 12 ++++++------ 2 files changed, 12 insertions(+), 12 deletions(-) diff --git a/kernel/x86_64/cdot.c b/kernel/x86_64/cdot.c index 9bba72ba2..be3190cc6 100644 --- a/kernel/x86_64/cdot.c +++ b/kernel/x86_64/cdot.c @@ -100,8 +100,8 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in if ( n <= 0 ) { - __real__ result = 0.0 ; - __imag__ result = 0.0 ; + CREAL(result) = 0.0 ; + CIMAG(result) = 0.0 ; return(result); } @@ -161,11 +161,11 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in } #if !defined(CONJ) - __real__ result = dot[0] - dot[1]; - __imag__ result = dot[4] + dot[5]; + CREAL(result) = dot[0] - dot[1]; + CIMAG(result) = dot[4] + dot[5]; #else - __real__ result = dot[0] + dot[1]; - __imag__ result = dot[4] - dot[5]; + CREAL(result) = dot[0] + dot[1]; + CIMAG(result) = dot[4] - dot[5]; #endif diff --git a/kernel/x86_64/zdot.c b/kernel/x86_64/zdot.c index 4533d4e88..43733b1ec 100644 --- a/kernel/x86_64/zdot.c +++ b/kernel/x86_64/zdot.c @@ -96,8 +96,8 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in if ( n <= 0 ) { - __real__ result = 0.0 ; - __imag__ result = 0.0 ; + CREAL(result) = 0.0 ; + CIMAG(result) = 0.0 ; return(result); } @@ -151,11 +151,11 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in } #if !defined(CONJ) - __real__ result = dot[0] - dot[1]; - __imag__ result = dot[2] + dot[3]; + CREAL(result) = dot[0] - dot[1]; + CIMAG(result) = dot[2] + dot[3]; #else - __real__ result = dot[0] + dot[1]; - __imag__ result = dot[2] - dot[3]; + CREAL(result) = dot[0] + dot[1]; + CIMAG(result) = dot[2] - dot[3]; #endif