double Mnorm2(len, x)
int len;
double *x;
{
  register int i;
  register double norm, invnorm, sum, tmp;
  norm = Mnorminf(len, x);
  if (norm == 0.0)
    return 0.0;
  invnorm = 1.0 / norm;
  sum = 0.0;
  for (i = 0; i < len; i++) {
    tmp = x[i] * invnorm;
    sum += tmp * tmp;
  }
  return sum / invnorm;
}


x86 assembly (clang, -O0):
<Mnorm2>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %edi,-0xc(%rbp)
mov    %rsi,-0x18(%rbp)
mov    -0xc(%rbp),%edi
mov    -0x18(%rbp),%rsi
mov    $0x0,%al
call   1030 <Mnorminf@plt>
cvtsi2sd %eax,%xmm0
movsd  %xmm0,-0x28(%rbp)
movsd  -0x28(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    115b <Mnorm2+0x4b>
jp     115b <Mnorm2+0x4b>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    11d8 <Mnorm2+0xc8>
movsd  0xe9d(%rip),%xmm0
divsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x38(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11c9 <Mnorm2+0xb9>
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mulsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x40(%rbp),%xmm0
movsd  -0x40(%rbp),%xmm2
movsd  -0x38(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    117c <Mnorm2+0x6c>
movsd  -0x38(%rbp),%xmm0
divsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<Mnorm2>:
push   %rbp
push   %rbx
push   %rax
mov    %rsi,%rbx
mov    %edi,%ebp
xor    %eax,%eax
call   1030 <Mnorminf@plt>
test   %eax,%eax
je     1150 <Mnorm2+0x40>
cvtsi2sd %eax,%xmm0
movsd  0xed1(%rip),%xmm1
divsd  %xmm0,%xmm1
test   %ebp,%ebp
jle    1159 <Mnorm2+0x49>
mov    %ebp,%ecx
lea    -0x1(%rcx),%rdx
mov    %ecx,%eax
and    $0x3,%eax
cmp    $0x3,%rdx
jae    1162 <Mnorm2+0x52>
xorpd  %xmm0,%xmm0
xor    %edx,%edx
jmp    11c0 <Mnorm2+0xb0>
xorpd  %xmm0,%xmm0
jmp    11ee <Mnorm2+0xde>
xorpd  %xmm0,%xmm0
jmp    11ea <Mnorm2+0xda>
and    $0xfffffffc,%ecx
xorpd  %xmm0,%xmm0
xor    %edx,%edx
nopl   0x0(%rax,%rax,1)
movsd  (%rbx,%rdx,8),%xmm2
mulsd  %xmm1,%xmm2
mulsd  %xmm2,%xmm2
addsd  %xmm0,%xmm2
movsd  0x8(%rbx,%rdx,8),%xmm0
mulsd  %xmm1,%xmm0
mulsd  %xmm0,%xmm0
addsd  %xmm2,%xmm0
movsd  0x10(%rbx,%rdx,8),%xmm2
mulsd  %xmm1,%xmm2
mulsd  %xmm2,%xmm2
addsd  %xmm0,%xmm2
movsd  0x18(%rbx,%rdx,8),%xmm0
mulsd  %xmm1,%xmm0
mulsd  %xmm0,%xmm0
addsd  %xmm2,%xmm0
add    $0x4,%rdx
cmp    %rdx,%rcx
jne    1170 <Mnorm2+0x60>
test   %rax,%rax
je     11ea <Mnorm2+0xda>
lea    (%rbx,%rdx,8),%rcx
xor    %edx,%edx
nopl   0x0(%rax,%rax,1)
movsd  (%rcx,%rdx,8),%xmm2
mulsd  %xmm1,%xmm2
mulsd  %xmm2,%xmm2
addsd  %xmm2,%xmm0
add    $0x1,%rdx
cmp    %rdx,%rax
jne    11d0 <Mnorm2+0xc0>
divsd  %xmm1,%xmm0
add    $0x8,%rsp
pop    %rbx
pop    %rbp
ret

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

LLVM IR (-O2):
define double @Mnorm2(i32 %0, double* %1) {
%3 = tail call i32 (i32, double*, ...) bitcast (i32 (...)* @Mnorminf to i32 (i32, double*, ...)*)(i32 %0, double* %1)
%4 = icmp eq i32 %3, 0
br i1 %4, label %61, label %5
5: ; preds = %2
%6 = sitofp i32 %3 to double
%7 = fdiv double 1.000000e+00, %6
%8 = icmp sgt i32 %0, 0
br i1 %8, label %9, label %58
9: ; preds = %5
%10 = zext i32 %0 to i64
%11 = add nsw i64 %10, -1
%12 = and i64 %10, 3
%13 = icmp ult i64 %11, 3
br i1 %13, label %42, label %14
14: ; preds = %9
%15 = and i64 %10, 4294967292
br label %16
16: ; preds = %16, %14
%17 = phi i64 [ 0, %14 ], [ %39, %16 ]
%18 = phi double [ 0.000000e+00, %14 ], [ %38, %16 ]
%19 = phi i64 [ 0, %14 ], [ %40, %16 ]
%20 = getelementptr inbounds double, double* %1, i64 %17
%21 = load double, double* %20
%22 = fmul double %7, %21
%23 = tail call double @llvm.fmuladd.f64(double %22, double %22, double %18)
%24 = or i64 %17, 1
%25 = getelementptr inbounds double, double* %1, i64 %24
%26 = load double, double* %25
%27 = fmul double %7, %26
%28 = tail call double @llvm.fmuladd.f64(double %27, double %27, double %23)
%29 = or i64 %17, 2
%30 = getelementptr inbounds double, double* %1, i64 %29
%31 = load double, double* %30
%32 = fmul double %7, %31
%33 = tail call double @llvm.fmuladd.f64(double %32, double %32, double %28)
%34 = or i64 %17, 3
%35 = getelementptr inbounds double, double* %1, i64 %34
%36 = load double, double* %35
%37 = fmul double %7, %36
%38 = tail call double @llvm.fmuladd.f64(double %37, double %37, double %33)
%39 = add nuw nsw i64 %17, 4
%40 = add i64 %19, 4
%41 = icmp eq i64 %40, %15
br i1 %41, label %42, label %16
42: ; preds = %16, %9
%43 = phi double [ undef, %9 ], [ %38, %16 ]
%44 = phi i64 [ 0, %9 ], [ %39, %16 ]
%45 = phi double [ 0.000000e+00, %9 ], [ %38, %16 ]
%46 = icmp eq i64 %12, 0
br i1 %46, label %58, label %47
47: ; preds = %42, %47
%48 = phi i64 [ %55, %47 ], [ %44, %42 ]
%49 = phi double [ %54, %47 ], [ %45, %42 ]
%50 = phi i64 [ %56, %47 ], [ 0, %42 ]
%51 = getelementptr inbounds double, double* %1, i64 %48
%52 = load double, double* %51
%53 = fmul double %7, %52
%54 = tail call double @llvm.fmuladd.f64(double %53, double %53, double %49)
%55 = add nuw nsw i64 %48, 1
%56 = add i64 %50, 1
%57 = icmp eq i64 %56, %12
br i1 %57, label %58, label %47
58: ; preds = %42, %47, %5
%59 = phi double [ 0.000000e+00, %5 ], [ %43, %42 ], [ %54, %47 ]
%60 = fdiv double %59, %7
br label %61
61: ; preds = %2, %58
%62 = phi double [ %60, %58 ], [ 0.000000e+00, %2 ]
ret double %62
}