#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 */
double log(double);
double dnorm_log(double *x, int n, double location, double scale) {
  int i;
  double logDensity = 0, z, logScale;
  logScale = log(scale);
  for (i = 0; i < n; i++) {
    z = (x[i] - location) / scale;
    logDensity += -0.5 * z * z - logScale;
  }
  return logDensity;
}


x86 assembly (clang, -O0):
<dnorm_log>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
movsd  %xmm0,-0x18(%rbp)
movsd  %xmm1,-0x20(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  -0x20(%rbp),%xmm0
call   1030 <log@plt>
movsd  %xmm0,-0x40(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11bd <dnorm_log+0xad>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  -0x18(%rbp),%xmm0
divsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  0xe89(%rip),%xmm0
mulsd  -0x38(%rbp),%xmm0
movsd  -0x38(%rbp),%xmm2
movsd  -0x40(%rbp),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
addsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1147 <dnorm_log+0x37>
movsd  -0x30(%rbp),%xmm0
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<dnorm_log>:
push   %rbp
push   %rbx
sub    $0x18,%rsp
movsd  %xmm0,0x8(%rsp)
mov    %esi,%ebp
mov    %rdi,%rbx
movsd  %xmm1,0x10(%rsp)
movapd %xmm1,%xmm0
call   1030 <log@plt>
test   %ebp,%ebp
jle    1157 <dnorm_log+0x47>
xorpd  0xec4(%rip),%xmm0
mov    %ebp,%eax
cmp    $0x1,%ebp
movsd  0x10(%rsp),%xmm6
movsd  0x8(%rsp),%xmm7
jne    1160 <dnorm_log+0x50>
xorpd  %xmm1,%xmm1
xor    %ecx,%ecx
jmp    11cc <dnorm_log+0xbc>
xorpd  %xmm1,%xmm1
jmp    11f5 <dnorm_log+0xe5>
mov    %eax,%edx
and    $0xfffffffe,%edx
xorpd  %xmm1,%xmm1
xor    %ecx,%ecx
movsd  0xe9d(%rip),%xmm2
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movsd  (%rbx,%rcx,8),%xmm3
movsd  0x8(%rbx,%rcx,8),%xmm4
subsd  %xmm7,%xmm3
divsd  %xmm6,%xmm3
movapd %xmm3,%xmm5
mulsd  %xmm2,%xmm5
mulsd  %xmm3,%xmm5
addsd  %xmm0,%xmm5
addsd  %xmm1,%xmm5
subsd  %xmm7,%xmm4
divsd  %xmm6,%xmm4
movapd %xmm4,%xmm1
mulsd  %xmm2,%xmm1
mulsd  %xmm4,%xmm1
addsd  %xmm0,%xmm1
addsd  %xmm5,%xmm1
add    $0x2,%rcx
cmp    %rcx,%rdx
jne    1180 <dnorm_log+0x70>
test   $0x1,%al
je     11f5 <dnorm_log+0xe5>
movsd  (%rbx,%rcx,8),%xmm2
subsd  %xmm7,%xmm2
divsd  %xmm6,%xmm2
movsd  0xe2b(%rip),%xmm3
mulsd  %xmm2,%xmm3
mulsd  %xmm2,%xmm3
addsd  %xmm0,%xmm3
addsd  %xmm3,%xmm1
movapd %xmm1,%xmm0
add    $0x18,%rsp
pop    %rbx
pop    %rbp
ret

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

LLVM IR (-O2):
define double @dnorm_log(double* nocapture %0, i32 %1, double %2, double %3) {
%5 = tail call double @log(double %3)
%6 = icmp sgt i32 %1, 0
br i1 %6, label %7, label %49
7: ; preds = %4
%8 = fneg double %5
%9 = zext i32 %1 to i64
%10 = and i64 %9, 1
%11 = icmp eq i32 %1, 1
br i1 %11, label %36, label %12
12: ; preds = %7
%13 = and i64 %9, 4294967294
br label %14
14: ; preds = %14, %12
%15 = phi i64 [ 0, %12 ], [ %33, %14 ]
%16 = phi double [ 0.000000e+00, %12 ], [ %32, %14 ]
%17 = phi i64 [ 0, %12 ], [ %34, %14 ]
%18 = getelementptr inbounds double, double* %0, i64 %15
%19 = load double, double* %18
%20 = fsub double %19, %2
%21 = fdiv double %20, %3
%22 = fmul double %21, -5.000000e-01
%23 = tail call double @llvm.fmuladd.f64(double %22, double %21, double %8)
%24 = fadd double %16, %23
%25 = or i64 %15, 1
%26 = getelementptr inbounds double, double* %0, i64 %25
%27 = load double, double* %26
%28 = fsub double %27, %2
%29 = fdiv double %28, %3
%30 = fmul double %29, -5.000000e-01
%31 = tail call double @llvm.fmuladd.f64(double %30, double %29, double %8)
%32 = fadd double %24, %31
%33 = add nuw nsw i64 %15, 2
%34 = add i64 %17, 2
%35 = icmp eq i64 %34, %13
br i1 %35, label %36, label %14
36: ; preds = %14, %7
%37 = phi double [ undef, %7 ], [ %32, %14 ]
%38 = phi i64 [ 0, %7 ], [ %33, %14 ]
%39 = phi double [ 0.000000e+00, %7 ], [ %32, %14 ]
%40 = icmp eq i64 %10, 0
br i1 %40, label %49, label %41
41: ; preds = %36
%42 = getelementptr inbounds double, double* %0, i64 %38
%43 = load double, double* %42
%44 = fsub double %43, %2
%45 = fdiv double %44, %3
%46 = fmul double %45, -5.000000e-01
%47 = tail call double @llvm.fmuladd.f64(double %46, double %45, double %8)
%48 = fadd double %39, %47
br label %49
49: ; preds = %41, %36, %4
%50 = phi double [ 0.000000e+00, %4 ], [ %37, %36 ], [ %48, %41 ]
ret double %50
}