Skip to content

Commit 3ce401f

Browse files
authored
Make last parameter of cblas_Xdotc_sub/cblas_Xdotu_sub a void pointer as well
1 parent 1c9f442 commit 3ce401f

File tree

1 file changed

+5
-1
lines changed

1 file changed

+5
-1
lines changed

interface/zdot.c

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -148,7 +148,8 @@ OPENBLAS_COMPLEX_FLOAT NAME( blasint *N, FLOAT *x, blasin
148148
#else
149149

150150
#ifdef FORCE_USE_STACK
151-
void CNAME(blasint n, void *vx, blasint incx, void *vy, blasint incy, OPENBLAS_COMPLEX_FLOAT *result){
151+
void CNAME(blasint n, void *vx, blasint incx, void *vy, blasint incy, void *vresult){
152+
OPENBLAS_COMPLEX_FLOAT *result;
152153
#else
153154
OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasint incy){
154155

@@ -164,6 +165,7 @@ OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasin
164165
#ifdef FORCE_USE_STACK
165166
OPENBLAS_COMPLEX_FLOAT zero=OPENBLAS_MAKE_COMPLEX_FLOAT(0.0, 0.0);
166167
*result = zero;
168+
vresult=(void*)result;
167169
// CREAL(*result) = 0.0;
168170
// CIMAG(*result) = 0.0;
169171
return;
@@ -183,8 +185,10 @@ OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasin
183185

184186
#ifndef CONJ
185187
*result = DOTU_K(n, x, incx, y, incy);
188+
vresult=(void*)result;
186189
#else
187190
*result = DOTC_K(n, x, incx, y, incy);
191+
vresult=(void*)result;
188192
#endif
189193

190194
FUNCTION_PROFILE_END(4, 2 * n, 2 * n);

0 commit comments

Comments
 (0)