Aren/NetBSD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Rearrange to avoid sign problems with GCC.

Browse Source
This commit is contained in:
mycroft 1995-12-21 03:56:06 +00:00
parent 4fe3e795ba
commit 9b62656910
4 changed files with 84 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
lib/libc/stdlib/strtol.c
View File

@ -33,7 +33,7 @@
#if defined(LIBC_SCCS) && !defined(lint)
/*static char *sccsid = "from: @(#)strtol.c 5.4 (Berkeley) 2/23/91";*/
static char *rcsid = "$Id: strtol.c,v 1.5 1995/12/20 23:14:48 mycroft Exp $";
static char *rcsid = "$Id: strtol.c,v 1.6 1995/12/21 03:56:06 mycroft Exp $";
#endif /* LIBC_SCCS and not lint */
#include <ctype.h>
@ -55,9 +55,8 @@ strtol(nptr, endptr, base)
register int base;
{
register const char *s;
register unsigned long acc;
register long acc, cutoff;
register int c;
register unsigned long cutoff;
register int neg, any, cutlim;
/*
@ -103,9 +102,16 @@ strtol(nptr, endptr, base)
* Set any if any `digits' consumed; make it negative to indicate
* overflow.
*/
cutoff = neg ? -(unsigned long)LONG_MIN : LONG_MAX;
cutlim = cutoff % (unsigned long)base;
cutoff /= (unsigned long)base;
cutoff = neg ? LONG_MIN : LONG_MAX;
cutlim = cutoff % base;
cutoff /= base;
if (neg) {
if (cutlim > 0) {
cutlim -= base;
cutoff += 1;
}
cutlim = -cutlim;
}
for (acc = 0, any = 0;; c = *s++) {
if (isdigit(c))
c -= '0';
@ -115,19 +121,30 @@ strtol(nptr, endptr, base)
break;
if (c >= base)
break;
if (any < 0 || acc > cutoff || acc == cutoff && c > cutlim)
any = -1;
else {
any = 1;
acc *= (unsigned long)base;
acc += c;
if (any < 0)
continue;
if (neg) {
if (acc < cutoff || acc == cutoff && c > cutlim) {
any = -1;
acc = LONG_MIN;
errno = ERANGE;
} else {
any = 1;
acc *= base;
acc -= c;
}
} else {
if (acc > cutoff || acc == cutoff && c > cutlim) {
any = -1;
acc = LONG_MAX;
errno = ERANGE;
} else {
any = 1;
acc *= base;
acc += c;
}
}
}
if (any < 0) {
acc = neg ? LONG_MIN : LONG_MAX;
errno = ERANGE;
} else if (neg)
acc = -acc;
if (endptr != 0)
*endptr = (char *) (any ? s - 1 : nptr);
return (acc);

49
lib/libc/stdlib/strtoq.c
View File

@ -55,9 +55,8 @@ strtoq(nptr, endptr, base)
register int base;
{
register const char *s;
register u_quad_t acc;
register quad_t acc, cutoff;
register int c;
register u_quad_t cutoff;
register int neg, any, cutlim;
/*
@ -104,9 +103,16 @@ strtoq(nptr, endptr, base)
* Set any if any `digits' consumed; make it negative to indicate
* overflow.
*/
cutoff = neg ? -(u_quad_t)QUAD_MIN : QUAD_MAX;
cutlim = cutoff % (u_quad_t)base;
cutoff /= (u_quad_t)base;
cutoff = neg ? QUAD_MIN : QUAD_MAX;
cutlim = cutoff % base;
cutoff /= base;
if (neg) {
if (cutlim > 0) {
cutlim -= base;
cutoff += 1;
}
cutlim = -cutlim;
}
for (acc = 0, any = 0;; c = *s++) {
if (isdigit(c))
c -= '0';
@ -116,19 +122,30 @@ strtoq(nptr, endptr, base)
break;
if (c >= base)
break;
if (any < 0 || acc > cutoff || acc == cutoff && c > cutlim)
any = -1;
else {
any = 1;
acc *= (u_quad_t)base;
acc += c;
if (any < 0)
continue;
if (neg) {
if (acc < cutoff || acc == cutoff && c > cutlim) {
any = -1;
acc = QUAD_MIN;
errno = ERANGE;
} else {
any = 1;
acc *= base;
acc -= c;
}
} else {
if (acc > cutoff || acc == cutoff && c > cutlim) {
any = -1;
acc = QUAD_MAX;
errno = ERANGE;
} else {
any = 1;
acc *= base;
acc += c;
}
}
}
if (any < 0) {
acc = neg ? QUAD_MIN : QUAD_MAX;
errno = ERANGE;
} else if (neg)
acc = -acc;
if (endptr != 0)
*endptr = (char *) (any ? s - 1 : nptr);
return (acc);

18
lib/libc/stdlib/strtoul.c
View File

@ -33,7 +33,7 @@
#if defined(LIBC_SCCS) && !defined(lint)
/*static char *sccsid = "from: @(#)strtoul.c 5.3 (Berkeley) 2/23/91";*/
static char *rcsid = "$Id: strtoul.c,v 1.5 1995/12/20 23:14:50 mycroft Exp $";
static char *rcsid = "$Id: strtoul.c,v 1.6 1995/12/21 03:56:09 mycroft Exp $";
#endif /* LIBC_SCCS and not lint */
#include <ctype.h>
@ -54,9 +54,8 @@ strtoul(nptr, endptr, base)
register int base;
{
register const char *s;
register unsigned long acc;
register unsigned long acc, cutoff;
register int c;
register unsigned long cutoff;
register int neg, any, cutlim;
/*
@ -94,18 +93,19 @@ strtoul(nptr, endptr, base)
break;
if (c >= base)
break;
if (any < 0 || acc > cutoff || acc == cutoff && c > cutlim)
if (any < 0)
continue;
if (acc > cutoff || acc == cutoff && c > cutlim) {
any = -1;
else {
acc = ULONG_MAX;
errno = ERANGE;
} else {
any = 1;
acc *= (unsigned long)base;
acc += c;
}
}
if (any < 0) {
acc = ULONG_MAX;
errno = ERANGE;
} else if (neg)
if (neg && any > 0)
acc = -acc;
if (endptr != 0)
*endptr = (char *) (any ? s - 1 : nptr);

16
lib/libc/stdlib/strtouq.c
View File

@ -55,9 +55,8 @@ strtouq(nptr, endptr, base)
register int base;
{
register const char *s;
register u_quad_t acc;
register u_quad_t acc, cutoff;
register int c;
register u_quad_t cutoff;
register int neg, any, cutlim;
/*
@ -95,18 +94,19 @@ strtouq(nptr, endptr, base)
break;
if (c >= base)
break;
if (any < 0 || acc > cutoff || acc == cutoff && c > cutlim)
if (any < 0)
continue;
if (acc > cutoff || acc == cutoff && c > cutlim) {
any = -1;
else {
acc = UQUAD_MAX;
errno = ERANGE;
} else {
any = 1;
acc *= (u_quad_t)base;
acc += c;
}
}
if (any < 0) {
acc = UQUAD_MAX;
errno = ERANGE;
} else if (neg)
if (neg && any > 0)
acc = -acc;
if (endptr != 0)
*endptr = (char *) (any ? s - 1 : nptr);