long a64l(s)
register char *s;
{
  register int i, c;
  long lg = 0;
  for (i = 0; (c = *s++) != '\0'; i += 6) {
    if (c > 'Z')
      c -= 'a' - 'Z' - 1;
    if (c > '9')
      c -= 'A' - '9' - 1;
    lg |= (long)(c - ('0' - 2)) << i;
  }
  return (lg);
}


x86 assembly (clang, -O0):
<a64l>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
movq   $0x0,-0x18(%rbp)
movl   $0x0,-0xc(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movsbl (%rax),%eax
mov    %eax,-0x10(%rbp)
cmp    $0x0,%eax
je     117f <a64l+0x7f>
cmpl   $0x5a,-0x10(%rbp)
jle    1148 <a64l+0x48>
mov    -0x10(%rbp),%eax
sub    $0x6,%eax
mov    %eax,-0x10(%rbp)
cmpl   $0x39,-0x10(%rbp)
jle    115b <a64l+0x5b>
mov    -0x10(%rbp),%eax
sub    $0x7,%eax
mov    %eax,-0x10(%rbp)
mov    -0x10(%rbp),%eax
sub    $0x2e,%eax
cltq
mov    -0xc(%rbp),%ecx
shl    %cl,%rax
or     -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0xc(%rbp),%eax
add    $0x6,%eax
mov    %eax,-0xc(%rbp)
jmp    1117 <a64l+0x17>
mov    -0x18(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<a64l>:
mov    (%rdi),%dl
test   %dl,%dl
je     1142 <a64l+0x42>
add    $0x1,%rdi
xor    %ecx,%ecx
xor    %eax,%eax
xchg   %ax,%ax
movsbl %dl,%edx
lea    -0x6(%rdx),%esi
cmp    $0x5b,%dl
cmovl  %edx,%esi
lea    -0x7(%rsi),%edx
cmp    $0x3a,%esi
cmovl  %esi,%edx
movslq %edx,%rdx
add    $0xffffffffffffffd2,%rdx
shl    %cl,%rdx
or     %rdx,%rax
add    $0x6,%rcx
movzbl (%rdi),%edx
add    $0x1,%rdi
test   %dl,%dl
jne    1110 <a64l+0x10>
ret
xor    %eax,%eax
ret

LLVM IR (-O0):
define i64 @a64l(i8* %0) {
%2 = alloca i8*
%3 = alloca i32
%4 = alloca i32
%5 = alloca i64
store i8* %0, i8** %2
store i64 0, i64* %5
store i32 0, i32* %3
br label %6
6: ; preds = %33, %1
%7 = load i8*, i8** %2
%8 = getelementptr inbounds i8, i8* %7, i32 1
store i8* %8, i8** %2
%9 = load i8, i8* %7
%10 = sext i8 %9 to i32
store i32 %10, i32* %4
%11 = icmp ne i32 %10, 0
br i1 %11, label %12, label %36
12: ; preds = %6
%13 = load i32, i32* %4
%14 = icmp sgt i32 %13, 90
br i1 %14, label %15, label %18
15: ; preds = %12
%16 = load i32, i32* %4
%17 = sub nsw i32 %16, 6
store i32 %17, i32* %4
br label %18
18: ; preds = %15, %12
%19 = load i32, i32* %4
%20 = icmp sgt i32 %19, 57
br i1 %20, label %21, label %24
21: ; preds = %18
%22 = load i32, i32* %4
%23 = sub nsw i32 %22, 7
store i32 %23, i32* %4
br label %24
24: ; preds = %21, %18
%25 = load i32, i32* %4
%26 = sub nsw i32 %25, 46
%27 = sext i32 %26 to i64
%28 = load i32, i32* %3
%29 = zext i32 %28 to i64
%30 = shl i64 %27, %29
%31 = load i64, i64* %5
%32 = or i64 %31, %30
store i64 %32, i64* %5
br label %33
33: ; preds = %24
%34 = load i32, i32* %3
%35 = add nsw i32 %34, 6
store i32 %35, i32* %3
br label %6
36: ; preds = %6
%37 = load i64, i64* %5
ret i64 %37
}

LLVM IR (-O2):
define i64 @a64l(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = icmp eq i8 %2, 0
br i1 %3, label %24, label %4
4: ; preds = %1, %4
%5 = phi i64 [ %21, %4 ], [ 0, %1 ]
%6 = phi i8 [ %22, %4 ], [ %2, %1 ]
%7 = phi i64 [ %20, %4 ], [ 0, %1 ]
%8 = phi i8* [ %10, %4 ], [ %0, %1 ]
%9 = sext i8 %6 to i32
%10 = getelementptr inbounds i8, i8* %8, i64 1
%11 = icmp sgt i8 %6, 90
%12 = add nsw i32 %9, -6
%13 = select i1 %11, i32 %12, i32 %9
%14 = icmp sgt i32 %13, 57
%15 = add nsw i32 %13, -7
%16 = select i1 %14, i32 %15, i32 %13
%17 = add nsw i32 %16, -46
%18 = sext i32 %17 to i64
%19 = shl i64 %18, %5
%20 = or i64 %19, %7
%21 = add nuw i64 %5, 6
%22 = load i8, i8* %10
%23 = icmp eq i8 %22, 0
br i1 %23, label %24, label %4
24: ; preds = %4, %1
%25 = phi i64 [ 0, %1 ], [ %20, %4 ]
ret i64 %25
}