void sort2(long n, double *ra, long *rb) {
  int l, j, ir, i;
  long rrb;
  double rra;
  l = (n >> 1) + 1;
  ir = n;
  for (;;) {
    if (l > 1) {
      rra = ra[--l];
      rrb = rb[l];
    } else {
      rra = ra[ir];
      rrb = rb[ir];
      ra[ir] = ra[1];
      rb[ir] = rb[1];
      if (--ir == 1) {
        ra[1] = rra;
        rb[1] = rrb;
        return;
      }
    }
    i = l;
    j = l << 1;
    while (j <= ir) {
      if (j < ir && ra[j] < ra[j + 1])
        ++j;
      if (rra < ra[j]) {
        ra[i] = ra[j];
        rb[i] = rb[j];
        j += (i = j);
      } else
        j = ir + 1;
    }
    ra[i] = rra;
    rb[i] = rrb;
  }
}


x86 assembly (clang, -O0):
<sort2>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x8(%rbp),%rax
sar    $0x1,%rax
add    $0x1,%rax
mov    %eax,-0x1c(%rbp)
mov    -0x8(%rbp),%rax
mov    %eax,-0x24(%rbp)
cmpl   $0x1,-0x1c(%rbp)
jle    115f <sort2+0x5f>
mov    -0x10(%rbp),%rax
mov    -0x1c(%rbp),%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x1c(%rbp)
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x30(%rbp)
jmp    11de <sort2+0xde>
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x30(%rbp)
mov    -0x10(%rbp),%rax
movsd  0x8(%rax),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%rax
mov    0x8(%rax),%rdx
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x24(%rbp)
cmp    $0x1,%eax
jne    11d9 <sort2+0xd9>
movsd  -0x38(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movsd  %xmm0,0x8(%rax)
mov    -0x30(%rbp),%rcx
mov    -0x18(%rbp),%rax
mov    %rcx,0x8(%rax)
pop    %rbp
ret
jmp    11de <sort2+0xde>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x1c(%rbp),%eax
shl    $0x1,%eax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x24(%rbp),%eax
jg     12a4 <sort2+0x1a4>
mov    -0x20(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    1237 <sort2+0x137>
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
mov    -0x20(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    1237 <sort2+0x137>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
movsd  -0x38(%rbp),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    1296 <sort2+0x196>
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rdx
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x20(%rbp),%eax
mov    %eax,-0x28(%rbp)
add    -0x20(%rbp),%eax
mov    %eax,-0x20(%rbp)
jmp    129f <sort2+0x19f>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    11ed <sort2+0xed>
movsd  -0x38(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x30(%rbp),%rdx
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
jmp    1126 <sort2+0x26>

x86 assembly (clang, -O2):
<sort2>:
push   %r14
push   %rbx
mov    %rdi,%r9
shr    %r9
add    $0x1,%r9d
jmp    111f <sort2+0x1f>
nop
mov    %r11d,%r10d
movslq %r10d,%rax
movsd  %xmm0,(%rsi,%rax,8)
mov    %r8,(%rdx,%rax,8)
cmp    $0x2,%r9d
jl     1140 <sort2+0x40>
add    $0xffffffff,%r9d
movsd  (%rsi,%r9,8),%xmm0
mov    (%rdx,%r9,8),%r8
jmp    1166 <sort2+0x66>
cs nopw 0x0(%rax,%rax,1)
nop
movslq %edi,%rdi
movsd  (%rsi,%rdi,8),%xmm0
mov    (%rdx,%rdi,8),%r8
movsd  0x8(%rsi),%xmm1
movsd  %xmm1,(%rsi,%rdi,8)
mov    0x8(%rdx),%rax
mov    %rax,(%rdx,%rdi,8)
add    $0xffffffff,%edi
cmp    $0x1,%edi
je     11e2 <sort2+0xe2>
lea    (%r9,%r9,1),%eax
mov    %r9d,%r10d
cmp    %edi,%eax
jg     1113 <sort2+0x13>
mov    %r9d,%r11d
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movslq %eax,%rcx
cmp    %edi,%eax
jge    11b0 <sort2+0xb0>
mov    %ecx,%ebx
or     $0x1,%ebx
movslq %ebx,%r14
movsd  (%rsi,%r14,8),%xmm1
ucomisd (%rsi,%rcx,8),%xmm1
mov    %eax,%r10d
jbe    11b3 <sort2+0xb3>
mov    %r14,%rcx
mov    %ebx,%r10d
jmp    11b3 <sort2+0xb3>
nopw   0x0(%rax,%rax,1)
mov    %eax,%r10d
movsd  (%rsi,%rcx,8),%xmm1
ucomisd %xmm0,%xmm1
jbe    1110 <sort2+0x10>
movslq %r11d,%rax
movsd  %xmm1,(%rsi,%rax,8)
mov    (%rdx,%rcx,8),%rcx
mov    %rcx,(%rdx,%rax,8)
lea    (%r10,%r10,1),%eax
mov    %r10d,%r11d
cmp    %edi,%eax
jle    1180 <sort2+0x80>
jmp    1113 <sort2+0x13>
movsd  %xmm0,0x8(%rsi)
mov    %r8,0x8(%rdx)
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
define void @sort2(i64 %0, double* %1, i64* %2) {
%4 = alloca i64
%5 = alloca double*
%6 = alloca i64*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i64
%12 = alloca double
store i64 %0, i64* %4
store double* %1, double** %5
store i64* %2, i64** %6
%13 = load i64, i64* %4
%14 = ashr i64 %13, 1
%15 = add nsw i64 %14, 1
%16 = trunc i64 %15 to i32
store i32 %16, i32* %7
%17 = load i64, i64* %4
%18 = trunc i64 %17 to i32
store i32 %18, i32* %9
br label %19
19: ; preds = %132, %3
%20 = load i32, i32* %7
%21 = icmp sgt i32 %20, 1
br i1 %21, label %22, label %34
22: ; preds = %19
%23 = load double*, double** %5
%24 = load i32, i32* %7
%25 = add nsw i32 %24, -1
store i32 %25, i32* %7
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds double, double* %23, i64 %26
%28 = load double, double* %27
store double %28, double* %12
%29 = load i64*, i64** %6
%30 = load i32, i32* %7
%31 = sext i32 %30 to i64
%32 = getelementptr inbounds i64, i64* %29, i64 %31
%33 = load i64, i64* %32
store i64 %33, i64* %11
br label %70
34: ; preds = %19
%35 = load double*, double** %5
%36 = load i32, i32* %9
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds double, double* %35, i64 %37
%39 = load double, double* %38
store double %39, double* %12
%40 = load i64*, i64** %6
%41 = load i32, i32* %9
%42 = sext i32 %41 to i64
%43 = getelementptr inbounds i64, i64* %40, i64 %42
%44 = load i64, i64* %43
store i64 %44, i64* %11
%45 = load double*, double** %5
%46 = getelementptr inbounds double, double* %45, i64 1
%47 = load double, double* %46
%48 = load double*, double** %5
%49 = load i32, i32* %9
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds double, double* %48, i64 %50
store double %47, double* %51
%52 = load i64*, i64** %6
%53 = getelementptr inbounds i64, i64* %52, i64 1
%54 = load i64, i64* %53
%55 = load i64*, i64** %6
%56 = load i32, i32* %9
%57 = sext i32 %56 to i64
%58 = getelementptr inbounds i64, i64* %55, i64 %57
store i64 %54, i64* %58
%59 = load i32, i32* %9
%60 = add nsw i32 %59, -1
store i32 %60, i32* %9
%61 = icmp eq i32 %60, 1
br i1 %61, label %62, label %69
62: ; preds = %34
%63 = load double, double* %12
%64 = load double*, double** %5
%65 = getelementptr inbounds double, double* %64, i64 1
store double %63, double* %65
%66 = load i64, i64* %11
%67 = load i64*, i64** %6
%68 = getelementptr inbounds i64, i64* %67, i64 1
store i64 %66, i64* %68
ret void
69: ; preds = %34
br label %70
70: ; preds = %69, %22
%71 = load i32, i32* %7
store i32 %71, i32* %10
%72 = load i32, i32* %7
%73 = shl i32 %72, 1
store i32 %73, i32* %8
br label %74
74: ; preds = %131, %70
%75 = load i32, i32* %8
%76 = load i32, i32* %9
%77 = icmp sle i32 %75, %76
br i1 %77, label %78, label %132
78: ; preds = %74
%79 = load i32, i32* %8
%80 = load i32, i32* %9
%81 = icmp slt i32 %79, %80
br i1 %81, label %82, label %98
82: ; preds = %78
%83 = load double*, double** %5
%84 = load i32, i32* %8
%85 = sext i32 %84 to i64
%86 = getelementptr inbounds double, double* %83, i64 %85
%87 = load double, double* %86
%88 = load double*, double** %5
%89 = load i32, i32* %8
%90 = add nsw i32 %89, 1
%91 = sext i32 %90 to i64
%92 = getelementptr inbounds double, double* %88, i64 %91
%93 = load double, double* %92
%94 = fcmp olt double %87, %93
br i1 %94, label %95, label %98
95: ; preds = %82
%96 = load i32, i32* %8
%97 = add nsw i32 %96, 1
store i32 %97, i32* %8
br label %98
98: ; preds = %95, %82, %78
%99 = load double, double* %12
%100 = load double*, double** %5
%101 = load i32, i32* %8
%102 = sext i32 %101 to i64
%103 = getelementptr inbounds double, double* %100, i64 %102
%104 = load double, double* %103
%105 = fcmp olt double %99, %104
br i1 %105, label %106, label %128
106: ; preds = %98
%107 = load double*, double** %5
%108 = load i32, i32* %8
%109 = sext i32 %108 to i64
%110 = getelementptr inbounds double, double* %107, i64 %109
%111 = load double, double* %110
%112 = load double*, double** %5
%113 = load i32, i32* %10
%114 = sext i32 %113 to i64
%115 = getelementptr inbounds double, double* %112, i64 %114
store double %111, double* %115
%116 = load i64*, i64** %6
%117 = load i32, i32* %8
%118 = sext i32 %117 to i64
%119 = getelementptr inbounds i64, i64* %116, i64 %118
%120 = load i64, i64* %119
%121 = load i64*, i64** %6
%122 = load i32, i32* %10
%123 = sext i32 %122 to i64
%124 = getelementptr inbounds i64, i64* %121, i64 %123
store i64 %120, i64* %124
%125 = load i32, i32* %8
store i32 %125, i32* %10
%126 = load i32, i32* %8
%127 = add nsw i32 %126, %125
store i32 %127, i32* %8
br label %131
128: ; preds = %98
%129 = load i32, i32* %9
%130 = add nsw i32 %129, 1
store i32 %130, i32* %8
br label %131
131: ; preds = %128, %106
br label %74
132: ; preds = %74
%133 = load double, double* %12
%134 = load double*, double** %5
%135 = load i32, i32* %10
%136 = sext i32 %135 to i64
%137 = getelementptr inbounds double, double* %134, i64 %136
store double %133, double* %137
%138 = load i64, i64* %11
%139 = load i64*, i64** %6
%140 = load i32, i32* %10
%141 = sext i32 %140 to i64
%142 = getelementptr inbounds i64, i64* %139, i64 %141
store i64 %138, i64* %142
br label %19
}

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