move declaration of sca to really keep the compiler from throwing it out (for now)
This commit is contained in:
parent
f096a339e4
commit
8be68fa7f4
|
@ -344,7 +344,6 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
|
||||||
FLOAT dummy_alpha[2];
|
FLOAT dummy_alpha[2];
|
||||||
#endif
|
#endif
|
||||||
FLOAT ssq, scale;
|
FLOAT ssq, scale;
|
||||||
volatile FLOAT sca;
|
|
||||||
|
|
||||||
if (n <= 0 || inc_x <= 0) return 0.0;
|
if (n <= 0 || inc_x <= 0) return 0.0;
|
||||||
|
|
||||||
|
@ -405,7 +404,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
|
||||||
#else
|
#else
|
||||||
nrm2_compute(n, x, inc_x, &ssq, &scale);
|
nrm2_compute(n, x, inc_x, &ssq, &scale);
|
||||||
#endif
|
#endif
|
||||||
sca = fabs(scale);
|
volatile FLOAT sca = fabs(scale);
|
||||||
if (sca < DBL_MIN) return 0.;
|
if (sca < DBL_MIN) return 0.;
|
||||||
ssq = sqrt(ssq) * scale;
|
ssq = sqrt(ssq) * scale;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue