Make return parameter of cblas_Xdotc_sub, cblas_Xdotu_sub a void pointer as well

diff --git a/interface/zdot.c b/interface/zdot.c
index 2db2d1e..af91b96 100644 (file)
--- 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);