unsigned long otol(const char *str) {
  unsigned long sum = 0L;
  while (*str) {
    switch (*str) {
    case '0' ... '7':
      sum <<= 3;
      sum += (*str - '0');
      break;
    case '_':
      break;
    default:
      return sum;
    }
    ++str;
  }
  return sum;
}


x86 assembly (clang, -O0):
<otol>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
movq   $0x0,-0x18(%rbp)
mov    -0x10(%rbp),%rax
cmpb   $0x0,(%rax)
je     1191 <otol+0x91>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
mov    %eax,-0x1c(%rbp)
add    $0xffffffd0,%eax
sub    $0x8,%eax
jb     1149 <otol+0x49>
jmp    1138 <otol+0x38>
mov    -0x1c(%rbp),%eax
sub    $0x5f,%eax
je     116e <otol+0x6e>
jmp    1173 <otol+0x73>
mov    -0x18(%rbp),%rax
shl    $0x3,%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
sub    $0x30,%eax
cltq
add    -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
jmp    1180 <otol+0x80>
jmp    1180 <otol+0x80>
mov    -0x18(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1199 <otol+0x99>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    1110 <otol+0x10>
mov    -0x18(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<otol>:
mov    (%rdi),%cl
test   %cl,%cl
je     1138 <otol+0x38>
add    $0x1,%rdi
xor    %eax,%eax
jmp    1127 <otol+0x27>
xchg   %ax,%ax
movsbq %cl,%rcx
lea    (%rcx,%rax,8),%rax
add    $0xffffffffffffffd0,%rax
movzbl (%rdi),%ecx
add    $0x1,%rdi
test   %cl,%cl
je     1137 <otol+0x37>
movsbl %cl,%edx
lea    -0x30(%rdx),%esi
cmp    $0x8,%esi
jb     1110 <otol+0x10>
cmp    $0x5f,%edx
je     111c <otol+0x1c>
ret
xor    %eax,%eax
ret

LLVM IR (-O0):
define i64 @otol(i8* %0) {
%2 = alloca i64
%3 = alloca i8*
%4 = alloca i64
store i8* %0, i8** %3
store i64 0, i64* %4
br label %5
5: ; preds = %26, %1
%6 = load i8*, i8** %3
%7 = load i8, i8* %6
%8 = icmp ne i8 %7, 0
br i1 %8, label %9, label %29
9: ; preds = %5
%10 = load i8*, i8** %3
%11 = load i8, i8* %10
%12 = sext i8 %11 to i32
switch i32 %12, label %24 [
i32 48, label %13
i32 49, label %13
i32 50, label %13
i32 51, label %13
i32 52, label %13
i32 53, label %13
i32 54, label %13
i32 55, label %13
i32 95, label %23
]
13: ; preds = %9, %9, %9, %9, %9, %9, %9, %9
%14 = load i64, i64* %4
%15 = shl i64 %14, 3
store i64 %15, i64* %4
%16 = load i8*, i8** %3
%17 = load i8, i8* %16
%18 = sext i8 %17 to i32
%19 = sub nsw i32 %18, 48
%20 = sext i32 %19 to i64
%21 = load i64, i64* %4
%22 = add i64 %21, %20
store i64 %22, i64* %4
br label %26
23: ; preds = %9
br label %26
24: ; preds = %9
%25 = load i64, i64* %4
store i64 %25, i64* %2
br label %31
26: ; preds = %23, %13
%27 = load i8*, i8** %3
%28 = getelementptr inbounds i8, i8* %27, i32 1
store i8* %28, i8** %3
br label %5
29: ; preds = %5
%30 = load i64, i64* %4
store i64 %30, i64* %2
br label %31
31: ; preds = %29, %24
%32 = load i64, i64* %2
ret i64 %32
}

LLVM IR (-O2):
define i64 @otol(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = icmp eq i8 %2, 0
br i1 %3, label %19, label %4
4: ; preds = %1, %14
%5 = phi i8 [ %17, %14 ], [ %2, %1 ]
%6 = phi i64 [ %15, %14 ], [ 0, %1 ]
%7 = phi i8* [ %16, %14 ], [ %0, %1 ]
%8 = sext i8 %5 to i32
switch i32 %8, label %19 [
i32 48, label %9
i32 49, label %9
i32 50, label %9
i32 51, label %9
i32 52, label %9
i32 53, label %9
i32 54, label %9
i32 55, label %9
i32 95, label %14
]
9: ; preds = %4, %4, %4, %4, %4, %4, %4, %4
%10 = shl i64 %6, 3
%11 = sext i8 %5 to i64
%12 = add i64 %10, -48
%13 = add i64 %12, %11
br label %14
14: ; preds = %4, %9
%15 = phi i64 [ %6, %4 ], [ %13, %9 ]
%16 = getelementptr inbounds i8, i8* %7, i64 1
%17 = load i8, i8* %16
%18 = icmp eq i8 %17, 0
br i1 %18, label %19, label %4
19: ; preds = %4, %14, %1
%20 = phi i64 [ 0, %1 ], [ %15, %14 ], [ %6, %4 ]
ret i64 %20
}