int c_scale_vector(double s, int xn, double *xp, int yn, double *yp) {
  int k;
  for (k = 0; k <= yn; k++) {
    yp[k] = s * xp[k];
  }
  return 0;
}


x86 assembly (clang, -O0):
<c_scale_vector>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x8(%rbp)
mov    %edi,-0xc(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %edx,-0x1c(%rbp)
mov    %rcx,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jg     1157 <c_scale_vector+0x57>
movsd  -0x8(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    111e <c_scale_vector+0x1e>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<c_scale_vector>:
test   %edx,%edx
js     1265 <c_scale_vector+0x165>
lea    0x1(%rdx),%r9d
cmp    $0x3,%edx
jb     112b <c_scale_vector+0x2b>
lea    (%rsi,%r9,8),%rax
cmp    %rcx,%rax
jbe    11bc <c_scale_vector+0xbc>
lea    (%rcx,%r9,8),%rax
cmp    %rsi,%rax
jbe    11bc <c_scale_vector+0xbc>
xor    %edx,%edx
mov    %rdx,%rax
not    %rax
add    %r9,%rax
mov    %r9,%rdi
and    $0x3,%rdi
je     1158 <c_scale_vector+0x58>
nop
movsd  (%rsi,%rdx,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rcx,%rdx,8)
add    $0x1,%rdx
add    $0xffffffffffffffff,%rdi
jne    1140 <c_scale_vector+0x40>
cmp    $0x3,%rax
jb     1265 <c_scale_vector+0x165>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  (%rsi,%rdx,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rcx,%rdx,8)
movsd  0x8(%rsi,%rdx,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,0x8(%rcx,%rdx,8)
movsd  0x10(%rsi,%rdx,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,0x10(%rcx,%rdx,8)
movsd  0x18(%rsi,%rdx,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,0x18(%rcx,%rdx,8)
add    $0x4,%rdx
cmp    %rdx,%r9
jne    1170 <c_scale_vector+0x70>
jmp    1265 <c_scale_vector+0x165>
mov    %r9d,%edx
and    $0xfffffffc,%edx
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
lea    -0x4(%rdx),%rax
mov    %rax,%r8
shr    $0x2,%r8
add    $0x1,%r8
test   %rax,%rax
je     1268 <c_scale_vector+0x168>
mov    %r8,%rax
and    $0xfffffffffffffffe,%rax
xor    %edi,%edi
nopl   0x0(%rax,%rax,1)
movupd (%rsi,%rdi,8),%xmm2
movupd 0x10(%rsi,%rdi,8),%xmm3
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,(%rcx,%rdi,8)
movupd %xmm3,0x10(%rcx,%rdi,8)
movupd 0x20(%rsi,%rdi,8),%xmm2
movupd 0x30(%rsi,%rdi,8),%xmm3
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,0x20(%rcx,%rdi,8)
movupd %xmm3,0x30(%rcx,%rdi,8)
add    $0x8,%rdi
add    $0xfffffffffffffffe,%rax
jne    11f0 <c_scale_vector+0xf0>
test   $0x1,%r8b
je     125c <c_scale_vector+0x15c>
movupd (%rsi,%rdi,8),%xmm2
movupd 0x10(%rsi,%rdi,8),%xmm3
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,(%rcx,%rdi,8)
movupd %xmm3,0x10(%rcx,%rdi,8)
cmp    %r9,%rdx
jne    112d <c_scale_vector+0x2d>
xor    %eax,%eax
ret
xor    %edi,%edi
test   $0x1,%r8b
jne    123e <c_scale_vector+0x13e>
jmp    125c <c_scale_vector+0x15c>

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

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