void make_box(double *ser, long **box, long *list, unsigned long l,
              unsigned int bs, unsigned int dim, unsigned int del, double eps) {
  int i, x, y;
  int ib = bs - 1;
  for (x = 0; x < bs; x++)
    for (y = 0; y < bs; y++)
      box[x][y] = -1;
  for (i = (dim - 1) * del; i < l; i++) {
    x = (int)(ser[i - (dim - 1) * del] / eps) & ib;
    y = (int)(ser[i] / eps) & ib;
    list[i] = box[x][y];
    box[x][y] = i;
  }
}


x86 assembly (clang, -O0):
<make_box>:
push   %rbp
mov    %rsp,%rbp
mov    0x10(%rbp),%eax
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8d,-0x24(%rbp)
mov    %r9d,-0x28(%rbp)
movsd  %xmm0,-0x30(%rbp)
mov    -0x24(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x40(%rbp)
movl   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0x24(%rbp),%eax
jae    118c <make_box+0x8c>
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x24(%rbp),%eax
jae    1179 <make_box+0x79>
mov    -0x10(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x3c(%rbp),%rcx
movq   $0xffffffffffffffff,(%rax,%rcx,8)
ff
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    1147 <make_box+0x47>
jmp    117e <make_box+0x7e>
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1134 <make_box+0x34>
mov    -0x28(%rbp),%eax
sub    $0x1,%eax
imul   0x10(%rbp),%eax
mov    %eax,-0x34(%rbp)
movslq -0x34(%rbp),%rax
cmp    -0x20(%rbp),%rax
jae    1232 <make_box+0x132>
mov    -0x8(%rbp),%rax
mov    -0x34(%rbp),%ecx
mov    -0x28(%rbp),%edx
sub    $0x1,%edx
imul   0x10(%rbp),%edx
sub    %edx,%ecx
mov    %ecx,%ecx
movsd  (%rax,%rcx,8),%xmm0
divsd  -0x30(%rbp),%xmm0
cvttsd2si %xmm0,%eax
and    -0x40(%rbp),%eax
mov    %eax,-0x38(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
divsd  -0x30(%rbp),%xmm0
cvttsd2si %xmm0,%eax
and    -0x40(%rbp),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x3c(%rbp),%rcx
mov    (%rax,%rcx,8),%rdx
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
movslq -0x34(%rbp),%rdx
mov    -0x10(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x3c(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1199 <make_box+0x99>
pop    %rbp
ret

x86 assembly (clang, -O2):
<make_box>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x28,%rsp
movsd  %xmm0,0x20(%rsp)
mov    %r9d,0x4(%rsp)
mov    %rcx,%r13
mov    %rdx,0x10(%rsp)
mov    %rsi,%r14
mov    %rdi,0x18(%rsp)
mov    %r8d,%r12d
sub    $0x1,%r12d
jb     124c <make_box+0x13c>
mov    %r13,%rbx
mov    %r8d,%r13d
lea    0x0(,%r13,8),%rbp
lea    -0x1(%r13),%rax
mov    %r13d,%ecx
and    $0x7,%ecx
mov    %rcx,0x8(%rsp)
cmp    $0x7,%rax
jae    1171 <make_box+0x61>
xor    %r15d,%r15d
jmp    121c <make_box+0x10c>
and    $0xfffffff8,%r13d
xor    %r15d,%r15d
nopl   0x0(%rax,%rax,1)
mov    (%r14,%r15,8),%rdi
mov    $0xff,%esi
mov    %rbp,%rdx
call   1030 <memset@plt>
mov    0x8(%r14,%r15,8),%rdi
mov    $0xff,%esi
mov    %rbp,%rdx
call   1030 <memset@plt>
mov    0x10(%r14,%r15,8),%rdi
mov    $0xff,%esi
mov    %rbp,%rdx
call   1030 <memset@plt>
mov    0x18(%r14,%r15,8),%rdi
mov    $0xff,%esi
mov    %rbp,%rdx
call   1030 <memset@plt>
mov    0x20(%r14,%r15,8),%rdi
mov    $0xff,%esi
mov    %rbp,%rdx
call   1030 <memset@plt>
mov    0x28(%r14,%r15,8),%rdi
mov    $0xff,%esi
mov    %rbp,%rdx
call   1030 <memset@plt>
mov    0x30(%r14,%r15,8),%rdi
mov    $0xff,%esi
mov    %rbp,%rdx
call   1030 <memset@plt>
mov    0x38(%r14,%r15,8),%rdi
mov    $0xff,%esi
mov    %rbp,%rdx
call   1030 <memset@plt>
add    $0x8,%r15
cmp    %r15,%r13
jne    1180 <make_box+0x70>
cmpq   $0x0,0x8(%rsp)
mov    %rbx,%r13
je     124c <make_box+0x13c>
lea    (%r14,%r15,8),%r15
xor    %ebx,%ebx
nopl   (%rax)
mov    (%r15,%rbx,8),%rdi
mov    $0xff,%esi
mov    %rbp,%rdx
call   1030 <memset@plt>
add    $0x1,%rbx
cmp    %rbx,0x8(%rsp)
jne    1230 <make_box+0x120>
mov    0x4(%rsp),%eax
add    $0xffffffff,%eax
imul   0x60(%rsp),%eax
cltq
cmp    %r13,%rax
movsd  0x20(%rsp),%xmm1
mov    0x18(%rsp),%rdx
jae    12ce <make_box+0x1be>
lea    (%rdx,%rax,8),%r8
mov    0x10(%rsp),%rcx
lea    (%rcx,%rax,8),%r9
xor    %esi,%esi
nopl   0x0(%rax)
mov    %esi,%edi
movsd  (%rdx,%rdi,8),%xmm0
divsd  %xmm1,%xmm0
cvttsd2si %xmm0,%edi
lea    (%rax,%rsi,1),%rbp
and    %r12d,%edi
movsd  (%r8,%rsi,8),%xmm0
divsd  %xmm1,%xmm0
cvttsd2si %xmm0,%ebx
and    %r12d,%ebx
movslq %edi,%rdi
mov    (%r14,%rdi,8),%rdi
movslq %ebx,%rbx
mov    (%rdi,%rbx,8),%rcx
mov    %rcx,(%r9,%rsi,8)
mov    %rbp,(%rdi,%rbx,8)
lea    (%rax,%rsi,1),%rcx
add    $0x1,%rcx
add    $0x1,%rsi
cmp    %r13,%rcx
jb     1280 <make_box+0x170>
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @make_box(double* %0, i64** %1, i64* %2, i64 %3, i32 %4, i32 %5, i32 %6, double %7) {
%9 = alloca double*
%10 = alloca i64**
%11 = alloca i64*
%12 = alloca i64
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca double
%17 = alloca i32
%18 = alloca i32
%19 = alloca i32
%20 = alloca i32
store double* %0, double** %9
store i64** %1, i64*** %10
store i64* %2, i64** %11
store i64 %3, i64* %12
store i32 %4, i32* %13
store i32 %5, i32* %14
store i32 %6, i32* %15
store double %7, double* %16
%21 = load i32, i32* %13
%22 = sub i32 %21, 1
store i32 %22, i32* %20
store i32 0, i32* %18
br label %23
23: ; preds = %45, %8
%24 = load i32, i32* %18
%25 = load i32, i32* %13
%26 = icmp ult i32 %24, %25
br i1 %26, label %27, label %48
27: ; preds = %23
store i32 0, i32* %19
br label %28
28: ; preds = %41, %27
%29 = load i32, i32* %19
%30 = load i32, i32* %13
%31 = icmp ult i32 %29, %30
br i1 %31, label %32, label %44
32: ; preds = %28
%33 = load i64**, i64*** %10
%34 = load i32, i32* %18
%35 = sext i32 %34 to i64
%36 = getelementptr inbounds i64*, i64** %33, i64 %35
%37 = load i64*, i64** %36
%38 = load i32, i32* %19
%39 = sext i32 %38 to i64
%40 = getelementptr inbounds i64, i64* %37, i64 %39
store i64 -1, i64* %40
br label %41
41: ; preds = %32
%42 = load i32, i32* %19
%43 = add nsw i32 %42, 1
store i32 %43, i32* %19
br label %28
44: ; preds = %28
br label %45
45: ; preds = %44
%46 = load i32, i32* %18
%47 = add nsw i32 %46, 1
store i32 %47, i32* %18
br label %23
48: ; preds = %23
%49 = load i32, i32* %14
%50 = sub i32 %49, 1
%51 = load i32, i32* %15
%52 = mul i32 %50, %51
store i32 %52, i32* %17
br label %53
53: ; preds = %107, %48
%54 = load i32, i32* %17
%55 = sext i32 %54 to i64
%56 = load i64, i64* %12
%57 = icmp ult i64 %55, %56
br i1 %57, label %58, label %110
58: ; preds = %53
%59 = load double*, double** %9
%60 = load i32, i32* %17
%61 = load i32, i32* %14
%62 = sub i32 %61, 1
%63 = load i32, i32* %15
%64 = mul i32 %62, %63
%65 = sub i32 %60, %64
%66 = zext i32 %65 to i64
%67 = getelementptr inbounds double, double* %59, i64 %66
%68 = load double, double* %67
%69 = load double, double* %16
%70 = fdiv double %68, %69
%71 = fptosi double %70 to i32
%72 = load i32, i32* %20
%73 = and i32 %71, %72
store i32 %73, i32* %18
%74 = load double*, double** %9
%75 = load i32, i32* %17
%76 = sext i32 %75 to i64
%77 = getelementptr inbounds double, double* %74, i64 %76
%78 = load double, double* %77
%79 = load double, double* %16
%80 = fdiv double %78, %79
%81 = fptosi double %80 to i32
%82 = load i32, i32* %20
%83 = and i32 %81, %82
store i32 %83, i32* %19
%84 = load i64**, i64*** %10
%85 = load i32, i32* %18
%86 = sext i32 %85 to i64
%87 = getelementptr inbounds i64*, i64** %84, i64 %86
%88 = load i64*, i64** %87
%89 = load i32, i32* %19
%90 = sext i32 %89 to i64
%91 = getelementptr inbounds i64, i64* %88, i64 %90
%92 = load i64, i64* %91
%93 = load i64*, i64** %11
%94 = load i32, i32* %17
%95 = sext i32 %94 to i64
%96 = getelementptr inbounds i64, i64* %93, i64 %95
store i64 %92, i64* %96
%97 = load i32, i32* %17
%98 = sext i32 %97 to i64
%99 = load i64**, i64*** %10
%100 = load i32, i32* %18
%101 = sext i32 %100 to i64
%102 = getelementptr inbounds i64*, i64** %99, i64 %101
%103 = load i64*, i64** %102
%104 = load i32, i32* %19
%105 = sext i32 %104 to i64
%106 = getelementptr inbounds i64, i64* %103, i64 %105
store i64 %98, i64* %106
br label %107
107: ; preds = %58
%108 = load i32, i32* %17
%109 = add nsw i32 %108, 1
store i32 %109, i32* %17
br label %53
110: ; preds = %53
ret void
}

LLVM IR (-O2):
define void @make_box(double* nocapture %0, i64** nocapture %1, i64* nocapture writeonly %2, i64 %3, i32 %4, i32 %5, i32 %6, double %7) {
%9 = add i32 %4, -1
%10 = icmp eq i32 %4, 0
br i1 %10, label %68, label %11
11: ; preds = %8
%12 = zext i32 %4 to i64
%13 = shl nuw nsw i64 %12, 3
%14 = add nsw i64 %12, -1
%15 = and i64 %12, 7
%16 = icmp ult i64 %14, 7
br i1 %16, label %56, label %17
17: ; preds = %11
%18 = and i64 %12, 4294967288
br label %19
19: ; preds = %19, %17
%20 = phi i64 [ 0, %17 ], [ %53, %19 ]
%21 = phi i64 [ 0, %17 ], [ %54, %19 ]
%22 = getelementptr inbounds i64*, i64** %1, i64 %20
%23 = bitcast i64** %22 to i8**
%24 = load i8*, i8** %23
%25 = or i64 %20, 1
%26 = getelementptr inbounds i64*, i64** %1, i64 %25
%27 = bitcast i64** %26 to i8**
%28 = load i8*, i8** %27
%29 = or i64 %20, 2
%30 = getelementptr inbounds i64*, i64** %1, i64 %29
%31 = bitcast i64** %30 to i8**
%32 = load i8*, i8** %31
%33 = or i64 %20, 3
%34 = getelementptr inbounds i64*, i64** %1, i64 %33
%35 = bitcast i64** %34 to i8**
%36 = load i8*, i8** %35
%37 = or i64 %20, 4
%38 = getelementptr inbounds i64*, i64** %1, i64 %37
%39 = bitcast i64** %38 to i8**
%40 = load i8*, i8** %39
%41 = or i64 %20, 5
%42 = getelementptr inbounds i64*, i64** %1, i64 %41
%43 = bitcast i64** %42 to i8**
%44 = load i8*, i8** %43
%45 = or i64 %20, 6
%46 = getelementptr inbounds i64*, i64** %1, i64 %45
%47 = bitcast i64** %46 to i8**
%48 = load i8*, i8** %47
%49 = or i64 %20, 7
%50 = getelementptr inbounds i64*, i64** %1, i64 %49
%51 = bitcast i64** %50 to i8**
%52 = load i8*, i8** %51
%53 = add nuw nsw i64 %20, 8
%54 = add i64 %21, 8
%55 = icmp eq i64 %54, %18
br i1 %55, label %56, label %19
56: ; preds = %19, %11
%57 = phi i64 [ 0, %11 ], [ %53, %19 ]
%58 = icmp eq i64 %15, 0
br i1 %58, label %68, label %59
59: ; preds = %56, %59
%60 = phi i64 [ %65, %59 ], [ %57, %56 ]
%61 = phi i64 [ %66, %59 ], [ 0, %56 ]
%62 = getelementptr inbounds i64*, i64** %1, i64 %60
%63 = bitcast i64** %62 to i8**
%64 = load i8*, i8** %63
%65 = add nuw nsw i64 %60, 1
%66 = add i64 %61, 1
%67 = icmp eq i64 %66, %15
br i1 %67, label %68, label %59
68: ; preds = %56, %59, %8
%69 = add i32 %5, -1
%70 = mul i32 %69, %6
%71 = sext i32 %70 to i64
%72 = icmp ult i64 %71, %3
br i1 %72, label %73, label %97
73: ; preds = %68, %73
%74 = phi i64 [ %95, %73 ], [ %71, %68 ]
%75 = trunc i64 %74 to i32
%76 = sub i32 %75, %70
%77 = zext i32 %76 to i64
%78 = getelementptr inbounds double, double* %0, i64 %77
%79 = load double, double* %78
%80 = fdiv double %79, %7
%81 = fptosi double %80 to i32
%82 = and i32 %9, %81
%83 = getelementptr inbounds double, double* %0, i64 %74
%84 = load double, double* %83
%85 = fdiv double %84, %7
%86 = fptosi double %85 to i32
%87 = and i32 %9, %86
%88 = sext i32 %82 to i64
%89 = getelementptr inbounds i64*, i64** %1, i64 %88
%90 = load i64*, i64** %89
%91 = sext i32 %87 to i64
%92 = getelementptr inbounds i64, i64* %90, i64 %91
%93 = load i64, i64* %92
%94 = getelementptr inbounds i64, i64* %2, i64 %74
store i64 %93, i64* %94
store i64 %74, i64* %92
%95 = add i64 %74, 1
%96 = icmp ult i64 %95, %3
br i1 %96, label %73, label %97
97: ; preds = %73, %68
ret void
}