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

Merge pull request #4420 from martin-frbg/revertstuff 

Revert accidental direct commits to develop
This commit is contained in:
Martin Kroeker 2024-01-07 23:04:22 +01:00 committed by GitHub
parent 2173356d5b f052bd4705
commit 7a6a24647d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
kernel/mips/zscal.c
View File

@ -63,9 +63,8 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
x[ip+1] = da_r * x[ip+1] + da_i * x[ip] ; x[ip+1] = da_r * x[ip+1] + da_i * x[ip] ;
} }
} }
// if (!isnan(x[ip]) && !isinf(x[ip]))
x[ip] = temp; x[ip] = temp;
if ( da_r != da_r ) x[ip] = da_r;
ip += inc_x2; ip += inc_x2;
} }

3
kernel/riscv64/zscal_vector.c
View File

@ -59,7 +59,6 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
unsigned int gvl = 0; unsigned int gvl = 0;
FLOAT_V_T vt, v0, v1; FLOAT_V_T vt, v0, v1;
if(da_r == 0.0 && da_i == 0.0){ if(da_r == 0.0 && da_i == 0.0){
gvl = VSETVL(n); gvl = VSETVL(n);
BLASLONG stride_x = inc_x * 2 * sizeof(FLOAT); BLASLONG stride_x = inc_x * 2 * sizeof(FLOAT);
@ -81,7 +80,6 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
j += gvl; j += gvl;
ix += inc_x * 2 * gvl; ix += inc_x * 2 * gvl;
} }
#if 0
}else if(da_r == 0.0){ }else if(da_r == 0.0){
gvl = VSETVL(n); gvl = VSETVL(n);
BLASLONG stride_x = inc_x * 2 * sizeof(FLOAT); BLASLONG stride_x = inc_x * 2 * sizeof(FLOAT);
@ -110,7 +108,6 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
VSSEV_FLOAT(&x[ix], stride_x, vt, gvl); VSSEV_FLOAT(&x[ix], stride_x, vt, gvl);
VSSEV_FLOAT(&x[ix+1], stride_x, v1, gvl); VSSEV_FLOAT(&x[ix+1], stride_x, v1, gvl);
} }
#endif
}else if(da_i == 0.0){ }else if(da_i == 0.0){
gvl = VSETVL(n); gvl = VSETVL(n);
BLASLONG stride_x = inc_x * 2 * sizeof(FLOAT); BLASLONG stride_x = inc_x * 2 * sizeof(FLOAT);