floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix axpy test hangs when n==0. Reenable zaxpy_vector kernel for C910V.

This commit is contained in:
Sergei Lewis 2024-02-09 12:59:14 +00:00
parent ba3bfe85ee
commit ff1523163f
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
kernel/riscv64/KERNEL.C910V
View File

@ -42,8 +42,8 @@ ZSUMKERNEL = ../arm/zsum.c
SAXPYKERNEL = axpy_vector.c SAXPYKERNEL = axpy_vector.c
DAXPYKERNEL = axpy_vector.c DAXPYKERNEL = axpy_vector.c
CAXPYKERNEL = zaxpy.c CAXPYKERNEL = zaxpy_vector.c
ZAXPYKERNEL = zaxpy.c ZAXPYKERNEL = zaxpy_vector.c
SAXPBYKERNEL = axpby_vector.c SAXPBYKERNEL = axpby_vector.c
DAXPBYKERNEL = axpby_vector.c DAXPBYKERNEL = axpby_vector.c

2
kernel/riscv64/axpy_vector.c
View File

@ -65,7 +65,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLAS
FLOAT_V_T vy0, vy1; FLOAT_V_T vy0, vy1;
BLASLONG stride_x, stride_y; BLASLONG stride_x, stride_y;
if (n < 0) return(0); if (n <= 0) return(0);
if (da == 0.0) return(0); if (da == 0.0) return(0);
if (inc_x == 1 && inc_y == 1) { if (inc_x == 1 && inc_y == 1) {

8
kernel/riscv64/zaxpy_vector.c
View File

@ -45,10 +45,10 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT *dummy, BLASLONG dummy2) int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT *dummy, BLASLONG dummy2)
{ {
BLASLONG i = 0, j = 0; BLASLONG i = 0, j = 0;
BLASLONG ix = 0,iy = 0; BLASLONG ix = 0,iy = 0;
if(n < 0) return(0); if(n <= 0) return(0);
if(da_r == 0.0 && da_i == 0.0) return(0); if(da_r == 0.0 && da_i == 0.0) return(0);
unsigned int gvl = 0; unsigned int gvl = 0;
BLASLONG stride_x = inc_x * 2 * sizeof(FLOAT); BLASLONG stride_x = inc_x * 2 * sizeof(FLOAT);
BLASLONG stride_y = inc_y * 2 * sizeof(FLOAT); BLASLONG stride_y = inc_y * 2 * sizeof(FLOAT);