unsigned long long fromoct(const char *p) {
  unsigned long long val = 0;
  if (*p != '0' || (p[1] != 'o' && p[1] != 'O')) {
    return 0;
  }
  for (p += 2; (*p >= '0' && *p <= '7') || *p == '_'; ++p) {
    if (*p != '_') {
      val <<= 3;
      val |= (*p & 0xF);
    }
  }
  return val;
}


x86 assembly (clang, -O0):
<fromoct>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
movq   $0x0,-0x18(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
jne    1142 <fromoct+0x42>
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x6f,%eax
je     114f <fromoct+0x4f>
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x4f,%eax
je     114f <fromoct+0x4f>
movq   $0x0,-0x8(%rbp)
jmp    11ee <fromoct+0xee>
mov    -0x10(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
jl     1180 <fromoct+0x80>
mov    -0x10(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x37,%ecx
mov    %al,-0x19(%rbp)
jle    1190 <fromoct+0x90>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5f,%eax
sete   %al
mov    %al,-0x19(%rbp)
mov    -0x19(%rbp),%al
test   $0x1,%al
jne    11a0 <fromoct+0xa0>
jmp    11e6 <fromoct+0xe6>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5f,%eax
je     11d0 <fromoct+0xd0>
mov    -0x18(%rbp),%rax
shl    $0x3,%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
and    $0xf,%eax
cltq
or     -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
jmp    11d5 <fromoct+0xd5>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    115b <fromoct+0x5b>
mov    -0x18(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<fromoct>:
cmpb   $0x30,(%rdi)
jne    111e <fromoct+0x1e>
mov    0x1(%rdi),%al
or     $0x20,%al
cmp    $0x6f,%al
jne    111e <fromoct+0x1e>
mov    0x2(%rdi),%cl
cmp    $0x5f,%cl
je     1121 <fromoct+0x21>
mov    %ecx,%eax
and    $0xf8,%al
cmp    $0x30,%al
je     1121 <fromoct+0x21>
xor    %eax,%eax
ret
add    $0x3,%rdi
xor    %eax,%eax
nopw   0x0(%rax,%rax,1)
mov    %rax,%rdx
lea    0x0(,%rax,8),%rsi
mov    %ecx,%eax
and    $0xf,%al
movzbl %al,%eax
or     %rsi,%rax
cmp    $0x5f,%cl
cmove  %rdx,%rax
movzbl (%rdi),%ecx
mov    %ecx,%edx
and    $0xf8,%dl
add    $0x1,%rdi
cmp    $0x5f,%cl
je     1130 <fromoct+0x30>
cmp    $0x30,%dl
je     1130 <fromoct+0x30>
ret

LLVM IR (-O0):
define i64 @fromoct(i8* %0) {
%2 = alloca i64
%3 = alloca i8*
%4 = alloca i64
store i8* %0, i8** %3
store i64 0, i64* %4
%5 = load i8*, i8** %3
%6 = load i8, i8* %5
%7 = sext i8 %6 to i32
%8 = icmp ne i32 %7, 48
br i1 %8, label %21, label %9
9: ; preds = %1
%10 = load i8*, i8** %3
%11 = getelementptr inbounds i8, i8* %10, i64 1
%12 = load i8, i8* %11
%13 = sext i8 %12 to i32
%14 = icmp ne i32 %13, 111
br i1 %14, label %15, label %22
15: ; preds = %9
%16 = load i8*, i8** %3
%17 = getelementptr inbounds i8, i8* %16, i64 1
%18 = load i8, i8* %17
%19 = sext i8 %18 to i32
%20 = icmp ne i32 %19, 79
br i1 %20, label %21, label %22
21: ; preds = %15, %1
store i64 0, i64* %2
br label %63
22: ; preds = %15, %9
%23 = load i8*, i8** %3
%24 = getelementptr inbounds i8, i8* %23, i64 2
store i8* %24, i8** %3
br label %25
25: ; preds = %58, %22
%26 = load i8*, i8** %3
%27 = load i8, i8* %26
%28 = sext i8 %27 to i32
%29 = icmp sge i32 %28, 48
br i1 %29, label %30, label %35
30: ; preds = %25
%31 = load i8*, i8** %3
%32 = load i8, i8* %31
%33 = sext i8 %32 to i32
%34 = icmp sle i32 %33, 55
br i1 %34, label %40, label %35
35: ; preds = %30, %25
%36 = load i8*, i8** %3
%37 = load i8, i8* %36
%38 = sext i8 %37 to i32
%39 = icmp eq i32 %38, 95
br label %40
40: ; preds = %35, %30
%41 = phi i1 [ true, %30 ], [ %39, %35 ]
br i1 %41, label %42, label %61
42: ; preds = %40
%43 = load i8*, i8** %3
%44 = load i8, i8* %43
%45 = sext i8 %44 to i32
%46 = icmp ne i32 %45, 95
br i1 %46, label %47, label %57
47: ; preds = %42
%48 = load i64, i64* %4
%49 = shl i64 %48, 3
store i64 %49, i64* %4
%50 = load i8*, i8** %3
%51 = load i8, i8* %50
%52 = sext i8 %51 to i32
%53 = and i32 %52, 15
%54 = sext i32 %53 to i64
%55 = load i64, i64* %4
%56 = or i64 %55, %54
store i64 %56, i64* %4
br label %57
57: ; preds = %47, %42
br label %58
58: ; preds = %57
%59 = load i8*, i8** %3
%60 = getelementptr inbounds i8, i8* %59, i32 1
store i8* %60, i8** %3
br label %25
61: ; preds = %40
%62 = load i64, i64* %4
store i64 %62, i64* %2
br label %63
63: ; preds = %61, %21
%64 = load i64, i64* %2
ret i64 %64
}

LLVM IR (-O2):
define i64 @fromoct(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = icmp eq i8 %2, 48
br i1 %3, label %4, label %30
4: ; preds = %1
%5 = getelementptr inbounds i8, i8* %0, i64 1
%6 = load i8, i8* %5
switch i8 %6, label %30 [
i8 111, label %7
i8 79, label %7
]
7: ; preds = %4, %4
%8 = getelementptr inbounds i8, i8* %0, i64 2
%9 = load i8, i8* %8
%10 = and i8 %9, -8
%11 = icmp eq i8 %10, 48
%12 = icmp eq i8 %9, 95
%13 = or i1 %12, %11
br i1 %13, label %14, label %30
14: ; preds = %7, %14
%15 = phi i8 [ %25, %14 ], [ %9, %7 ]
%16 = phi i64 [ %23, %14 ], [ 0, %7 ]
%17 = phi i8* [ %24, %14 ], [ %8, %7 ]
%18 = icmp eq i8 %15, 95
%19 = shl i64 %16, 3
%20 = and i8 %15, 15
%21 = zext i8 %20 to i64
%22 = or i64 %19, %21
%23 = select i1 %18, i64 %16, i64 %22
%24 = getelementptr inbounds i8, i8* %17, i64 1
%25 = load i8, i8* %24
%26 = and i8 %25, -8
%27 = icmp eq i8 %26, 48
%28 = icmp eq i8 %25, 95
%29 = or i1 %28, %27
br i1 %29, label %14, label %30
30: ; preds = %14, %7, %1, %4
%31 = phi i64 [ 0, %4 ], [ 0, %1 ], [ 0, %7 ], [ %23, %14 ]
ret i64 %31
}