unsigned long bintol(const char *str) {
  unsigned long sum = 0L;
  while (*str) {
    switch (*str) {
    case '1':
      sum <<= 1;
      ++sum;
      break;
    case '0':
      sum <<= 1;
      break;
    case '_':
      break;
    default:
      return sum;
    }
    ++str;
  }
  return sum;
}


x86 assembly (clang, -O0):
<bintol>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
movq   $0x0,-0x18(%rbp)
mov    -0x10(%rbp),%rax
cmpb   $0x0,(%rax)
je     11a8 <bintol+0xa8>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
mov    %eax,-0x1c(%rbp)
sub    $0x30,%eax
je     1174 <bintol+0x74>
jmp    1135 <bintol+0x35>
mov    -0x1c(%rbp),%eax
sub    $0x31,%eax
je     1157 <bintol+0x57>
jmp    1146 <bintol+0x46>
mov    -0x1c(%rbp),%eax
sub    $0x5f,%eax
je     1185 <bintol+0x85>
jmp    118a <bintol+0x8a>
mov    -0x18(%rbp),%rax
shl    $0x1,%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    1197 <bintol+0x97>
mov    -0x18(%rbp),%rax
shl    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    1197 <bintol+0x97>
jmp    1197 <bintol+0x97>
mov    -0x18(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    11b0 <bintol+0xb0>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    1110 <bintol+0x10>
mov    -0x18(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<bintol>:
mov    (%rdi),%cl
test   %cl,%cl
je     113a <bintol+0x3a>
add    $0x1,%rdi
xor    %eax,%eax
jmp    111e <bintol+0x1e>
xchg   %ax,%ax
add    %rax,%rax
movzbl (%rdi),%ecx
add    $0x1,%rdi
test   %cl,%cl
je     1139 <bintol+0x39>
movsbl %cl,%ecx
cmp    $0x30,%ecx
je     1110 <bintol+0x10>
cmp    $0x5f,%ecx
je     1113 <bintol+0x13>
cmp    $0x31,%ecx
jne    1139 <bintol+0x39>
add    %rax,%rax
add    $0x1,%rax
jmp    1113 <bintol+0x13>
ret
xor    %eax,%eax
ret

LLVM IR (-O0):
define i64 @bintol(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 = %24, %1
%6 = load i8*, i8** %3
%7 = load i8, i8* %6
%8 = icmp ne i8 %7, 0
br i1 %8, label %9, label %27
9: ; preds = %5
%10 = load i8*, i8** %3
%11 = load i8, i8* %10
%12 = sext i8 %11 to i32
switch i32 %12, label %22 [
i32 49, label %13
i32 48, label %18
i32 95, label %21
]
13: ; preds = %9
%14 = load i64, i64* %4
%15 = shl i64 %14, 1
store i64 %15, i64* %4
%16 = load i64, i64* %4
%17 = add i64 %16, 1
store i64 %17, i64* %4
br label %24
18: ; preds = %9
%19 = load i64, i64* %4
%20 = shl i64 %19, 1
store i64 %20, i64* %4
br label %24
21: ; preds = %9
br label %24
22: ; preds = %9
%23 = load i64, i64* %4
store i64 %23, i64* %2
br label %29
24: ; preds = %21, %18, %13
%25 = load i8*, i8** %3
%26 = getelementptr inbounds i8, i8* %25, i32 1
store i8* %26, i8** %3
br label %5
27: ; preds = %5
%28 = load i64, i64* %4
store i64 %28, i64* %2
br label %29
29: ; preds = %27, %22
%30 = load i64, i64* %2
ret i64 %30
}

LLVM IR (-O2):
define i64 @bintol(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 49, label %9
i32 48, label %12
i32 95, label %14
]
9: ; preds = %4
%10 = shl i64 %6, 1
%11 = or i64 %10, 1
br label %14
12: ; preds = %4
%13 = shl i64 %6, 1
br label %14
14: ; preds = %4, %12, %9
%15 = phi i64 [ %6, %4 ], [ %13, %12 ], [ %11, %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
}