From e12d474780aee6a12f753d74a335ba4ededc5111 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Tue, 5 Jul 2022 00:01:09 +0200 Subject: [PATCH] Eliminate uses of CREAL on left-hand side of assignments --- kernel/arm64/zdot_thunderx2t99.c | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/kernel/arm64/zdot_thunderx2t99.c b/kernel/arm64/zdot_thunderx2t99.c index 6185bc7d9..728f97fb3 100644 --- a/kernel/arm64/zdot_thunderx2t99.c +++ b/kernel/arm64/zdot_thunderx2t99.c @@ -198,8 +198,8 @@ extern int blas_level1_thread_with_return_value(int mode, BLASLONG m, BLASLONG n static void zdot_compute(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, OPENBLAS_COMPLEX_FLOAT *result) { FLOAT dotr = 0.0, doti = 0.0; - CREAL(*result) = 0.0; - CIMAG(*result) = 0.0; + OPENBLAS_COMPLEX_FLOAT cf = OPENBLAS_MAKE_COMPLEX_FLOAT(0.0, 0.0); + *result = cf; if ( n < 0 ) return; @@ -290,8 +290,8 @@ static void zdot_compute(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLON "d0", "d1", "d2", "d3", "d4", "d5", "d6", "d7" ); - CREAL(*result) = dotr; - CIMAG(*result) = doti; + cf=OPENBLAS_MAKE_COMPLEX_FLOAT(dotr, doti); + *result = cf; return; } @@ -312,9 +312,7 @@ OPENBLAS_COMPLEX_FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLA int nthreads; FLOAT dummy_alpha; #endif - OPENBLAS_COMPLEX_FLOAT zdot; - CREAL(zdot) = 0.0; - CIMAG(zdot) = 0.0; + OPENBLAS_COMPLEX_FLOAT zdot = OPENBLAS_MAKE_COMPLEX_FLOAT(0.0,0.0); #if defined(SMP) if (inc_x == 0 || inc_y == 0 || n <= 10000) @@ -341,8 +339,7 @@ OPENBLAS_COMPLEX_FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLA ptr = (OPENBLAS_COMPLEX_FLOAT *)result; for (i = 0; i < nthreads; i++) { - CREAL(zdot) = CREAL(zdot) + CREAL(*ptr); - CIMAG(zdot) = CIMAG(zdot) + CIMAG(*ptr); + zdot = OPENBLAS_MAKE_COMPLEX_FLOAT (CREAL(zdot) + CREAL(*ptr), CIMAG(zdot) + CIMAG(*ptr)); ptr = (void *)(((char *)ptr) + sizeof(double) * 2); } }