struct conscell **GetArrayIndex(hunk, loc, size)
struct hunkcell *hunk;
long int loc, size;
{
  int rem;
  int subix;
  long int subsize;
  struct hunkcell **e;
  for (;;) {
    if (size <= (((2 * 1024 / (sizeof(char *))) - 1) - 1))
      return (GetHunkIndex(hunk, loc));
    rem = size % (((2 * 1024 / (sizeof(char *))) - 1) - 1);
    subsize = size / (((2 * 1024 / (sizeof(char *))) - 1) - 1);
    if (size - rem <= loc) {
      e = (struct hunkcell **)GetHunkIndex(
          hunk, (((2 * 1024 / (sizeof(char *))) - 1) - 1));
      if (rem == 1)
        return ((struct conscell **)e);
      return (GetHunkIndex(*e, loc - (((2 * 1024 / (sizeof(char *))) - 1) - 1) *
                                         subsize));
    };
    if (subsize == 1L)
      return (GetHunkIndex(hunk, loc));
    subix = loc / subsize;
    hunk = *((struct hunkcell **)GetHunkIndex(hunk, subix));
    loc = loc - subix * subsize;
    size = subsize;
  };
}


x86 assembly (clang, -O0):
<GetArrayIndex>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
cmpq   $0xfe,-0x20(%rbp)
ja     114c <GetArrayIndex+0x3c>
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rsi
mov    $0x0,%al
call   1030 <GetHunkIndex@plt>
cltq
mov    %rax,-0x8(%rbp)
jmp    1245 <GetArrayIndex+0x135>
mov    -0x20(%rbp),%rax
mov    $0xfe,%ecx
xor    %edx,%edx
div    %rcx
mov    %edx,%eax
mov    %eax,-0x24(%rbp)
mov    -0x20(%rbp),%rax
mov    $0xfe,%ecx
xor    %edx,%edx
div    %rcx
mov    %rax,-0x30(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
sub    %rcx,%rax
cmp    -0x18(%rbp),%rax
jg     11db <GetArrayIndex+0xcb>
mov    -0x10(%rbp),%rdi
mov    $0xfe,%esi
mov    $0x0,%al
call   1030 <GetHunkIndex@plt>
cltq
mov    %rax,-0x38(%rbp)
cmpl   $0x1,-0x24(%rbp)
jne    11b3 <GetArrayIndex+0xa3>
mov    -0x38(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1245 <GetArrayIndex+0x135>
mov    -0x38(%rbp),%rax
mov    (%rax),%rdi
mov    -0x18(%rbp),%rsi
imul   $0xfe,-0x30(%rbp),%rax
sub    %rax,%rsi
mov    $0x0,%al
call   1030 <GetHunkIndex@plt>
cltq
mov    %rax,-0x8(%rbp)
jmp    1245 <GetArrayIndex+0x135>
cmpq   $0x1,-0x30(%rbp)
jne    1200 <GetArrayIndex+0xf0>
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rsi
mov    $0x0,%al
call   1030 <GetHunkIndex@plt>
cltq
mov    %rax,-0x8(%rbp)
jmp    1245 <GetArrayIndex+0x135>
mov    -0x18(%rbp),%rax
cqto
idivq  -0x30(%rbp)
mov    %eax,-0x28(%rbp)
mov    -0x10(%rbp),%rdi
mov    -0x28(%rbp),%esi
mov    $0x0,%al
call   1030 <GetHunkIndex@plt>
cltq
mov    (%rax),%rax
mov    %rax,-0x10(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
imul   -0x30(%rbp),%rcx
sub    %rcx,%rax
mov    %rax,-0x18(%rbp)
mov    -0x30(%rbp),%rax
mov    %rax,-0x20(%rbp)
jmp    1124 <GetArrayIndex+0x14>
mov    -0x8(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<GetArrayIndex>:
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %rsi,%r15
cmp    $0xfe,%rdx
ja     113b <GetArrayIndex+0x2b>
mov    %r15,%rsi
xor    %eax,%eax
call   1030 <GetHunkIndex@plt>
cltq
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
ret
mov    %rdx,%r14
movabs $0x4081020408102041,%r13
02 81 40
jmp    1180 <GetArrayIndex+0x70>
nopw   0x0(%rax,%rax,1)
mov    %r15,%rax
cqto
idiv   %rbx
mov    %rax,%r12
mov    %r12d,%esi
xor    %eax,%eax
call   1030 <GetHunkIndex@plt>
cltq
mov    (%rax),%rdi
movslq %r12d,%rax
imul   %rbx,%rax
sub    %rax,%r15
cmp    $0xfd02,%r14
mov    %rbx,%r14
jb     1125 <GetArrayIndex+0x15>
mov    %r14,%rax
shr    %rax
mul    %r13
mov    %rdx,%rbx
shr    $0x5,%rbx
mov    %rbx,%rax
shl    $0x8,%rax
sub    %rbx,%rax
sub    %rbx,%rax
cmp    %r15,%rax
jle    11cd <GetArrayIndex+0xbd>
lea    -0xfe(%r14),%rax
cmp    $0xfd,%rax
jbe    1125 <GetArrayIndex+0x15>
mov    %r15,%rax
or     %rbx,%rax
shr    $0x20,%rax
jne    1150 <GetArrayIndex+0x40>
mov    %r15d,%eax
xor    %edx,%edx
div    %ebx
mov    %eax,%r12d
jmp    115b <GetArrayIndex+0x4b>
sub    %rax,%r14
mov    $0xfe,%esi
xor    %eax,%eax
call   1030 <GetHunkIndex@plt>
cltq
cmp    $0x1,%r14
je     1131 <GetArrayIndex+0x21>
mov    (%rax),%rdi
imul   $0xffffffffffffff02,%rbx,%rsi
add    %r15,%rsi
jmp    1128 <GetArrayIndex+0x18>

LLVM IR (-O0):
%struct.conscell = type opaque
%struct.hunkcell = type opaque
%struct.hunkcell.0 = type opaque
define %struct.conscell** @GetArrayIndex(%struct.hunkcell* %0, i64 %1, i64 %2) {
%4 = alloca %struct.conscell**
%5 = alloca %struct.hunkcell*
%6 = alloca i64
%7 = alloca i64
%8 = alloca i32
%9 = alloca i32
%10 = alloca i64
%11 = alloca %struct.hunkcell.0**
store %struct.hunkcell* %0, %struct.hunkcell** %5
store i64 %1, i64* %6
store i64 %2, i64* %7
br label %12
12: ; preds = %62, %3
%13 = load i64, i64* %7
%14 = icmp ule i64 %13, 254
br i1 %14, label %15, label %21
15: ; preds = %12
%16 = load %struct.hunkcell*, %struct.hunkcell** %5
%17 = load i64, i64* %6
%18 = call i32 (%struct.hunkcell*, i64, ...) bitcast (i32 (...)* @GetHunkIndex to i32 (%struct.hunkcell*, i64, ...)*)(%struct.hunkcell* %16, i64 %17)
%19 = sext i32 %18 to i64
%20 = inttoptr i64 %19 to %struct.conscell**
store %struct.conscell** %20, %struct.conscell*** %4
br label %81
21: ; preds = %12
%22 = load i64, i64* %7
%23 = urem i64 %22, 254
%24 = trunc i64 %23 to i32
store i32 %24, i32* %8
%25 = load i64, i64* %7
%26 = udiv i64 %25, 254
store i64 %26, i64* %10
%27 = load i64, i64* %7
%28 = load i32, i32* %8
%29 = sext i32 %28 to i64
%30 = sub nsw i64 %27, %29
%31 = load i64, i64* %6
%32 = icmp sle i64 %30, %31
br i1 %32, label %33, label %53
33: ; preds = %21
%34 = load %struct.hunkcell*, %struct.hunkcell** %5
%35 = call i32 (%struct.hunkcell*, i64, ...) bitcast (i32 (...)* @GetHunkIndex to i32 (%struct.hunkcell*, i64, ...)*)(%struct.hunkcell* %34, i64 254)
%36 = sext i32 %35 to i64
%37 = inttoptr i64 %36 to %struct.hunkcell.0**
store %struct.hunkcell.0** %37, %struct.hunkcell.0*** %11
%38 = load i32, i32* %8
%39 = icmp eq i32 %38, 1
br i1 %39, label %40, label %43
40: ; preds = %33
%41 = load %struct.hunkcell.0**, %struct.hunkcell.0*** %11
%42 = bitcast %struct.hunkcell.0** %41 to %struct.conscell**
store %struct.conscell** %42, %struct.conscell*** %4
br label %81
43: ; preds = %33
%44 = load %struct.hunkcell.0**, %struct.hunkcell.0*** %11
%45 = load %struct.hunkcell.0*, %struct.hunkcell.0** %44
%46 = load i64, i64* %6
%47 = load i64, i64* %10
%48 = mul i64 254, %47
%49 = sub i64 %46, %48
%50 = call i32 (%struct.hunkcell.0*, i64, ...) bitcast (i32 (...)* @GetHunkIndex to i32 (%struct.hunkcell.0*, i64, ...)*)(%struct.hunkcell.0* %45, i64 %49)
%51 = sext i32 %50 to i64
%52 = inttoptr i64 %51 to %struct.conscell**
store %struct.conscell** %52, %struct.conscell*** %4
br label %81
53: ; preds = %21
%54 = load i64, i64* %10
%55 = icmp eq i64 %54, 1
br i1 %55, label %56, label %62
56: ; preds = %53
%57 = load %struct.hunkcell*, %struct.hunkcell** %5
%58 = load i64, i64* %6
%59 = call i32 (%struct.hunkcell*, i64, ...) bitcast (i32 (...)* @GetHunkIndex to i32 (%struct.hunkcell*, i64, ...)*)(%struct.hunkcell* %57, i64 %58)
%60 = sext i32 %59 to i64
%61 = inttoptr i64 %60 to %struct.conscell**
store %struct.conscell** %61, %struct.conscell*** %4
br label %81
62: ; preds = %53
%63 = load i64, i64* %6
%64 = load i64, i64* %10
%65 = sdiv i64 %63, %64
%66 = trunc i64 %65 to i32
store i32 %66, i32* %9
%67 = load %struct.hunkcell*, %struct.hunkcell** %5
%68 = load i32, i32* %9
%69 = call i32 (%struct.hunkcell*, i32, ...) bitcast (i32 (...)* @GetHunkIndex to i32 (%struct.hunkcell*, i32, ...)*)(%struct.hunkcell* %67, i32 %68)
%70 = sext i32 %69 to i64
%71 = inttoptr i64 %70 to %struct.hunkcell.0**
%72 = load %struct.hunkcell.0*, %struct.hunkcell.0** %71
%73 = bitcast %struct.hunkcell.0* %72 to %struct.hunkcell*
store %struct.hunkcell* %73, %struct.hunkcell** %5
%74 = load i64, i64* %6
%75 = load i32, i32* %9
%76 = sext i32 %75 to i64
%77 = load i64, i64* %10
%78 = mul nsw i64 %76, %77
%79 = sub nsw i64 %74, %78
store i64 %79, i64* %6
%80 = load i64, i64* %10
store i64 %80, i64* %7
br label %12
81: ; preds = %56, %43, %40, %15
%82 = load %struct.conscell**, %struct.conscell*** %4
ret %struct.conscell** %82
}

LLVM IR (-O2):
%struct.conscell = type opaque
%struct.hunkcell = type opaque
%struct.hunkcell.0 = type opaque
define %struct.conscell** @GetArrayIndex(%struct.hunkcell* %0, i64 %1, i64 %2) {
%4 = icmp ult i64 %2, 255
br i1 %4, label %5, label %10
5: ; preds = %35, %3
%6 = phi i64 [ %1, %3 ], [ %45, %35 ]
%7 = phi %struct.hunkcell* [ %0, %3 ], [ %41, %35 ]
%8 = tail call i32 (%struct.hunkcell*, i64, ...) bitcast (i32 (...)* @GetHunkIndex to i32 (%struct.hunkcell*, i64, ...)*)(%struct.hunkcell* %7, i64 %6)
%9 = sext i32 %8 to i64
br label %47
10: ; preds = %3, %35
%11 = phi %struct.hunkcell* [ %41, %35 ], [ %0, %3 ]
%12 = phi i64 [ %45, %35 ], [ %1, %3 ]
%13 = phi i64 [ %15, %35 ], [ %2, %3 ]
%14 = urem i64 %13, 254
%15 = udiv i64 %13, 254
%16 = sub nuw nsw i64 %13, %14
%17 = icmp sgt i64 %16, %12
br i1 %17, label %29, label %18
18: ; preds = %10
%19 = tail call i32 (%struct.hunkcell*, i64, ...) bitcast (i32 (...)* @GetHunkIndex to i32 (%struct.hunkcell*, i64, ...)*)(%struct.hunkcell* %11, i64 254)
%20 = sext i32 %19 to i64
%21 = icmp eq i64 %14, 1
br i1 %21, label %47, label %22
22: ; preds = %18
%23 = inttoptr i64 %20 to %struct.hunkcell.0**
%24 = load %struct.hunkcell.0*, %struct.hunkcell.0** %23
%25 = mul i64 %15, -254
%26 = add i64 %25, %12
%27 = tail call i32 (%struct.hunkcell.0*, i64, ...) bitcast (i32 (...)* @GetHunkIndex to i32 (%struct.hunkcell.0*, i64, ...)*)(%struct.hunkcell.0* %24, i64 %26)
%28 = sext i32 %27 to i64
br label %47
29: ; preds = %10
%30 = add i64 %13, -254
%31 = icmp ult i64 %30, 254
br i1 %31, label %32, label %35
32: ; preds = %29
%33 = tail call i32 (%struct.hunkcell*, i64, ...) bitcast (i32 (...)* @GetHunkIndex to i32 (%struct.hunkcell*, i64, ...)*)(%struct.hunkcell* %11, i64 %12)
%34 = sext i32 %33 to i64
br label %47
35: ; preds = %29
%36 = sdiv i64 %12, %15
%37 = trunc i64 %36 to i32
%38 = tail call i32 (%struct.hunkcell*, i32, ...) bitcast (i32 (...)* @GetHunkIndex to i32 (%struct.hunkcell*, i32, ...)*)(%struct.hunkcell* %11, i32 %37)
%39 = sext i32 %38 to i64
%40 = inttoptr i64 %39 to %struct.hunkcell**
%41 = load %struct.hunkcell*, %struct.hunkcell** %40
%42 = shl i64 %36, 32
%43 = ashr exact i64 %42, 32
%44 = mul nsw i64 %43, %15
%45 = sub nsw i64 %12, %44
%46 = icmp ult i64 %13, 64770
br i1 %46, label %5, label %10
47: ; preds = %18, %32, %22, %5
%48 = phi i64 [ %9, %5 ], [ %28, %22 ], [ %34, %32 ], [ %20, %18 ]
%49 = inttoptr i64 %48 to %struct.conscell**
ret %struct.conscell** %49
}