void dup_dvector(double *src, long nl, long nh, double *dst) {
  int i;
  for (i = nl; i <= nh; i++) {
    dst[i] = src[i];
  }
}


x86 assembly (clang, -O0):
<dup_dvector>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    %eax,-0x24(%rbp)
movslq -0x24(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     1151 <dup_dvector+0x51>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    111b <dup_dvector+0x1b>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dup_dvector>:
push   %r14
push   %rbx
movslq %esi,%rax
cmp    %rdx,%rax
jg     1263 <dup_dvector+0x163>
lea    0x1(%rdx),%rbx
lea    0x1(%rax),%rsi
cmp    %rsi,%rbx
mov    %rsi,%r9
cmovg  %rbx,%r9
sub    %rax,%r9
cmp    $0x4,%r9
jb     1250 <dup_dvector+0x150>
lea    (%rcx,%rax,8),%r8
cmp    %rsi,%rbx
cmovg  %rbx,%rsi
lea    (%rdi,%rsi,8),%rbx
cmp    %rbx,%r8
jae    1153 <dup_dvector+0x53>
lea    (%rcx,%rsi,8),%rsi
lea    (%rdi,%rax,8),%rbx
cmp    %rsi,%rbx
jb     1250 <dup_dvector+0x150>
mov    %r9,%r8
and    $0xfffffffffffffffc,%r8
lea    -0x4(%r8),%rsi
mov    %rsi,%r11
shr    $0x2,%r11
add    $0x1,%r11
mov    %r11d,%r10d
and    $0x3,%r10d
cmp    $0xc,%rsi
jae    117d <dup_dvector+0x7d>
xor    %esi,%esi
jmp    1200 <dup_dvector+0x100>
and    $0xfffffffffffffffc,%r11
lea    (%rcx,%rax,8),%r14
add    $0x70,%r14
lea    (%rdi,%rax,8),%rbx
add    $0x70,%rbx
xor    %esi,%esi
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movups -0x70(%rbx,%rsi,8),%xmm0
movups -0x60(%rbx,%rsi,8),%xmm1
movups %xmm0,-0x70(%r14,%rsi,8)
movups %xmm1,-0x60(%r14,%rsi,8)
movups -0x50(%rbx,%rsi,8),%xmm0
movups -0x40(%rbx,%rsi,8),%xmm1
movups %xmm0,-0x50(%r14,%rsi,8)
movups %xmm1,-0x40(%r14,%rsi,8)
movups -0x30(%rbx,%rsi,8),%xmm0
movups -0x20(%rbx,%rsi,8),%xmm1
movups %xmm0,-0x30(%r14,%rsi,8)
movups %xmm1,-0x20(%r14,%rsi,8)
movups -0x10(%rbx,%rsi,8),%xmm0
movups (%rbx,%rsi,8),%xmm1
movups %xmm0,-0x10(%r14,%rsi,8)
movups %xmm1,(%r14,%rsi,8)
add    $0x10,%rsi
add    $0xfffffffffffffffc,%r11
jne    11a0 <dup_dvector+0xa0>
test   %r10,%r10
je     123d <dup_dvector+0x13d>
add    %rax,%rsi
lea    (%rcx,%rsi,8),%r11
add    $0x10,%r11
lea    (%rdi,%rsi,8),%rsi
add    $0x10,%rsi
shl    $0x5,%r10
xor    %ebx,%ebx
xchg   %ax,%ax
movups -0x10(%rsi,%rbx,1),%xmm0
movups (%rsi,%rbx,1),%xmm1
movups %xmm0,-0x10(%r11,%rbx,1)
movups %xmm1,(%r11,%rbx,1)
add    $0x20,%rbx
cmp    %rbx,%r10
jne    1220 <dup_dvector+0x120>
cmp    %r8,%r9
je     1263 <dup_dvector+0x163>
add    %r8,%rax
cs nopw 0x0(%rax,%rax,1)
nop
movsd  (%rdi,%rax,8),%xmm0
movsd  %xmm0,(%rcx,%rax,8)
add    $0x1,%rax
cmp    %rdx,%rax
jle    1250 <dup_dvector+0x150>
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
define void @dup_dvector(double* %0, i64 %1, i64 %2, double* %3) {
%5 = alloca double*
%6 = alloca i64
%7 = alloca i64
%8 = alloca double*
%9 = alloca i32
store double* %0, double** %5
store i64 %1, i64* %6
store i64 %2, i64* %7
store double* %3, double** %8
%10 = load i64, i64* %6
%11 = trunc i64 %10 to i32
store i32 %11, i32* %9
br label %12
12: ; preds = %27, %4
%13 = load i32, i32* %9
%14 = sext i32 %13 to i64
%15 = load i64, i64* %7
%16 = icmp sle i64 %14, %15
br i1 %16, label %17, label %30
17: ; preds = %12
%18 = load double*, double** %5
%19 = load i32, i32* %9
%20 = sext i32 %19 to i64
%21 = getelementptr inbounds double, double* %18, i64 %20
%22 = load double, double* %21
%23 = load double*, double** %8
%24 = load i32, i32* %9
%25 = sext i32 %24 to i64
%26 = getelementptr inbounds double, double* %23, i64 %25
store double %22, double* %26
br label %27
27: ; preds = %17
%28 = load i32, i32* %9
%29 = add nsw i32 %28, 1
store i32 %29, i32* %9
br label %12
30: ; preds = %12
ret void
}

LLVM IR (-O2):
define void @dup_dvector(double* nocapture %0, i64 %1, i64 %2, double* nocapture writeonly %3) {
%5 = shl i64 %1, 32
%6 = ashr exact i64 %5, 32
%7 = icmp sgt i64 %6, %2
br i1 %7, label %119, label %8
8: ; preds = %4
%9 = add nsw i64 %2, 1
%10 = add nsw i64 %6, 1
%11 = call i64 @llvm.smax.i64(i64 %9, i64 %10)
%12 = sub i64 %11, %6
%13 = icmp ult i64 %12, 4
br i1 %13, label %110, label %14
14: ; preds = %8
%15 = getelementptr double, double* %3, i64 %6
%16 = add nsw i64 %2, 1
%17 = add nsw i64 %6, 1
%18 = call i64 @llvm.smax.i64(i64 %16, i64 %17)
%19 = getelementptr double, double* %3, i64 %18
%20 = getelementptr double, double* %0, i64 %6
%21 = getelementptr double, double* %0, i64 %18
%22 = icmp ult double* %15, %21
%23 = icmp ult double* %20, %19
%24 = and i1 %22, %23
br i1 %24, label %110, label %25
25: ; preds = %14
%26 = and i64 %12, -4
%27 = add i64 %6, %26
%28 = add i64 %26, -4
%29 = lshr exact i64 %28, 2
%30 = add nuw nsw i64 %29, 1
%31 = and i64 %30, 3
%32 = icmp ult i64 %28, 12
br i1 %32, label %88, label %33
33: ; preds = %25
%34 = and i64 %30, 9223372036854775804
br label %35
35: ; preds = %35, %33
%36 = phi i64 [ 0, %33 ], [ %85, %35 ]
%37 = phi i64 [ 0, %33 ], [ %86, %35 ]
%38 = add i64 %6, %36
%39 = getelementptr inbounds double, double* %0, i64 %38
%40 = bitcast double* %39 to <2 x double>*
%41 = load <2 x double>, <2 x double>* %40
%42 = getelementptr inbounds double, double* %39, i64 2
%43 = bitcast double* %42 to <2 x double>*
%44 = load <2 x double>, <2 x double>* %43
%45 = getelementptr inbounds double, double* %3, i64 %38
%46 = bitcast double* %45 to <2 x double>*
store <2 x double> %41, <2 x double>* %46
%47 = getelementptr inbounds double, double* %45, i64 2
%48 = bitcast double* %47 to <2 x double>*
store <2 x double> %44, <2 x double>* %48
%49 = or i64 %36, 4
%50 = add i64 %6, %49
%51 = getelementptr inbounds double, double* %0, i64 %50
%52 = bitcast double* %51 to <2 x double>*
%53 = load <2 x double>, <2 x double>* %52
%54 = getelementptr inbounds double, double* %51, i64 2
%55 = bitcast double* %54 to <2 x double>*
%56 = load <2 x double>, <2 x double>* %55
%57 = getelementptr inbounds double, double* %3, i64 %50
%58 = bitcast double* %57 to <2 x double>*
store <2 x double> %53, <2 x double>* %58
%59 = getelementptr inbounds double, double* %57, i64 2
%60 = bitcast double* %59 to <2 x double>*
store <2 x double> %56, <2 x double>* %60
%61 = or i64 %36, 8
%62 = add i64 %6, %61
%63 = getelementptr inbounds double, double* %0, i64 %62
%64 = bitcast double* %63 to <2 x double>*
%65 = load <2 x double>, <2 x double>* %64
%66 = getelementptr inbounds double, double* %63, i64 2
%67 = bitcast double* %66 to <2 x double>*
%68 = load <2 x double>, <2 x double>* %67
%69 = getelementptr inbounds double, double* %3, i64 %62
%70 = bitcast double* %69 to <2 x double>*
store <2 x double> %65, <2 x double>* %70
%71 = getelementptr inbounds double, double* %69, i64 2
%72 = bitcast double* %71 to <2 x double>*
store <2 x double> %68, <2 x double>* %72
%73 = or i64 %36, 12
%74 = add i64 %6, %73
%75 = getelementptr inbounds double, double* %0, i64 %74
%76 = bitcast double* %75 to <2 x double>*
%77 = load <2 x double>, <2 x double>* %76
%78 = getelementptr inbounds double, double* %75, i64 2
%79 = bitcast double* %78 to <2 x double>*
%80 = load <2 x double>, <2 x double>* %79
%81 = getelementptr inbounds double, double* %3, i64 %74
%82 = bitcast double* %81 to <2 x double>*
store <2 x double> %77, <2 x double>* %82
%83 = getelementptr inbounds double, double* %81, i64 2
%84 = bitcast double* %83 to <2 x double>*
store <2 x double> %80, <2 x double>* %84
%85 = add nuw i64 %36, 16
%86 = add nuw i64 %37, 4
%87 = icmp eq i64 %86, %34
br i1 %87, label %88, label %35
88: ; preds = %35, %25
%89 = phi i64 [ 0, %25 ], [ %85, %35 ]
%90 = icmp eq i64 %31, 0
br i1 %90, label %108, label %91
91: ; preds = %88, %91
%92 = phi i64 [ %105, %91 ], [ %89, %88 ]
%93 = phi i64 [ %106, %91 ], [ 0, %88 ]
%94 = add i64 %6, %92
%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 = getelementptr inbounds double, double* %3, i64 %94
%102 = bitcast double* %101 to <2 x double>*
store <2 x double> %97, <2 x double>* %102
%103 = getelementptr inbounds double, double* %101, i64 2
%104 = bitcast double* %103 to <2 x double>*
store <2 x double> %100, <2 x double>* %104
%105 = add nuw i64 %92, 4
%106 = add i64 %93, 1
%107 = icmp eq i64 %106, %31
br i1 %107, label %108, label %91
108: ; preds = %91, %88
%109 = icmp eq i64 %12, %26
br i1 %109, label %119, label %110
110: ; preds = %14, %8, %108
%111 = phi i64 [ %6, %14 ], [ %6, %8 ], [ %27, %108 ]
br label %112
112: ; preds = %110, %112
%113 = phi i64 [ %117, %112 ], [ %111, %110 ]
%114 = getelementptr inbounds double, double* %0, i64 %113
%115 = load double, double* %114
%116 = getelementptr inbounds double, double* %3, i64 %113
store double %115, double* %116
%117 = add i64 %113, 1
%118 = icmp sgt i64 %117, %2
br i1 %118, label %119, label %112
119: ; preds = %112, %108, %4
ret void
}