long scale(buffer, smpno, factor)
float *buffer;
double factor;
long smpno;
{
  register long j;
  register float f;
  for (f = (float)factor, j = 0; j < smpno; j++)
    buffer[j] *= f;
  return (j);
}


x86 assembly (clang, -O0):
<scale>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movsd  %xmm0,-0x18(%rbp)
movsd  -0x18(%rbp),%xmm0
cvtsd2ss %xmm0,%xmm0
movss  %xmm0,-0x24(%rbp)
movq   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    115d <scale+0x5d>
movss  -0x24(%rbp),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%rcx
mulss  (%rax,%rcx,4),%xmm0
movss  %xmm0,(%rax,%rcx,4)
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    1127 <scale+0x27>
mov    -0x20(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<scale>:
test   %rsi,%rsi
jle    1119 <scale+0x19>
mov    %rsi,%rax
cvtsd2ss %xmm0,%xmm0
cmp    $0x8,%rsi
jae    111c <scale+0x1c>
xor    %ecx,%ecx
jmp    11b0 <scale+0xb0>
xor    %eax,%eax
ret
mov    %rax,%rcx
and    $0xfffffffffffffff8,%rcx
movaps %xmm0,%xmm1
shufps $0x0,%xmm0,%xmm1
lea    -0x8(%rcx),%rdx
mov    %rdx,%r8
shr    $0x3,%r8
add    $0x1,%r8
test   %rdx,%rdx
je     11c8 <scale+0xc8>
mov    %r8,%rsi
and    $0xfffffffffffffffe,%rsi
xor    %edx,%edx
nopl   0x0(%rax,%rax,1)
movups (%rdi,%rdx,4),%xmm2
movups 0x10(%rdi,%rdx,4),%xmm3
movups 0x20(%rdi,%rdx,4),%xmm4
movups 0x30(%rdi,%rdx,4),%xmm5
mulps  %xmm1,%xmm2
mulps  %xmm1,%xmm3
movups %xmm2,(%rdi,%rdx,4)
movups %xmm3,0x10(%rdi,%rdx,4)
mulps  %xmm1,%xmm4
mulps  %xmm1,%xmm5
movups %xmm4,0x20(%rdi,%rdx,4)
movups %xmm5,0x30(%rdi,%rdx,4)
add    $0x10,%rdx
add    $0xfffffffffffffffe,%rsi
jne    1150 <scale+0x50>
test   $0x1,%r8b
je     11aa <scale+0xaa>
movups (%rdi,%rdx,4),%xmm2
movups 0x10(%rdi,%rdx,4),%xmm3
mulps  %xmm1,%xmm2
mulps  %xmm1,%xmm3
movups %xmm2,(%rdi,%rdx,4)
movups %xmm3,0x10(%rdi,%rdx,4)
cmp    %rax,%rcx
je     11c7 <scale+0xc7>
nop
movss  (%rdi,%rcx,4),%xmm1
mulss  %xmm0,%xmm1
movss  %xmm1,(%rdi,%rcx,4)
add    $0x1,%rcx
cmp    %rcx,%rax
jne    11b0 <scale+0xb0>
ret
xor    %edx,%edx
test   $0x1,%r8b
jne    1192 <scale+0x92>
jmp    11aa <scale+0xaa>

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

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