| @@ -148,7 +148,8 @@ OPENBLAS_COMPLEX_FLOAT NAME( blasint *N, FLOAT *x, blasin | |||||
| #else | #else | ||||
| #ifdef FORCE_USE_STACK | #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 | #else | ||||
| OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasint incy){ | 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 | #ifdef FORCE_USE_STACK | ||||
| OPENBLAS_COMPLEX_FLOAT zero=OPENBLAS_MAKE_COMPLEX_FLOAT(0.0, 0.0); | OPENBLAS_COMPLEX_FLOAT zero=OPENBLAS_MAKE_COMPLEX_FLOAT(0.0, 0.0); | ||||
| *result = zero; | *result = zero; | ||||
| vresult=(void*)result; | |||||
| // CREAL(*result) = 0.0; | // CREAL(*result) = 0.0; | ||||
| // CIMAG(*result) = 0.0; | // CIMAG(*result) = 0.0; | ||||
| return; | return; | ||||
| @@ -183,8 +185,10 @@ OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasin | |||||
| #ifndef CONJ | #ifndef CONJ | ||||
| *result = DOTU_K(n, x, incx, y, incy); | *result = DOTU_K(n, x, incx, y, incy); | ||||
| vresult=(void*)result; | |||||
| #else | #else | ||||
| *result = DOTC_K(n, x, incx, y, incy); | *result = DOTC_K(n, x, incx, y, incy); | ||||
| vresult=(void*)result; | |||||
| #endif | #endif | ||||
| FUNCTION_PROFILE_END(4, 2 * n, 2 * n); | FUNCTION_PROFILE_END(4, 2 * n, 2 * n); | ||||