unsigned long long frombin(const char *p) {
  unsigned long long val = 0;
  if (*p != '0' || (p[1] != 'b' && p[1] != 'B')) {
    return 0;
  }
  for (p += 2; *p == '0' || *p == '1' || *p == '_'; ++p) {
    if (*p != '_') {
      val <<= 1;
      val |= (*p == '0') ? 0 : 1;
    }
  }
  return val;
}


x86 assembly (clang, -O0):
<frombin>:
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 <frombin+0x42>
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x62,%eax
je     114f <frombin+0x4f>
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x42,%eax
je     114f <frombin+0x4f>
movq   $0x0,-0x8(%rbp)
jmp    11fd <frombin+0xfd>
mov    -0x10(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x30,%ecx
mov    %al,-0x19(%rbp)
je     1195 <frombin+0x95>
mov    -0x10(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x31,%ecx
mov    %al,-0x19(%rbp)
je     1195 <frombin+0x95>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5f,%eax
sete   %al
mov    %al,-0x19(%rbp)
mov    -0x19(%rbp),%al
test   $0x1,%al
jne    11a5 <frombin+0xa5>
jmp    11f5 <frombin+0xf5>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5f,%eax
je     11df <frombin+0xdf>
mov    -0x18(%rbp),%rax
shl    $0x1,%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%edx
mov    $0x1,%eax
xor    %ecx,%ecx
cmp    $0x30,%edx
cmove  %ecx,%eax
cltq
or     -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
jmp    11e4 <frombin+0xe4>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    115b <frombin+0x5b>
mov    -0x18(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<frombin>:
cmpb   $0x30,(%rdi)
jne    1150 <frombin+0x50>
mov    0x1(%rdi),%al
or     $0x20,%al
cmp    $0x62,%al
jne    1150 <frombin+0x50>
add    $0x2,%rdi
xor    %eax,%eax
movabs $0x800000000003,%rcx
xchg   %ax,%ax
movzbl (%rdi),%edx
lea    -0x30(%rdx),%esi
cmp    $0x2f,%sil
ja     1152 <frombin+0x52>
movzbl %sil,%esi
bt     %rsi,%rcx
jae    1152 <frombin+0x52>
xor    %esi,%esi
cmp    $0x30,%dl
setne  %sil
cmp    $0x5f,%dl
lea    (%rsi,%rax,2),%rdx
cmovne %rdx,%rax
add    $0x1,%rdi
jmp    1120 <frombin+0x20>
xor    %eax,%eax
ret

LLVM IR (-O0):
define i64 @frombin(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, 98
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, 66
br i1 %20, label %21, label %22
21: ; preds = %15, %1
store i64 0, i64* %2
br label %65
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 = %60, %22
%26 = load i8*, i8** %3
%27 = load i8, i8* %26
%28 = sext i8 %27 to i32
%29 = icmp eq i32 %28, 48
br i1 %29, label %40, label %30
30: ; preds = %25
%31 = load i8*, i8** %3
%32 = load i8, i8* %31
%33 = sext i8 %32 to i32
%34 = icmp eq i32 %33, 49
br i1 %34, label %40, label %35
35: ; preds = %30
%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, %25
%41 = phi i1 [ true, %30 ], [ true, %25 ], [ %39, %35 ]
br i1 %41, label %42, label %63
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 %59
47: ; preds = %42
%48 = load i64, i64* %4
%49 = shl i64 %48, 1
store i64 %49, i64* %4
%50 = load i8*, i8** %3
%51 = load i8, i8* %50
%52 = sext i8 %51 to i32
%53 = icmp eq i32 %52, 48
%54 = zext i1 %53 to i64
%55 = select i1 %53, i32 0, i32 1
%56 = sext i32 %55 to i64
%57 = load i64, i64* %4
%58 = or i64 %57, %56
store i64 %58, i64* %4
br label %59
59: ; preds = %47, %42
br label %60
60: ; preds = %59
%61 = load i8*, i8** %3
%62 = getelementptr inbounds i8, i8* %61, i32 1
store i8* %62, i8** %3
br label %25
63: ; preds = %40
%64 = load i64, i64* %4
store i64 %64, i64* %2
br label %65
65: ; preds = %63, %21
%66 = load i64, i64* %2
ret i64 %66
}

LLVM IR (-O2):
define i64 @frombin(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = icmp eq i8 %2, 48
br i1 %3, label %4, label %21
4: ; preds = %1
%5 = getelementptr inbounds i8, i8* %0, i64 1
%6 = load i8, i8* %5
switch i8 %6, label %21 [
i8 98, label %7
i8 66, label %7
]
7: ; preds = %4, %4
%8 = getelementptr inbounds i8, i8* %0, i64 2
br label %9
9: ; preds = %13, %7
%10 = phi i8* [ %8, %7 ], [ %20, %13 ]
%11 = phi i64 [ 0, %7 ], [ %19, %13 ]
%12 = load i8, i8* %10
switch i8 %12, label %21 [
i8 48, label %13
i8 49, label %13
i8 95, label %13
]
13: ; preds = %9, %9, %9
%14 = icmp eq i8 %12, 95
%15 = shl i64 %11, 1
%16 = icmp ne i8 %12, 48
%17 = zext i1 %16 to i64
%18 = or i64 %15, %17
%19 = select i1 %14, i64 %11, i64 %18
%20 = getelementptr inbounds i8, i8* %10, i64 1
br label %9
21: ; preds = %9, %1, %4
%22 = phi i64 [ 0, %4 ], [ 0, %1 ], [ %11, %9 ]
ret i64 %22
}