void dscale_vec(double *X, int incX, double f0, int N) {
  register int i;
  if (f0 == 1.0) {
    return;
  }
  if (f0 == 0.0) {
    for (i = 0; i < N; i++) {
      X[0] = 0.0;
      X += incX;
    }
    return;
  }
  for (i = 0; i < N; i++) {
    X[0] *= f0;
    X += incX;
  }
}


x86 assembly (clang, -O0):
<dscale_vec>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
movsd  %xmm0,-0x18(%rbp)
mov    %edx,-0x1c(%rbp)
movsd  -0x18(%rbp),%xmm0
movsd  0xee0(%rip),%xmm1
ucomisd %xmm1,%xmm0
jne    1135 <dscale_vec+0x35>
jp     1135 <dscale_vec+0x35>
jmp    11da <dscale_vec+0xda>
movsd  -0x18(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1193 <dscale_vec+0x93>
jp     1193 <dscale_vec+0x93>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    118e <dscale_vec+0x8e>
mov    -0x8(%rbp),%rax
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax)
mov    -0xc(%rbp),%ecx
mov    -0x8(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x8(%rbp)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1154 <dscale_vec+0x54>
jmp    11da <dscale_vec+0xda>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    11da <dscale_vec+0xda>
movsd  -0x18(%rbp),%xmm0
mov    -0x8(%rbp),%rax
mulsd  (%rax),%xmm0
movsd  %xmm0,(%rax)
mov    -0xc(%rbp),%ecx
mov    -0x8(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x8(%rbp)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    119a <dscale_vec+0x9a>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dscale_vec>:
ucomisd 0xef8(%rip),%xmm0
jne    110d <dscale_vec+0xd>
jp     110d <dscale_vec+0xd>
ret
xorpd  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    11e4 <dscale_vec+0xe4>
jp     11e4 <dscale_vec+0xe4>
test   %edx,%edx
jle    110c <dscale_vec+0xc>
movslq %esi,%r9
lea    -0x1(%rdx),%eax
mov    %edx,%ecx
and    $0x7,%ecx
cmp    $0x7,%eax
jb     11b5 <dscale_vec+0xb5>
and    $0xfffffff8,%edx
mov    %r9,%r8
shl    $0x6,%r8
lea    0x0(,%r9,8),%rsi
nopl   0x0(%rax,%rax,1)
mov    %rdi,%rax
movq   $0x0,(%rdi)
add    %rsi,%rdi
movq   $0x0,(%rax,%rsi,1)
movq   $0x0,(%rsi,%rdi,1)
add    %rsi,%rdi
movq   $0x0,(%rsi,%rdi,1)
add    %rsi,%rdi
movq   $0x0,(%rsi,%rdi,1)
add    %rsi,%rdi
movq   $0x0,(%rsi,%rdi,1)
add    %rsi,%rdi
movq   $0x0,(%rsi,%rdi,1)
add    %rsi,%rdi
movq   $0x0,(%rsi,%rdi,1)
add    %rsi,%rdi
add    %rsi,%rdi
add    $0xfffffff8,%edx
jne    1150 <dscale_vec+0x50>
add    %r8,%rax
mov    %rax,%rdi
test   %ecx,%ecx
je     110c <dscale_vec+0xc>
shl    $0x3,%r9
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movq   $0x0,(%rdi)
add    %r9,%rdi
add    $0xffffffff,%ecx
jne    11d0 <dscale_vec+0xd0>
jmp    110c <dscale_vec+0xc>
test   %edx,%edx
jle    110c <dscale_vec+0xc>
movslq %esi,%r9
lea    -0x1(%rdx),%eax
mov    %edx,%r10d
and    $0x3,%r10d
cmp    $0x3,%eax
jb     1262 <dscale_vec+0x162>
and    $0xfffffffc,%edx
mov    %r9,%r8
shl    $0x5,%r8
lea    0x0(,%r9,8),%rsi
mov    %rdi,%rax
movsd  (%rdi),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rdi)
movsd  (%rdi,%rsi,1),%xmm1
add    %rsi,%rdi
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rax,%rsi,1)
movsd  (%rsi,%rdi,1),%xmm1
lea    (%rdi,%rsi,1),%rcx
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rsi,%rdi,1)
movsd  (%rsi,%rcx,1),%xmm1
lea    (%rcx,%rsi,1),%rdi
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rsi,%rcx,1)
add    %rsi,%rdi
add    $0xfffffffc,%edx
jne    1210 <dscale_vec+0x110>
add    %r8,%rax
mov    %rax,%rdi
test   %r10d,%r10d
je     110c <dscale_vec+0xc>
shl    $0x3,%r9
nop
movsd  (%rdi),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rdi)
add    %r9,%rdi
add    $0xffffffff,%r10d
jne    1270 <dscale_vec+0x170>
jmp    110c <dscale_vec+0xc>

