void compressx(double *x, int *n) {
  int delta, i, j;
  for (i = 0; i < (*n) - 1; i++) {
    if (x[i] != x[i + 1])
      continue;
    for (j = i + 2; j < (*n) && x[j] == x[i]; j++)
      ;
    delta = j - i - 1;
    for (; j < (*n); j++)
      x[j - delta] = x[j];
    (*n) -= delta;
  }
}


x86 assembly (clang, -O0):
<compressx>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
mov    -0x10(%rbp),%rcx
mov    (%rcx),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    1224 <compressx+0x124>
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
ucomisd (%rax,%rcx,8),%xmm0
jne    1157 <compressx+0x57>
jp     1157 <compressx+0x57>
jmp    115c <compressx+0x5c>
jmp    1216 <compressx+0x116>
mov    -0x18(%rbp),%eax
add    $0x2,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%ecx
mov    -0x10(%rbp),%rdx
xor    %eax,%eax
cmp    (%rdx),%ecx
mov    %al,-0x1d(%rbp)
jge    119e <compressx+0x9e>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
sete   %al
setnp  %cl
and    %cl,%al
mov    %al,-0x1d(%rbp)
mov    -0x1d(%rbp),%al
test   $0x1,%al
jne    11ae <compressx+0xae>
jmp    11c1 <compressx+0xc1>
jmp    11b3 <compressx+0xb3>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1165 <compressx+0x65>
mov    -0x1c(%rbp),%eax
sub    -0x18(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x1c(%rbp),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jge    1209 <compressx+0x109>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x1c(%rbp),%ecx
sub    -0x14(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    11cd <compressx+0xcd>
mov    -0x14(%rbp),%edx
mov    -0x10(%rbp),%rax
mov    (%rax),%ecx
sub    %edx,%ecx
mov    %ecx,(%rax)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1113 <compressx+0x13>
pop    %rbp
ret

x86 assembly (clang, -O2):
<compressx>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    (%rsi),%r10d
cmp    $0x2,%r10d
jl     13cd <compressx+0x2cd>
lea    0x18(%rdi),%r13
mov    $0x2,%r15d
mov    $0xffffffff,%r11d
xor    %r9d,%r9d
mov    %r13,-0x28(%rsp)
jmp    1161 <compressx+0x61>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
sub    %r9d,%r10d
mov    %r10d,(%rsi)
lea    -0x1(%r10),%eax
movslq %eax,%rcx
add    $0x1,%r15
add    $0xffffffff,%r11d
mov    %r12,%r9
cmp    %rcx,%r12
jge    13cd <compressx+0x2cd>
movsd  (%rdi,%r9,8),%xmm0
lea    0x1(%r9),%r12
ucomisd 0x8(%rdi,%r9,8),%xmm0
jne    1146 <compressx+0x46>
jp     1146 <compressx+0x46>
lea    0x2(%r9),%edx
not    %r9d
cmp    %r10d,%edx
jge    11b0 <compressx+0xb0>
mov    %r10d,%ecx
mov    %r15,%rdx
nopl   0x0(%rax,%rax,1)
movsd  (%rdi,%rdx,8),%xmm1
ucomisd %xmm0,%xmm1
jne    11b0 <compressx+0xb0>
jp     11b0 <compressx+0xb0>
add    $0x1,%rdx
cmp    %edx,%ecx
jne    1190 <compressx+0x90>
add    %r10d,%r9d
jmp    1140 <compressx+0x40>
nopw   0x0(%rax,%rax,1)
add    %edx,%r9d
cmp    %r10d,%edx
jge    1140 <compressx+0x40>
movslq %edx,%rbx
movslq %r10d,%r14
mov    %r14,%rax
sub    %rbx,%rax
cmp    $0x4,%rax
jae    1274 <compressx+0x174>
mov    %r10d,%ebp
sub    %ebx,%ebp
mov    %rbx,%r8
not    %r8
add    %r14,%r8
and    $0x3,%rbp
je     1216 <compressx+0x116>
lea    (%rdx,%r11,1),%ecx
mov    %r12,%rax
movslq %ecx,%r12
shl    $0x3,%r12
mov    %rdi,%rcx
sub    %r12,%rcx
mov    %rax,%r12
nopl   0x0(%rax)
mov    %ebx,%eax
movsd  (%rdi,%rax,8),%xmm0
movsd  %xmm0,(%rcx,%rbx,8)
add    $0x1,%rbx
add    $0xffffffffffffffff,%rbp
jne    1200 <compressx+0x100>
cmp    $0x3,%r8
jb     1140 <compressx+0x40>
add    %r11d,%edx
movslq %edx,%rcx
shl    $0x3,%rcx
mov    %r13,%rdx
sub    %rcx,%rdx
mov    %ebx,%ecx
movsd  (%rdi,%rcx,8),%xmm0
movsd  %xmm0,-0x18(%rdx,%rbx,8)
lea    0x1(%rbx),%ecx
movsd  (%rdi,%rcx,8),%xmm0
movsd  %xmm0,-0x10(%rdx,%rbx,8)
lea    0x2(%rbx),%ecx
movsd  (%rdi,%rcx,8),%xmm0
movsd  %xmm0,-0x8(%rdx,%rbx,8)
lea    0x3(%rbx),%ecx
movsd  (%rdi,%rcx,8),%xmm0
movsd  %xmm0,(%rdx,%rbx,8)
add    $0x4,%rbx
cmp    %rbx,%r14
jne    1230 <compressx+0x130>
jmp    1140 <compressx+0x40>
mov    %rbx,%rbp
not    %rbp
add    %r14,%rbp
mov    %edx,%ecx
add    %ebp,%ecx
jb     11ce <compressx+0xce>
shr    $0x20,%rbp
jne    11ce <compressx+0xce>
movslq %r9d,%r8
mov    %rbx,%rcx
sub    %r8,%rcx
lea    (%rdi,%rcx,8),%r13
mov    %edx,%ebp
lea    (%r14,%rbp,1),%rcx
sub    %rbx,%rcx
lea    (%rdi,%rcx,8),%rcx
cmp    %rcx,%r13
jae    12cd <compressx+0x1cd>
mov    %r14,%rcx
sub    %r8,%rcx
lea    (%rdi,%rcx,8),%rcx
lea    (%rdi,%rbp,8),%rbp
cmp    %rcx,%rbp
jae    12cd <compressx+0x1cd>
mov    -0x28(%rsp),%r13
jmp    11ce <compressx+0xce>
mov    %r8,-0x20(%rsp)
mov    %r12,-0x8(%rsp)
mov    %rax,%rcx
mov    %rsi,-0x10(%rsp)
mov    %rax,-0x18(%rsp)
and    $0xfffffffffffffffc,%rcx
mov    %rcx,%rax
lea    -0x4(%rcx),%rsi
mov    %rsi,%rbp
shr    $0x2,%rbp
add    $0x1,%rbp
test   %rsi,%rsi
je     13bf <compressx+0x2bf>
mov    %rbp,%rsi
and    $0xfffffffffffffffe,%rbp
lea    (%rdx,%r11,1),%ecx
movslq %ecx,%rcx
shl    $0x3,%rcx
mov    %rdi,%r13
sub    %rcx,%r13
lea    0x4(%rbx),%r12
xor    %r8d,%r8d
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
lea    -0x4(%r12),%ecx
movups (%rdi,%rcx,8),%xmm0
movups 0x10(%rdi,%rcx,8),%xmm1
movups %xmm0,-0x20(%r13,%r12,8)
movups %xmm1,-0x10(%r13,%r12,8)
mov    %r12d,%ecx
movupd (%rdi,%rcx,8),%xmm0
movupd 0x10(%rdi,%rcx,8),%xmm1
movupd %xmm0,0x0(%r13,%r12,8)
movupd %xmm1,0x10(%r13,%r12,8)
add    $0x8,%r8
add    $0x8,%r12
add    $0xfffffffffffffffe,%rbp
jne    1330 <compressx+0x230>
test   $0x1,%sil
je     139d <compressx+0x29d>
add    %rbx,%r8
mov    %r8d,%ecx
movupd (%rdi,%rcx,8),%xmm0
movupd 0x10(%rdi,%rcx,8),%xmm1
sub    -0x20(%rsp),%r8
movupd %xmm0,(%rdi,%r8,8)
movupd %xmm1,0x10(%rdi,%r8,8)
cmp    %rax,-0x18(%rsp)
mov    -0x10(%rsp),%rsi
mov    -0x28(%rsp),%r13
mov    -0x8(%rsp),%r12
je     1140 <compressx+0x40>
add    %rax,%rbx
jmp    11ce <compressx+0xce>
mov    %rbp,%rsi
xor    %r8d,%r8d
test   $0x1,%sil
jne    137a <compressx+0x27a>
jmp    139d <compressx+0x29d>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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