* fix passing of results on windowstags/v0.3.28^2
@@ -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; | ||||