LLVM IR (-O0):
define void @dscale_vec(double* %0, i32 %1, double %2, i32 %3) {
%5 = alloca double*
%6 = alloca i32
%7 = alloca double
%8 = alloca i32
%9 = alloca i32
store double* %0, double** %5
store i32 %1, i32* %6
store double %2, double* %7
store i32 %3, i32* %8
%10 = load double, double* %7
%11 = fcmp oeq double %10, 1.000000e+00
br i1 %11, label %12, label %13
12: ; preds = %4
br label %50
13: ; preds = %4
%14 = load double, double* %7
%15 = fcmp oeq double %14, 0.000000e+00
br i1 %15, label %16, label %32
16: ; preds = %13
store i32 0, i32* %9
br label %17
17: ; preds = %28, %16
%18 = load i32, i32* %9
%19 = load i32, i32* %8
%20 = icmp slt i32 %18, %19
br i1 %20, label %21, label %31
21: ; preds = %17
%22 = load double*, double** %5
%23 = getelementptr inbounds double, double* %22, i64 0
store double 0.000000e+00, double* %23
%24 = load i32, i32* %6
%25 = load double*, double** %5
%26 = sext i32 %24 to i64
%27 = getelementptr inbounds double, double* %25, i64 %26
store double* %27, double** %5
br label %28
28: ; preds = %21
%29 = load i32, i32* %9
%30 = add nsw i32 %29, 1
store i32 %30, i32* %9
br label %17
31: ; preds = %17
br label %50
32: ; preds = %13
store i32 0, i32* %9
br label %33
33: ; preds = %47, %32
%34 = load i32, i32* %9
%35 = load i32, i32* %8
%36 = icmp slt i32 %34, %35
br i1 %36, label %37, label %50
37: ; preds = %33
%38 = load double, double* %7
%39 = load double*, double** %5
%40 = getelementptr inbounds double, double* %39, i64 0
%41 = load double, double* %40
%42 = fmul double %41, %38
store double %42, double* %40
%43 = load i32, i32* %6
%44 = load double*, double** %5
%45 = sext i32 %43 to i64
%46 = getelementptr inbounds double, double* %44, i64 %45
store double* %46, double** %5
br label %47
47: ; preds = %37
%48 = load i32, i32* %9
%49 = add nsw i32 %48, 1
store i32 %49, i32* %9
br label %33
50: ; preds = %12, %31, %33
ret void
}

