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

Allow negative INCX (API change from version 3.10 of the reference implementation)

This commit is contained in:
Martin Kroeker 2023-08-10 16:50:44 +02:00 committed by GitHub
parent a2d867f4d1
commit d15ffb7fdf
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
kernel/loongarch64/cnrm2.S
View File

@ -61,7 +61,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
fmov.d s2, s1 fmov.d s2, s1
bge $r0, N, .L999 bge $r0, N, .L999
slli.d INCX, INCX, ZBASE_SHIFT slli.d INCX, INCX, ZBASE_SHIFT
bge $r0, INCX, .L999 beq $r0, INCX, .L999
srai.d I, N, 2 srai.d I, N, 2
bge $r0, I, .L25 bge $r0, I, .L25
LD a1, X, 0 * SIZE LD a1, X, 0 * SIZE

2
kernel/loongarch64/dnrm2.S
View File

@ -70,7 +70,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
MTC s1, $r0 MTC s1, $r0
bge $r0, N, .L999 bge $r0, N, .L999
slli.d INCX, INCX, BASE_SHIFT slli.d INCX, INCX, BASE_SHIFT
bge $r0, INCX, .L999 beq $r0, INCX, .L999
move XX, X move XX, X
NOP NOP
LD a1, X, 0 * SIZE LD a1, X, 0 * SIZE

2
kernel/loongarch64/snrm2.S
View File

@ -61,7 +61,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
fmov.d s2, s1 fmov.d s2, s1
bge $r0, N, .L999 bge $r0, N, .L999
slli.d INCX, INCX, BASE_SHIFT slli.d INCX, INCX, BASE_SHIFT
bge $r0, INCX, .L999 beq $r0, INCX, .L999
srai.d I, N, 3 srai.d I, N, 3
bne INCX, TEMP, .L20 bne INCX, TEMP, .L20
bge $r0, I, .L15 bge $r0, I, .L15

2
kernel/loongarch64/znrm2.S
View File

@ -64,7 +64,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
MTC s1, $r0 MTC s1, $r0
bge $r0, N, .L999 bge $r0, N, .L999
slli.d INCX, INCX, ZBASE_SHIFT slli.d INCX, INCX, ZBASE_SHIFT
bge $r0, INCX, .L999 beq $r0, INCX, .L999
move XX, X move XX, X
MOV s2, s1 MOV s2, s1
srai.d I, N, 2 srai.d I, N, 2