long lstrtol(s, radix, pend)
char *s;
int radix;
char **pend;
{
  int v;
  int neg = 0;
  long n = 0;
  while (*s == ' ' || *s == '\t')
    s++;
  if (*s == '-') {
    neg = 1;
    s++;
  } else if (*s == '+') {
    s++;
  }
  if (radix == 0) {
    radix = 10;
    if (*s == '0') {
      switch (*++s) {
      case 'x':
        radix = 16;
        s++;
        break;
      default:
        radix = 8;
        break;
      }
    }
  }
  for (;;) {
    if (*s >= '0' && *s <= '9')
      v = *s - '0';
    else if (*s >= 'a' && *s <= 'f')
      v = *s - 'a' + 10;
    else if (*s >= 'A' && *s <= 'F')
      v = *s - 'A' + 10;
    else
      break;
    if (v >= radix)
      break;
    n = n * radix + v;
    s++;
  }
  if (pend != 0) {
    while (*s == ' ' || *s == '\t')
      s++;
    *pend = s;
  }
  if (neg)
    return (-n);
  return (n);
}


x86 assembly (clang, -O0):
<lstrtol>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %rdx,-0x20(%rbp)
movl   $0x0,-0x28(%rbp)
movq   $0x0,-0x30(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x20,%ecx
mov    %al,-0x31(%rbp)
je     1143 <lstrtol+0x43>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x9,%eax
sete   %al
mov    %al,-0x31(%rbp)
mov    -0x31(%rbp),%al
test   $0x1,%al
jne    1153 <lstrtol+0x53>
jmp    1164 <lstrtol+0x64>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    111e <lstrtol+0x1e>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2d,%eax
jne    118c <lstrtol+0x8c>
movl   $0x1,-0x28(%rbp)
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    11ad <lstrtol+0xad>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2b,%eax
jne    11a8 <lstrtol+0xa8>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    11ad <lstrtol+0xad>
cmpl   $0x0,-0x14(%rbp)
jne    1216 <lstrtol+0x116>
movl   $0xa,-0x14(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
jne    1211 <lstrtol+0x111>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
mov    0x1(%rax),%al
sub    $0x78,%al
jne    1205 <lstrtol+0x105>
jmp    11ed <lstrtol+0xed>
movl   $0x10,-0x14(%rbp)
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    120c <lstrtol+0x10c>
movl   $0x8,-0x14(%rbp)
jmp    1211 <lstrtol+0x111>
jmp    1216 <lstrtol+0x116>
jmp    121b <lstrtol+0x11b>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
jl     124d <lstrtol+0x14d>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x39,%eax
jg     124d <lstrtol+0x14d>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
sub    $0x30,%eax
mov    %eax,-0x24(%rbp)
jmp    12c6 <lstrtol+0x1c6>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x61,%eax
jl     1282 <lstrtol+0x182>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x66,%eax
jg     1282 <lstrtol+0x182>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
sub    $0x61,%eax
add    $0xa,%eax
mov    %eax,-0x24(%rbp)
jmp    12c1 <lstrtol+0x1c1>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x41,%eax
jl     12b7 <lstrtol+0x1b7>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x46,%eax
jg     12b7 <lstrtol+0x1b7>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
sub    $0x41,%eax
add    $0xa,%eax
mov    %eax,-0x24(%rbp)
jmp    12bc <lstrtol+0x1bc>
jmp    12ff <lstrtol+0x1ff>
jmp    12c1 <lstrtol+0x1c1>
jmp    12c6 <lstrtol+0x1c6>
mov    -0x24(%rbp),%eax
cmp    -0x14(%rbp),%eax
jl     12d7 <lstrtol+0x1d7>
jmp    12ff <lstrtol+0x1ff>
mov    -0x30(%rbp),%rax
movslq -0x14(%rbp),%rcx
imul   %rcx,%rax
movslq -0x24(%rbp),%rcx
add    %rcx,%rax
mov    %rax,-0x30(%rbp)
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    121b <lstrtol+0x11b>
cmpq   $0x0,-0x20(%rbp)
je     1360 <lstrtol+0x260>
jmp    130f <lstrtol+0x20f>
mov    -0x10(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x20,%ecx
mov    %al,-0x32(%rbp)
je     1334 <lstrtol+0x234>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x9,%eax
sete   %al
mov    %al,-0x32(%rbp)
mov    -0x32(%rbp),%al
test   $0x1,%al
jne    1344 <lstrtol+0x244>
jmp    1355 <lstrtol+0x255>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    130f <lstrtol+0x20f>
mov    -0x10(%rbp),%rcx
mov    -0x20(%rbp),%rax
mov    %rcx,(%rax)
cmpl   $0x0,-0x28(%rbp)
je     1379 <lstrtol+0x279>
xor    %eax,%eax
sub    -0x30(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1381 <lstrtol+0x281>
mov    -0x30(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<lstrtol>:
lea    0xef9(%rip),%rax
nopw   0x0(%rax,%rax,1)
movzbl (%rdi),%ecx
add    $0xf7,%cl
cmp    $0x24,%cl
ja     1131 <lstrtol+0x31>
movzbl %cl,%ecx
movslq (%rax,%rcx,4),%rcx
add    %rax,%rcx
jmp    *%rcx
add    $0x1,%rdi
jmp    1110 <lstrtol+0x10>
add    $0x1,%rdi
mov    $0x1,%r8b
test   %esi,%esi
jne    116b <lstrtol+0x6b>
jmp    1145 <lstrtol+0x45>
add    $0x1,%rdi
xor    %r8d,%r8d
test   %esi,%esi
jne    116b <lstrtol+0x6b>
mov    $0xa,%esi
cmpb   $0x30,(%rdi)
jne    116b <lstrtol+0x6b>
lea    0x2(%rdi),%rax
xor    %ecx,%ecx
cmpb   $0x78,0x1(%rdi)
lea    0x1(%rdi),%rdi
sete   %cl
cmove  %rax,%rdi
lea    0x8(,%rcx,8),%esi
movslq %esi,%r9
xor    %r10d,%r10d
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movzbl (%rdi),%eax
lea    -0x30(%rax),%ecx
mov    $0xffffffd0,%r11d
cmp    $0xa,%cl
jb     11ad <lstrtol+0xad>
lea    -0x61(%rax),%ecx
mov    $0xffffffa9,%r11d
cmp    $0x6,%cl
jb     11ad <lstrtol+0xad>
lea    -0x41(%rax),%ecx
mov    $0xffffffc9,%r11d
cmp    $0x5,%cl
ja     11c7 <lstrtol+0xc7>
movsbl %al,%ecx
add    %r11d,%ecx
cmp    %esi,%ecx
jge    11c7 <lstrtol+0xc7>
imul   %r9,%r10
movslq %ecx,%rax
add    %rax,%r10
add    $0x1,%rdi
jmp    1180 <lstrtol+0x80>
test   %rdx,%rdx
jne    11d8 <lstrtol+0xd8>
jmp    11e3 <lstrtol+0xe3>
xchg   %ax,%ax
movzbl 0x1(%rdi),%eax
add    $0x1,%rdi
cmp    $0x20,%al
je     11d0 <lstrtol+0xd0>
cmp    $0x9,%al
je     11d0 <lstrtol+0xd0>
mov    %rdi,(%rdx)
mov    %r10,%rax
neg    %rax
test   %r8b,%r8b
cmovne %r10,%rax
ret

LLVM IR (-O0):
define i64 @lstrtol(i8* %0, i32 %1, i8** %2) {
%4 = alloca i64
%5 = alloca i8*
%6 = alloca i32
%7 = alloca i8**
%8 = alloca i32
%9 = alloca i32
%10 = alloca i64
store i8* %0, i8** %5
store i32 %1, i32* %6
store i8** %2, i8*** %7
store i32 0, i32* %9
store i64 0, i64* %10
br label %11
11: ; preds = %23, %3
%12 = load i8*, i8** %5
%13 = load i8, i8* %12
%14 = sext i8 %13 to i32
%15 = icmp eq i32 %14, 32
br i1 %15, label %21, label %16
16: ; preds = %11
%17 = load i8*, i8** %5
%18 = load i8, i8* %17
%19 = sext i8 %18 to i32
%20 = icmp eq i32 %19, 9
br label %21
21: ; preds = %16, %11
%22 = phi i1 [ true, %11 ], [ %20, %16 ]
br i1 %22, label %23, label %26
23: ; preds = %21
%24 = load i8*, i8** %5
%25 = getelementptr inbounds i8, i8* %24, i32 1
store i8* %25, i8** %5
br label %11
26: ; preds = %21
%27 = load i8*, i8** %5
%28 = load i8, i8* %27
%29 = sext i8 %28 to i32
%30 = icmp eq i32 %29, 45
br i1 %30, label %31, label %34
31: ; preds = %26
store i32 1, i32* %9
%32 = load i8*, i8** %5
%33 = getelementptr inbounds i8, i8* %32, i32 1
store i8* %33, i8** %5
br label %43
34: ; preds = %26
%35 = load i8*, i8** %5
%36 = load i8, i8* %35
%37 = sext i8 %36 to i32
%38 = icmp eq i32 %37, 43
br i1 %38, label %39, label %42
39: ; preds = %34
%40 = load i8*, i8** %5
%41 = getelementptr inbounds i8, i8* %40, i32 1
store i8* %41, i8** %5
br label %42
42: ; preds = %39, %34
br label %43
43: ; preds = %42, %31
%44 = load i32, i32* %6
%45 = icmp eq i32 %44, 0
br i1 %45, label %46, label %62
46: ; preds = %43
store i32 10, i32* %6
%47 = load i8*, i8** %5
%48 = load i8, i8* %47
%49 = sext i8 %48 to i32
%50 = icmp eq i32 %49, 48
br i1 %50, label %51, label %61
51: ; preds = %46
%52 = load i8*, i8** %5
%53 = getelementptr inbounds i8, i8* %52, i32 1
store i8* %53, i8** %5
%54 = load i8, i8* %53
%55 = sext i8 %54 to i32
switch i32 %55, label %59 [
i32 120, label %56
]
56: ; preds = %51
store i32 16, i32* %6
%57 = load i8*, i8** %5
%58 = getelementptr inbounds i8, i8* %57, i32 1
store i8* %58, i8** %5
br label %60
59: ; preds = %51
store i32 8, i32* %6
br label %60
60: ; preds = %59, %56
br label %61
61: ; preds = %60, %46
br label %62
62: ; preds = %61, %43
br label %63
63: ; preds = %118, %62
%64 = load i8*, i8** %5
%65 = load i8, i8* %64
%66 = sext i8 %65 to i32
%67 = icmp sge i32 %66, 48
br i1 %67, label %68, label %78
68: ; preds = %63
%69 = load i8*, i8** %5
%70 = load i8, i8* %69
%71 = sext i8 %70 to i32
%72 = icmp sle i32 %71, 57
br i1 %72, label %73, label %78
73: ; preds = %68
%74 = load i8*, i8** %5
%75 = load i8, i8* %74
%76 = sext i8 %75 to i32
%77 = sub nsw i32 %76, 48
store i32 %77, i32* %8
br label %113
78: ; preds = %68, %63
%79 = load i8*, i8** %5
%80 = load i8, i8* %79
%81 = sext i8 %80 to i32
%82 = icmp sge i32 %81, 97
br i1 %82, label %83, label %94
83: ; preds = %78
%84 = load i8*, i8** %5
%85 = load i8, i8* %84
%86 = sext i8 %85 to i32
%87 = icmp sle i32 %86, 102
br i1 %87, label %88, label %94
88: ; preds = %83
%89 = load i8*, i8** %5
%90 = load i8, i8* %89
%91 = sext i8 %90 to i32
%92 = sub nsw i32 %91, 97
%93 = add nsw i32 %92, 10
store i32 %93, i32* %8
br label %112
94: ; preds = %83, %78
%95 = load i8*, i8** %5
%96 = load i8, i8* %95
%97 = sext i8 %96 to i32
%98 = icmp sge i32 %97, 65
br i1 %98, label %99, label %110
99: ; preds = %94
%100 = load i8*, i8** %5
%101 = load i8, i8* %100
%102 = sext i8 %101 to i32
%103 = icmp sle i32 %102, 70
br i1 %103, label %104, label %110
104: ; preds = %99
%105 = load i8*, i8** %5
%106 = load i8, i8* %105
%107 = sext i8 %106 to i32
%108 = sub nsw i32 %107, 65
%109 = add nsw i32 %108, 10
store i32 %109, i32* %8
br label %111
110: ; preds = %99, %94
br label %128
111: ; preds = %104
br label %112
112: ; preds = %111, %88
br label %113
113: ; preds = %112, %73
%114 = load i32, i32* %8
%115 = load i32, i32* %6
%116 = icmp sge i32 %114, %115
br i1 %116, label %117, label %118
117: ; preds = %113
br label %128
118: ; preds = %113
%119 = load i64, i64* %10
%120 = load i32, i32* %6
%121 = sext i32 %120 to i64
%122 = mul nsw i64 %119, %121
%123 = load i32, i32* %8
%124 = sext i32 %123 to i64
%125 = add nsw i64 %122, %124
store i64 %125, i64* %10
%126 = load i8*, i8** %5
%127 = getelementptr inbounds i8, i8* %126, i32 1
store i8* %127, i8** %5
br label %63
128: ; preds = %117, %110
%129 = load i8**, i8*** %7
%130 = icmp ne i8** %129, null
br i1 %130, label %131, label %150
131: ; preds = %128
br label %132
132: ; preds = %144, %131
%133 = load i8*, i8** %5
%134 = load i8, i8* %133
%135 = sext i8 %134 to i32
%136 = icmp eq i32 %135, 32
br i1 %136, label %142, label %137
137: ; preds = %132
%138 = load i8*, i8** %5
%139 = load i8, i8* %138
%140 = sext i8 %139 to i32
%141 = icmp eq i32 %140, 9
br label %142
142: ; preds = %137, %132
%143 = phi i1 [ true, %132 ], [ %141, %137 ]
br i1 %143, label %144, label %147
144: ; preds = %142
%145 = load i8*, i8** %5
%146 = getelementptr inbounds i8, i8* %145, i32 1
store i8* %146, i8** %5
br label %132
147: ; preds = %142
%148 = load i8*, i8** %5
%149 = load i8**, i8*** %7
store i8* %148, i8** %149
br label %150
150: ; preds = %147, %128
%151 = load i32, i32* %9
%152 = icmp ne i32 %151, 0
br i1 %152, label %153, label %156
153: ; preds = %150
%154 = load i64, i64* %10
%155 = sub nsw i64 0, %154
store i64 %155, i64* %4
br label %158
156: ; preds = %150
%157 = load i64, i64* %10
store i64 %157, i64* %4
br label %158
158: ; preds = %156, %153
%159 = load i64, i64* %4
ret i64 %159
}

LLVM IR (-O2):
define i64 @lstrtol(i8* %0, i32 %1, i8** writeonly %2) {
br label %4
4: ; preds = %7, %3
%5 = phi i8* [ %0, %3 ], [ %8, %7 ]
%6 = load i8, i8* %5
switch i8 %6, label %13 [
i8 32, label %7
i8 9, label %7
i8 45, label %9
i8 43, label %11
]
7: ; preds = %4, %4
%8 = getelementptr inbounds i8, i8* %5, i64 1
br label %4
9: ; preds = %4
%10 = getelementptr inbounds i8, i8* %5, i64 1
br label %13
11: ; preds = %4
%12 = getelementptr inbounds i8, i8* %5, i64 1
br label %13
13: ; preds = %4, %11, %9
%14 = phi i8* [ %10, %9 ], [ %12, %11 ], [ %5, %4 ]
%15 = phi i1 [ false, %9 ], [ true, %11 ], [ true, %4 ]
%16 = icmp eq i32 %1, 0
br i1 %16, label %17, label %27
17: ; preds = %13
%18 = load i8, i8* %14
%19 = icmp eq i8 %18, 48
br i1 %19, label %20, label %27
20: ; preds = %17
%21 = getelementptr inbounds i8, i8* %14, i64 1
%22 = load i8, i8* %21
%23 = icmp eq i8 %22, 120
%24 = getelementptr inbounds i8, i8* %14, i64 2
%25 = select i1 %23, i8* %24, i8* %21
%26 = select i1 %23, i32 16, i32 8
br label %27
27: ; preds = %20, %17, %13
%28 = phi i8* [ %14, %17 ], [ %14, %13 ], [ %25, %20 ]
%29 = phi i32 [ 10, %17 ], [ %1, %13 ], [ %26, %20 ]
%30 = sext i32 %29 to i64
br label %31
31: ; preds = %48, %27
%32 = phi i8* [ %28, %27 ], [ %52, %48 ]
%33 = phi i64 [ 0, %27 ], [ %51, %48 ]
%34 = load i8, i8* %32
%35 = sext i8 %34 to i32
%36 = add i8 %34, -48
%37 = icmp ult i8 %36, 10
br i1 %37, label %44, label %38
38: ; preds = %31
%39 = add i8 %34, -97
%40 = icmp ult i8 %39, 6
br i1 %40, label %44, label %41
41: ; preds = %38
%42 = add i8 %34, -65
%43 = icmp ult i8 %42, 6
br i1 %43, label %44, label %53
44: ; preds = %41, %38, %31
%45 = phi i32 [ -48, %31 ], [ -87, %38 ], [ -55, %41 ]
%46 = add nsw i32 %45, %35
%47 = icmp slt i32 %46, %29
br i1 %47, label %48, label %53
48: ; preds = %44
%49 = mul nsw i64 %33, %30
%50 = sext i32 %46 to i64
%51 = add nsw i64 %49, %50
%52 = getelementptr inbounds i8, i8* %32, i64 1
br label %31
53: ; preds = %44, %41
%54 = icmp eq i8** %2, null
br i1 %54, label %62, label %55
55: ; preds = %53, %58
%56 = phi i8 [ %60, %58 ], [ %34, %53 ]
%57 = phi i8* [ %59, %58 ], [ %32, %53 ]
switch i8 %56, label %61 [
i8 32, label %58
i8 9, label %58
]
58: ; preds = %55, %55
%59 = getelementptr inbounds i8, i8* %57, i64 1
%60 = load i8, i8* %59
br label %55
61: ; preds = %55
store i8* %57, i8** %2
br label %62
62: ; preds = %61, %53
%63 = sub nsw i64 0, %33
%64 = select i1 %15, i64 %33, i64 %63
ret i64 %64
}