LLVM IR (-O2):
define void @dscale_vec(double* nocapture %0, i32 %1, double %2, i32 %3) {
%5 = fcmp oeq double %2, 1.000000e+00
br i1 %5, label %75, label %6
6: ; preds = %4
%7 = fcmp oeq double %2, 0.000000e+00
%8 = icmp sgt i32 %3, 0
br i1 %7, label %17, label %9
9: ; preds = %6
br i1 %8, label %10, label %75
10: ; preds = %9
%11 = sext i32 %1 to i64
%12 = add i32 %3, -1
%13 = and i32 %3, 3
%14 = icmp ult i32 %12, 3
br i1 %14, label %64, label %15
15: ; preds = %10
%16 = and i32 %3, -4
br label %38
17: ; preds = %6
br i1 %8, label %18, label %75
18: ; preds = %17
%19 = sext i32 %1 to i64
%20 = add i32 %3, -1
%21 = and i32 %3, 7
%22 = icmp ult i32 %20, 7
br i1 %22, label %55, label %23
23: ; preds = %18
%24 = and i32 %3, -8
br label %25
25: ; preds = %25, %23
%26 = phi double* [ %0, %23 ], [ %35, %25 ]
%27 = phi i32 [ 0, %23 ], [ %36, %25 ]
store double 0.000000e+00, double* %26
%28 = getelementptr inbounds double, double* %26, i64 %19
store double 0.000000e+00, double* %28
%29 = getelementptr inbounds double, double* %28, i64 %19
store double 0.000000e+00, double* %29
%30 = getelementptr inbounds double, double* %29, i64 %19
store double 0.000000e+00, double* %30
%31 = getelementptr inbounds double, double* %30, i64 %19
store double 0.000000e+00, double* %31
%32 = getelementptr inbounds double, double* %31, i64 %19
store double 0.000000e+00, double* %32
%33 = getelementptr inbounds double, double* %32, i64 %19
store double 0.000000e+00, double* %33
%34 = getelementptr inbounds double, double* %33, i64 %19
store double 0.000000e+00, double* %34
%35 = getelementptr inbounds double, double* %34, i64 %19
%36 = add i32 %27, 8
%37 = icmp eq i32 %36, %24
br i1 %37, label %55, label %25
38: ; preds = %38, %15
%39 = phi double* [ %0, %15 ], [ %52, %38 ]
%40 = phi i32 [ 0, %15 ], [ %53, %38 ]
%41 = load double, double* %39
%42 = fmul double %41, %2
store double %42, double* %39
%43 = getelementptr inbounds double, double* %39, i64 %11
%44 = load double, double* %43
%45 = fmul double %44, %2
store double %45, double* %43
%46 = getelementptr inbounds double, double* %43, i64 %11
%47 = load double, double* %46
%48 = fmul double %47, %2
store double %48, double* %46
%49 = getelementptr inbounds double, double* %46, i64 %11
%50 = load double, double* %49
%51 = fmul double %50, %2
store double %51, double* %49
%52 = getelementptr inbounds double, double* %49, i64 %11
%53 = add i32 %40, 4
%54 = icmp eq i32 %53, %16
br i1 %54, label %64, label %38
55: ; preds = %25, %18
%56 = phi double* [ %0, %18 ], [ %35, %25 ]
%57 = icmp eq i32 %21, 0
br i1 %57, label %75, label %58
58: ; preds = %55, %58
%59 = phi double* [ %61, %58 ], [ %56, %55 ]
%60 = phi i32 [ %62, %58 ], [ 0, %55 ]
store double 0.000000e+00, double* %59
%61 = getelementptr inbounds double, double* %59, i64 %19
%62 = add i32 %60, 1
%63 = icmp eq i32 %62, %21
br i1 %63, label %75, label %58
64: ; preds = %38, %10
%65 = phi double* [ %0, %10 ], [ %52, %38 ]
%66 = icmp eq i32 %13, 0
br i1 %66, label %75, label %67
67: ; preds = %64, %67
%68 = phi double* [ %72, %67 ], [ %65, %64 ]
%69 = phi i32 [ %73, %67 ], [ 0, %64 ]
%70 = load double, double* %68
%71 = fmul double %70, %2
store double %71, double* %68
%72 = getelementptr inbounds double, double* %68, i64 %11
%73 = add i32 %69, 1
%74 = icmp eq i32 %73, %13
br i1 %74, label %75, label %67
75: ; preds = %64, %67, %55, %58, %9, %17, %4
ret void
}