extern void _mixed_sort(double *array, int L, int R) {
  int l, r;
  double swap;
  if (R - L > 25) {
    l = L - 1;
    r = R;
    for (;;) {
      while (array[++l] < array[R])
        ;
      while ((array[--r] > array[R]) && (r > l))
        ;
      if (l >= r)
        break;
      swap = array[l];
      array[l] = array[r];
      array[r] = swap;
    }
    swap = array[l];
    array[l] = array[R];
    array[R] = swap;
    _mixed_sort(array, L, l - 1);
    _mixed_sort(array, l + 1, R);
  } else {
    for (l = L + 1; l <= R; ++l) {
      swap = array[l];
      for (r = l - 1; (r >= L) && (swap < array[r]); --r)
        array[r + 1] = array[r];
      array[r + 1] = swap;
    }
  }
}


x86 assembly (clang, -O0):
<_mixed_sort>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    -0x10(%rbp),%eax
sub    -0xc(%rbp),%eax
cmp    $0x19,%eax
jle    1284 <_mixed_sort+0x174>
mov    -0xc(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x10(%rbp),%eax
mov    %eax,-0x18(%rbp)
jmp    1145 <_mixed_sort+0x35>
mov    -0x8(%rbp),%rax
mov    -0x14(%rbp),%ecx
add    $0x1,%ecx
mov    %ecx,-0x14(%rbp)
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x8(%rbp),%rax
movslq -0x10(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    1176 <_mixed_sort+0x66>
jmp    1145 <_mixed_sort+0x35>
jmp    117b <_mixed_sort+0x6b>
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x18(%rbp)
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rcx
movslq -0x10(%rbp),%rdx
xor    %eax,%eax
ucomisd (%rcx,%rdx,8),%xmm0
mov    %al,-0x21(%rbp)
jbe    11b4 <_mixed_sort+0xa4>
mov    -0x18(%rbp),%eax
cmp    -0x14(%rbp),%eax
setg   %al
mov    %al,-0x21(%rbp)
mov    -0x21(%rbp),%al
test   $0x1,%al
jne    11c4 <_mixed_sort+0xb4>
jmp    11c9 <_mixed_sort+0xb9>
jmp    117b <_mixed_sort+0x6b>
mov    -0x14(%rbp),%eax
cmp    -0x18(%rbp),%eax
jl     11da <_mixed_sort+0xca>
jmp    121d <_mixed_sort+0x10d>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x20(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    1140 <_mixed_sort+0x30>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x10(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x20(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x10(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x8(%rbp),%rdi
mov    -0xc(%rbp),%esi
mov    -0x14(%rbp),%edx
sub    $0x1,%edx
call   1030 <_mixed_sort@plt>
mov    -0x8(%rbp),%rdi
mov    -0x14(%rbp),%esi
add    $0x1,%esi
mov    -0x10(%rbp),%edx
call   1030 <_mixed_sort@plt>
jmp    1348 <_mixed_sort+0x238>
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x14(%rbp),%eax
cmp    -0x10(%rbp),%eax
jg     1343 <_mixed_sort+0x233>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x18(%rbp)
mov    -0x18(%rbp),%ecx
xor    %eax,%eax
cmp    -0xc(%rbp),%ecx
mov    %al,-0x22(%rbp)
jl     12e1 <_mixed_sort+0x1d1>
movsd  -0x20(%rbp),%xmm1
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
seta   %al
mov    %al,-0x22(%rbp)
mov    -0x22(%rbp),%al
test   $0x1,%al
jne    12f1 <_mixed_sort+0x1e1>
jmp    131e <_mixed_sort+0x20e>
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x18(%rbp)
jmp    12b4 <_mixed_sort+0x1a4>
movsd  -0x20(%rbp),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    128d <_mixed_sort+0x17d>
jmp    1348 <_mixed_sort+0x238>
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<_mixed_sort>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %rdi,%rbx
mov    %edx,%eax
sub    %esi,%eax
movslq %edx,%r15
cmp    $0x1a,%eax
jl     121e <_mixed_sort+0x10e>
lea    -0x1(%rdx),%eax
mov    %eax,0xc(%rsp)
movabs $0x100000000,%r14
mov    %rdx,0x10(%rsp)
jmp    118a <_mixed_sort+0x7a>
nopl   0x0(%rax)
lea    (%r12,%r13,1),%edx
add    $0xffffffff,%edx
movsd  %xmm0,(%rcx,%r12,8)
movsd  %xmm1,(%rbx,%r15,8)
mov    %rbx,%rdi
call   1030 <_mixed_sort@plt>
lea    (%r12,%r13,1),%esi
add    $0x1,%esi
mov    0xc(%rsp),%eax
sub    %r13d,%eax
sub    %r12d,%eax
cmp    $0x19,%eax
mov    0x10(%rsp),%rdx
jle    1217 <_mixed_sort+0x107>
lea    -0x1(%rsi),%r13d
mov    %edx,%eax
movsd  (%rbx,%r15,8),%xmm0
movslq %r13d,%rdx
lea    (%rbx,%rdx,8),%rcx
shl    $0x20,%rdx
xor    %r12d,%r12d
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
add    %r14,%rdx
movsd  0x8(%rcx,%r12,8),%xmm1
add    $0x1,%r12
ucomisd %xmm1,%xmm0
ja     11b0 <_mixed_sort+0xa0>
mov    %r13d,%r8d
add    %r12,%r8
movslq %eax,%rbp
sar    $0x20,%rdx
add    $0xffffffffffffffff,%rbp
cs nopw 0x0(%rax,%rax,1)
nop
mov    %rbp,%rdi
movsd  (%rbx,%rbp,8),%xmm2
add    $0xffffffffffffffff,%rbp
add    $0xffffffff,%eax
ucomisd %xmm0,%xmm2
jbe    11fa <_mixed_sort+0xea>
cmp    %rdx,%rdi
jg     11e0 <_mixed_sort+0xd0>
cmp    %rdx,%rdi
jle    1150 <_mixed_sort+0x40>
movsd  %xmm2,(%rcx,%r12,8)
movsd  %xmm1,0x8(%rbx,%rbp,8)
mov    %r8d,%r13d
jmp    1190 <_mixed_sort+0x80>
lea    (%r12,%r13,1),%esi
add    $0x1,%esi
cmp    %edx,%esi
jge    1291 <_mixed_sort+0x181>
movslq %esi,%rax
add    $0xffffffff,%esi
lea    0x1(%rax),%rbp
mov    %rax,%rdx
jmp    1252 <_mixed_sort+0x142>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movslq %edi,%rcx
movsd  %xmm0,0x8(%rbx,%rcx,8)
add    $0x1,%rbp
cmp    %r15,%rdx
je     1291 <_mixed_sort+0x181>
mov    %rdx,%rdi
add    $0x1,%rdx
movsd  0x8(%rbx,%rdi,8),%xmm0
cmp    %rax,%rdi
jl     1240 <_mixed_sort+0x130>
mov    %rbp,%rcx
nopw   0x0(%rax,%rax,1)
movsd  -0x8(%rbx,%rcx,8),%xmm1
ucomisd %xmm0,%xmm1
jbe    1240 <_mixed_sort+0x130>
movsd  %xmm1,(%rbx,%rcx,8)
add    $0xffffffff,%edi
add    $0xffffffffffffffff,%rcx
cmp    %rax,%rcx
jg     1270 <_mixed_sort+0x160>
mov    %esi,%edi
jmp    1240 <_mixed_sort+0x130>
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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