void bpnn_hidden_error(delta_h, nh, delta_o, no, who, hidden,
                       err) double *delta_h,
    *delta_o, *hidden, **who, *err;
int nh, no;
{
  int j, k;
  double h, sum, errsum;
  errsum = 0.0;
  for (j = 1; j <= nh; j++) {
    h = hidden[j];
    sum = 0.0;
    for (k = 1; k <= no; k++) {
      sum += delta_o[k] * who[j][k];
    }
    delta_h[j] = h * (1.0 - h) * sum;
    errsum += (((delta_h[j]) > 0.0) ? (delta_h[j]) : (-(delta_h[j])));
  }
  *err = errsum;
}


x86 assembly (clang, -O0):
<bpnn_hidden_error>:
push   %rbp
mov    %rsp,%rbp
mov    0x10(%rbp),%rax
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x50(%rbp)
movl   $0x1,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0xc(%rbp),%eax
jg     1247 <bpnn_hidden_error+0x147>
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x40(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x48(%rbp)
movl   $0x1,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jg     11a8 <bpnn_hidden_error+0xa8>
mov    -0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x48(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    115a <bpnn_hidden_error+0x5a>
movsd  -0x40(%rbp),%xmm0
movsd  0xe4b(%rip),%xmm1
subsd  -0x40(%rbp),%xmm1
mulsd  %xmm1,%xmm0
mulsd  -0x48(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jbe    1201 <bpnn_hidden_error+0x101>
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x58(%rbp)
jmp    122a <bpnn_hidden_error+0x12a>
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x58(%rbp),%xmm0
addsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    112d <bpnn_hidden_error+0x2d>
movsd  -0x50(%rbp),%xmm0
mov    0x10(%rbp),%rax
movsd  %xmm0,(%rax)
pop    %rbp
ret

x86 assembly (clang, -O2):
<bpnn_hidden_error>:
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    0x30(%rsp),%r10
test   %esi,%esi
jle    124e <bpnn_hidden_error+0x14e>
lea    0x1(%rcx),%r11d
add    $0x1,%esi
lea    -0x1(%r11),%r14
add    $0xfffffffffffffffe,%r11
mov    %r14d,%r12d
and    $0x3,%r12d
and    $0xfffffffffffffffc,%r14
xorpd  %xmm0,%xmm0
mov    $0x1,%r15d
movsd  0xebe(%rip),%xmm1
movapd 0xec6(%rip),%xmm2
jmp    119a <bpnn_hidden_error+0x9a>
nopl   0x0(%rax)
movsd  (%r9,%r15,8),%xmm4
movapd %xmm1,%xmm5
subsd  %xmm4,%xmm5
mulsd  %xmm4,%xmm5
mulsd  %xmm3,%xmm5
movsd  %xmm5,(%rdi,%r15,8)
movapd %xmm5,%xmm3
xorpd  %xmm2,%xmm3
xorpd  %xmm4,%xmm4
cmpltsd %xmm5,%xmm4
andpd  %xmm4,%xmm5
andnpd %xmm3,%xmm4
orpd   %xmm5,%xmm4
addsd  %xmm4,%xmm0
add    $0x1,%r15
cmp    %rsi,%r15
je     1252 <bpnn_hidden_error+0x152>
xorpd  %xmm3,%xmm3
test   %ecx,%ecx
jle    1150 <bpnn_hidden_error+0x50>
mov    (%r8,%r15,8),%rax
xorpd  %xmm3,%xmm3
cmp    $0x3,%r11
jae    11c0 <bpnn_hidden_error+0xc0>
mov    $0x1,%ebx
test   %r12,%r12
jne    1226 <bpnn_hidden_error+0x126>
jmp    1150 <bpnn_hidden_error+0x50>
nopl   0x0(%rax)
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  0x8(%rdx,%rbx,8),%xmm4
movsd  0x10(%rdx,%rbx,8),%xmm5
mulsd  0x8(%rax,%rbx,8),%xmm4
mulsd  0x10(%rax,%rbx,8),%xmm5
addsd  %xmm3,%xmm4
movsd  0x18(%rdx,%rbx,8),%xmm6
mulsd  0x18(%rax,%rbx,8),%xmm6
addsd  %xmm4,%xmm5
movsd  0x20(%rdx,%rbx,8),%xmm3
mulsd  0x20(%rax,%rbx,8),%xmm3
addsd  %xmm5,%xmm6
addsd  %xmm6,%xmm3
add    $0x4,%rbx
cmp    %rbx,%r14
jne    11d0 <bpnn_hidden_error+0xd0>
add    $0x1,%rbx
test   %r12,%r12
je     1150 <bpnn_hidden_error+0x50>
lea    (%rax,%rbx,8),%r13
lea    (%rdx,%rbx,8),%rbx
xor    %eax,%eax
movsd  (%rbx,%rax,8),%xmm4
mulsd  0x0(%r13,%rax,8),%xmm4
addsd  %xmm4,%xmm3
add    $0x1,%rax
cmp    %rax,%r12
jne    1230 <bpnn_hidden_error+0x130>
jmp    1150 <bpnn_hidden_error+0x50>
xorpd  %xmm0,%xmm0
movsd  %xmm0,(%r10)
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
ret

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

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