void bpnn_hidden_error(delta_h, nh, delta_o, no, who, hidden,
                       err) float *delta_h,
    *delta_o, *hidden, **who, *err;
int nh, no;
{
  int j, k;
  float 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
movss  %xmm0,-0x44(%rbp)
movl   $0x1,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0xc(%rbp),%eax
jg     1259 <bpnn_hidden_error+0x159>
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x3c(%rbp)
xorps  %xmm0,%xmm0
movss  %xmm0,-0x40(%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
movss  (%rax,%rcx,4),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x38(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm2
movss  -0x40(%rbp),%xmm1
mulss  %xmm2,%xmm0
addss  %xmm1,%xmm0
movss  %xmm0,-0x40(%rbp)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    115a <bpnn_hidden_error+0x5a>
movss  -0x3c(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
movss  -0x3c(%rbp),%xmm1
cvtss2sd %xmm1,%xmm2
movsd  0xe3e(%rip),%xmm1
subsd  %xmm2,%xmm1
mulsd  %xmm1,%xmm0
movss  -0x40(%rbp),%xmm1
cvtss2sd %xmm1,%xmm1
mulsd  %xmm1,%xmm0
cvtsd2ss %xmm0,%xmm0
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
cvtss2sd %xmm0,%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jbe    121d <bpnn_hidden_error+0x11d>
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x48(%rbp)
jmp    123c <bpnn_hidden_error+0x13c>
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movd   %xmm0,%eax
xor    $0x80000000,%eax
movd   %eax,%xmm0
movss  %xmm0,-0x48(%rbp)
movss  -0x48(%rbp),%xmm0
addss  -0x44(%rbp),%xmm0
movss  %xmm0,-0x44(%rbp)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    112d <bpnn_hidden_error+0x2d>
movss  -0x44(%rbp),%xmm0
mov    0x10(%rbp),%rax
movss  %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    125e <bpnn_hidden_error+0x15e>
lea    0x1(%rcx),%r11d
add    $0x1,%esi
lea    -0x1(%r11),%r14
add    $0xfffffffffffffffe,%r11
mov    %r14d,%r12d
and    $0x3,%r12d
and    $0xfffffffffffffffc,%r14
xorps  %xmm0,%xmm0
mov    $0x1,%r15d
movsd  0xebf(%rip),%xmm1
movaps 0xec8(%rip),%xmm2
jmp    11a1 <bpnn_hidden_error+0xa1>
nopw   0x0(%rax,%rax,1)
movss  (%r9,%r15,4),%xmm4
cvtss2sd %xmm4,%xmm4
movapd %xmm1,%xmm5
subsd  %xmm4,%xmm5
mulsd  %xmm4,%xmm5
cvtss2sd %xmm3,%xmm3
mulsd  %xmm5,%xmm3
cvtsd2ss %xmm3,%xmm3
movss  %xmm3,(%rdi,%r15,4)
movaps %xmm3,%xmm4
xorps  %xmm2,%xmm4
xorpd  %xmm5,%xmm5
cmpltss %xmm3,%xmm5
andps  %xmm5,%xmm3
andnps %xmm4,%xmm5
orps   %xmm3,%xmm5
addss  %xmm5,%xmm0
add    $0x1,%r15
cmp    %rsi,%r15
je     1261 <bpnn_hidden_error+0x161>
xorps  %xmm3,%xmm3
test   %ecx,%ecx
jle    1150 <bpnn_hidden_error+0x50>
mov    (%r8,%r15,8),%rax
xorps  %xmm3,%xmm3
cmp    $0x3,%r11
jae    11d0 <bpnn_hidden_error+0xd0>
mov    $0x1,%ebx
test   %r12,%r12
jne    1236 <bpnn_hidden_error+0x136>
jmp    1150 <bpnn_hidden_error+0x50>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movss  0x4(%rdx,%rbx,4),%xmm4
movss  0x8(%rdx,%rbx,4),%xmm5
mulss  0x4(%rax,%rbx,4),%xmm4
mulss  0x8(%rax,%rbx,4),%xmm5
addss  %xmm3,%xmm4
movss  0xc(%rdx,%rbx,4),%xmm6
mulss  0xc(%rax,%rbx,4),%xmm6
addss  %xmm4,%xmm5
movss  0x10(%rdx,%rbx,4),%xmm3
mulss  0x10(%rax,%rbx,4),%xmm3
addss  %xmm5,%xmm6
addss  %xmm6,%xmm3
add    $0x4,%rbx
cmp    %rbx,%r14
jne    11e0 <bpnn_hidden_error+0xe0>
add    $0x1,%rbx
test   %r12,%r12
je     1150 <bpnn_hidden_error+0x50>
lea    (%rax,%rbx,4),%r13
lea    (%rdx,%rbx,4),%rbx
xor    %eax,%eax
movss  (%rbx,%rax,4),%xmm4
mulss  0x0(%r13,%rax,4),%xmm4
addss  %xmm4,%xmm3
add    $0x1,%rax
cmp    %rax,%r12
jne    1240 <bpnn_hidden_error+0x140>
jmp    1150 <bpnn_hidden_error+0x50>
xorps  %xmm0,%xmm0
movss  %xmm0,(%r10)
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
ret

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

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