Welcome to mirror list, hosted at ThFree Co, Russian Federation.

cygwin.com/git/newlib-cygwin.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeff Johnston <jjohnstn@redhat.com>2000-04-17 21:10:18 +0400
committerJeff Johnston <jjohnstn@redhat.com>2000-04-17 21:10:18 +0400
commitc87be3e4d6ae90dcc48b5f26dd87645e7cabff01 (patch)
treec74406cf686941ada7868ee44ce39aafc70d96df
parent08ce80eac2b449e9d151975ec0a5d0042a07c847 (diff)
Mon Apr 17 12:46:00 2000 Marek Michalkiewicz <marekm@linux.org.pl>
* libc/signal/signal.c (_signal_r) : Removed unused local variable temp. * libc/stdio/findfp.c (std): Added declaration of flags and file. * libc/stdio/mktemp.c (_gettemp, _mkstemp_r, mkstemp): Added int return type. * libc/stdio/putchar.c (putchar): Added return statement. * libc/stdio/refill.c (lflush): Added correct parentheses. * libc/stdio/vfprintf.c (_VFPRINTF_R): Ditto. * libc/stdio/vfscanf.c (__svfscanf): Changed sprintf call which prints long value to use l qualifier. * libc/stdlib/dtoa.c (_dtoa_r): Added parentheses to remove warning messages and initialized local values: ilim, ilim1, and spec_case. * libc/stdlib/ecvtbuf.c (print_e): Removed unused variable dp. * libc/stdlib/mbctype.h (_issjis1, _issjis2): Added parentheses. * libc/stdlib/mprec.c: Ditto. * libc/stdlib/setenv_r.c: Ditto. * libc/stdlib/strtod.c: Ditto. * libc/stdlib/strtol.c: Ditto. * libc/stdlib/strtoul.c: Ditto. * libm/common/sf_expm1.c: Added curly braces to if else clauses. * libm/common/sf_log1p.c: Ditto. * libm/common/sf_scalbn.c: Ditto. * libm/math/ef_log.c: Ditto.
-rw-r--r--newlib/ChangeLog25
-rw-r--r--newlib/libc/signal/signal.c2
-rw-r--r--newlib/libc/stdio/findfp.c2
-rw-r--r--newlib/libc/stdio/mktemp.c4
-rw-r--r--newlib/libc/stdio/putchar.c2
-rw-r--r--newlib/libc/stdio/refill.c2
-rw-r--r--newlib/libc/stdio/vfprintf.c2
-rw-r--r--newlib/libc/stdio/vfscanf.c2
-rw-r--r--newlib/libc/stdlib/dtoa.c29
-rw-r--r--newlib/libc/stdlib/ecvtbuf.c1
-rw-r--r--newlib/libc/stdlib/mbctype.h4
-rw-r--r--newlib/libc/stdlib/mprec.c18
-rw-r--r--newlib/libc/stdlib/setenv_r.c4
-rw-r--r--newlib/libc/stdlib/strtod.c4
-rw-r--r--newlib/libc/stdlib/strtol.c2
-rw-r--r--newlib/libc/stdlib/strtoul.c2
-rw-r--r--newlib/libm/common/sf_expm1.c3
-rw-r--r--newlib/libm/common/sf_log1p.c4
-rw-r--r--newlib/libm/common/sf_scalbn.c3
-rw-r--r--newlib/libm/math/ef_log.c4
20 files changed, 74 insertions, 45 deletions
diff --git a/newlib/ChangeLog b/newlib/ChangeLog
index 0e4030e5e..2f9a2b54c 100644
--- a/newlib/ChangeLog
+++ b/newlib/ChangeLog
@@ -1,3 +1,28 @@
+Mon Apr 17 12:46:00 2000 Marek Michalkiewicz <marekm@linux.org.pl>
+
+ * libc/signal/signal.c (_signal_r) : Removed unused local variable temp.
+ * libc/stdio/findfp.c (std): Added declaration of flags and file.
+ * libc/stdio/mktemp.c (_gettemp, _mkstemp_r, mkstemp): Added int
+ return type.
+ * libc/stdio/putchar.c (putchar): Added return statement.
+ * libc/stdio/refill.c (lflush): Added correct parentheses.
+ * libc/stdio/vfprintf.c (_VFPRINTF_R): Ditto.
+ * libc/stdio/vfscanf.c (__svfscanf): Changed sprintf call which
+ prints long value to use l qualifier.
+ * libc/stdlib/dtoa.c (_dtoa_r): Added parentheses to remove warning
+ messages and initialized local values: ilim, ilim1, and spec_case.
+ * libc/stdlib/ecvtbuf.c (print_e): Removed unused variable dp.
+ * libc/stdlib/mbctype.h (_issjis1, _issjis2): Added parentheses.
+ * libc/stdlib/mprec.c: Ditto.
+ * libc/stdlib/setenv_r.c: Ditto.
+ * libc/stdlib/strtod.c: Ditto.
+ * libc/stdlib/strtol.c: Ditto.
+ * libc/stdlib/strtoul.c: Ditto.
+ * libm/common/sf_expm1.c: Added curly braces to if else clauses.
+ * libm/common/sf_log1p.c: Ditto.
+ * libm/common/sf_scalbn.c: Ditto.
+ * libm/math/ef_log.c: Ditto.
+
Sun Apr 16 12:45:00 2000 Corinna Vinschen <corinna@vinschen.de>
* libc/posix/execvp.c (execvp): Check path for
diff --git a/newlib/libc/signal/signal.c b/newlib/libc/signal/signal.c
index fc52bbab5..56c735372 100644
--- a/newlib/libc/signal/signal.c
+++ b/newlib/libc/signal/signal.c
@@ -144,7 +144,7 @@ _DEFUN (_signal_r, (ptr, sig, func),
int sig _AND
_sig_func_ptr func)
{
- _sig_func_ptr old_func, *temp;
+ _sig_func_ptr old_func;
if (sig < 0 || sig >= NSIG)
{
diff --git a/newlib/libc/stdio/findfp.c b/newlib/libc/stdio/findfp.c
index 650c638e6..9dd18996d 100644
--- a/newlib/libc/stdio/findfp.c
+++ b/newlib/libc/stdio/findfp.c
@@ -26,6 +26,8 @@
static void
std (ptr, flags, file, data)
FILE *ptr;
+ int flags;
+ int file;
struct _reent *data;
{
ptr->_p = 0;
diff --git a/newlib/libc/stdio/mktemp.c b/newlib/libc/stdio/mktemp.c
index f6a6b688f..54c7a9793 100644
--- a/newlib/libc/stdio/mktemp.c
+++ b/newlib/libc/stdio/mktemp.c
@@ -102,7 +102,7 @@ Supporting OS subroutines required: <<getpid>>, <<open>>, <<stat>>.
#include <ctype.h>
#include <reent.h>
-static
+static int
_DEFUN (_gettemp, (ptr, path, doopen),
struct _reent *ptr _AND
char *path _AND
@@ -182,6 +182,7 @@ _DEFUN (_gettemp, (ptr, path, doopen),
/*NOTREACHED*/
}
+int
_DEFUN (_mkstemp_r, (ptr, path),
struct _reent *ptr _AND
char *path)
@@ -201,6 +202,7 @@ _DEFUN (_mktemp_r, (ptr, path),
#ifndef _REENT_ONLY
+int
_DEFUN (mkstemp, (path),
char *path)
{
diff --git a/newlib/libc/stdio/putchar.c b/newlib/libc/stdio/putchar.c
index 7f7c442e4..462393f8a 100644
--- a/newlib/libc/stdio/putchar.c
+++ b/newlib/libc/stdio/putchar.c
@@ -88,7 +88,7 @@ putchar (c)
{
/* CHECK_INIT is (eventually) called by __swbuf. */
- _putchar_r (_REENT, c);
+ return _putchar_r (_REENT, c);
}
#endif
diff --git a/newlib/libc/stdio/refill.c b/newlib/libc/stdio/refill.c
index bc3b83047..ca48a4500 100644
--- a/newlib/libc/stdio/refill.c
+++ b/newlib/libc/stdio/refill.c
@@ -25,7 +25,7 @@ static int
lflush (fp)
FILE *fp;
{
- if ((fp->_flags & (__SLBF | __SWR)) == __SLBF | __SWR)
+ if ((fp->_flags & (__SLBF | __SWR)) == (__SLBF | __SWR))
return fflush (fp);
return 0;
}
diff --git a/newlib/libc/stdio/vfprintf.c b/newlib/libc/stdio/vfprintf.c
index 8da76db99..41f7d52e9 100644
--- a/newlib/libc/stdio/vfprintf.c
+++ b/newlib/libc/stdio/vfprintf.c
@@ -824,7 +824,7 @@ number: if ((dprec = prec) >= 0)
ox[0] = *cp++;
ox[1] = '.';
PRINT(ox, 2);
- if (_double || flags & ALT == 0) {
+ if (_double || (flags & ALT) == 0) {
PRINT(cp, ndig-1);
} else /* 0.[0..] */
/* __dtoa irregularity */
diff --git a/newlib/libc/stdio/vfscanf.c b/newlib/libc/stdio/vfscanf.c
index f1d328a20..e9c67fca1 100644
--- a/newlib/libc/stdio/vfscanf.c
+++ b/newlib/libc/stdio/vfscanf.c
@@ -825,7 +825,7 @@ __svfscanf (fp, fmt0, ap)
truncate some trailing digits to make room. */
if (exp_start >= buf + sizeof (buf) - MAX_LONG_LEN)
exp_start = buf + sizeof (buf) - MAX_LONG_LEN - 1;
- sprintf (exp_start, "e%d", new_exp);
+ sprintf (exp_start, "e%ld", new_exp);
}
res = atof (buf);
if (flags & LONG)
diff --git a/newlib/libc/stdlib/dtoa.c b/newlib/libc/stdlib/dtoa.c
index 3911f0e7b..1ea1c5560 100644
--- a/newlib/libc/stdlib/dtoa.c
+++ b/newlib/libc/stdlib/dtoa.c
@@ -291,7 +291,7 @@ _DEFUN (_dtoa_r,
#ifdef Sudden_Underflow
i = (int) (word0 (d) >> Exp_shift1 & (Exp_mask >> Exp_shift1));
#else
- if (i = (int) (word0 (d) >> Exp_shift1 & (Exp_mask >> Exp_shift1)))
+ if ((i = (int) (word0 (d) >> Exp_shift1 & (Exp_mask >> Exp_shift1))) != 0)
{
#endif
d2.d = d.d;
@@ -337,8 +337,8 @@ _DEFUN (_dtoa_r,
/* d is denormalized */
i = bbits + be + (Bias + (P - 1) - 1);
- x = i > 32 ? word0 (d) << 64 - i | word1 (d) >> i - 32
- : word1 (d) << 32 - i;
+ x = (i > 32) ? (word0 (d) << (64 - i)) | (word1 (d) >> (i - 32))
+ : (word1 (d) << (32 - i));
d2.d = x;
word0 (d2) -= 31 * Exp_msk1; /* adjust exponent */
i -= (Bias + (P - 1) - 1) + 1;
@@ -388,11 +388,11 @@ _DEFUN (_dtoa_r,
try_quick = 0;
}
leftright = 1;
+ ilim = ilim1 = -1;
switch (mode)
{
case 0:
case 1:
- ilim = ilim1 = -1;
i = 18;
ndigits = 0;
break;
@@ -449,7 +449,7 @@ _DEFUN (_dtoa_r,
}
d.d /= ds;
}
- else if (j1 = -k)
+ else if ((j1 = -k) != 0)
{
d.d *= tens[j1 & 0xf];
for (j = j1 >> 4; j; j >>= 1, i++)
@@ -564,7 +564,7 @@ _DEFUN (_dtoa_r,
if (i == ilim)
{
d.d += d.d;
- if (d.d > ds || d.d == ds && L & 1)
+ if ((d.d > ds) || ((d.d == ds) && (L & 1)))
{
bump_up:
while (*--s == '9')
@@ -640,7 +640,7 @@ _DEFUN (_dtoa_r,
Bfree (ptr, b);
b = b1;
}
- if (j = b5 - m5)
+ if ((j = b5 - m5) != 0)
b = pow5mult (ptr, b, j);
}
else
@@ -652,6 +652,7 @@ _DEFUN (_dtoa_r,
/* Check for special case that d is a normalized power of 2. */
+ spec_case = 0;
if (mode < 2)
{
if (!word1 (d) && !(word0 (d) & Bndry_mask)
@@ -665,8 +666,6 @@ _DEFUN (_dtoa_r,
s2 += Log2P;
spec_case = 1;
}
- else
- spec_case = 0;
}
/* Arrange for convenient computation of quotients:
@@ -678,10 +677,10 @@ _DEFUN (_dtoa_r,
*/
#ifdef Pack_32
- if (i = ((s5 ? 32 - hi0bits (S->_x[S->_wds - 1]) : 1) + s2) & 0x1f)
+ if ((i = ((s5 ? 32 - hi0bits (S->_x[S->_wds - 1]) : 1) + s2) & 0x1f) != 0)
i = 32 - i;
#else
- if (i = ((s5 ? 32 - hi0bits (S->_x[S->_wds - 1]) : 1) + s2) & 0xf)
+ if ((i = ((s5 ? 32 - hi0bits (S->_x[S->_wds - 1]) : 1) + s2) & 0xf) != 0)
i = 16 - i;
#endif
if (i > 4)
@@ -765,17 +764,17 @@ _DEFUN (_dtoa_r,
goto ret;
}
#endif
- if (j < 0 || j == 0 && !mode
+ if ((j < 0) || ((j == 0) && !mode
#ifndef ROUND_BIASED
&& !(word1 (d) & 1)
#endif
- )
+ ))
{
if (j1 > 0)
{
b = lshift (ptr, b, 1);
j1 = cmp (b, S);
- if ((j1 > 0 || j1 == 0 && dig & 1)
+ if (((j1 > 0) || ((j1 == 0) && (dig & 1)))
&& dig++ == '9')
goto round_9_up;
}
@@ -819,7 +818,7 @@ _DEFUN (_dtoa_r,
b = lshift (ptr, b, 1);
j = cmp (b, S);
- if (j > 0 || j == 0 && dig & 1)
+ if ((j > 0) || ((j == 0) && (dig & 1)))
{
roundoff:
while (*--s == '9')
diff --git a/newlib/libc/stdlib/ecvtbuf.c b/newlib/libc/stdlib/ecvtbuf.c
index 146a4febb..2b9b9eb8a 100644
--- a/newlib/libc/stdlib/ecvtbuf.c
+++ b/newlib/libc/stdlib/ecvtbuf.c
@@ -151,7 +151,6 @@ _DEFUN (print_e, (ptr, buf, invalue, width, type, dot),
char type _AND
int dot)
{
- int dp;
int sign;
char *end;
char *p;
diff --git a/newlib/libc/stdlib/mbctype.h b/newlib/libc/stdlib/mbctype.h
index 81a6f3895..6abcf3db0 100644
--- a/newlib/libc/stdlib/mbctype.h
+++ b/newlib/libc/stdlib/mbctype.h
@@ -12,8 +12,8 @@ int _EXFUN(_issjis2, (int c));
int _EXFUN(_iseucjp, (int c));
int _EXFUN(_isjis, (int c));
-#define _issjis1(c) ((c) >= 0x81 && (c) <= 0x9f || (c) >= 0xe0 && (c) <= 0xef)
-#define _issjis2(c) ((c) >= 0x40 && (c) <= 0x7e || (c) >= 0x80 && (c) <= 0xfc)
+#define _issjis1(c) (((c) >= 0x81 && (c) <= 0x9f) || ((c) >= 0xe0 && (c) <= 0xef))
+#define _issjis2(c) (((c) >= 0x40 && (c) <= 0x7e) || ((c) >= 0x80 && (c) <= 0xfc))
#define _iseucjp(c) ((c) >= 0xa1 && (c) <= 0xfe)
#define _isjis(c) ((c) >= 0x21 && (c) <= 0x7e)
diff --git a/newlib/libc/stdlib/mprec.c b/newlib/libc/stdlib/mprec.c
index 48e10be87..04ece0713 100644
--- a/newlib/libc/stdlib/mprec.c
+++ b/newlib/libc/stdlib/mprec.c
@@ -107,7 +107,7 @@ _DEFUN (Balloc, (ptr, k), struct _reent *ptr _AND int k)
}
}
- if (rv = ptr->_freelist[k])
+ if ((rv = ptr->_freelist[k]) != 0)
{
ptr->_freelist[k] = rv->_next;
}
@@ -354,7 +354,7 @@ _DEFUN (mult, (ptr, a, b), struct _reent * ptr _AND _Bigint * a _AND _Bigint * b
#ifdef Pack_32
for (; xb < xbe; xb++, xc0++)
{
- if (y = *xb & 0xffff)
+ if ((y = *xb & 0xffff) != 0)
{
x = xa;
xc = xc0;
@@ -370,7 +370,7 @@ _DEFUN (mult, (ptr, a, b), struct _reent * ptr _AND _Bigint * a _AND _Bigint * b
while (x < xae);
*xc = carry;
}
- if (y = *xb >> 16)
+ if ((y = *xb >> 16) != 0)
{
x = xa;
xc = xc0;
@@ -420,7 +420,7 @@ _DEFUN (pow5mult,
int i;
static _CONST int p05[3] = {5, 25, 125};
- if (i = k & 3)
+ if ((i = k & 3) != 0)
b = multadd (ptr, b, p05[i - 1], 0);
if (!(k >>= 2))
@@ -484,7 +484,7 @@ _DEFUN (lshift, (ptr, b, k), struct _reent * ptr _AND _Bigint * b _AND int k)
z = *x++ >> k1;
}
while (x < xe);
- if (*x1 = z)
+ if ((*x1 = z) != 0)
++n1;
}
#else
@@ -697,17 +697,17 @@ _DEFUN (b2d, (a, e),
#ifdef Pack_32
if (k < Ebits)
{
- d0 = Exp_1 | y >> Ebits - k;
+ d0 = Exp_1 | y >> (Ebits - k);
w = xa > xa0 ? *--xa : 0;
#ifndef _DOUBLE_IS_32BITS
- d1 = y << (32 - Ebits) + k | w >> Ebits - k;
+ d1 = y << ((32 - Ebits) + k) | w >> (Ebits - k);
#endif
goto ret_d;
}
z = xa > xa0 ? *--xa : 0;
if (k -= Ebits)
{
- d0 = Exp_1 | y << k | z >> 32 - k;
+ d0 = Exp_1 | y << k | z >> (32 - k);
y = xa > xa0 ? *--xa : 0;
#ifndef _DOUBLE_IS_32BITS
d1 = z << k | y >> 32 - k;
@@ -789,7 +789,7 @@ _DEFUN (d2b,
z |= Exp_msk11;
#endif
#else
- if (de = (int) (d0 >> Exp_shift))
+ if ((de = (int) (d0 >> Exp_shift)) != 0)
z |= Exp_msk1;
#endif
#ifdef Pack_32
diff --git a/newlib/libc/stdlib/setenv_r.c b/newlib/libc/stdlib/setenv_r.c
index 2d3c3f4e5..c012e22a3 100644
--- a/newlib/libc/stdlib/setenv_r.c
+++ b/newlib/libc/stdlib/setenv_r.c
@@ -64,7 +64,7 @@ _DEFUN (_setenv_r, (reent_ptr, name, value, rewrite),
}
if (strlen (C) >= l_value)
{ /* old larger; copy over */
- while (*C++ = *value++);
+ while ((*C++ = *value++) != 0);
ENV_UNLOCK;
return 0;
}
@@ -108,7 +108,7 @@ _DEFUN (_setenv_r, (reent_ptr, name, value, rewrite),
return -1;
}
for (C = environ[offset]; (*C = *name++) && *C != '='; ++C);
- for (*C++ = '='; *C++ = *value++;);
+ for (*C++ = '='; (*C++ = *value++) != 0;);
ENV_UNLOCK;
diff --git a/newlib/libc/stdlib/strtod.c b/newlib/libc/stdlib/strtod.c
index 77a17a135..a314d5b71 100644
--- a/newlib/libc/stdlib/strtod.c
+++ b/newlib/libc/stdlib/strtod.c
@@ -316,7 +316,7 @@ dig_done:
if (e1 > 0)
{
- if (i = e1 & 15)
+ if ((i = e1 & 15) != 0)
rv.d *= tens[i];
if (e1 &= ~15)
{
@@ -373,7 +373,7 @@ dig_done:
else if (e1 < 0)
{
e1 = -e1;
- if (i = e1 & 15)
+ if ((i = e1 & 15) != 0)
rv.d /= tens[i];
if (e1 &= ~15)
{
diff --git a/newlib/libc/stdlib/strtol.c b/newlib/libc/stdlib/strtol.c
index 6d355d563..4c07e6171 100644
--- a/newlib/libc/stdlib/strtol.c
+++ b/newlib/libc/stdlib/strtol.c
@@ -194,7 +194,7 @@ _DEFUN (_strtol_r, (rptr, nptr, endptr, base),
break;
if (c >= base)
break;
- if (any < 0 || acc > cutoff || acc == cutoff && c > cutlim)
+ if (any < 0 || acc > cutoff || (acc == cutoff && c > cutlim))
any = -1;
else {
any = 1;
diff --git a/newlib/libc/stdlib/strtoul.c b/newlib/libc/stdlib/strtoul.c
index f62c2f8f8..a3ac09d8e 100644
--- a/newlib/libc/stdlib/strtoul.c
+++ b/newlib/libc/stdlib/strtoul.c
@@ -174,7 +174,7 @@ _DEFUN (_strtoul_r, (rptr, nptr, endptr, base),
break;
if (c >= base)
break;
- if (any < 0 || acc > cutoff || acc == cutoff && c > cutlim)
+ if (any < 0 || acc > cutoff || (acc == cutoff && c > cutlim))
any = -1;
else {
any = 1;
diff --git a/newlib/libm/common/sf_expm1.c b/newlib/libm/common/sf_expm1.c
index 1df6f80d2..e9108b7b8 100644
--- a/newlib/libm/common/sf_expm1.c
+++ b/newlib/libm/common/sf_expm1.c
@@ -102,9 +102,10 @@ Q5 = -2.0109921195e-07; /* 0xb457edbb */
e = (x*(e-c)-c);
e -= hxs;
if(k== -1) return (float)0.5*(x-e)-(float)0.5;
- if(k==1)
+ if(k==1) {
if(x < (float)-0.25) return -(float)2.0*(e-(x+(float)0.5));
else return one+(float)2.0*(x-e);
+ }
if (k <= -2 || k>56) { /* suffice to return exp(x)-1 */
__int32_t i;
y = one-(e-x);
diff --git a/newlib/libm/common/sf_log1p.c b/newlib/libm/common/sf_log1p.c
index 31c426fe7..5ae7fb936 100644
--- a/newlib/libm/common/sf_log1p.c
+++ b/newlib/libm/common/sf_log1p.c
@@ -93,8 +93,8 @@ static float zero = 0.0;
}
hfsq=(float)0.5*f*f;
if(hu==0) { /* |f| < 2**-20 */
- if(f==zero) if(k==0) return zero;
- else {c += k*ln2_lo; return k*ln2_hi+c;}
+ if(f==zero) { if(k==0) return zero;
+ else {c += k*ln2_lo; return k*ln2_hi+c;}}
R = hfsq*((float)1.0-(float)0.66666666666666666*f);
if(k==0) return f-R; else
return k*ln2_hi-((R-(k*ln2_lo+c))-f);
diff --git a/newlib/libm/common/sf_scalbn.c b/newlib/libm/common/sf_scalbn.c
index ee65f40ad..fb67c7816 100644
--- a/newlib/libm/common/sf_scalbn.c
+++ b/newlib/libm/common/sf_scalbn.c
@@ -54,10 +54,11 @@ tiny = 1.0e-30;
if (k > 0xfe) return huge*copysignf(huge,x); /* overflow */
if (k > 0) /* normal result */
{SET_FLOAT_WORD(x,(ix&0x807fffff)|(k<<23)); return x;}
- if (k <= -25)
+ if (k <= -25) {
if (n > OVERFLOW_INT) /* in case integer overflow in n+k */
return huge*copysignf(huge,x); /*overflow*/
else return tiny*copysignf(tiny,x); /*underflow*/
+ }
k += 25; /* subnormal result */
SET_FLOAT_WORD(x,(ix&0x807fffff)|(k<<23));
return x*twom25;
diff --git a/newlib/libm/math/ef_log.c b/newlib/libm/math/ef_log.c
index 93f072c56..87d6af2c5 100644
--- a/newlib/libm/math/ef_log.c
+++ b/newlib/libm/math/ef_log.c
@@ -65,8 +65,8 @@ static float zero = 0.0;
k += (i>>23);
f = x-(float)1.0;
if((0x007fffff&(15+ix))<16) { /* |f| < 2**-20 */
- if(f==zero) if(k==0) return zero; else {dk=(float)k;
- return dk*ln2_hi+dk*ln2_lo;}
+ if(f==zero) { if(k==0) return zero; else {dk=(float)k;
+ return dk*ln2_hi+dk*ln2_lo;}}
R = f*f*((float)0.5-(float)0.33333333333333333*f);
if(k==0) return f-R; else {dk=(float)k;
return dk*ln2_hi-((R-dk*ln2_lo)-f);}