int hpsolb(int *n, double *t, int *iorder, int *iheap) {
  int i__1;
  int i__, j, k;
  double out, ddum;
  int indxin, indxou;
  --iorder;
  --t;
  if (*iheap == 0) {
    i__1 = *n;
    for (k = 2; k <= i__1; ++k) {
      ddum = t[k];
      indxin = iorder[k];
      i__ = k;
    L10:
      if (i__ > 1) {
        j = i__ / 2;
        if (ddum < t[j]) {
          t[i__] = t[j];
          iorder[i__] = iorder[j];
          i__ = j;
          goto L10;
        }
      }
      t[i__] = ddum;
      iorder[i__] = indxin;
    }
  }
  if (*n > 1) {
    i__ = 1;
    out = t[1];
    indxou = iorder[1];
    ddum = t[*n];
    indxin = iorder[*n];
  L30:
    j = i__ + i__;
    if (j <= *n - 1) {
      if (t[j + 1] < t[j]) {
        ++j;
      }
      if (t[j] < ddum) {
        t[i__] = t[j];
        iorder[i__] = iorder[j];
        i__ = j;
        goto L30;
      }
    }
    t[i__] = ddum;
    iorder[i__] = indxin;
    t[*n] = out;
    iorder[*n] = indxou;
  }
  return 0;
}


x86 assembly (clang, -O0):
<hpsolb>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x18(%rbp),%rax
add    $0xfffffffffffffffc,%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%rax
add    $0xfffffffffffffff8,%rax
mov    %rax,-0x10(%rbp)
mov    -0x20(%rbp),%rax
cmpl   $0x0,(%rax)
jne    1222 <hpsolb+0x122>
mov    -0x8(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x24(%rbp)
movl   $0x2,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x24(%rbp),%eax
jg     121d <hpsolb+0x11d>
mov    -0x10(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x44(%rbp)
mov    -0x30(%rbp),%eax
mov    %eax,-0x28(%rbp)
cmpl   $0x1,-0x28(%rbp)
jle    11ef <hpsolb+0xef>
mov    -0x28(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x2c(%rbp)
movsd  -0x40(%rbp),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    11ea <hpsolb+0xea>
mov    -0x10(%rbp),%rax
movslq -0x2c(%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 -0x2c(%rbp),%rcx
mov    (%rax,%rcx,4),%edx
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x2c(%rbp),%eax
mov    %eax,-0x28(%rbp)
jmp    117b <hpsolb+0x7b>
jmp    11ef <hpsolb+0xef>
movsd  -0x40(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x44(%rbp),%edx
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1149 <hpsolb+0x49>
jmp    1222 <hpsolb+0x122>
mov    -0x8(%rbp),%rax
cmpl   $0x1,(%rax)
jle    1365 <hpsolb+0x265>
movl   $0x1,-0x28(%rbp)
mov    -0x10(%rbp),%rax
movsd  0x8(%rax),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x18(%rbp),%rax
mov    0x4(%rax),%eax
mov    %eax,-0x48(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x8(%rbp),%rcx
movslq (%rcx),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x18(%rbp),%rax
mov    -0x8(%rbp),%rcx
movslq (%rcx),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x44(%rbp)
mov    -0x28(%rbp),%eax
add    -0x28(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
mov    -0x8(%rbp),%rcx
mov    (%rcx),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jg     131f <hpsolb+0x21f>
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    12c3 <hpsolb+0x1c3>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x40(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    131a <hpsolb+0x21a>
mov    -0x10(%rbp),%rax
movslq -0x2c(%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 -0x2c(%rbp),%rcx
mov    (%rax,%rcx,4),%edx
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x2c(%rbp),%eax
mov    %eax,-0x28(%rbp)
jmp    1274 <hpsolb+0x174>
jmp    131f <hpsolb+0x21f>
movsd  -0x40(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x44(%rbp),%edx
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
movsd  -0x38(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x8(%rbp),%rcx
movslq (%rcx),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x48(%rbp),%edx
mov    -0x18(%rbp),%rax
mov    -0x8(%rbp),%rcx
movslq (%rcx),%rcx
mov    %edx,(%rax,%rcx,4)
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<hpsolb>:
push   %rbx
cmpl   $0x0,(%rcx)
je     1190 <hpsolb+0x90>
mov    (%rdi),%ecx
cmp    $0x2,%ecx
jl     1228 <hpsolb+0x128>
movsd  (%rsi),%xmm0
mov    (%rdx),%r8d
movsd  -0x8(%rsi,%rcx,8),%xmm1
mov    -0x4(%rdx,%rcx,4),%r9d
mov    $0x1,%eax
cmp    $0x2,%ecx
je     120d <hpsolb+0x10d>
mov    $0x1,%r10d
mov    $0x2,%ecx
mov    %ecx,%eax
or     $0x1,%eax
movslq %eax,%r11
movslq %ecx,%rbx
movsd  -0x8(%rsi,%rbx,8),%xmm2
ucomisd -0x8(%rsi,%r11,8),%xmm2
ja     115c <hpsolb+0x5c>
mov    %ecx,%eax
movslq %eax,%rcx
movsd  -0x8(%rsi,%rcx,8),%xmm2
ucomisd %xmm2,%xmm1
jbe    120a <hpsolb+0x10a>
movslq %r10d,%r10
movsd  %xmm2,-0x8(%rsi,%r10,8)
mov    -0x4(%rdx,%rcx,4),%ebx
mov    %ebx,-0x4(%rdx,%r10,4)
add    %ecx,%ecx
mov    %eax,%r10d
cmp    (%rdi),%ecx
jl     1140 <hpsolb+0x40>
jmp    120d <hpsolb+0x10d>
mov    (%rdi),%r8d
cmp    $0x2,%r8d
jl     1228 <hpsolb+0x128>
add    $0x1,%r8
mov    $0x2,%r10d
jmp    11cc <hpsolb+0xcc>
nopl   0x0(%rax)
mov    %ecx,%eax
mov    %eax,%eax
movsd  %xmm0,-0x8(%rsi,%rax,8)
mov    %r9d,-0x4(%rdx,%rax,4)
add    $0x1,%r10
cmp    %r8,%r10
je     110a <hpsolb+0xa>
movsd  -0x8(%rsi,%r10,8),%xmm0
mov    -0x4(%rdx,%r10,4),%r9d
mov    %r10d,%ecx
mov    %r10d,%eax
xchg   %ax,%ax
shr    %eax
movsd  -0x8(%rsi,%rax,8),%xmm1
ucomisd %xmm0,%xmm1
jbe    11b0 <hpsolb+0xb0>
mov    %ecx,%r11d
movsd  %xmm1,-0x8(%rsi,%r11,8)
mov    -0x4(%rdx,%rax,4),%ebx
mov    %ebx,-0x4(%rdx,%r11,4)
cmp    $0x3,%ecx
mov    %eax,%ecx
ja     11e0 <hpsolb+0xe0>
jmp    11b2 <hpsolb+0xb2>
mov    %r10d,%eax
cltq
movsd  %xmm1,-0x8(%rsi,%rax,8)
mov    %r9d,-0x4(%rdx,%rax,4)
movslq (%rdi),%rax
movsd  %xmm0,-0x8(%rsi,%rax,8)
mov    %r8d,-0x4(%rdx,%rax,4)
xor    %eax,%eax
pop    %rbx
ret

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

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