Browse Source
Merge pull request #4552 from martin-frbg/issue4551
Allow negative INC_X in arm64 ThunderX2T99 and Apple M ?NRM2
tags/v0.3.27
Martin Kroeker
GitHub
1 year ago
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with
2 additions and
2 deletions
-
kernel/arm64/dznrm2_thunderx2t99.c
-
kernel/arm64/scnrm2_thunderx2t99.c
|
|
|
@@ -345,7 +345,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) |
|
|
|
#endif |
|
|
|
FLOAT ssq, scale; |
|
|
|
|
|
|
|
if (n <= 0 || inc_x <= 0) return 0.0; |
|
|
|
if (n <= 0 || inc_x == 0) return 0.0; |
|
|
|
|
|
|
|
#if defined(SMP) |
|
|
|
if (n <= 10000) |
|
|
|
|
|
|
|
@@ -315,7 +315,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) |
|
|
|
FLOAT nrm2 = 0.0; |
|
|
|
double nrm2_double = 0.0; |
|
|
|
|
|
|
|
if (n <= 0 || inc_x <= 0) return 0.0; |
|
|
|
if (n <= 0 || inc_x == 0) return 0.0; |
|
|
|
|
|
|
|
#if defined(SMP) |
|
|
|
if (n <= 10000) |
|
|
|
|
