unsigned long GetField(unsigned long *A, register unsigned long len,
                       register unsigned long index) {
  register unsigned long i = index * len / 32, j = index * len - 32 * i, result;
  if (j + len <= 32)
    result = (A[i] << (32 - j - len)) >> (32 - len);
  else {
    result = A[i] >> j;
    result = result | (A[i + 1] << (64 - j - len)) >> (32 - len);
  }
  return result;
}


x86 assembly (clang, -O0):
<GetField>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x18(%rbp),%rax
imul   -0x10(%rbp),%rax
shr    $0x5,%rax
mov    %rax,-0x20(%rbp)
mov    -0x18(%rbp),%rax
imul   -0x10(%rbp),%rax
mov    -0x20(%rbp),%rcx
shl    $0x5,%rcx
sub    %rcx,%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
add    -0x10(%rbp),%rax
cmp    $0x20,%rax
ja     117c <GetField+0x7c>
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    $0x20,%ecx
sub    -0x28(%rbp),%rcx
sub    -0x10(%rbp),%rcx
shl    %cl,%rax
mov    $0x20,%ecx
sub    -0x10(%rbp),%rcx
shr    %cl,%rax
mov    %rax,-0x30(%rbp)
jmp    11ca <GetField+0xca>
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x28(%rbp),%rcx
shr    %cl,%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rax
mov    -0x8(%rbp),%rcx
mov    -0x20(%rbp),%rdx
mov    0x8(%rcx,%rdx,8),%rdx
mov    $0x40,%ecx
sub    -0x28(%rbp),%rcx
sub    -0x10(%rbp),%rcx
shl    %cl,%rdx
mov    $0x20,%ecx
sub    -0x10(%rbp),%rcx
shr    %cl,%rdx
mov    %rdx,%rcx
or     %rcx,%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<GetField>:
mov    %rdx,%rcx
imul   %rsi,%rcx
mov    %rcx,%r8
shr    $0x5,%r8
and    $0x1f,%ecx
lea    (%rcx,%rsi,1),%rdx
mov    (%rdi,%r8,8),%rax
cmp    $0x20,%rdx
ja     1138 <GetField+0x38>
add    $0x20,%rdx
neg    %rdx
mov    %edx,%ecx
shl    %cl,%rax
add    $0x20,%rsi
neg    %rsi
mov    %esi,%ecx
shr    %cl,%rax
ret
shr    %cl,%rax
mov    0x8(%rdi,%r8,8),%rdi
neg    %dl
mov    %edx,%ecx
shl    %cl,%rdi
add    $0x20,%rsi
neg    %rsi
mov    %esi,%ecx
shr    %cl,%rdi
or     %rdi,%rax
ret

LLVM IR (-O0):
define i64 @GetField(i64* %0, i64 %1, i64 %2) {
%4 = alloca i64*
%5 = alloca i64
%6 = alloca i64
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
store i64* %0, i64** %4
store i64 %1, i64* %5
store i64 %2, i64* %6
%10 = load i64, i64* %6
%11 = load i64, i64* %5
%12 = mul i64 %10, %11
%13 = udiv i64 %12, 32
store i64 %13, i64* %7
%14 = load i64, i64* %6
%15 = load i64, i64* %5
%16 = mul i64 %14, %15
%17 = load i64, i64* %7
%18 = mul i64 32, %17
%19 = sub i64 %16, %18
store i64 %19, i64* %8
%20 = load i64, i64* %8
%21 = load i64, i64* %5
%22 = add i64 %20, %21
%23 = icmp ule i64 %22, 32
br i1 %23, label %24, label %37
24: ; preds = %3
%25 = load i64*, i64** %4
%26 = load i64, i64* %7
%27 = getelementptr inbounds i64, i64* %25, i64 %26
%28 = load i64, i64* %27
%29 = load i64, i64* %8
%30 = sub i64 32, %29
%31 = load i64, i64* %5
%32 = sub i64 %30, %31
%33 = shl i64 %28, %32
%34 = load i64, i64* %5
%35 = sub i64 32, %34
%36 = lshr i64 %33, %35
store i64 %36, i64* %9
br label %59
37: ; preds = %3
%38 = load i64*, i64** %4
%39 = load i64, i64* %7
%40 = getelementptr inbounds i64, i64* %38, i64 %39
%41 = load i64, i64* %40
%42 = load i64, i64* %8
%43 = lshr i64 %41, %42
store i64 %43, i64* %9
%44 = load i64, i64* %9
%45 = load i64*, i64** %4
%46 = load i64, i64* %7
%47 = add i64 %46, 1
%48 = getelementptr inbounds i64, i64* %45, i64 %47
%49 = load i64, i64* %48
%50 = load i64, i64* %8
%51 = sub i64 64, %50
%52 = load i64, i64* %5
%53 = sub i64 %51, %52
%54 = shl i64 %49, %53
%55 = load i64, i64* %5
%56 = sub i64 32, %55
%57 = lshr i64 %54, %56
%58 = or i64 %44, %57
store i64 %58, i64* %9
br label %59
59: ; preds = %37, %24
%60 = load i64, i64* %9
ret i64 %60
}

LLVM IR (-O2):
define i64 @GetField(i64* nocapture %0, i64 %1, i64 %2) {
%4 = mul i64 %2, %1
%5 = lshr i64 %4, 5
%6 = and i64 %4, 31
%7 = add i64 %6, %1
%8 = icmp ult i64 %7, 33
%9 = getelementptr inbounds i64, i64* %0, i64 %5
%10 = load i64, i64* %9
br i1 %8, label %11, label %16
11: ; preds = %3
%12 = sub nuw nsw i64 32, %7
%13 = shl i64 %10, %12
%14 = sub i64 32, %1
%15 = lshr i64 %13, %14
br label %26
16: ; preds = %3
%17 = lshr i64 %10, %6
%18 = add nuw nsw i64 %5, 1
%19 = getelementptr inbounds i64, i64* %0, i64 %18
%20 = load i64, i64* %19
%21 = sub i64 64, %7
%22 = shl i64 %20, %21
%23 = sub i64 32, %1
%24 = lshr i64 %22, %23
%25 = or i64 %24, %17
br label %26
26: ; preds = %16, %11
%27 = phi i64 [ %15, %11 ], [ %25, %16 ]
ret i64 %27
}