Files
zig/libc/musl/src/stdlib/atol.c
Andrew Kelley 62486c35a4 ability to build musl from source
bundles musl 1.1.21

See #514
2019-03-12 17:32:32 -04:00

18 lines
308 B
C

#include <stdlib.h>
#include <ctype.h>
long atol(const char *s)
{
long n=0;
int neg=0;
while (isspace(*s)) s++;
switch (*s) {
case '-': neg=1;
case '+': s++;
}
/* Compute n as a negative number to avoid overflow on LONG_MIN */
while (isdigit(*s))
n = 10*n - (*s++ - '0');
return neg ? n : -n;
}