Merge pull request #4552 from martin-frbg/issue4551
Allow negative INC_X in arm64 ThunderX2T99 and Apple M ?NRM2
This commit is contained in:
commit
4a6025af9a
|
@ -345,7 +345,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
|
||||||
#endif
|
#endif
|
||||||
FLOAT ssq, scale;
|
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 defined(SMP)
|
||||||
if (n <= 10000)
|
if (n <= 10000)
|
||||||
|
|
|
@ -315,7 +315,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
|
||||||
FLOAT nrm2 = 0.0;
|
FLOAT nrm2 = 0.0;
|
||||||
double nrm2_double = 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 defined(SMP)
|
||||||
if (n <= 10000)
|
if (n <= 10000)
|
||||||
|
|
Loading…
Reference in New Issue