void fftss_copyin(double *restrict vout, double *vin, long stride, long n) {
  long i;
  for (i = 0; i < n; i++) {
    vout[2 * i] = vin[2 * i * stride];
    vout[2 * i + 1] = vin[2 * i * stride + 1];
  }
}


x86 assembly (clang, -O0):
<fftss_copyin>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movq   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x20(%rbp),%rax
jge    118b <fftss_copyin+0x8b>
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
shl    $0x1,%rcx
imul   -0x18(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rcx
shl    $0x1,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
shl    $0x1,%rcx
imul   -0x18(%rbp),%rcx
movsd  0x8(%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rcx
shl    $0x1,%rcx
movsd  %xmm0,0x8(%rax,%rcx,8)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    111c <fftss_copyin+0x1c>
pop    %rbp
ret

x86 assembly (clang, -O2):
<fftss_copyin>:
push   %r15
push   %r14
push   %rbx
test   %rcx,%rcx
jle    11c3 <fftss_copyin+0xc3>
lea    -0x1(%rcx),%rax
mov    %ecx,%r8d
and    $0x3,%r8d
cmp    $0x3,%rax
jae    1124 <fftss_copyin+0x24>
xor    %r11d,%r11d
jmp    1181 <fftss_copyin+0x81>
and    $0xfffffffffffffffc,%rcx
mov    %rdx,%r9
shl    $0x5,%r9
mov    %rdx,%r10
shl    $0x6,%r10
lea    0x30(%rdi),%rax
mov    %rdx,%r15
shl    $0x4,%r15
lea    (%r15,%r15,2),%r14
xor    %r11d,%r11d
mov    %rsi,%rbx
nopl   0x0(%rax,%rax,1)
movups (%rbx),%xmm0
movups %xmm0,-0x30(%rax)
movups (%rbx,%r15,1),%xmm0
movups %xmm0,-0x20(%rax)
movups (%rbx,%r9,1),%xmm0
movups %xmm0,-0x10(%rax)
movups (%rbx,%r14,1),%xmm0
movups %xmm0,(%rax)
add    $0x4,%r11
add    %r10,%rbx
add    $0x40,%rax
cmp    %r11,%rcx
jne    1150 <fftss_copyin+0x50>
test   %r8,%r8
je     11c3 <fftss_copyin+0xc3>
mov    %r11,%rax
shl    $0x4,%rax
add    %rax,%rdi
imul   %rdx,%r11
shl    $0x4,%r11
add    %r11,%rsi
shl    $0x4,%rdx
shl    $0x4,%r8
xor    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
nop
movups (%rsi),%xmm0
movups %xmm0,(%rdi,%rax,1)
add    $0x10,%rax
add    %rdx,%rsi
cmp    %rax,%r8
jne    11b0 <fftss_copyin+0xb0>
pop    %rbx
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define void @fftss_copyin(double* noalias %0, double* %1, i64 %2, i64 %3) {
%5 = alloca double*
%6 = alloca double*
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
store double* %0, double** %5
store double* %1, double** %6
store i64 %2, i64* %7
store i64 %3, i64* %8
store i64 0, i64* %9
br label %10
10: ; preds = %39, %4
%11 = load i64, i64* %9
%12 = load i64, i64* %8
%13 = icmp slt i64 %11, %12
br i1 %13, label %14, label %42
14: ; preds = %10
%15 = load double*, double** %6
%16 = load i64, i64* %9
%17 = mul nsw i64 2, %16
%18 = load i64, i64* %7
%19 = mul nsw i64 %17, %18
%20 = getelementptr inbounds double, double* %15, i64 %19
%21 = load double, double* %20
%22 = load double*, double** %5
%23 = load i64, i64* %9
%24 = mul nsw i64 2, %23
%25 = getelementptr inbounds double, double* %22, i64 %24
store double %21, double* %25
%26 = load double*, double** %6
%27 = load i64, i64* %9
%28 = mul nsw i64 2, %27
%29 = load i64, i64* %7
%30 = mul nsw i64 %28, %29
%31 = add nsw i64 %30, 1
%32 = getelementptr inbounds double, double* %26, i64 %31
%33 = load double, double* %32
%34 = load double*, double** %5
%35 = load i64, i64* %9
%36 = mul nsw i64 2, %35
%37 = add nsw i64 %36, 1
%38 = getelementptr inbounds double, double* %34, i64 %37
store double %33, double* %38
br label %39
39: ; preds = %14
%40 = load i64, i64* %9
%41 = add nsw i64 %40, 1
store i64 %41, i64* %9
br label %10
42: ; preds = %10
ret void
}

LLVM IR (-O2):
define void @fftss_copyin(double* noalias nocapture writeonly %0, double* nocapture %1, i64 %2, i64 %3) {
%5 = icmp sgt i64 %3, 0
br i1 %5, label %6, label %65
6: ; preds = %4
%7 = add i64 %3, -1
%8 = and i64 %3, 3
%9 = icmp ult i64 %7, 3
br i1 %9, label %49, label %10
10: ; preds = %6
%11 = and i64 %3, -4
br label %12
12: ; preds = %12, %10
%13 = phi i64 [ 0, %10 ], [ %46, %12 ]
%14 = phi i64 [ 0, %10 ], [ %47, %12 ]
%15 = shl nuw nsw i64 %13, 1
%16 = mul nsw i64 %15, %2
%17 = getelementptr inbounds double, double* %1, i64 %16
%18 = getelementptr inbounds double, double* %0, i64 %15
%19 = bitcast double* %17 to <2 x double>*
%20 = load <2 x double>, <2 x double>* %19
%21 = bitcast double* %18 to <2 x double>*
store <2 x double> %20, <2 x double>* %21
%22 = shl nuw i64 %13, 1
%23 = or i64 %22, 2
%24 = mul nsw i64 %23, %2
%25 = getelementptr inbounds double, double* %1, i64 %24
%26 = getelementptr inbounds double, double* %0, i64 %23
%27 = bitcast double* %25 to <2 x double>*
%28 = load <2 x double>, <2 x double>* %27
%29 = bitcast double* %26 to <2 x double>*
store <2 x double> %28, <2 x double>* %29
%30 = shl nuw i64 %13, 1
%31 = or i64 %30, 4
%32 = mul nsw i64 %31, %2
%33 = getelementptr inbounds double, double* %1, i64 %32
%34 = getelementptr inbounds double, double* %0, i64 %31
%35 = bitcast double* %33 to <2 x double>*
%36 = load <2 x double>, <2 x double>* %35
%37 = bitcast double* %34 to <2 x double>*
store <2 x double> %36, <2 x double>* %37
%38 = shl nuw i64 %13, 1
%39 = or i64 %38, 6
%40 = mul nsw i64 %39, %2
%41 = getelementptr inbounds double, double* %1, i64 %40
%42 = getelementptr inbounds double, double* %0, i64 %39
%43 = bitcast double* %41 to <2 x double>*
%44 = load <2 x double>, <2 x double>* %43
%45 = bitcast double* %42 to <2 x double>*
store <2 x double> %44, <2 x double>* %45
%46 = add nuw nsw i64 %13, 4
%47 = add i64 %14, 4
%48 = icmp eq i64 %47, %11
br i1 %48, label %49, label %12
49: ; preds = %12, %6
%50 = phi i64 [ 0, %6 ], [ %46, %12 ]
%51 = icmp eq i64 %8, 0
br i1 %51, label %65, label %52
52: ; preds = %49, %52
%53 = phi i64 [ %62, %52 ], [ %50, %49 ]
%54 = phi i64 [ %63, %52 ], [ 0, %49 ]
%55 = shl nuw nsw i64 %53, 1
%56 = mul nsw i64 %55, %2
%57 = getelementptr inbounds double, double* %1, i64 %56
%58 = getelementptr inbounds double, double* %0, i64 %55
%59 = bitcast double* %57 to <2 x double>*
%60 = load <2 x double>, <2 x double>* %59
%61 = bitcast double* %58 to <2 x double>*
store <2 x double> %60, <2 x double>* %61
%62 = add nuw nsw i64 %53, 1
%63 = add i64 %54, 1
%64 = icmp eq i64 %63, %8
br i1 %64, label %65, label %52
65: ; preds = %49, %52, %4
ret void
}