long strtol(const char *s, char **endptr, int base) {
  while (*s == ' ' || *s == '\t')
    s++;
  int neg = *s++ == '-' ? 1 : 0;
  if (base == 16)
    s += 2;
  long number = 0;
  while (*s != '\0') {
    int cbn = 0;
    if (*s >= 'A')
      cbn = *s - 'A';
    else if (*s >= 'a')
      cbn = *s - 'a';
    else if (*s >= '0')
      cbn = *s - '0';
    else
      break;
    if (cbn >= base)
      break;
    number = number * base + cbn;
    s++;
  }
  if (endptr)
    *endptr = (char *)s;
  return neg ? -number : number;
}


x86 assembly (clang, -O0):
<strtol>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x20,%ecx
mov    %al,-0x25(%rbp)
je     1134 <strtol+0x34>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x9,%eax
sete   %al
mov    %al,-0x25(%rbp)
mov    -0x25(%rbp),%al
test   $0x1,%al
jne    1144 <strtol+0x44>
jmp    1155 <strtol+0x55>
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
jmp    110f <strtol+0xf>
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movsbl (%rax),%edx
xor    %eax,%eax
mov    $0x1,%ecx
cmp    $0x2d,%edx
cmove  %ecx,%eax
mov    %eax,-0x18(%rbp)
cmpl   $0x10,-0x14(%rbp)
jne    118d <strtol+0x8d>
mov    -0x8(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x8(%rbp)
movq   $0x0,-0x20(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     125a <strtol+0x15a>
movl   $0x0,-0x24(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x41,%eax
jl     11ce <strtol+0xce>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
sub    $0x41,%eax
mov    %eax,-0x24(%rbp)
jmp    1221 <strtol+0x121>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x61,%eax
jl     11f0 <strtol+0xf0>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
sub    $0x61,%eax
mov    %eax,-0x24(%rbp)
jmp    121c <strtol+0x11c>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
jl     1212 <strtol+0x112>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
sub    $0x30,%eax
mov    %eax,-0x24(%rbp)
jmp    1217 <strtol+0x117>
jmp    125a <strtol+0x15a>
jmp    121c <strtol+0x11c>
jmp    1221 <strtol+0x121>
mov    -0x24(%rbp),%eax
cmp    -0x14(%rbp),%eax
jl     1232 <strtol+0x132>
jmp    125a <strtol+0x15a>
mov    -0x20(%rbp),%rax
movslq -0x14(%rbp),%rcx
imul   %rcx,%rax
movslq -0x24(%rbp),%rcx
add    %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
jmp    1195 <strtol+0x95>
cmpq   $0x0,-0x10(%rbp)
je     1270 <strtol+0x170>
mov    -0x8(%rbp),%rcx
mov    -0x10(%rbp),%rax
mov    %rcx,(%rax)
cmpl   $0x0,-0x18(%rbp)
je     1289 <strtol+0x189>
xor    %eax,%eax
sub    -0x20(%rbp),%rax
mov    %rax,-0x30(%rbp)
jmp    1291 <strtol+0x191>
mov    -0x20(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<strtol>:
jmp    1114 <strtol+0x14>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
add    $0x1,%rdi
movzbl (%rdi),%ecx
cmp    $0x20,%cl
je     1110 <strtol+0x10>
cmp    $0x9,%cl
je     1110 <strtol+0x10>
xor    %eax,%eax
cmp    $0x10,%edx
sete   %al
lea    (%rdi,%rax,2),%r9
add    $0x1,%r9
mov    0x1(%rdi,%rax,2),%al
test   %al,%al
je     1176 <strtol+0x76>
movslq %edx,%r8
xor    %edi,%edi
xchg   %ax,%ax
mov    $0xffffffbf,%r10d
cmp    $0x40,%al
jg     1154 <strtol+0x54>
mov    $0xffffffd0,%r10d
cmp    $0x30,%al
jl     1178 <strtol+0x78>
movsbl %al,%eax
add    %r10d,%eax
cmp    %edx,%eax
jge    1178 <strtol+0x78>
imul   %r8,%rdi
cltq
add    %rax,%rdi
movzbl 0x1(%r9),%eax
add    $0x1,%r9
test   %al,%al
jne    1140 <strtol+0x40>
jmp    1178 <strtol+0x78>
xor    %edi,%edi
test   %rsi,%rsi
je     1180 <strtol+0x80>
mov    %r9,(%rsi)
mov    %rdi,%rax
neg    %rax
cmp    $0x2d,%cl
cmovne %rdi,%rax
ret

LLVM IR (-O0):
define i64 @strtol(i8* %0, i8** %1, i32 %2) {
%4 = alloca i8*
%5 = alloca i8**
%6 = alloca i32
%7 = alloca i32
%8 = alloca i64
%9 = alloca i32
store i8* %0, i8** %4
store i8** %1, i8*** %5
store i32 %2, i32* %6
br label %10
10: ; preds = %22, %3
%11 = load i8*, i8** %4
%12 = load i8, i8* %11
%13 = sext i8 %12 to i32
%14 = icmp eq i32 %13, 32
br i1 %14, label %20, label %15
15: ; preds = %10
%16 = load i8*, i8** %4
%17 = load i8, i8* %16
%18 = sext i8 %17 to i32
%19 = icmp eq i32 %18, 9
br label %20
20: ; preds = %15, %10
%21 = phi i1 [ true, %10 ], [ %19, %15 ]
br i1 %21, label %22, label %25
22: ; preds = %20
%23 = load i8*, i8** %4
%24 = getelementptr inbounds i8, i8* %23, i32 1
store i8* %24, i8** %4
br label %10
25: ; preds = %20
%26 = load i8*, i8** %4
%27 = getelementptr inbounds i8, i8* %26, i32 1
store i8* %27, i8** %4
%28 = load i8, i8* %26
%29 = sext i8 %28 to i32
%30 = icmp eq i32 %29, 45
%31 = zext i1 %30 to i64
%32 = select i1 %30, i32 1, i32 0
store i32 %32, i32* %7
%33 = load i32, i32* %6
%34 = icmp eq i32 %33, 16
br i1 %34, label %35, label %38
35: ; preds = %25
%36 = load i8*, i8** %4
%37 = getelementptr inbounds i8, i8* %36, i64 2
store i8* %37, i8** %4
br label %38
38: ; preds = %35, %25
store i64 0, i64* %8
br label %39
39: ; preds = %82, %38
%40 = load i8*, i8** %4
%41 = load i8, i8* %40
%42 = sext i8 %41 to i32
%43 = icmp ne i32 %42, 0
br i1 %43, label %44, label %92
44: ; preds = %39
store i32 0, i32* %9
%45 = load i8*, i8** %4
%46 = load i8, i8* %45
%47 = sext i8 %46 to i32
%48 = icmp sge i32 %47, 65
br i1 %48, label %49, label %54
49: ; preds = %44
%50 = load i8*, i8** %4
%51 = load i8, i8* %50
%52 = sext i8 %51 to i32
%53 = sub nsw i32 %52, 65
store i32 %53, i32* %9
br label %77
54: ; preds = %44
%55 = load i8*, i8** %4
%56 = load i8, i8* %55
%57 = sext i8 %56 to i32
%58 = icmp sge i32 %57, 97
br i1 %58, label %59, label %64
59: ; preds = %54
%60 = load i8*, i8** %4
%61 = load i8, i8* %60
%62 = sext i8 %61 to i32
%63 = sub nsw i32 %62, 97
store i32 %63, i32* %9
br label %76
64: ; preds = %54
%65 = load i8*, i8** %4
%66 = load i8, i8* %65
%67 = sext i8 %66 to i32
%68 = icmp sge i32 %67, 48
br i1 %68, label %69, label %74
69: ; preds = %64
%70 = load i8*, i8** %4
%71 = load i8, i8* %70
%72 = sext i8 %71 to i32
%73 = sub nsw i32 %72, 48
store i32 %73, i32* %9
br label %75
74: ; preds = %64
br label %92
75: ; preds = %69
br label %76
76: ; preds = %75, %59
br label %77
77: ; preds = %76, %49
%78 = load i32, i32* %9
%79 = load i32, i32* %6
%80 = icmp sge i32 %78, %79
br i1 %80, label %81, label %82
81: ; preds = %77
br label %92
82: ; preds = %77
%83 = load i64, i64* %8
%84 = load i32, i32* %6
%85 = sext i32 %84 to i64
%86 = mul nsw i64 %83, %85
%87 = load i32, i32* %9
%88 = sext i32 %87 to i64
%89 = add nsw i64 %86, %88
store i64 %89, i64* %8
%90 = load i8*, i8** %4
%91 = getelementptr inbounds i8, i8* %90, i32 1
store i8* %91, i8** %4
br label %39
92: ; preds = %81, %74, %39
%93 = load i8**, i8*** %5
%94 = icmp ne i8** %93, null
br i1 %94, label %95, label %98
95: ; preds = %92
%96 = load i8*, i8** %4
%97 = load i8**, i8*** %5
store i8* %96, i8** %97
br label %98
98: ; preds = %95, %92
%99 = load i32, i32* %7
%100 = icmp ne i32 %99, 0
br i1 %100, label %101, label %104
101: ; preds = %98
%102 = load i64, i64* %8
%103 = sub nsw i64 0, %102
br label %106
104: ; preds = %98
%105 = load i64, i64* %8
br label %106
106: ; preds = %104, %101
%107 = phi i64 [ %103, %101 ], [ %105, %104 ]
ret i64 %107
}

LLVM IR (-O2):
define i64 @strtol(i8* %0, i8** writeonly %1, i32 %2) {
br label %4
4: ; preds = %7, %3
%5 = phi i8* [ %0, %3 ], [ %8, %7 ]
%6 = load i8, i8* %5
switch i8 %6, label %9 [
i8 32, label %7
i8 9, label %7
]
7: ; preds = %4, %4
%8 = getelementptr inbounds i8, i8* %5, i64 1
br label %4
9: ; preds = %4
%10 = icmp eq i32 %2, 16
%11 = select i1 %10, i64 3, i64 1
%12 = getelementptr inbounds i8, i8* %5, i64 %11
%13 = load i8, i8* %12
%14 = icmp eq i8 %13, 0
br i1 %14, label %36, label %15
15: ; preds = %9
%16 = sext i32 %2 to i64
br label %17
17: ; preds = %15, %29
%18 = phi i8 [ %13, %15 ], [ %34, %29 ]
%19 = phi i64 [ 0, %15 ], [ %32, %29 ]
%20 = phi i8* [ %12, %15 ], [ %33, %29 ]
%21 = sext i8 %18 to i32
%22 = icmp sgt i8 %18, 64
br i1 %22, label %25, label %23
23: ; preds = %17
%24 = icmp sgt i8 %18, 47
br i1 %24, label %25, label %36
25: ; preds = %23, %17
%26 = phi i32 [ -65, %17 ], [ -48, %23 ]
%27 = add nsw i32 %26, %21
%28 = icmp slt i32 %27, %2
br i1 %28, label %29, label %36
29: ; preds = %25
%30 = mul nsw i64 %19, %16
%31 = sext i32 %27 to i64
%32 = add nsw i64 %30, %31
%33 = getelementptr inbounds i8, i8* %20, i64 1
%34 = load i8, i8* %33
%35 = icmp eq i8 %34, 0
br i1 %35, label %36, label %17
36: ; preds = %29, %23, %25, %9
%37 = phi i8* [ %12, %9 ], [ %20, %25 ], [ %20, %23 ], [ %33, %29 ]
%38 = phi i64 [ 0, %9 ], [ %19, %25 ], [ %19, %23 ], [ %32, %29 ]
%39 = icmp eq i8** %1, null
br i1 %39, label %41, label %40
40: ; preds = %36
store i8* %37, i8** %1
br label %41
41: ; preds = %40, %36
%42 = icmp eq i8 %6, 45
%43 = sub nsw i64 0, %38
%44 = select i1 %42, i64 %43, i64 %38
ret i64 %44
}