* 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.
+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
int sig _AND
_sig_func_ptr func)
{
- _sig_func_ptr old_func, *temp;
+ _sig_func_ptr old_func;
if (sig < 0 || sig >= NSIG)
{
static void
std (ptr, flags, file, data)
FILE *ptr;
+ int flags;
+ int file;
struct _reent *data;
{
ptr->_p = 0;
#include <ctype.h>
#include <reent.h>
-static
+static int
_DEFUN (_gettemp, (ptr, path, doopen),
struct _reent *ptr _AND
char *path _AND
/*NOTREACHED*/
}
+int
_DEFUN (_mkstemp_r, (ptr, path),
struct _reent *ptr _AND
char *path)
#ifndef _REENT_ONLY
+int
_DEFUN (mkstemp, (path),
char *path)
{
{
/* CHECK_INIT is (eventually) called by __swbuf. */
- _putchar_r (_REENT, c);
+ return _putchar_r (_REENT, c);
}
#endif
lflush (fp)
FILE *fp;
{
- if ((fp->_flags & (__SLBF | __SWR)) == __SLBF | __SWR)
+ if ((fp->_flags & (__SLBF | __SWR)) == (__SLBF | __SWR))
return fflush (fp);
return 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 */
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)
#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;
/* 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;
try_quick = 0;
}
leftright = 1;
+ ilim = ilim1 = -1;
switch (mode)
{
case 0:
case 1:
- ilim = ilim1 = -1;
i = 18;
ndigits = 0;
break;
}
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++)
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')
Bfree (ptr, b);
b = b1;
}
- if (j = b5 - m5)
+ if ((j = b5 - m5) != 0)
b = pow5mult (ptr, b, j);
}
else
/* 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)
s2 += Log2P;
spec_case = 1;
}
- else
- spec_case = 0;
}
/* Arrange for convenient computation of quotients:
*/
#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)
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;
}
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')
char type _AND
int dot)
{
- int dp;
int sign;
char *end;
char *p;
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)
}
}
- if (rv = ptr->_freelist[k])
+ if ((rv = ptr->_freelist[k]) != 0)
{
ptr->_freelist[k] = rv->_next;
}
#ifdef Pack_32
for (; xb < xbe; xb++, xc0++)
{
- if (y = *xb & 0xffff)
+ if ((y = *xb & 0xffff) != 0)
{
x = xa;
xc = xc0;
while (x < xae);
*xc = carry;
}
- if (y = *xb >> 16)
+ if ((y = *xb >> 16) != 0)
{
x = xa;
xc = xc0;
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))
z = *x++ >> k1;
}
while (x < xe);
- if (*x1 = z)
+ if ((*x1 = z) != 0)
++n1;
}
#else
#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;
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
}
if (strlen (C) >= l_value)
{ /* old larger; copy over */
- while (*C++ = *value++);
+ while ((*C++ = *value++) != 0);
ENV_UNLOCK;
return 0;
}
return -1;
}
for (C = environ[offset]; (*C = *name++) && *C != '='; ++C);
- for (*C++ = '='; *C++ = *value++;);
+ for (*C++ = '='; (*C++ = *value++) != 0;);
ENV_UNLOCK;
if (e1 > 0)
{
- if (i = e1 & 15)
+ if ((i = e1 & 15) != 0)
rv.d *= tens[i];
if (e1 &= ~15)
{
else if (e1 < 0)
{
e1 = -e1;
- if (i = e1 & 15)
+ if ((i = e1 & 15) != 0)
rv.d /= tens[i];
if (e1 &= ~15)
{
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;
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;
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);
}
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);
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;
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);}