From b46e2b57ccd5acab22ac56d8a3fdc75e96738b3e Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 18 Nov 2017 20:28:02 +0100 Subject: [PATCH] Make return parameter of cblas_Xdotc_sub, cblas_Xdotu_sub a void pointer as well --- interface/zdot.c | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/interface/zdot.c b/interface/zdot.c index 2db2d1efc..af91b96d5 100644 --- a/interface/zdot.c +++ b/interface/zdot.c @@ -148,8 +148,8 @@ OPENBLAS_COMPLEX_FLOAT NAME( blasint *N, FLOAT *x, blasin #else #ifdef FORCE_USE_STACK -void CNAME(blasint n, void *vx, blasint incx, void *vy, blasint incy, void *vresult){ -OPENBLAS_COMPLEX_FLOAT *result; +void CNAME(blasint n, void *vx, blasint incx, void *vy, blasint incy, void* vresult){ +OPENBLAS_COMPLEX_FLOAT *result= (OPENBLAS_COMPLEX_FLOAT*)vresult; #else OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasint incy){ @@ -165,7 +165,6 @@ OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasin #ifdef FORCE_USE_STACK OPENBLAS_COMPLEX_FLOAT zero=OPENBLAS_MAKE_COMPLEX_FLOAT(0.0, 0.0); *result = zero; - vresult=(void*)result; // CREAL(*result) = 0.0; // CIMAG(*result) = 0.0; return; @@ -185,10 +184,8 @@ OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasin #ifndef CONJ *result = DOTU_K(n, x, incx, y, incy); - vresult=(void*)result; #else *result = DOTC_K(n, x, incx, y, incy); - vresult=(void*)result; #endif FUNCTION_PROFILE_END(4, 2 * n, 2 * n);