void scalvec(double *v1, double r) {
  int i, c1;
  c1 = (int)v1[0];
  for (i = 1; i <= c1; i++) {
    v1[i] = v1[i] * r;
  }
}


x86 assembly (clang, -O0):
<scalvec>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
movsd  %xmm0,-0x10(%rbp)
mov    -0x8(%rbp),%rax
cvttsd2si (%rax),%eax
mov    %eax,-0x18(%rbp)
movl   $0x1,-0x14(%rbp)
mov    -0x14(%rbp),%eax
cmp    -0x18(%rbp),%eax
jg     1158 <scalvec+0x58>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mulsd  -0x10(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    111f <scalvec+0x1f>
pop    %rbp
ret

x86 assembly (clang, -O2):
<scalvec>:
cvttsd2si (%rdi),%edx
test   %edx,%edx
jle    11e7 <scalvec+0xe7>
mov    %edx,%eax
mov    $0x1,%ecx
cmp    $0x4,%edx
jb     11c5 <scalvec+0xc5>
mov    %eax,%ecx
and    $0xfffffffc,%ecx
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
lea    -0x4(%rcx),%rdx
mov    %rdx,%r8
shr    $0x2,%r8
add    $0x1,%r8
test   %rdx,%rdx
je     11e8 <scalvec+0xe8>
mov    %r8,%rsi
and    $0xfffffffffffffffe,%rsi
mov    $0x1,%edx
nopl   (%rax)
movupd (%rdi,%rdx,8),%xmm2
movupd 0x10(%rdi,%rdx,8),%xmm3
movupd 0x20(%rdi,%rdx,8),%xmm4
movupd 0x30(%rdi,%rdx,8),%xmm5
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,(%rdi,%rdx,8)
movupd %xmm3,0x10(%rdi,%rdx,8)
mulpd  %xmm1,%xmm4
mulpd  %xmm1,%xmm5
movupd %xmm4,0x20(%rdi,%rdx,8)
movupd %xmm5,0x30(%rdi,%rdx,8)
add    $0x8,%rdx
add    $0xfffffffffffffffe,%rsi
jne    1150 <scalvec+0x50>
test   $0x1,%r8b
je     11bc <scalvec+0xbc>
movupd (%rdi,%rdx,8),%xmm2
movupd 0x10(%rdi,%rdx,8),%xmm3
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,(%rdi,%rdx,8)
movupd %xmm3,0x10(%rdi,%rdx,8)
cmp    %rcx,%rax
je     11e7 <scalvec+0xe7>
or     $0x1,%rcx
add    $0x1,%rax
nopl   0x0(%rax)
movsd  (%rdi,%rcx,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  %xmm1,(%rdi,%rcx,8)
add    $0x1,%rcx
cmp    %rcx,%rax
jne    11d0 <scalvec+0xd0>
ret
mov    $0x1,%edx
test   $0x1,%r8b
jne    119e <scalvec+0x9e>
jmp    11bc <scalvec+0xbc>

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

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