void dshell(unsigned long n, float *a) {
  unsigned long i, j, inc;
  float v;
  inc = 1;
  do {
    inc *= 3;
    inc++;
  } while (inc <= n);
  do {
    inc /= 3;
    for (i = inc + 1; i <= n; i++) {
      v = a[i - 1];
      j = i;
      while (a[j - inc - 1] > v) {
        a[j - 1] = a[j - inc - 1];
        j -= inc;
        if (j <= inc)
          break;
      }
      a[j - 1] = v;
    }
  } while (inc > 1);
}


x86 assembly (clang, -O0):
<dshell>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movq   $0x1,-0x28(%rbp)
imul   $0x3,-0x28(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x8(%rbp),%rax
jbe    1114 <dshell+0x14>
jmp    113c <dshell+0x3c>
mov    -0x28(%rbp),%rax
mov    $0x3,%ecx
xor    %edx,%edx
div    %rcx
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
cmp    -0x8(%rbp),%rax
ja     1219 <dshell+0x119>
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%rcx
sub    $0x1,%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x2c(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x20(%rbp),%rcx
sub    -0x28(%rbp),%rcx
sub    $0x1,%rcx
movss  (%rax,%rcx,4),%xmm0
ucomiss -0x2c(%rbp),%xmm0
jbe    11f2 <dshell+0xf2>
mov    -0x10(%rbp),%rax
mov    -0x20(%rbp),%rcx
sub    -0x28(%rbp),%rcx
sub    $0x1,%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x20(%rbp),%rcx
sub    $0x1,%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x28(%rbp),%rcx
mov    -0x20(%rbp),%rax
sub    %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
cmp    -0x28(%rbp),%rax
ja     11ed <dshell+0xed>
jmp    11f2 <dshell+0xf2>
jmp    1186 <dshell+0x86>
movss  -0x2c(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x20(%rbp),%rcx
sub    $0x1,%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    115a <dshell+0x5a>
jmp    121e <dshell+0x11e>
cmpq   $0x1,-0x28(%rbp)
ja     113c <dshell+0x3c>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dshell>:
mov    $0x1,%r9d
cs nopw 0x0(%rax,%rax,1)
lea    (%r9,%r9,2),%r9
add    $0x1,%r9
cmp    %rdi,%r9
jbe    1110 <dshell+0x10>
push   %r15
push   %r14
push   %rbx
movabs $0xaaaaaaaaaaaaaaab,%r8
aa aa aa
jmp    1139 <dshell+0x39>
xchg   %ax,%ax
cmp    $0x5,%r9
mov    %rdx,%r9
jbe    11b0 <dshell+0xb0>
mov    %r9,%rax
mul    %r8
shr    %rdx
cmp    %rdi,%rdx
jae    1130 <dshell+0x30>
lea    0x1(%rdx),%r10
lea    0x0(,%rdx,4),%r15
xor    %r11d,%r11d
mov    %rdx,%r14
jmp    1176 <dshell+0x76>
nopl   0x0(%rax,%rax,1)
movss  %xmm0,(%rsi,%rbx,4)
add    $0x1,%r10
add    $0x1,%r14
add    $0x4,%r11
cmp    %rdi,%r10
ja     1130 <dshell+0x30>
movss  (%rsi,%r14,4),%xmm0
mov    %r11,%rax
mov    %r14,%rbx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movss  (%rsi,%rax,1),%xmm1
ucomiss %xmm0,%xmm1
jbe    1160 <dshell+0x60>
movss  %xmm1,(%rsi,%rbx,4)
sub    %rdx,%rbx
sub    %r15,%rax
lea    0x1(%rbx),%rcx
cmp    %rdx,%rcx
ja     1190 <dshell+0x90>
jmp    1160 <dshell+0x60>
pop    %rbx
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define void @dshell(i64 %0, float* %1) {
%3 = alloca i64
%4 = alloca float*
%5 = alloca i64
%6 = alloca i64
%7 = alloca i64
%8 = alloca float
store i64 %0, i64* %3
store float* %1, float** %4
store i64 1, i64* %7
br label %9
9: ; preds = %14, %2
%10 = load i64, i64* %7
%11 = mul i64 %10, 3
store i64 %11, i64* %7
%12 = load i64, i64* %7
%13 = add i64 %12, 1
store i64 %13, i64* %7
br label %14
14: ; preds = %9
%15 = load i64, i64* %7
%16 = load i64, i64* %3
%17 = icmp ule i64 %15, %16
br i1 %17, label %9, label %18
18: ; preds = %14
br label %19
19: ; preds = %75, %18
%20 = load i64, i64* %7
%21 = udiv i64 %20, 3
store i64 %21, i64* %7
%22 = load i64, i64* %7
%23 = add i64 %22, 1
store i64 %23, i64* %5
br label %24
24: ; preds = %71, %19
%25 = load i64, i64* %5
%26 = load i64, i64* %3
%27 = icmp ule i64 %25, %26
br i1 %27, label %28, label %74
28: ; preds = %24
%29 = load float*, float** %4
%30 = load i64, i64* %5
%31 = sub i64 %30, 1
%32 = getelementptr inbounds float, float* %29, i64 %31
%33 = load float, float* %32
store float %33, float* %8
%34 = load i64, i64* %5
store i64 %34, i64* %6
br label %35
35: ; preds = %64, %28
%36 = load float*, float** %4
%37 = load i64, i64* %6
%38 = load i64, i64* %7
%39 = sub i64 %37, %38
%40 = sub i64 %39, 1
%41 = getelementptr inbounds float, float* %36, i64 %40
%42 = load float, float* %41
%43 = load float, float* %8
%44 = fcmp ogt float %42, %43
br i1 %44, label %45, label %65
45: ; preds = %35
%46 = load float*, float** %4
%47 = load i64, i64* %6
%48 = load i64, i64* %7
%49 = sub i64 %47, %48
%50 = sub i64 %49, 1
%51 = getelementptr inbounds float, float* %46, i64 %50
%52 = load float, float* %51
%53 = load float*, float** %4
%54 = load i64, i64* %6
%55 = sub i64 %54, 1
%56 = getelementptr inbounds float, float* %53, i64 %55
store float %52, float* %56
%57 = load i64, i64* %7
%58 = load i64, i64* %6
%59 = sub i64 %58, %57
store i64 %59, i64* %6
%60 = load i64, i64* %6
%61 = load i64, i64* %7
%62 = icmp ule i64 %60, %61
br i1 %62, label %63, label %64
63: ; preds = %45
br label %65
64: ; preds = %45
br label %35
65: ; preds = %63, %35
%66 = load float, float* %8
%67 = load float*, float** %4
%68 = load i64, i64* %6
%69 = sub i64 %68, 1
%70 = getelementptr inbounds float, float* %67, i64 %69
store float %66, float* %70
br label %71
71: ; preds = %65
%72 = load i64, i64* %5
%73 = add i64 %72, 1
store i64 %73, i64* %5
br label %24
74: ; preds = %24
br label %75
75: ; preds = %74
%76 = load i64, i64* %7
%77 = icmp ugt i64 %76, 1
br i1 %77, label %19, label %78
78: ; preds = %75
ret void
}

LLVM IR (-O2):
define void @dshell(i64 %0, float* nocapture %1) {
br label %3
3: ; preds = %3, %2
%4 = phi i64 [ 1, %2 ], [ %6, %3 ]
%5 = mul i64 %4, 3
%6 = add i64 %5, 1
%7 = icmp ugt i64 %6, %0
br i1 %7, label %8, label %3
8: ; preds = %3, %35
%9 = phi i64 [ %10, %35 ], [ %6, %3 ]
%10 = udiv i64 %9, 3
%11 = icmp ult i64 %10, %0
br i1 %11, label %12, label %35
12: ; preds = %8
%13 = add nuw nsw i64 %10, 1
br label %14
14: ; preds = %12, %30
%15 = phi i64 [ %33, %30 ], [ %13, %12 ]
%16 = phi i64 [ %15, %30 ], [ %10, %12 ]
%17 = getelementptr inbounds float, float* %1, i64 %16
%18 = load float, float* %17
br label %19
19: ; preds = %27, %14
%20 = phi i64 [ %15, %14 ], [ %21, %27 ]
%21 = sub i64 %20, %10
%22 = add i64 %21, -1
%23 = getelementptr inbounds float, float* %1, i64 %22
%24 = load float, float* %23
%25 = fcmp ogt float %24, %18
%26 = add i64 %20, -1
br i1 %25, label %27, label %30
27: ; preds = %19
%28 = getelementptr inbounds float, float* %1, i64 %26
store float %24, float* %28
%29 = icmp ugt i64 %21, %10
br i1 %29, label %19, label %30
30: ; preds = %27, %19
%31 = phi i64 [ %26, %19 ], [ %22, %27 ]
%32 = getelementptr inbounds float, float* %1, i64 %31
store float %18, float* %32
%33 = add i64 %15, 1
%34 = icmp ugt i64 %33, %0
br i1 %34, label %35, label %14
35: ; preds = %30, %8
%36 = icmp ugt i64 %9, 5
br i1 %36, label %8, label %37
37: ; preds = %35
ret void
}