From 3ce401f51b30605783d2c3782f36b05203db99db Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 18 Nov 2017 18:58:40 +0100 Subject: [PATCH] Make last parameter of cblas_Xdotc_sub/cblas_Xdotu_sub a void pointer as well --- interface/zdot.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/interface/zdot.c b/interface/zdot.c index 40f425cc1..2db2d1efc 100644 --- a/interface/zdot.c +++ b/interface/zdot.c @@ -148,7 +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, OPENBLAS_COMPLEX_FLOAT *result){ +void CNAME(blasint n, void *vx, blasint incx, void *vy, blasint incy, void *vresult){ +OPENBLAS_COMPLEX_FLOAT *result; #else OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasint incy){ @@ -164,6 +165,7 @@ 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; @@ -183,8 +185,10 @@ 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);