@@ -148,7 +148,8 @@ OPENBLAS_COMPLEX_FLOAT NAME( blasint *N, FLOAT *x, blasin
148
148
#else
149
149
150
150
#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 ;
152
153
#else
153
154
OPENBLAS_COMPLEX_FLOAT CNAME (blasint n , void * vx , blasint incx , void * vy , blasint incy ){
154
155
@@ -164,6 +165,7 @@ OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasin
164
165
#ifdef FORCE_USE_STACK
165
166
OPENBLAS_COMPLEX_FLOAT zero = OPENBLAS_MAKE_COMPLEX_FLOAT (0.0 , 0.0 );
166
167
* result = zero ;
168
+ vresult = (void * )result ;
167
169
// CREAL(*result) = 0.0;
168
170
// CIMAG(*result) = 0.0;
169
171
return ;
@@ -183,8 +185,10 @@ OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasin
183
185
184
186
#ifndef CONJ
185
187
* result = DOTU_K (n , x , incx , y , incy );
188
+ vresult = (void * )result ;
186
189
#else
187
190
* result = DOTC_K (n , x , incx , y , incy );
191
+ vresult = (void * )result ;
188
192
#endif
189
193
190
194
FUNCTION_PROFILE_END (4 , 2 * n , 2 * n );
0 commit comments