char *atol(result, s)
char *result, *s;
{
  char ten[4], temp[4], sign;
  itol(ten, 10);
  itol(result, 0);
  if (sign = (*s == '-'))
    s++;
  while (isdigit(*s))
    ladd(result, lmul(result, result, ten), itol(temp, *s++ - '0'));
  return (sign ? lsub(result, itol(temp, 0), result) : result);
}


x86 assembly (clang, -O0):
<atol>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
lea    -0x14(%rbp),%rdi
mov    $0xa,%esi
mov    $0x0,%al
call   1040 <itol@plt>
mov    -0x8(%rbp),%rdi
xor    %esi,%esi
mov    $0x0,%al
call   1040 <itol@plt>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2d,%eax
sete   %al
and    $0x1,%al
movzbl %al,%eax
mov    %al,-0x19(%rbp)
cmp    $0x0,%al
je     11a6 <atol+0x56>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    11ab <atol+0x5b>
mov    -0x10(%rbp),%rax
movsbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
je     1213 <atol+0xc3>
mov    -0x8(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x8(%rbp),%rsi
lea    -0x14(%rbp),%rdx
mov    $0x0,%al
call   1060 <lmul@plt>
mov    %eax,-0x20(%rbp)
lea    -0x18(%rbp),%rdi
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movsbl (%rax),%esi
sub    $0x30,%esi
mov    $0x0,%al
call   1040 <itol@plt>
mov    -0x28(%rbp),%rdi
mov    -0x20(%rbp),%esi
mov    %eax,%edx
mov    $0x0,%al
call   1050 <ladd@plt>
jmp    11ab <atol+0x5b>
movsbl -0x19(%rbp),%eax
cmp    $0x0,%eax
je     1251 <atol+0x101>
mov    -0x8(%rbp),%rax
mov    %rax,-0x38(%rbp)
lea    -0x18(%rbp),%rdi
xor    %esi,%esi
mov    $0x0,%al
call   1040 <itol@plt>
mov    -0x38(%rbp),%rdi
mov    %eax,%esi
mov    -0x8(%rbp),%rdx
mov    $0x0,%al
call   1070 <lsub@plt>
cltq
mov    %rax,-0x30(%rbp)
jmp    1259 <atol+0x109>
mov    -0x8(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<atol>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rsi,%r14
mov    %rdi,%r13
lea    0x4(%rsp),%rdi
mov    $0xa,%esi
xor    %eax,%eax
call   1030 <itol@plt>
mov    %r13,%rdi
xor    %esi,%esi
xor    %eax,%eax
call   1030 <itol@plt>
mov    (%r14),%r12b
xor    %eax,%eax
cmp    $0x2d,%r12b
sete   %al
movsbl (%r14,%rax,1),%ecx
add    $0xffffffd0,%ecx
cmp    $0x9,%ecx
ja     11e0 <atol+0xa0>
lea    (%rax,%r14,1),%rbx
add    $0x1,%rbx
lea    0x4(%rsp),%r14
mov    %rsp,%r15
nopw   0x0(%rax,%rax,1)
mov    %r13,%rdi
mov    %r13,%rsi
mov    %r14,%rdx
xor    %eax,%eax
call   1050 <lmul@plt>
mov    %eax,%ebp
movsbl -0x1(%rbx),%esi
add    $0xffffffd0,%esi
mov    %r15,%rdi
xor    %eax,%eax
call   1030 <itol@plt>
mov    %r13,%rdi
mov    %ebp,%esi
mov    %eax,%edx
xor    %eax,%eax
call   1040 <ladd@plt>
movsbl (%rbx),%eax
add    $0xffffffd0,%eax
add    $0x1,%rbx
cmp    $0xa,%eax
jb     11a0 <atol+0x60>
cmp    $0x2d,%r12b
jne    1204 <atol+0xc4>
mov    %rsp,%rdi
xor    %esi,%esi
xor    %eax,%eax
call   1030 <itol@plt>
mov    %r13,%rdi
mov    %eax,%esi
mov    %r13,%rdx
xor    %eax,%eax
call   1060 <lsub@plt>
movslq %eax,%r13
mov    %r13,%rax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i8* @atol(i8* %0, i8* %1) {
%3 = alloca i8*
%4 = alloca i8*
%5 = alloca [4 x i8]
%6 = alloca [4 x i8]
%7 = alloca i8
store i8* %0, i8** %3
store i8* %1, i8** %4
%8 = getelementptr inbounds [4 x i8], [4 x i8]* %5, i64 0, i64 0
%9 = call i32 (i8*, i32, ...) bitcast (i32 (...)* @itol to i32 (i8*, i32, ...)*)(i8* %8, i32 10)
%10 = load i8*, i8** %3
%11 = call i32 (i8*, i32, ...) bitcast (i32 (...)* @itol to i32 (i8*, i32, ...)*)(i8* %10, i32 0)
%12 = load i8*, i8** %4
%13 = load i8, i8* %12
%14 = sext i8 %13 to i32
%15 = icmp eq i32 %14, 45
%16 = zext i1 %15 to i32
%17 = trunc i32 %16 to i8
store i8 %17, i8* %7
%18 = icmp ne i8 %17, 0
br i1 %18, label %19, label %22
19: ; preds = %2
%20 = load i8*, i8** %4
%21 = getelementptr inbounds i8, i8* %20, i32 1
store i8* %21, i8** %4
br label %22
22: ; preds = %19, %2
br label %23
23: ; preds = %29, %22
%24 = load i8*, i8** %4
%25 = load i8, i8* %24
%26 = sext i8 %25 to i32
%27 = call i32 @isdigit(i32 %26)
%28 = icmp ne i32 %27, 0
br i1 %28, label %29, label %43
29: ; preds = %23
%30 = load i8*, i8** %3
%31 = load i8*, i8** %3
%32 = load i8*, i8** %3
%33 = getelementptr inbounds [4 x i8], [4 x i8]* %5, i64 0, i64 0
%34 = call i32 (i8*, i8*, i8*, ...) bitcast (i32 (...)* @lmul to i32 (i8*, i8*, i8*, ...)*)(i8* %31, i8* %32, i8* %33)
%35 = getelementptr inbounds [4 x i8], [4 x i8]* %6, i64 0, i64 0
%36 = load i8*, i8** %4
%37 = getelementptr inbounds i8, i8* %36, i32 1
store i8* %37, i8** %4
%38 = load i8, i8* %36
%39 = sext i8 %38 to i32
%40 = sub nsw i32 %39, 48
%41 = call i32 (i8*, i32, ...) bitcast (i32 (...)* @itol to i32 (i8*, i32, ...)*)(i8* %35, i32 %40)
%42 = call i32 (i8*, i32, i32, ...) bitcast (i32 (...)* @ladd to i32 (i8*, i32, i32, ...)*)(i8* %30, i32 %34, i32 %41)
br label %23
43: ; preds = %23
%44 = load i8, i8* %7
%45 = sext i8 %44 to i32
%46 = icmp ne i32 %45, 0
br i1 %46, label %47, label %55
47: ; preds = %43
%48 = load i8*, i8** %3
%49 = getelementptr inbounds [4 x i8], [4 x i8]* %6, i64 0, i64 0
%50 = call i32 (i8*, i32, ...) bitcast (i32 (...)* @itol to i32 (i8*, i32, ...)*)(i8* %49, i32 0)
%51 = load i8*, i8** %3
%52 = call i32 (i8*, i32, i8*, ...) bitcast (i32 (...)* @lsub to i32 (i8*, i32, i8*, ...)*)(i8* %48, i32 %50, i8* %51)
%53 = sext i32 %52 to i64
%54 = inttoptr i64 %53 to i8*
br label %57
55: ; preds = %43
%56 = load i8*, i8** %3
br label %57
57: ; preds = %55, %47
%58 = phi i8* [ %54, %47 ], [ %56, %55 ]
ret i8* %58
}

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