void bpnn_adjust_weights(delta, ndelta, ly, nly, w, oldw, eta,
                         momentum) double *delta,
    *ly, **w, **oldw, eta, momentum;
{
  double new_dw;
  int k, j;
  ly[0] = 1.0;
  for (j = 1; j <= ndelta; j++) {
    for (k = 0; k <= nly; k++) {
      new_dw = ((eta * delta[j] * ly[k]) + (momentum * oldw[k][j]));
      w[k][j] += new_dw;
      oldw[k][j] = new_dw;
    }
  }
}


x86 assembly (clang, -O0):
<bpnn_adjust_weights>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
movsd  %xmm0,-0x38(%rbp)
movsd  %xmm1,-0x40(%rbp)
mov    -0x18(%rbp),%rax
movsd  0xed0(%rip),%xmm0
movsd  %xmm0,(%rax)
movl   $0x1,-0x50(%rbp)
mov    -0x50(%rbp),%eax
cmp    -0xc(%rbp),%eax
jg     11fa <bpnn_adjust_weights+0xfa>
movl   $0x0,-0x4c(%rbp)
mov    -0x4c(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jg     11e7 <bpnn_adjust_weights+0xe7>
movsd  -0x38(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x50(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x4c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x40(%rbp),%xmm1
mov    -0x30(%rbp),%rax
movslq -0x4c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x50(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x48(%rbp),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x4c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x50(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x48(%rbp),%xmm0
mov    -0x30(%rbp),%rax
movslq -0x4c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x50(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x4c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4c(%rbp)
jmp    114e <bpnn_adjust_weights+0x4e>
jmp    11ec <bpnn_adjust_weights+0xec>
mov    -0x50(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x50(%rbp)
jmp    113b <bpnn_adjust_weights+0x3b>
pop    %rbp
ret

x86 assembly (clang, -O2):
<bpnn_adjust_weights>:
push   %r14
push   %rbx
movabs $0x3ff0000000000000,%rax
mov    %rax,(%rdx)
test   %esi,%esi
jle    1186 <bpnn_adjust_weights+0x86>
lea    0x1(%rcx),%r10d
add    $0x1,%esi
mov    $0x1,%r11d
jmp    1139 <bpnn_adjust_weights+0x39>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    $0x1,%r11
cmp    %rsi,%r11
je     1186 <bpnn_adjust_weights+0x86>
test   %ecx,%ecx
js     1130 <bpnn_adjust_weights+0x30>
xor    %eax,%eax
nop
movsd  (%rdi,%r11,8),%xmm2
mulsd  %xmm0,%xmm2
mov    (%r9,%rax,8),%r14
movsd  (%r14,%r11,8),%xmm3
mulsd  %xmm1,%xmm3
mulsd  (%rdx,%rax,8),%xmm2
addsd  %xmm3,%xmm2
mov    (%r8,%rax,8),%rbx
movsd  (%rbx,%r11,8),%xmm3
addsd  %xmm2,%xmm3
movsd  %xmm3,(%rbx,%r11,8)
movsd  %xmm2,(%r14,%r11,8)
add    $0x1,%rax
cmp    %rax,%r10
jne    1140 <bpnn_adjust_weights+0x40>
jmp    1130 <bpnn_adjust_weights+0x30>
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
define void @bpnn_adjust_weights(double* %0, i32 %1, double* %2, i32 %3, double** %4, double** %5, double %6, double %7) {
%9 = alloca double*
%10 = alloca i32
%11 = alloca double*
%12 = alloca i32
%13 = alloca double**
%14 = alloca double**
%15 = alloca double
%16 = alloca double
%17 = alloca double
%18 = alloca i32
%19 = alloca i32
store double* %0, double** %9
store i32 %1, i32* %10
store double* %2, double** %11
store i32 %3, i32* %12
store double** %4, double*** %13
store double** %5, double*** %14
store double %6, double* %15
store double %7, double* %16
%20 = load double*, double** %11
%21 = getelementptr inbounds double, double* %20, i64 0
store double 1.000000e+00, double* %21
store i32 1, i32* %19
br label %22
22: ; preds = %80, %8
%23 = load i32, i32* %19
%24 = load i32, i32* %10
%25 = icmp sle i32 %23, %24
br i1 %25, label %26, label %83
26: ; preds = %22
store i32 0, i32* %18
br label %27
27: ; preds = %76, %26
%28 = load i32, i32* %18
%29 = load i32, i32* %12
%30 = icmp sle i32 %28, %29
br i1 %30, label %31, label %79
31: ; preds = %27
%32 = load double, double* %15
%33 = load double*, double** %9
%34 = load i32, i32* %19
%35 = sext i32 %34 to i64
%36 = getelementptr inbounds double, double* %33, i64 %35
%37 = load double, double* %36
%38 = fmul double %32, %37
%39 = load double*, double** %11
%40 = load i32, i32* %18
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds double, double* %39, i64 %41
%43 = load double, double* %42
%44 = load double, double* %16
%45 = load double**, double*** %14
%46 = load i32, i32* %18
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds double*, double** %45, i64 %47
%49 = load double*, double** %48
%50 = load i32, i32* %19
%51 = sext i32 %50 to i64
%52 = getelementptr inbounds double, double* %49, i64 %51
%53 = load double, double* %52
%54 = fmul double %44, %53
%55 = call double @llvm.fmuladd.f64(double %38, double %43, double %54)
store double %55, double* %17
%56 = load double, double* %17
%57 = load double**, double*** %13
%58 = load i32, i32* %18
%59 = sext i32 %58 to i64
%60 = getelementptr inbounds double*, double** %57, i64 %59
%61 = load double*, double** %60
%62 = load i32, i32* %19
%63 = sext i32 %62 to i64
%64 = getelementptr inbounds double, double* %61, i64 %63
%65 = load double, double* %64
%66 = fadd double %65, %56
store double %66, double* %64
%67 = load double, double* %17
%68 = load double**, double*** %14
%69 = load i32, i32* %18
%70 = sext i32 %69 to i64
%71 = getelementptr inbounds double*, double** %68, i64 %70
%72 = load double*, double** %71
%73 = load i32, i32* %19
%74 = sext i32 %73 to i64
%75 = getelementptr inbounds double, double* %72, i64 %74
store double %67, double* %75
br label %76
76: ; preds = %31
%77 = load i32, i32* %18
%78 = add nsw i32 %77, 1
store i32 %78, i32* %18
br label %27
79: ; preds = %27
br label %80
80: ; preds = %79
%81 = load i32, i32* %19
%82 = add nsw i32 %81, 1
store i32 %82, i32* %19
br label %22
83: ; preds = %22
ret void
}

LLVM IR (-O2):
define void @bpnn_adjust_weights(double* nocapture %0, i32 %1, double* nocapture %2, i32 %3, double** nocapture %4, double** nocapture %5, double %6, double %7) {
store double 1.000000e+00, double* %2
%9 = icmp slt i32 %1, 1
br i1 %9, label %42, label %10
10: ; preds = %8
%11 = icmp slt i32 %3, 0
%12 = add i32 %3, 1
%13 = add nuw i32 %1, 1
%14 = zext i32 %13 to i64
%15 = zext i32 %12 to i64
br label %16
16: ; preds = %10, %39
%17 = phi i64 [ 1, %10 ], [ %40, %39 ]
br i1 %11, label %39, label %18
18: ; preds = %16
%19 = getelementptr inbounds double, double* %0, i64 %17
br label %20
20: ; preds = %18, %20
%21 = phi i64 [ 0, %18 ], [ %37, %20 ]
%22 = load double, double* %19
%23 = fmul double %22, %6
%24 = getelementptr inbounds double, double* %2, i64 %21
%25 = load double, double* %24
%26 = getelementptr inbounds double*, double** %5, i64 %21
%27 = load double*, double** %26
%28 = getelementptr inbounds double, double* %27, i64 %17
%29 = load double, double* %28
%30 = fmul double %29, %7
%31 = tail call double @llvm.fmuladd.f64(double %23, double %25, double %30)
%32 = getelementptr inbounds double*, double** %4, i64 %21
%33 = load double*, double** %32
%34 = getelementptr inbounds double, double* %33, i64 %17
%35 = load double, double* %34
%36 = fadd double %35, %31
store double %36, double* %34
store double %31, double* %28
%37 = add nuw nsw i64 %21, 1
%38 = icmp eq i64 %37, %15
br i1 %38, label %39, label %20
39: ; preds = %20, %16
%40 = add nuw nsw i64 %17, 1
%41 = icmp eq i64 %40, %14
br i1 %41, label %42, label %16
42: ; preds = %39, %8
ret void
}