void set_dvector(double *v, long nl, long nh, double cte) {
  int i;
  for (i = nl; i <= nh; i++)
    v[i] = cte;
}


x86 assembly (clang, -O0):
<set_dvector>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movsd  %xmm0,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    %eax,-0x24(%rbp)
movslq -0x24(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     114a <set_dvector+0x4a>
movsd  -0x20(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    111c <set_dvector+0x1c>
pop    %rbp
ret

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

LLVM IR (-O0):
define void @set_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 = %23, %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 %26
17: ; preds = %12
%18 = load double, double* %8
%19 = load double*, double** %5
%20 = load i32, i32* %9
%21 = sext i32 %20 to i64
%22 = getelementptr inbounds double, double* %19, i64 %21
store double %18, double* %22
br label %23
23: ; preds = %17
%24 = load i32, i32* %9
%25 = add nsw i32 %24, 1
store i32 %25, i32* %9
br label %12
26: ; preds = %12
ret void
}

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