void sfdif_forw_jac_approx(void (*func)(float *p, float *hx, int m, int n,
                                        void *adata),
                           float *p, float *hx, float *hxx, float delta,
                           float *jac, int m, int n, void *adata) {
  register int i, j;
  float tmp;
  register float d;
  for (j = 0; j < m; ++j) {
    d = 1E-04F * p[j];
    d = (((d) >= 0.0) ? (d) : -(d));
    if (d < delta)
      d = delta;
    tmp = p[j];
    p[j] += d;
    (*func)(p, hxx, m, n, adata);
    p[j] = tmp;
    d = 1.0F / d;
    for (i = 0; i < n; ++i) {
      jac[i * m + j] = (hxx[i] - hx[i]) * d;
    }
  }
}


x86 assembly (clang, -O0):
<sfdif_forw_jac_approx>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    0x18(%rbp),%rax
mov    0x10(%rbp),%eax
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movss  %xmm0,-0x24(%rbp)
mov    %r8,-0x30(%rbp)
mov    %r9d,-0x34(%rbp)
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x34(%rbp),%eax
jge    128a <sfdif_forw_jac_approx+0x18a>
mov    -0x10(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movss  0xeb1(%rip),%xmm0
mulss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x44(%rbp)
movss  -0x44(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     117e <sfdif_forw_jac_approx+0x7e>
movss  -0x44(%rbp),%xmm0
movss  %xmm0,-0x48(%rbp)
jmp    1195 <sfdif_forw_jac_approx+0x95>
movss  -0x44(%rbp),%xmm0
movd   %xmm0,%eax
xor    $0x80000000,%eax
movd   %eax,%xmm0
movss  %xmm0,-0x48(%rbp)
movss  -0x48(%rbp),%xmm0
movss  %xmm0,-0x44(%rbp)
movss  -0x44(%rbp),%xmm1
movss  -0x24(%rbp),%xmm0
ucomiss %xmm1,%xmm0
jbe    11bc <sfdif_forw_jac_approx+0xbc>
movss  -0x24(%rbp),%xmm0
movss  %xmm0,-0x44(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x40(%rbp)
movss  -0x44(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x3c(%rbp),%rcx
addss  (%rax,%rcx,4),%xmm0
movss  %xmm0,(%rax,%rcx,4)
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%rdi
mov    -0x20(%rbp),%rsi
mov    -0x34(%rbp),%edx
mov    0x10(%rbp),%ecx
mov    0x18(%rbp),%r8
call   *%rax
movss  -0x40(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
movss  0xded(%rip),%xmm0
divss  -0x44(%rbp),%xmm0
movss  %xmm0,-0x44(%rbp)
movl   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    0x10(%rbp),%eax
jge    1277 <sfdif_forw_jac_approx+0x177>
mov    -0x20(%rbp),%rax
movslq -0x38(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
subss  (%rax,%rcx,4),%xmm0
mulss  -0x44(%rbp),%xmm0
mov    -0x30(%rbp),%rax
mov    -0x38(%rbp),%ecx
imul   -0x34(%rbp),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1228 <sfdif_forw_jac_approx+0x128>
jmp    127c <sfdif_forw_jac_approx+0x17c>
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    1133 <sfdif_forw_jac_approx+0x33>
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<sfdif_forw_jac_approx>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
mov    %r8,0x10(%rsp)
movss  %xmm0,0x4(%rsp)
mov    %rsi,0x28(%rsp)
mov    %rdi,0x20(%rsp)
mov    %r9d,(%rsp)
test   %r9d,%r9d
jle    1297 <sfdif_forw_jac_approx+0x197>
mov    %rcx,%rbx
mov    %rdx,%rbp
mov    (%rsp),%r13d
mov    0x70(%rsp),%eax
mov    %eax,%edx
and    $0xfffffffe,%edx
lea    0x0(,%r13,8),%r14
xor    %r12d,%r12d
mov    0x10(%rsp),%rsi
mov    %rdx,0x18(%rsp)
mov    0x28(%rsp),%r15
jmp    1171 <sfdif_forw_jac_approx+0x71>
nop
add    $0x1,%r12
add    $0x4,%rsi
cmp    %r13,%r12
je     1297 <sfdif_forw_jac_approx+0x197>
mov    %rsi,0x30(%rsp)
movss  (%r15,%r12,4),%xmm1
movaps %xmm1,%xmm0
movaps %xmm1,%xmm3
movss  %xmm1,0xc(%rsp)
mulss  0xe70(%rip),%xmm0
movaps %xmm0,%xmm1
xorps  0xe76(%rip),%xmm1
xorps  %xmm2,%xmm2
cmpless %xmm0,%xmm2
andps  %xmm2,%xmm0
andnps %xmm1,%xmm2
orps   %xmm0,%xmm2
movss  0x4(%rsp),%xmm1
maxss  %xmm2,%xmm1
movaps %xmm3,%xmm0
movss  %xmm1,0x8(%rsp)
addss  %xmm1,%xmm0
movss  %xmm0,(%r15,%r12,4)
mov    %r15,%rdi
mov    %rbx,%rsi
mov    (%rsp),%edx
mov    0x70(%rsp),%ecx
mov    0x78(%rsp),%r8
call   *0x20(%rsp)
mov    0x30(%rsp),%rsi
mov    0x18(%rsp),%rdx
movss  0xc(%rsp),%xmm0
movss  %xmm0,(%r15,%r12,4)
cmpl   $0x0,0x70(%rsp)
jle    1160 <sfdif_forw_jac_approx+0x60>
movss  0xdfd(%rip),%xmm0
divss  0x8(%rsp),%xmm0
cmpl   $0x1,0x70(%rsp)
jne    1220 <sfdif_forw_jac_approx+0x120>
xor    %eax,%eax
jmp    1265 <sfdif_forw_jac_approx+0x165>
nopl   0x0(%rax,%rax,1)
mov    %rsi,%rcx
xor    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
nop
movss  (%rbx,%rax,4),%xmm1
subss  0x0(%rbp,%rax,4),%xmm1
mulss  %xmm0,%xmm1
movss  %xmm1,(%rcx)
movss  0x4(%rbx,%rax,4),%xmm1
subss  0x4(%rbp,%rax,4),%xmm1
mulss  %xmm0,%xmm1
movss  %xmm1,(%rcx,%r13,4)
add    $0x2,%rax
add    %r14,%rcx
cmp    %rax,%rdx
jne    1230 <sfdif_forw_jac_approx+0x130>
mov    0x70(%rsp),%ecx
test   $0x1,%cl
je     1160 <sfdif_forw_jac_approx+0x60>
movss  (%rbx,%rax,4),%xmm1
subss  0x0(%rbp,%rax,4),%xmm1
mulss  %xmm1,%xmm0
imul   %r13,%rax
add    %r12,%rax
mov    0x10(%rsp),%rcx
movss  %xmm0,(%rcx,%rax,4)
jmp    1160 <sfdif_forw_jac_approx+0x60>
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define void @sfdif_forw_jac_approx(void (float*, float*, i32, i32, i8*)* nocapture %0, float* %1, float* nocapture %2, float* %3, float %4, float* nocapture writeonly %5, i32 %6, i32 %7, i8* %8) {
%10 = icmp sgt i32 %6, 0
br i1 %10, label %11, label %73
11: ; preds = %9
%12 = icmp sgt i32 %7, 0
%13 = zext i32 %6 to i64
%14 = zext i32 %6 to i64
%15 = zext i32 %7 to i64
%16 = and i64 %15, 1
%17 = icmp eq i32 %7, 1
%18 = and i64 %15, 4294967294
%19 = icmp eq i64 %16, 0
br label %20
20: ; preds = %11, %70
%21 = phi i64 [ 0, %11 ], [ %71, %70 ]
%22 = getelementptr inbounds float, float* %1, i64 %21
%23 = load float, float* %22
%24 = fmul float %23, 0x3F1A36E2E0000000
%25 = fcmp oge float %24, 0.000000e+00
%26 = fneg float %24
%27 = select i1 %25, float %24, float %26
%28 = fcmp olt float %27, %4
%29 = select i1 %28, float %4, float %27
%30 = fadd float %23, %29
store float %30, float* %22
tail call void %0(float* %1, float* %3, i32 %6, i32 %7, i8* %8)
store float %23, float* %22
%31 = fdiv float 1.000000e+00, %29
br i1 %12, label %32, label %70
32: ; preds = %20
br i1 %17, label %58, label %33
33: ; preds = %32, %33
%34 = phi i64 [ %55, %33 ], [ 0, %32 ]
%35 = phi i64 [ %56, %33 ], [ 0, %32 ]
%36 = getelementptr inbounds float, float* %3, i64 %34
%37 = load float, float* %36
%38 = getelementptr inbounds float, float* %2, i64 %34
%39 = load float, float* %38
%40 = fsub float %37, %39
%41 = fmul float %31, %40
%42 = mul nsw i64 %34, %13
%43 = add nuw nsw i64 %42, %21
%44 = getelementptr inbounds float, float* %5, i64 %43
store float %41, float* %44
%45 = or i64 %34, 1
%46 = getelementptr inbounds float, float* %3, i64 %45
%47 = load float, float* %46
%48 = getelementptr inbounds float, float* %2, i64 %45
%49 = load float, float* %48
%50 = fsub float %47, %49
%51 = fmul float %31, %50
%52 = mul nsw i64 %45, %13
%53 = add nuw nsw i64 %52, %21
%54 = getelementptr inbounds float, float* %5, i64 %53
store float %51, float* %54
%55 = add nuw nsw i64 %34, 2
%56 = add i64 %35, 2
%57 = icmp eq i64 %56, %18
br i1 %57, label %58, label %33
58: ; preds = %33, %32
%59 = phi i64 [ 0, %32 ], [ %55, %33 ]
br i1 %19, label %70, label %60
60: ; preds = %58
%61 = getelementptr inbounds float, float* %3, i64 %59
%62 = load float, float* %61
%63 = getelementptr inbounds float, float* %2, i64 %59
%64 = load float, float* %63
%65 = fsub float %62, %64
%66 = fmul float %31, %65
%67 = mul nsw i64 %59, %13
%68 = add nuw nsw i64 %67, %21
%69 = getelementptr inbounds float, float* %5, i64 %68
store float %66, float* %69
br label %70
70: ; preds = %60, %58, %20
%71 = add nuw nsw i64 %21, 1
%72 = icmp eq i64 %71, %14
br i1 %72, label %73, label %20
73: ; preds = %70, %9
ret void
}