| author | Szabolcs Nagy <nsz@port70.net> | 2013年05月15日 23:08:52 +0000 |
|---|---|---|
| committer | Szabolcs Nagy <nsz@port70.net> | 2013年05月15日 23:08:52 +0000 |
| commit | e216951f509b71da193da2fc63e25b998740d58b (patch) | |
| tree | 391381eafd8b0b7eb4fdbb693608072df5c181d5 /src/math/erff.c | |
| parent | 2c184264eae3797de028403ed1e86c1f7ae5b813 (diff) | |
| download | musl-e216951f509b71da193da2fc63e25b998740d58b.tar.gz | |
| -rw-r--r-- | src/math/erff.c | 5 |
diff --git a/src/math/erff.c b/src/math/erff.c index e2cfc984..ed5f3975 100644 --- a/src/math/erff.c +++ b/src/math/erff.c @@ -86,7 +86,7 @@ sb7 = -2.2440952301e+01; /* 0xc1b38712 */ static float erfc1(float x) { - float s,P,Q; + float_t s,P,Q; s = fabsf(x) - 1; P = pa0+s*(pa1+s*(pa2+s*(pa3+s*(pa4+s*(pa5+s*pa6))))); @@ -96,7 +96,8 @@ static float erfc1(float x) static float erfc2(uint32_t ix, float x) { - float s,z,R,S; + float_t s,R,S; + float z; if (ix < 0x3fa00000) /* |x| < 1.25 */ return erfc1(x); |