int num_char(char *line, int *pos, unsigned int radix) {
  char c;
  while ((c = line[*pos]) == '_')
    (*pos)++;
  if (c < '0')
    return -1;
  if (c >= 'a')
    c = c & 0xDF;
  if (c <= '9') {
    if (c < '0' + radix)
      return c - '0';
    else
      return -1;
  } else {
    if (c < 'A')
      return -1;
    else if (c < 'A' + radix - 10)
      return c - 'A' + 10;
    else
      return -1;
  }
}


x86 assembly (clang, -O0):
<num_char>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %edx,-0x1c(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%rcx
movslq (%rcx),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x1d(%rbp)
movsbl %al,%eax
cmp    $0x5f,%eax
jne    113c <num_char+0x3c>
mov    -0x18(%rbp),%rax
mov    (%rax),%ecx
add    $0x1,%ecx
mov    %ecx,(%rax)
jmp    110f <num_char+0xf>
movsbl -0x1d(%rbp),%eax
cmp    $0x30,%eax
jge    1155 <num_char+0x55>
movl   $0xffffffff,-0x4(%rbp)
jmp    11ef <num_char+0xef>
movsbl -0x1d(%rbp),%eax
cmp    $0x61,%eax
jl     116e <num_char+0x6e>
movsbl -0x1d(%rbp),%eax
and    $0xdf,%eax
mov    %al,-0x1d(%rbp)
movsbl -0x1d(%rbp),%eax
cmp    $0x39,%eax
jg     11a8 <num_char+0xa8>
movsbl -0x1d(%rbp),%eax
mov    -0x1c(%rbp),%ecx
add    $0x30,%ecx
cmp    %ecx,%eax
jae    119c <num_char+0x9c>
movsbl -0x1d(%rbp),%eax
sub    $0x30,%eax
mov    %eax,-0x4(%rbp)
jmp    11ef <num_char+0xef>
movl   $0xffffffff,-0x4(%rbp)
jmp    11ef <num_char+0xef>
movsbl -0x1d(%rbp),%eax
cmp    $0x41,%eax
jge    11c1 <num_char+0xc1>
movl   $0xffffffff,-0x4(%rbp)
jmp    11ef <num_char+0xef>
movsbl -0x1d(%rbp),%eax
mov    -0x1c(%rbp),%ecx
add    $0x41,%ecx
sub    $0xa,%ecx
cmp    %ecx,%eax
jae    11e8 <num_char+0xe8>
movsbl -0x1d(%rbp),%eax
sub    $0x41,%eax
add    $0xa,%eax
mov    %eax,-0x4(%rbp)
jmp    11ef <num_char+0xef>
movl   $0xffffffff,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<num_char>:
movslq (%rsi),%r8
mov    (%rdi,%r8,1),%cl
cmp    $0x5f,%cl
jne    1131 <num_char+0x31>
lea    (%r8,%rdi,1),%rax
add    $0x1,%rax
lea    0x1(%r8),%edi
nopl   0x0(%rax,%rax,1)
mov    %edi,(%rsi)
movzbl (%rax),%ecx
add    $0x1,%rax
add    $0x1,%edi
cmp    $0x5f,%cl
je     1120 <num_char+0x20>
mov    $0xffffffff,%eax
cmp    $0x30,%cl
jl     117a <num_char+0x7a>
mov    %ecx,%eax
and    $0xdf,%al
cmp    $0x61,%cl
movzbl %cl,%ecx
movzbl %al,%eax
cmovb  %ecx,%eax
movzbl %al,%ecx
cmp    $0x39,%cl
ja     1164 <num_char+0x64>
add    $0x30,%edx
lea    -0x30(%rcx),%esi
cmp    %ecx,%edx
mov    $0xffffffff,%eax
cmova  %esi,%eax
ret
add    $0x37,%edx
lea    -0x37(%rcx),%eax
cmp    %ecx,%edx
mov    $0xffffffff,%edx
cmovbe %edx,%eax
cmp    $0x41,%cl
cmovb  %edx,%eax
ret

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

LLVM IR (-O2):
define i32 @num_char(i8* nocapture %0, i32* nocapture %1, i32 %2) {
%4 = load i32, i32* %1
%5 = sext i32 %4 to i64
%6 = getelementptr inbounds i8, i8* %0, i64 %5
%7 = load i8, i8* %6
%8 = icmp eq i8 %7, 95
br i1 %8, label %9, label %16
9: ; preds = %3, %9
%10 = phi i64 [ %11, %9 ], [ %5, %3 ]
%11 = add i64 %10, 1
%12 = trunc i64 %11 to i32
store i32 %12, i32* %1
%13 = getelementptr inbounds i8, i8* %0, i64 %11
%14 = load i8, i8* %13
%15 = icmp eq i8 %14, 95
br i1 %15, label %9, label %16
16: ; preds = %9, %3
%17 = phi i8 [ %7, %3 ], [ %14, %9 ]
%18 = icmp slt i8 %17, 48
br i1 %18, label %37, label %19
19: ; preds = %16
%20 = icmp ugt i8 %17, 96
%21 = and i8 %17, -33
%22 = select i1 %20, i8 %21, i8 %17
%23 = zext i8 %22 to i32
%24 = icmp ult i8 %22, 58
br i1 %24, label %25, label %30
25: ; preds = %19
%26 = add i32 %2, 48
%27 = icmp ugt i32 %26, %23
%28 = add nsw i32 %23, -48
%29 = select i1 %27, i32 %28, i32 -1
br label %37
30: ; preds = %19
%31 = icmp ugt i8 %22, 64
%32 = add i32 %2, 55
%33 = icmp ugt i32 %32, %23
%34 = and i1 %31, %33
%35 = add nsw i32 %23, -55
%36 = select i1 %34, i32 %35, i32 -1
br label %37
37: ; preds = %30, %25, %16
%38 = phi i32 [ -1, %16 ], [ %29, %25 ], [ %36, %30 ]
ret i32 %38
}