ksort(v, n, comp) char *v[];
int n, (*comp)();
{
  int gap, i, j;
  char *tmp;
  for (gap = n / 2; gap > 0; gap /= 2)
    for (i = gap; i < n; i++)
      for (j = i - gap; j >= 0; j -= gap) {
        if ((*comp)(v[j], v[j + gap]) <= 0)
          break;
        tmp = v[j];
        v[j] = v[j + gap];
        v[j + gap] = tmp;
      }
}


x86 assembly (clang, -O0):
<ksort>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %rdx,-0x20(%rbp)
mov    -0x14(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x24(%rbp)
cmpl   $0x0,-0x24(%rbp)
jle    1200 <ksort+0x100>
mov    -0x24(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11e8 <ksort+0xe8>
mov    -0x28(%rbp),%eax
sub    -0x24(%rbp),%eax
mov    %eax,-0x2c(%rbp)
cmpl   $0x0,-0x2c(%rbp)
jl     11d5 <ksort+0xd5>
mov    -0x20(%rbp),%rcx
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rdx
mov    (%rax,%rdx,8),%rdi
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%edx
add    -0x24(%rbp),%edx
movslq %edx,%rdx
mov    (%rax,%rdx,8),%rsi
mov    $0x0,%al
call   *%rcx
cmp    $0x0,%eax
jg     1183 <ksort+0x83>
jmp    11d5 <ksort+0xd5>
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x38(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x24(%rbp),%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,8),%rdx
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x38(%rbp),%rdx
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x24(%rbp),%ecx
movslq %ecx,%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x24(%rbp),%ecx
mov    -0x2c(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x2c(%rbp)
jmp    1146 <ksort+0x46>
jmp    11da <ksort+0xda>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1131 <ksort+0x31>
jmp    11ed <ksort+0xed>
mov    -0x24(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x24(%rbp)
jmp    1121 <ksort+0x21>
mov    -0x4(%rbp),%eax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<ksort>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %esi,(%rsp)
cmp    $0x2,%esi
jl     11a8 <ksort+0xa8>
mov    %rdx,%r15
mov    %rdi,%rbp
mov    (%rsp),%eax
mov    %eax,%ebx
jmp    1137 <ksort+0x37>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
cmpl   $0x4,0x4(%rsp)
jl     11a8 <ksort+0xa8>
mov    %ebx,%eax
shr    $0x1f,%ebx
mov    %eax,0x4(%rsp)
add    %eax,%ebx
sar    %ebx
cmp    (%rsp),%ebx
jge    1130 <ksort+0x30>
mov    %ebx,%r13d
jmp    115a <ksort+0x5a>
xchg   %ax,%ax
add    $0x1,%r13d
cmp    (%rsp),%r13d
je     1130 <ksort+0x30>
mov    %r13d,%r12d
sub    %ebx,%r12d
js     1150 <ksort+0x50>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
lea    (%rbx,%r12,1),%eax
mov    %r12d,%r12d
mov    0x0(%rbp,%r12,8),%rdi
movslq %eax,%r14
mov    0x0(%rbp,%r14,8),%rsi
xor    %eax,%eax
call   *%r15
test   %eax,%eax
jle    1150 <ksort+0x50>
mov    0x0(%rbp,%r12,8),%rax
mov    0x0(%rbp,%r14,8),%rcx
mov    %rcx,0x0(%rbp,%r12,8)
mov    %rax,0x0(%rbp,%r14,8)
sub    %ebx,%r12d
jns    1170 <ksort+0x70>
jmp    1150 <ksort+0x50>
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define i32 @ksort(i8** nocapture %0, i32 %1, i32 (...)* nocapture %2) {
%4 = icmp sgt i32 %1, 1
br i1 %4, label %5, label %36
5: ; preds = %3
%6 = bitcast i32 (...)* %2 to i32 (i8*, i8*, ...)*
br label %9
7: ; preds = %33, %9
%8 = icmp sgt i32 %10, 3
br i1 %8, label %9, label %36
9: ; preds = %5, %7
%10 = phi i32 [ %1, %5 ], [ %11, %7 ]
%11 = sdiv i32 %10, 2
%12 = icmp slt i32 %11, %1
br i1 %12, label %13, label %7
13: ; preds = %9, %33
%14 = phi i32 [ %34, %33 ], [ %11, %9 ]
%15 = sub nsw i32 %14, %11
%16 = icmp sgt i32 %15, -1
br i1 %16, label %17, label %33
17: ; preds = %13, %28
%18 = phi i32 [ %31, %28 ], [ %15, %13 ]
%19 = phi i32 [ %18, %28 ], [ %14, %13 ]
%20 = zext i32 %18 to i64
%21 = getelementptr inbounds i8*, i8** %0, i64 %20
%22 = load i8*, i8** %21
%23 = sext i32 %19 to i64
%24 = getelementptr inbounds i8*, i8** %0, i64 %23
%25 = load i8*, i8** %24
%26 = tail call i32 (i8*, i8*, ...) %6(i8* %22, i8* %25)
%27 = icmp slt i32 %26, 1
br i1 %27, label %33, label %28
28: ; preds = %17
%29 = load i8*, i8** %21
%30 = load i8*, i8** %24
store i8* %30, i8** %21
store i8* %29, i8** %24
%31 = sub nsw i32 %18, %11
%32 = icmp sgt i32 %31, -1
br i1 %32, label %17, label %33
33: ; preds = %17, %28, %13
%34 = add i32 %14, 1
%35 = icmp eq i32 %34, %1
br i1 %35, label %7, label %13
36: ; preds = %7, %3
ret i32 undef
}