Fix failures to handle increments of zero
This commit is contained in:
parent
0f87ed2682
commit
65cb23007f
|
@ -155,6 +155,7 @@ int CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT
|
|||
}
|
||||
}else{
|
||||
gvl = VSETVL(n);
|
||||
if (inc_x == 0 && inc_y == 0) gvl = VSETVL(1);
|
||||
BLASLONG stride_x = inc_x * sizeof(FLOAT);
|
||||
BLASLONG stride_y = inc_y * sizeof(FLOAT);
|
||||
BLASLONG inc_xv = inc_x * gvl;
|
||||
|
|
|
@ -136,6 +136,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT dummy3, FLOAT *x,
|
|||
}
|
||||
}else{
|
||||
gvl = VSETVL(n);
|
||||
if (inc_x == 0 && inc_y == 0) gvl = VSETVL(1);
|
||||
stride_x = inc_x * sizeof(FLOAT);
|
||||
stride_y = inc_y * sizeof(FLOAT);
|
||||
if(gvl <= n/2){
|
||||
|
|
|
@ -112,6 +112,7 @@ int CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT
|
|||
}
|
||||
|
||||
}else{
|
||||
if (inc_x == 0 && inc_y == 0) gvl = VSETVL(1);
|
||||
for(i=0,j=0; i < n/gvl; i++){
|
||||
vx0 = VLSEV_FLOAT(&x[ix], stride_x, gvl);
|
||||
vx1 = VLSEV_FLOAT(&x[ix+1], stride_x, gvl);
|
||||
|
|
|
@ -81,6 +81,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT dummy3, FLOAT dumm
|
|||
}
|
||||
}else{
|
||||
gvl = VSETVL(n);
|
||||
if (inc_x == 0 && inc_y == 0) gvl = VSETVL(1);
|
||||
stride_x = inc_x * 2 * sizeof(FLOAT);
|
||||
stride_y = inc_y * 2 * sizeof(FLOAT);
|
||||
BLASLONG inc_xv = inc_x * gvl * 2;
|
||||
|
|
Loading…
Reference in New Issue