void packd_c(double *in, char *out, int n) {
  int i;
  char *s;
  s = (char *)in;
  for (i = 0; i < n; i++) {
    *out++ = *(s + 7);
    *out++ = *(s + 6);
    *out++ = *(s + 5);
    *out++ = *(s + 4);
    *out++ = *(s + 3);
    *out++ = *(s + 2);
    *out++ = *(s + 1);
    *out++ = *s;
    s += 8;
  }
}


x86 assembly (clang, -O0):
<packd_c>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x20(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    1203 <packd_c+0x103>
mov    -0x20(%rbp),%rax
mov    0x7(%rax),%cl
mov    -0x10(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
mov    %cl,(%rax)
mov    -0x20(%rbp),%rax
mov    0x6(%rax),%cl
mov    -0x10(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
mov    %cl,(%rax)
mov    -0x20(%rbp),%rax
mov    0x5(%rax),%cl
mov    -0x10(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
mov    %cl,(%rax)
mov    -0x20(%rbp),%rax
mov    0x4(%rax),%cl
mov    -0x10(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
mov    %cl,(%rax)
mov    -0x20(%rbp),%rax
mov    0x3(%rax),%cl
mov    -0x10(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
mov    %cl,(%rax)
mov    -0x20(%rbp),%rax
mov    0x2(%rax),%cl
mov    -0x10(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
mov    %cl,(%rax)
mov    -0x20(%rbp),%rax
mov    0x1(%rax),%cl
mov    -0x10(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
mov    %cl,(%rax)
mov    -0x20(%rbp),%rax
mov    (%rax),%cl
mov    -0x10(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
mov    %cl,(%rax)
mov    -0x20(%rbp),%rax
add    $0x8,%rax
mov    %rax,-0x20(%rbp)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    111e <packd_c+0x1e>
pop    %rbp
ret

x86 assembly (clang, -O2):
<packd_c>:
test   %edx,%edx
jle    115e <packd_c+0x5e>
mov    %edx,%eax
xor    %ecx,%ecx
nopl   0x0(%rax,%rax,1)
movzbl 0x7(%rdi,%rcx,8),%edx
mov    %dl,(%rsi,%rcx,8)
movzbl 0x6(%rdi,%rcx,8),%edx
mov    %dl,0x1(%rsi,%rcx,8)
movzbl 0x5(%rdi,%rcx,8),%edx
mov    %dl,0x2(%rsi,%rcx,8)
movzbl 0x4(%rdi,%rcx,8),%edx
mov    %dl,0x3(%rsi,%rcx,8)
movzbl 0x3(%rdi,%rcx,8),%edx
mov    %dl,0x4(%rsi,%rcx,8)
movzbl 0x2(%rdi,%rcx,8),%edx
mov    %dl,0x5(%rsi,%rcx,8)
movzbl 0x1(%rdi,%rcx,8),%edx
mov    %dl,0x6(%rsi,%rcx,8)
movzbl (%rdi,%rcx,8),%edx
mov    %dl,0x7(%rsi,%rcx,8)
add    $0x1,%rcx
cmp    %ecx,%eax
jne    1110 <packd_c+0x10>
ret

LLVM IR (-O0):
define void @packd_c(double* %0, i8* %1, i32 %2) {
%4 = alloca double*
%5 = alloca i8*
%6 = alloca i32
%7 = alloca i32
%8 = alloca i8*
store double* %0, double** %4
store i8* %1, i8** %5
store i32 %2, i32* %6
%9 = load double*, double** %4
%10 = bitcast double* %9 to i8*
store i8* %10, i8** %8
store i32 0, i32* %7
br label %11
11: ; preds = %57, %3
%12 = load i32, i32* %7
%13 = load i32, i32* %6
%14 = icmp slt i32 %12, %13
br i1 %14, label %15, label %60
15: ; preds = %11
%16 = load i8*, i8** %8
%17 = getelementptr inbounds i8, i8* %16, i64 7
%18 = load i8, i8* %17
%19 = load i8*, i8** %5
%20 = getelementptr inbounds i8, i8* %19, i32 1
store i8* %20, i8** %5
store i8 %18, i8* %19
%21 = load i8*, i8** %8
%22 = getelementptr inbounds i8, i8* %21, i64 6
%23 = load i8, i8* %22
%24 = load i8*, i8** %5
%25 = getelementptr inbounds i8, i8* %24, i32 1
store i8* %25, i8** %5
store i8 %23, i8* %24
%26 = load i8*, i8** %8
%27 = getelementptr inbounds i8, i8* %26, i64 5
%28 = load i8, i8* %27
%29 = load i8*, i8** %5
%30 = getelementptr inbounds i8, i8* %29, i32 1
store i8* %30, i8** %5
store i8 %28, i8* %29
%31 = load i8*, i8** %8
%32 = getelementptr inbounds i8, i8* %31, i64 4
%33 = load i8, i8* %32
%34 = load i8*, i8** %5
%35 = getelementptr inbounds i8, i8* %34, i32 1
store i8* %35, i8** %5
store i8 %33, i8* %34
%36 = load i8*, i8** %8
%37 = getelementptr inbounds i8, i8* %36, i64 3
%38 = load i8, i8* %37
%39 = load i8*, i8** %5
%40 = getelementptr inbounds i8, i8* %39, i32 1
store i8* %40, i8** %5
store i8 %38, i8* %39
%41 = load i8*, i8** %8
%42 = getelementptr inbounds i8, i8* %41, i64 2
%43 = load i8, i8* %42
%44 = load i8*, i8** %5
%45 = getelementptr inbounds i8, i8* %44, i32 1
store i8* %45, i8** %5
store i8 %43, i8* %44
%46 = load i8*, i8** %8
%47 = getelementptr inbounds i8, i8* %46, i64 1
%48 = load i8, i8* %47
%49 = load i8*, i8** %5
%50 = getelementptr inbounds i8, i8* %49, i32 1
store i8* %50, i8** %5
store i8 %48, i8* %49
%51 = load i8*, i8** %8
%52 = load i8, i8* %51
%53 = load i8*, i8** %5
%54 = getelementptr inbounds i8, i8* %53, i32 1
store i8* %54, i8** %5
store i8 %52, i8* %53
%55 = load i8*, i8** %8
%56 = getelementptr inbounds i8, i8* %55, i64 8
store i8* %56, i8** %8
br label %57
57: ; preds = %15
%58 = load i32, i32* %7
%59 = add nsw i32 %58, 1
store i32 %59, i32* %7
br label %11
60: ; preds = %11
ret void
}

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