#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ xvm_scale(double *, double const *, double const, size_t);
double xvm_unit(double r[], const double x[], size_t N) {
  double sum = 0.0;
  for (size_t n = 0; n < N; n++)
    sum += x[n];
  const double scale = 1.0 / sum;
  xvm_scale(r, x, scale, N);
  return scale;
}


x86 assembly (clang, -O0):
<xvm_unit>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x20(%rbp)
movq   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x18(%rbp),%rax
jae    116a <xvm_unit+0x5a>
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
addsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1134 <xvm_unit+0x24>
movsd  0xe8e(%rip),%xmm0
divsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x10(%rbp),%rsi
movsd  -0x30(%rbp),%xmm0
mov    -0x18(%rbp),%rdx
call   1030 <xvm_scale@plt>
movsd  -0x30(%rbp),%xmm0
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<xvm_unit>:
push   %rax
test   %rdx,%rdx
je     112f <xvm_unit+0x1f>
lea    -0x1(%rdx),%rax
mov    %edx,%r8d
and    $0x7,%r8d
cmp    $0x7,%rax
jae    1135 <xvm_unit+0x25>
xorpd  %xmm1,%xmm1
xor    %ecx,%ecx
jmp    1188 <xvm_unit+0x78>
xorpd  %xmm1,%xmm1
jmp    11ae <xvm_unit+0x9e>
mov    %rdx,%rax
and    $0xfffffffffffffff8,%rax
xorpd  %xmm1,%xmm1
xor    %ecx,%ecx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
addsd  (%rsi,%rcx,8),%xmm1
addsd  0x8(%rsi,%rcx,8),%xmm1
addsd  0x10(%rsi,%rcx,8),%xmm1
addsd  0x18(%rsi,%rcx,8),%xmm1
addsd  0x20(%rsi,%rcx,8),%xmm1
addsd  0x28(%rsi,%rcx,8),%xmm1
addsd  0x30(%rsi,%rcx,8),%xmm1
addsd  0x38(%rsi,%rcx,8),%xmm1
add    $0x8,%rcx
cmp    %rcx,%rax
jne    1150 <xvm_unit+0x40>
test   %r8,%r8
je     11ae <xvm_unit+0x9e>
lea    (%rsi,%rcx,8),%rax
xor    %ecx,%ecx
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
addsd  (%rax,%rcx,8),%xmm1
add    $0x1,%rcx
cmp    %rcx,%r8
jne    11a0 <xvm_unit+0x90>
movsd  0xe4a(%rip),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,(%rsp)
call   1030 <xvm_scale@plt>
movsd  (%rsp),%xmm0
pop    %rax
ret

LLVM IR (-O0):
define double @xvm_unit(double* %0, double* %1, i64 %2) {
%4 = alloca double*
%5 = alloca double*
%6 = alloca i64
%7 = alloca double
%8 = alloca i64
%9 = alloca double
store double* %0, double** %4
store double* %1, double** %5
store i64 %2, i64* %6
store double 0.000000e+00, double* %7
store i64 0, i64* %8
br label %10
10: ; preds = %21, %3
%11 = load i64, i64* %8
%12 = load i64, i64* %6
%13 = icmp ult i64 %11, %12
br i1 %13, label %14, label %24
14: ; preds = %10
%15 = load double*, double** %5
%16 = load i64, i64* %8
%17 = getelementptr inbounds double, double* %15, i64 %16
%18 = load double, double* %17
%19 = load double, double* %7
%20 = fadd double %19, %18
store double %20, double* %7
br label %21
21: ; preds = %14
%22 = load i64, i64* %8
%23 = add i64 %22, 1
store i64 %23, i64* %8
br label %10
24: ; preds = %10
%25 = load double, double* %7
%26 = fdiv double 1.000000e+00, %25
store double %26, double* %9
%27 = load double*, double** %4
%28 = load double*, double** %5
%29 = load double, double* %9
%30 = load i64, i64* %6
%31 = call i32 @xvm_scale(double* %27, double* %28, double %29, i64 %30)
%32 = load double, double* %9
ret double %32
}

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