void copy1c_dvector(double *src, long nc, double *dst, long nl, long nh) {
  int j;
  double c = src[nc];
  for (j = nl; j <= nh; j++)
    dst[j] = c;
}


x86 assembly (clang, -O0):
<copy1c_dvector>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x20(%rbp),%rax
mov    %eax,-0x2c(%rbp)
movslq -0x2c(%rbp),%rax
cmp    -0x28(%rbp),%rax
jg     115f <copy1c_dvector+0x5f>
movsd  -0x38(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1131 <copy1c_dvector+0x31>
pop    %rbp
ret

x86 assembly (clang, -O2):
<copy1c_dvector>:
movslq %ecx,%rax
cmp    %r8,%rax
jg     11ee <copy1c_dvector+0xee>
movsd  (%rdi,%rsi,8),%xmm0
lea    0x1(%r8),%rcx
lea    0x1(%rax),%r10
cmp    %r10,%rcx
cmovg  %rcx,%r10
sub    %rax,%r10
cmp    $0x4,%r10
jb     11e0 <copy1c_dvector+0xe0>
mov    %r10,%r9
and    $0xfffffffffffffffc,%r9
movaps %xmm0,%xmm1
movlhps %xmm0,%xmm1
lea    -0x4(%r9),%rcx
mov    %rcx,%rdi
shr    $0x2,%rdi
add    $0x1,%rdi
mov    %edi,%r11d
and    $0x3,%r11d
cmp    $0xc,%rcx
jae    115a <copy1c_dvector+0x5a>
xor    %ecx,%ecx
jmp    11a1 <copy1c_dvector+0xa1>
and    $0xfffffffffffffffc,%rdi
lea    (%rdx,%rax,8),%rsi
add    $0x70,%rsi
xor    %ecx,%ecx
nopl   0x0(%rax,%rax,1)
movups %xmm1,-0x70(%rsi,%rcx,8)
movups %xmm1,-0x60(%rsi,%rcx,8)
movups %xmm1,-0x50(%rsi,%rcx,8)
movups %xmm1,-0x40(%rsi,%rcx,8)
movups %xmm1,-0x30(%rsi,%rcx,8)
movups %xmm1,-0x20(%rsi,%rcx,8)
movups %xmm1,-0x10(%rsi,%rcx,8)
movups %xmm1,(%rsi,%rcx,8)
add    $0x10,%rcx
add    $0xfffffffffffffffc,%rdi
jne    1170 <copy1c_dvector+0x70>
test   %r11,%r11
je     11d2 <copy1c_dvector+0xd2>
add    %rax,%rcx
lea    (%rdx,%rcx,8),%rcx
add    $0x10,%rcx
shl    $0x5,%r11
xor    %esi,%esi
nopw   0x0(%rax,%rax,1)
movups %xmm1,-0x10(%rcx,%rsi,1)
movups %xmm1,(%rcx,%rsi,1)
add    $0x20,%rsi
cmp    %rsi,%r11
jne    11c0 <copy1c_dvector+0xc0>
cmp    %r9,%r10
je     11ee <copy1c_dvector+0xee>
add    %r9,%rax
nopw   0x0(%rax,%rax,1)
movsd  %xmm0,(%rdx,%rax,8)
add    $0x1,%rax
cmp    %r8,%rax
jle    11e0 <copy1c_dvector+0xe0>
ret

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

LLVM IR (-O2):
define void @copy1c_dvector(double* nocapture %0, i64 %1, double* nocapture writeonly %2, i64 %3, i64 %4) {
%6 = getelementptr inbounds double, double* %0, i64 %1
%7 = load double, double* %6
%8 = shl i64 %3, 32
%9 = ashr exact i64 %8, 32
%10 = icmp sgt i64 %9, %4
br i1 %10, label %83, label %11
11: ; preds = %5
%12 = add nsw i64 %4, 1
%13 = add nsw i64 %9, 1
%14 = call i64 @llvm.smax.i64(i64 %12, i64 %13)
%15 = sub i64 %14, %9
%16 = icmp ult i64 %15, 4
br i1 %16, label %76, label %17
17: ; preds = %11
%18 = and i64 %15, -4
%19 = add i64 %9, %18
%20 = insertelement <2 x double> poison, double %7, i64 0
%21 = shufflevector <2 x double> %20, <2 x double> poison, <2 x i32> zeroinitializer
%22 = insertelement <2 x double> poison, double %7, i64 0
%23 = shufflevector <2 x double> %22, <2 x double> poison, <2 x i32> zeroinitializer
%24 = add i64 %18, -4
%25 = lshr exact i64 %24, 2
%26 = add nuw nsw i64 %25, 1
%27 = and i64 %26, 3
%28 = icmp ult i64 %24, 12
br i1 %28, label %60, label %29
29: ; preds = %17
%30 = and i64 %26, 9223372036854775804
br label %31
31: ; preds = %31, %29
%32 = phi i64 [ 0, %29 ], [ %57, %31 ]
%33 = phi i64 [ 0, %29 ], [ %58, %31 ]
%34 = add i64 %9, %32
%35 = getelementptr inbounds double, double* %2, i64 %34
%36 = bitcast double* %35 to <2 x double>*
store <2 x double> %21, <2 x double>* %36
%37 = getelementptr inbounds double, double* %35, i64 2
%38 = bitcast double* %37 to <2 x double>*
store <2 x double> %23, <2 x double>* %38
%39 = or i64 %32, 4
%40 = add i64 %9, %39
%41 = getelementptr inbounds double, double* %2, i64 %40
%42 = bitcast double* %41 to <2 x double>*
store <2 x double> %21, <2 x double>* %42
%43 = getelementptr inbounds double, double* %41, i64 2
%44 = bitcast double* %43 to <2 x double>*
store <2 x double> %23, <2 x double>* %44
%45 = or i64 %32, 8
%46 = add i64 %9, %45
%47 = getelementptr inbounds double, double* %2, i64 %46
%48 = bitcast double* %47 to <2 x double>*
store <2 x double> %21, <2 x double>* %48
%49 = getelementptr inbounds double, double* %47, i64 2
%50 = bitcast double* %49 to <2 x double>*
store <2 x double> %23, <2 x double>* %50
%51 = or i64 %32, 12
%52 = add i64 %9, %51
%53 = getelementptr inbounds double, double* %2, i64 %52
%54 = bitcast double* %53 to <2 x double>*
store <2 x double> %21, <2 x double>* %54
%55 = getelementptr inbounds double, double* %53, i64 2
%56 = bitcast double* %55 to <2 x double>*
store <2 x double> %23, <2 x double>* %56
%57 = add nuw i64 %32, 16
%58 = add nuw i64 %33, 4
%59 = icmp eq i64 %58, %30
br i1 %59, label %60, label %31
60: ; preds = %31, %17
%61 = phi i64 [ 0, %17 ], [ %57, %31 ]
%62 = icmp eq i64 %27, 0
br i1 %62, label %74, label %63
63: ; preds = %60, %63
%64 = phi i64 [ %71, %63 ], [ %61, %60 ]
%65 = phi i64 [ %72, %63 ], [ 0, %60 ]
%66 = add i64 %9, %64
%67 = getelementptr inbounds double, double* %2, i64 %66
%68 = bitcast double* %67 to <2 x double>*
store <2 x double> %21, <2 x double>* %68
%69 = getelementptr inbounds double, double* %67, i64 2
%70 = bitcast double* %69 to <2 x double>*
store <2 x double> %23, <2 x double>* %70
%71 = add nuw i64 %64, 4
%72 = add i64 %65, 1
%73 = icmp eq i64 %72, %27
br i1 %73, label %74, label %63
74: ; preds = %63, %60
%75 = icmp eq i64 %15, %18
br i1 %75, label %83, label %76
76: ; preds = %11, %74
%77 = phi i64 [ %9, %11 ], [ %19, %74 ]
br label %78
78: ; preds = %76, %78
%79 = phi i64 [ %81, %78 ], [ %77, %76 ]
%80 = getelementptr inbounds double, double* %2, i64 %79
store double %7, double* %80
%81 = add i64 %79, 1
%82 = icmp sgt i64 %81, %4
br i1 %82, label %83, label %78
83: ; preds = %78, %74, %5
ret void
}