forked from KolibriOS/kolibrios
b5b499b8c8
Move to folder with tcc. Part 1 git-svn-id: svn://kolibrios.org@8793 a494cfbc-eb01-0410-851d-a64ba20cac60
17 lines
307 B
C
17 lines
307 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;
|
|
} |