long atol(char *s) {
  long r = 0;
  int neg = 0;
  switch (*s) {
  case '-':
    neg = 1;
  case '+':
    s++;
    break;
  }
  while (*s >= '0' && *s <= '9') {
    int n = *s++ - '0';
    if (neg)
      n = -n;
    r = r * 10 + n;
  }
  return r;
}


x86 assembly (clang, -O0):
<atol>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
movq   $0x0,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
mov    %eax,-0x1c(%rbp)
sub    $0x2b,%eax
je     1147 <atol+0x47>
jmp    112f <atol+0x2f>
mov    -0x1c(%rbp),%eax
sub    $0x2d,%eax
jne    1153 <atol+0x53>
jmp    1140 <atol+0x40>
movl   $0x1,-0x14(%rbp)
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
jmp    1158 <atol+0x58>
mov    -0x8(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x30,%ecx
mov    %al,-0x1d(%rbp)
jl     117d <atol+0x7d>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x39,%eax
setle  %al
mov    %al,-0x1d(%rbp)
mov    -0x1d(%rbp),%al
test   $0x1,%al
jne    118d <atol+0x8d>
jmp    11cc <atol+0xcc>
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movsbl (%rax),%eax
sub    $0x30,%eax
mov    %eax,-0x18(%rbp)
cmpl   $0x0,-0x14(%rbp)
je     11b7 <atol+0xb7>
xor    %eax,%eax
sub    -0x18(%rbp),%eax
mov    %eax,-0x18(%rbp)
imul   $0xa,-0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
add    %rcx,%rax
mov    %rax,-0x10(%rbp)
jmp    1158 <atol+0x58>
mov    -0x10(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<atol>:
mov    (%rdi),%dl
movsbl %dl,%eax
xor    %ecx,%ecx
cmp    $0x2b,%eax
je     1116 <atol+0x16>
cmp    $0x2d,%eax
jne    111d <atol+0x1d>
mov    $0x1,%ecx
mov    0x1(%rdi),%dl
add    $0x1,%rdi
lea    -0x30(%rdx),%eax
cmp    $0x9,%al
ja     115e <atol+0x5e>
add    $0x1,%rdi
xor    %eax,%eax
nopw   0x0(%rax,%rax,1)
movzbl %dl,%edx
mov    $0x30,%esi
sub    %edx,%esi
add    $0xffffffd0,%edx
test   %ecx,%ecx
cmovne %esi,%edx
lea    (%rax,%rax,4),%rax
movslq %edx,%rdx
lea    (%rdx,%rax,2),%rax
movzbl (%rdi),%edx
lea    -0x30(%rdx),%esi
add    $0x1,%rdi
cmp    $0xa,%sil
jb     1130 <atol+0x30>
ret
xor    %eax,%eax
ret

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

LLVM IR (-O2):
define i64 @atol(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = sext i8 %2 to i32
switch i32 %3, label %9 [
i32 45, label %4
i32 43, label %5
]
4: ; preds = %1
br label %5
5: ; preds = %1, %4
%6 = phi i32 [ 0, %1 ], [ 1, %4 ]
%7 = getelementptr inbounds i8, i8* %0, i64 1
%8 = load i8, i8* %7
br label %9
9: ; preds = %1, %5
%10 = phi i8 [ %2, %1 ], [ %8, %5 ]
%11 = phi i8* [ %0, %1 ], [ %7, %5 ]
%12 = phi i32 [ 0, %1 ], [ %6, %5 ]
%13 = add i8 %10, -48
%14 = icmp ult i8 %13, 10
br i1 %14, label %15, label %32
15: ; preds = %9
%16 = icmp eq i32 %12, 0
br label %17
17: ; preds = %15, %17
%18 = phi i8 [ %10, %15 ], [ %29, %17 ]
%19 = phi i64 [ 0, %15 ], [ %28, %17 ]
%20 = phi i8* [ %11, %15 ], [ %22, %17 ]
%21 = zext i8 %18 to i32
%22 = getelementptr inbounds i8, i8* %20, i64 1
%23 = add nsw i32 %21, -48
%24 = sub nsw i32 48, %21
%25 = select i1 %16, i32 %23, i32 %24
%26 = mul nsw i64 %19, 10
%27 = sext i32 %25 to i64
%28 = add nsw i64 %26, %27
%29 = load i8, i8* %22
%30 = add i8 %29, -48
%31 = icmp ult i8 %30, 10
br i1 %31, label %17, label %32
32: ; preds = %17, %9
%33 = phi i64 [ 0, %9 ], [ %28, %17 ]
ret i64 %33
}