* fix passing of results on windowspull/4710/head
| @@ -74,7 +74,11 @@ static void matrix_vector_product(blasint n, blasint m, blasint lda, blasint inc | |||||
| for (i = 0; i < n * inc_x; i+= inc_x) | for (i = 0; i < n * inc_x; i+= inc_x) | ||||
| { | { | ||||
| #ifdef RETURN_BY_STACK | |||||
| BLASFUNC(cdotu)(&result, &lda, a_ptr, &one, x_ptr, &inc_x); | |||||
| #else | |||||
| result = BLASFUNC(cdotu)(&lda, a_ptr, &one, x_ptr, &inc_x); | result = BLASFUNC(cdotu)(&lda, a_ptr, &one, x_ptr, &inc_x); | ||||
| #endif | |||||
| x_res[0] = CREAL(result); | x_res[0] = CREAL(result); | ||||
| x_res[1] = CIMAG(result); | x_res[1] = CIMAG(result); | ||||
| a_ptr += lda * 2; | a_ptr += lda * 2; | ||||
| @@ -74,8 +74,12 @@ static void matrix_vector_product(blasint n, blasint m, blasint lda, blasint inc | |||||
| for (i = 0; i < n * inc_x; i += inc_x) | for (i = 0; i < n * inc_x; i += inc_x) | ||||
| { | { | ||||
| result = BLASFUNC(zdotu)(&lda, a_ptr, &one, x_ptr, &inc_x); | |||||
| x_res[0] = CREAL(result); | |||||
| #ifdef RETURN_BY_STACK | |||||
| BLASFUNC(zdotu)(&result, &lda, a_ptr, &one, x_ptr, &inc_x); | |||||
| #else | |||||
| result = BLASFUNC(zdotu)(&lda, a_ptr, &one, x_ptr, &inc_x); | |||||
| #endif | |||||
| x_res[0] = CREAL(result); | |||||
| x_res[1] = CIMAG(result); | x_res[1] = CIMAG(result); | ||||
| a_ptr += lda * 2; | a_ptr += lda * 2; | ||||
| x_res += 2 * inc_x; | x_res += 2 * inc_x; | ||||