int compress(elen, e, h)
int elen;
float *e;
float *h;
{
  float Q, q;
  float Qnew;
  int eindex, hindex;
  float bvirt;
  float enow, hnow;
  int top, bottom;
  bottom = elen - 1;
  Q = e[bottom];
  for (eindex = elen - 2; eindex >= 0; eindex--) {
    enow = e[eindex];
    Qnew = (float)(Q + enow);
    bvirt = Qnew - Q;
    q = enow - bvirt;
    if (q != 0) {
      h[bottom--] = Qnew;
      Q = q;
    } else {
      Q = Qnew;
    }
  }
  top = 0;
  for (hindex = bottom + 1; hindex < elen; hindex++) {
    hnow = h[hindex];
    Qnew = (float)(hnow + Q);
    bvirt = Qnew - hnow;
    q = Q - bvirt;
    if (q != 0) {
      h[top++] = q;
    }
    Q = Qnew;
  }
  h[top] = Q;
  return top + 1;
}


x86 assembly (clang, -O0):
<compress>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x4(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x40(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x40(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x1c(%rbp)
mov    -0x4(%rbp),%eax
sub    $0x2,%eax
mov    %eax,-0x28(%rbp)
cmpl   $0x0,-0x28(%rbp)
jl     11e0 <compress+0xe0>
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x34(%rbp)
movss  -0x1c(%rbp),%xmm0
addss  -0x34(%rbp),%xmm0
movss  %xmm0,-0x24(%rbp)
movss  -0x24(%rbp),%xmm0
subss  -0x1c(%rbp),%xmm0
movss  %xmm0,-0x30(%rbp)
movss  -0x34(%rbp),%xmm0
subss  -0x30(%rbp),%xmm0
movss  %xmm0,-0x20(%rbp)
movss  -0x20(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomiss %xmm1,%xmm0
jne    1198 <compress+0x98>
jp     1198 <compress+0x98>
jmp    11c3 <compress+0xc3>
movss  -0x24(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x40(%rbp),%ecx
mov    %ecx,%edx
add    $0xffffffff,%edx
mov    %edx,-0x40(%rbp)
movslq %ecx,%rcx
movss  %xmm0,(%rax,%rcx,4)
movss  -0x20(%rbp),%xmm0
movss  %xmm0,-0x1c(%rbp)
jmp    11cd <compress+0xcd>
movss  -0x24(%rbp),%xmm0
movss  %xmm0,-0x1c(%rbp)
jmp    11d2 <compress+0xd2>
mov    -0x28(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x28(%rbp)
jmp    1133 <compress+0x33>
movl   $0x0,-0x3c(%rbp)
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    128b <compress+0x18b>
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x38(%rbp)
movss  -0x38(%rbp),%xmm0
addss  -0x1c(%rbp),%xmm0
movss  %xmm0,-0x24(%rbp)
movss  -0x24(%rbp),%xmm0
subss  -0x38(%rbp),%xmm0
movss  %xmm0,-0x30(%rbp)
movss  -0x1c(%rbp),%xmm0
subss  -0x30(%rbp),%xmm0
movss  %xmm0,-0x20(%rbp)
movss  -0x20(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomiss %xmm1,%xmm0
jne    1257 <compress+0x157>
jp     1257 <compress+0x157>
jmp    1273 <compress+0x173>
movss  -0x20(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x3c(%rbp),%ecx
mov    %ecx,%edx
add    $0x1,%edx
mov    %edx,-0x3c(%rbp)
movslq %ecx,%rcx
movss  %xmm0,(%rax,%rcx,4)
movss  -0x24(%rbp),%xmm0
movss  %xmm0,-0x1c(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    11f0 <compress+0xf0>
movss  -0x1c(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<compress>:
lea    -0x1(%rdi),%r9d
movslq %edi,%rcx
movss  -0x4(%rsi,%rcx,4),%xmm2
cmp    $0x2,%ecx
jl     114b <compress+0x4b>
lea    -0x2(%rdi),%r8d
test   $0x1,%r8b
jne    1153 <compress+0x53>
movss  (%rsi,%r8,4),%xmm0
movaps %xmm2,%xmm1
addss  %xmm0,%xmm1
movaps %xmm1,%xmm3
subss  %xmm2,%xmm3
subss  %xmm3,%xmm0
xorps  %xmm2,%xmm2
ucomiss %xmm2,%xmm0
jne    113e <compress+0x3e>
jnp    1160 <compress+0x60>
movslq %r9d,%rax
movss  %xmm1,(%rdx,%rax,4)
mov    %r8d,%r9d
jmp    1163 <compress+0x63>
movaps %xmm2,%xmm0
jmp    11f7 <compress+0xf7>
mov    %r8,%rcx
test   %r8,%r8
jne    1173 <compress+0x73>
jmp    11f7 <compress+0xf7>
movaps %xmm1,%xmm0
lea    -0x1(%r8),%rcx
movaps %xmm0,%xmm2
test   %r8,%r8
je     11f7 <compress+0xf7>
add    $0x2,%rcx
xorps  %xmm1,%xmm1
movaps %xmm2,%xmm0
jmp    1196 <compress+0x96>
nop
movslq %r9d,%rax
add    $0xffffffff,%r9d
movss  %xmm3,(%rdx,%rax,4)
add    $0xfffffffffffffffe,%rcx
cmp    $0x1,%rcx
jle    11f7 <compress+0xf7>
movss  -0x8(%rsi,%rcx,4),%xmm2
movaps %xmm0,%xmm3
addss  %xmm2,%xmm3
movaps %xmm3,%xmm4
subss  %xmm0,%xmm4
subss  %xmm4,%xmm2
ucomiss %xmm1,%xmm2
jne    11b5 <compress+0xb5>
jnp    11d0 <compress+0xd0>
movslq %r9d,%rax
add    $0xffffffff,%r9d
movss  %xmm3,(%rdx,%rax,4)
jmp    11d3 <compress+0xd3>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movaps %xmm3,%xmm2
movss  -0xc(%rsi,%rcx,4),%xmm0
movaps %xmm2,%xmm3
addss  %xmm0,%xmm3
movaps %xmm3,%xmm4
subss  %xmm2,%xmm4
subss  %xmm4,%xmm0
ucomiss %xmm1,%xmm0
jne    1180 <compress+0x80>
jp     1180 <compress+0x80>
movaps %xmm3,%xmm0
jmp    118c <compress+0x8c>
lea    0x1(%r9),%esi
xor    %ecx,%ecx
cmp    %edi,%esi
jge    124e <compress+0x14e>
movslq %esi,%rsi
mov    %r9d,%r8d
not    %r8d
add    %edi,%r8d
add    $0xfffffffe,%edi
cmp    %r9d,%edi
jne    125d <compress+0x15d>
xor    %ecx,%ecx
movaps %xmm0,%xmm1
test   $0x1,%r8b
je     1251 <compress+0x151>
movss  (%rdx,%rsi,4),%xmm2
movaps %xmm0,%xmm1
addss  %xmm2,%xmm1
movaps %xmm1,%xmm3
subss  %xmm2,%xmm3
subss  %xmm3,%xmm0
xorps  %xmm2,%xmm2
ucomiss %xmm2,%xmm0
jne    1241 <compress+0x141>
jnp    1251 <compress+0x151>
movslq %ecx,%rax
add    $0x1,%ecx
movss  %xmm0,(%rdx,%rax,4)
jmp    1251 <compress+0x151>
movaps %xmm0,%xmm1
movslq %ecx,%rax
movss  %xmm1,(%rdx,%rax,4)
add    $0x1,%eax
ret
mov    %r8d,%eax
and    $0xfffffffe,%eax
xor    %ecx,%ecx
xorps  %xmm1,%xmm1
jmp    1279 <compress+0x179>
nopw   0x0(%rax,%rax,1)
add    $0x2,%rsi
add    $0xfffffffe,%eax
je     1217 <compress+0x117>
movss  (%rdx,%rsi,4),%xmm3
movaps %xmm0,%xmm2
addss  %xmm3,%xmm2
movaps %xmm2,%xmm4
subss  %xmm3,%xmm4
subss  %xmm4,%xmm0
ucomiss %xmm1,%xmm0
jne    1297 <compress+0x197>
jnp    12a2 <compress+0x1a2>
movslq %ecx,%rdi
add    $0x1,%ecx
movss  %xmm0,(%rdx,%rdi,4)
movss  0x4(%rdx,%rsi,4),%xmm3
movaps %xmm2,%xmm0
addss  %xmm3,%xmm0
movaps %xmm0,%xmm4
subss  %xmm3,%xmm4
subss  %xmm4,%xmm2
ucomiss %xmm1,%xmm2
jne    12c1 <compress+0x1c1>
jnp    1270 <compress+0x170>
movslq %ecx,%rdi
add    $0x1,%ecx
movss  %xmm2,(%rdx,%rdi,4)
jmp    1270 <compress+0x170>

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

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