void insort_index(double *a, int *index, int len) {
  int i, j;
  double tempd;
  int tempi;
  for (i = 1; i < len; i++) {
    j = i;
    tempd = a[j];
    tempi = index[j];
    while (j > 0 && ((a[j - 1]) > (tempd))) {
      a[j] = a[j - 1];
      index[j] = index[j - 1];
      j--;
    }
    a[j] = tempd;
    index[j] = tempi;
  }
}


x86 assembly (clang, -O0):
<insort_index>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movl   $0x1,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11fa <insort_index+0xfa>
mov    -0x18(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x2c(%rbp)
xor    %eax,%eax
cmpl   $0x0,-0x1c(%rbp)
mov    %al,-0x2d(%rbp)
jle    1174 <insort_index+0x74>
mov    -0x8(%rbp),%rax
mov    -0x1c(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd -0x28(%rbp),%xmm0
seta   %al
mov    %al,-0x2d(%rbp)
mov    -0x2d(%rbp),%al
test   $0x1,%al
jne    1184 <insort_index+0x84>
jmp    11cc <insort_index+0xcc>
mov    -0x8(%rbp),%rax
mov    -0x1c(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
mov    -0x1c(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,4),%edx
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
jmp    1148 <insort_index+0x48>
movsd  -0x28(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x2c(%rbp),%edx
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1116 <insort_index+0x16>
pop    %rbp
ret

x86 assembly (clang, -O2):
<insort_index>:
cmp    $0x2,%edx
jl     116d <insort_index+0x6d>
mov    %edx,%r8d
mov    $0x1,%r10d
jmp    1131 <insort_index+0x31>
shl    $0x20,%rax
mov    %rax,%rcx
sar    $0x1d,%rcx
movsd  %xmm0,(%rdi,%rcx,1)
sar    $0x1e,%rax
mov    %r9d,(%rsi,%rax,1)
add    $0x1,%r10
cmp    %r8,%r10
je     116d <insort_index+0x6d>
movsd  (%rdi,%r10,8),%xmm0
mov    (%rsi,%r10,4),%r9d
mov    %r10,%rax
xchg   %ax,%ax
lea    -0x1(%rax),%rcx
mov    %ecx,%edx
movsd  (%rdi,%rdx,8),%xmm1
ucomisd %xmm0,%xmm1
jbe    1110 <insort_index+0x10>
movsd  %xmm1,(%rdi,%rax,8)
mov    (%rsi,%rdx,4),%edx
mov    %edx,(%rsi,%rax,4)
lea    0x1(%rcx),%rdx
mov    %rcx,%rax
cmp    $0x1,%rdx
jg     1140 <insort_index+0x40>
xor    %eax,%eax
jmp    1110 <insort_index+0x10>
ret

LLVM IR (-O0):
define void @insort_index(double* %0, i32* %1, i32 %2) {
%4 = alloca double*
%5 = alloca i32*
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca double
%10 = alloca i32
store double* %0, double** %4
store i32* %1, i32** %5
store i32 %2, i32* %6
store i32 1, i32* %7
br label %11
11: ; preds = %75, %3
%12 = load i32, i32* %7
%13 = load i32, i32* %6
%14 = icmp slt i32 %12, %13
br i1 %14, label %15, label %78
15: ; preds = %11
%16 = load i32, i32* %7
store i32 %16, i32* %8
%17 = load double*, double** %4
%18 = load i32, i32* %8
%19 = sext i32 %18 to i64
%20 = getelementptr inbounds double, double* %17, i64 %19
%21 = load double, double* %20
store double %21, double* %9
%22 = load i32*, i32** %5
%23 = load i32, i32* %8
%24 = sext i32 %23 to i64
%25 = getelementptr inbounds i32, i32* %22, i64 %24
%26 = load i32, i32* %25
store i32 %26, i32* %10
br label %27
27: ; preds = %41, %15
%28 = load i32, i32* %8
%29 = icmp sgt i32 %28, 0
br i1 %29, label %30, label %39
30: ; preds = %27
%31 = load double*, double** %4
%32 = load i32, i32* %8
%33 = sub nsw i32 %32, 1
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds double, double* %31, i64 %34
%36 = load double, double* %35
%37 = load double, double* %9
%38 = fcmp ogt double %36, %37
br label %39
39: ; preds = %30, %27
%40 = phi i1 [ false, %27 ], [ %38, %30 ]
br i1 %40, label %41, label %64
41: ; preds = %39
%42 = load double*, double** %4
%43 = load i32, i32* %8
%44 = sub nsw i32 %43, 1
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds double, double* %42, i64 %45
%47 = load double, double* %46
%48 = load double*, double** %4
%49 = load i32, i32* %8
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds double, double* %48, i64 %50
store double %47, double* %51
%52 = load i32*, i32** %5
%53 = load i32, i32* %8
%54 = sub nsw i32 %53, 1
%55 = sext i32 %54 to i64
%56 = getelementptr inbounds i32, i32* %52, i64 %55
%57 = load i32, i32* %56
%58 = load i32*, i32** %5
%59 = load i32, i32* %8
%60 = sext i32 %59 to i64
%61 = getelementptr inbounds i32, i32* %58, i64 %60
store i32 %57, i32* %61
%62 = load i32, i32* %8
%63 = add nsw i32 %62, -1
store i32 %63, i32* %8
br label %27
64: ; preds = %39
%65 = load double, double* %9
%66 = load double*, double** %4
%67 = load i32, i32* %8
%68 = sext i32 %67 to i64
%69 = getelementptr inbounds double, double* %66, i64 %68
store double %65, double* %69
%70 = load i32, i32* %10
%71 = load i32*, i32** %5
%72 = load i32, i32* %8
%73 = sext i32 %72 to i64
%74 = getelementptr inbounds i32, i32* %71, i64 %73
store i32 %70, i32* %74
br label %75
75: ; preds = %64
%76 = load i32, i32* %7
%77 = add nsw i32 %76, 1
store i32 %77, i32* %7
br label %11
78: ; preds = %11
ret void
}

LLVM IR (-O2):
define void @insort_index(double* nocapture %0, i32* nocapture %1, i32 %2) {
%4 = icmp sgt i32 %2, 1
br i1 %4, label %5, label %34
5: ; preds = %3
%6 = zext i32 %2 to i64
br label %7
7: ; preds = %5, %26
%8 = phi i64 [ 1, %5 ], [ %32, %26 ]
%9 = getelementptr inbounds double, double* %0, i64 %8
%10 = load double, double* %9
%11 = getelementptr inbounds i32, i32* %1, i64 %8
%12 = load i32, i32* %11
br label %13
13: ; preds = %7, %20
%14 = phi i64 [ %8, %7 ], [ %15, %20 ]
%15 = add nsw i64 %14, -1
%16 = and i64 %15, 4294967295
%17 = getelementptr inbounds double, double* %0, i64 %16
%18 = load double, double* %17
%19 = fcmp ogt double %18, %10
br i1 %19, label %20, label %26
20: ; preds = %13
%21 = getelementptr inbounds double, double* %0, i64 %14
store double %18, double* %21
%22 = getelementptr inbounds i32, i32* %1, i64 %16
%23 = load i32, i32* %22
%24 = getelementptr inbounds i32, i32* %1, i64 %14
store i32 %23, i32* %24
%25 = icmp sgt i64 %14, 1
br i1 %25, label %13, label %26
26: ; preds = %20, %13
%27 = phi i64 [ 0, %20 ], [ %14, %13 ]
%28 = shl i64 %27, 32
%29 = ashr exact i64 %28, 32
%30 = getelementptr inbounds double, double* %0, i64 %29
store double %10, double* %30
%31 = getelementptr inbounds i32, i32* %1, i64 %29
store i32 %12, i32* %31
%32 = add nuw nsw i64 %8, 1
%33 = icmp eq i64 %32, %6
br i1 %33, label %34, label %7
34: ; preds = %26, %3
ret void
}