long GSM_atol(const char *S_str) {
  register long result = 0;
  register unsigned char ch;
  unsigned char neg = 0;
  do {
    ch = *S_str++;
  } while ((ch <= 0x20));
  if (ch == 0x2D)
    neg = 1;
  else if (ch != 0x2B)
    S_str--;
  for (;;) {
    ch = *S_str++ - '0';
    if (ch > 9)
      break;
    if (neg)
      ch = (signed char)(-((signed char)ch));
    result = 10 * result + (signed char)ch;
  }
  return result;
}


x86 assembly (clang, -O0):
<GSM_atol>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
movq   $0x0,-0x10(%rbp)
movb   $0x0,-0x12(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
mov    (%rax),%al
mov    %al,-0x11(%rbp)
movzbl -0x11(%rbp),%eax
cmp    $0x20,%eax
jle    1114 <GSM_atol+0x14>
movzbl -0x11(%rbp),%eax
cmp    $0x2d,%eax
jne    114b <GSM_atol+0x4b>
movb   $0x1,-0x12(%rbp)
jmp    1169 <GSM_atol+0x69>
movzbl -0x11(%rbp),%eax
cmp    $0x2b,%eax
je     1164 <GSM_atol+0x64>
mov    -0x8(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x8(%rbp)
jmp    1169 <GSM_atol+0x69>
jmp    116e <GSM_atol+0x6e>
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movsbl (%rax),%eax
sub    $0x30,%eax
mov    %al,-0x11(%rbp)
movzbl -0x11(%rbp),%eax
cmp    $0x9,%eax
jle    1198 <GSM_atol+0x98>
jmp    11c3 <GSM_atol+0xc3>
cmpb   $0x0,-0x12(%rbp)
je     11ad <GSM_atol+0xad>
movsbl -0x11(%rbp),%ecx
xor    %eax,%eax
sub    %ecx,%eax
mov    %al,-0x11(%rbp)
imul   $0xa,-0x10(%rbp),%rax
movsbq -0x11(%rbp),%rcx
add    %rcx,%rax
mov    %rax,-0x10(%rbp)
jmp    116e <GSM_atol+0x6e>
mov    -0x10(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<GSM_atol>:
movzbl (%rdi),%eax
add    $0x1,%rdi
cmp    $0x21,%al
jb     1100 <GSM_atol>
cmp    $0x2b,%al
je     111c <GSM_atol+0x1c>
cmp    $0x2d,%al
jne    1118 <GSM_atol+0x18>
xor    %r8d,%r8d
jmp    111f <GSM_atol+0x1f>
add    $0xffffffffffffffff,%rdi
mov    $0x1,%r8b
mov    (%rdi),%dl
lea    -0x30(%rdx),%esi
cmp    $0x9,%sil
jbe    112d <GSM_atol+0x2d>
xor    %eax,%eax
ret
add    $0x1,%rdi
xor    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    $0x30,%cl
sub    %dl,%cl
movzbl %cl,%ecx
movzbl %sil,%edx
test   %r8b,%r8b
cmove  %ecx,%edx
lea    (%rax,%rax,4),%rax
movsbq %dl,%rcx
lea    (%rcx,%rax,2),%rax
movzbl (%rdi),%edx
lea    -0x30(%rdx),%esi
add    $0x1,%rdi
cmp    $0xa,%sil
jb     1140 <GSM_atol+0x40>
ret

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

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