void dHDs(double *H, double *u, unsigned len, double *Ds, int *bufferP,
          double *bufferZ) {
  unsigned i;
  int *p;
  double *Z;
  if (bufferP) {
    p = bufferP;
  } else {
    p = (int *)malloc(len * sizeof(int));
  }
  if (bufferZ) {
    Z = bufferZ;
  } else {
    Z = (double *)malloc(len * 18 * sizeof(double));
  }
  for (i = 0; i < len; i++)
    p[i] = i;
  lin_hg(u, Z, p, len);
  HDs(Z, u, H, Ds, len);
  if (!bufferP) {
    free(p);
  }
  if (!bufferZ) {
    free(Z);
  }
}


x86 assembly (clang, -O0):
<dHDs>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
cmpq   $0x0,-0x28(%rbp)
je     1177 <dHDs+0x37>
mov    -0x28(%rbp),%rax
mov    %rax,-0x40(%rbp)
jmp    1189 <dHDs+0x49>
mov    -0x14(%rbp),%eax
mov    %eax,%edi
shl    $0x2,%rdi
call   1050 <malloc@plt>
mov    %rax,-0x40(%rbp)
cmpq   $0x0,-0x30(%rbp)
je     11a1 <dHDs+0x61>
mov    -0x30(%rbp),%rax
mov    %rax,-0x48(%rbp)
jmp    11b6 <dHDs+0x76>
imul   $0x12,-0x14(%rbp),%eax
mov    %eax,%eax
mov    %eax,%edi
shl    $0x3,%rdi
call   1050 <malloc@plt>
mov    %rax,-0x48(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x14(%rbp),%eax
jae    11e4 <dHDs+0xa4>
mov    -0x34(%rbp),%edx
mov    -0x40(%rbp),%rax
mov    -0x34(%rbp),%ecx
mov    %edx,(%rax,%rcx,4)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    11bd <dHDs+0x7d>
mov    -0x10(%rbp),%rdi
mov    -0x48(%rbp),%rsi
mov    -0x40(%rbp),%rdx
mov    -0x14(%rbp),%ecx
mov    $0x0,%al
call   1040 <lin_hg@plt>
mov    -0x48(%rbp),%rdi
mov    -0x10(%rbp),%rsi
mov    -0x8(%rbp),%rdx
mov    -0x20(%rbp),%rcx
mov    -0x14(%rbp),%r8d
mov    $0x0,%al
call   1060 <HDs@plt>
cmpq   $0x0,-0x28(%rbp)
jne    1229 <dHDs+0xe9>
mov    -0x40(%rbp),%rdi
call   1030 <free@plt>
cmpq   $0x0,-0x30(%rbp)
jne    123d <dHDs+0xfd>
mov    -0x48(%rbp),%rdi
call   1030 <free@plt>
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<dHDs>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x28,%rsp
mov    %r9,%rbp
mov    %r8,%r12
mov    %rcx,0x20(%rsp)
mov    %edx,%r13d
mov    %rsi,0x10(%rsp)
mov    %rdi,0x18(%rsp)
mov    %edx,%r15d
mov    %r8,%rbx
test   %r8,%r8
jne    1181 <dHDs+0x41>
lea    0x0(,%r15,4),%rdi
call   1050 <malloc@plt>
mov    %rax,%rbx
mov    %rbp,%r14
test   %rbp,%rbp
jne    119d <dHDs+0x5d>
lea    0x0(%r13,%r13,1),%eax
lea    (%rax,%rax,8),%edi
shl    $0x3,%rdi
call   1050 <malloc@plt>
mov    %rax,%r14
mov    %rbp,0x8(%rsp)
test   %r13d,%r13d
je     131c <dHDs+0x1dc>
cmp    $0x8,%r13d
jae    11b8 <dHDs+0x78>
xor    %eax,%eax
jmp    1310 <dHDs+0x1d0>
mov    %r15d,%eax
and    $0xfffffff8,%eax
lea    -0x8(%rax),%rsi
mov    %rsi,%rdx
shr    $0x3,%rdx
add    $0x1,%rdx
mov    %edx,%ecx
and    $0x3,%ecx
cmp    $0x18,%rsi
jae    11e7 <dHDs+0xa7>
movdqa 0xe20(%rip),%xmm0
xor    %esi,%esi
jmp    12b8 <dHDs+0x178>
and    $0xfffffffffffffffc,%rdx
movdqa 0xe0d(%rip),%xmm0
xor    %esi,%esi
movdqa 0xe12(%rip),%xmm8
movdqa 0xe19(%rip),%xmm9
movdqa 0xe20(%rip),%xmm10
movdqa 0xe28(%rip),%xmm4
movdqa 0xe30(%rip),%xmm5
movdqa 0xe38(%rip),%xmm6
movdqa 0xe40(%rip),%xmm7
movdqa 0xe48(%rip),%xmm1
nopl   0x0(%rax,%rax,1)
movdqa %xmm0,%xmm2
paddd  %xmm8,%xmm2
movdqu %xmm0,(%rbx,%rsi,4)
movdqu %xmm2,0x10(%rbx,%rsi,4)
movdqa %xmm0,%xmm2
paddd  %xmm9,%xmm2
movdqa %xmm0,%xmm3
paddd  %xmm10,%xmm3
movdqu %xmm2,0x20(%rbx,%rsi,4)
movdqu %xmm3,0x30(%rbx,%rsi,4)
movdqa %xmm0,%xmm2
paddd  %xmm4,%xmm2
movdqa %xmm0,%xmm3
paddd  %xmm5,%xmm3
movdqu %xmm2,0x40(%rbx,%rsi,4)
movdqu %xmm3,0x50(%rbx,%rsi,4)
movdqa %xmm0,%xmm2
paddd  %xmm6,%xmm2
movdqa %xmm0,%xmm3
paddd  %xmm7,%xmm3
movdqu %xmm2,0x60(%rbx,%rsi,4)
movdqu %xmm3,0x70(%rbx,%rsi,4)
add    $0x20,%rsi
paddd  %xmm1,%xmm0
add    $0xfffffffffffffffc,%rdx
jne    1240 <dHDs+0x100>
test   %rcx,%rcx
je     1300 <dHDs+0x1c0>
lea    (%rbx,%rsi,4),%rdx
add    $0x10,%rdx
shl    $0x5,%rcx
xor    %esi,%esi
movdqa 0xd3d(%rip),%xmm1
movdqa 0xd45(%rip),%xmm2
nopl   0x0(%rax,%rax,1)
movdqa %xmm0,%xmm3
paddd  %xmm1,%xmm3
movdqu %xmm0,-0x10(%rdx,%rsi,1)
movdqu %xmm3,(%rdx,%rsi,1)
paddd  %xmm2,%xmm0
add    $0x20,%rsi
cmp    %rsi,%rcx
jne    12e0 <dHDs+0x1a0>
cmp    %r15,%rax
je     131c <dHDs+0x1dc>
cs nopw 0x0(%rax,%rax,1)
nop
mov    %eax,(%rbx,%rax,4)
add    $0x1,%rax
cmp    %rax,%r15
jne    1310 <dHDs+0x1d0>
mov    0x10(%rsp),%rbp
mov    %rbp,%rdi
mov    %r14,%rsi
mov    %rbx,%rdx
mov    %r13d,%ecx
xor    %eax,%eax
call   1040 <lin_hg@plt>
mov    %r14,%rdi
mov    %rbp,%rsi
mov    0x18(%rsp),%rdx
mov    0x20(%rsp),%rcx
mov    %r13d,%r8d
xor    %eax,%eax
call   1060 <HDs@plt>
test   %r12,%r12
je     136a <dHDs+0x22a>
cmpq   $0x0,0x8(%rsp)
je     137a <dHDs+0x23a>
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
mov    %rbx,%rdi
call   1030 <free@plt>
cmpq   $0x0,0x8(%rsp)
jne    135b <dHDs+0x21b>
mov    %r14,%rdi
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1030 <free@plt>

LLVM IR (-O0):
define void @dHDs(double* %0, double* %1, i32 %2, double* %3, i32* %4, double* %5) {
%7 = alloca double*
%8 = alloca double*
%9 = alloca i32
%10 = alloca double*
%11 = alloca i32*
%12 = alloca double*
%13 = alloca i32
%14 = alloca i32*
%15 = alloca double*
store double* %0, double** %7
store double* %1, double** %8
store i32 %2, i32* %9
store double* %3, double** %10
store i32* %4, i32** %11
store double* %5, double** %12
%16 = load i32*, i32** %11
%17 = icmp ne i32* %16, null
br i1 %17, label %18, label %20
18: ; preds = %6
%19 = load i32*, i32** %11
store i32* %19, i32** %14
br label %26
20: ; preds = %6
%21 = load i32, i32* %9
%22 = zext i32 %21 to i64
%23 = mul i64 %22, 4
%24 = call i8* @malloc(i64 %23)
%25 = bitcast i8* %24 to i32*
store i32* %25, i32** %14
br label %26
26: ; preds = %20, %18
%27 = load double*, double** %12
%28 = icmp ne double* %27, null
br i1 %28, label %29, label %31
29: ; preds = %26
%30 = load double*, double** %12
store double* %30, double** %15
br label %38
31: ; preds = %26
%32 = load i32, i32* %9
%33 = mul i32 %32, 18
%34 = zext i32 %33 to i64
%35 = mul i64 %34, 8
%36 = call i8* @malloc(i64 %35)
%37 = bitcast i8* %36 to double*
store double* %37, double** %15
br label %38
38: ; preds = %31, %29
store i32 0, i32* %13
br label %39
39: ; preds = %49, %38
%40 = load i32, i32* %13
%41 = load i32, i32* %9
%42 = icmp ult i32 %40, %41
br i1 %42, label %43, label %52
43: ; preds = %39
%44 = load i32, i32* %13
%45 = load i32*, i32** %14
%46 = load i32, i32* %13
%47 = zext i32 %46 to i64
%48 = getelementptr inbounds i32, i32* %45, i64 %47
store i32 %44, i32* %48
br label %49
49: ; preds = %43
%50 = load i32, i32* %13
%51 = add i32 %50, 1
store i32 %51, i32* %13
br label %39
52: ; preds = %39
%53 = load double*, double** %8
%54 = load double*, double** %15
%55 = load i32*, i32** %14
%56 = load i32, i32* %9
%57 = call i32 (double*, double*, i32*, i32, ...) bitcast (i32 (...)* @lin_hg to i32 (double*, double*, i32*, i32, ...)*)(double* %53, double* %54, i32* %55, i32 %56)
%58 = load double*, double** %15
%59 = load double*, double** %8
%60 = load double*, double** %7
%61 = load double*, double** %10
%62 = load i32, i32* %9
%63 = call i32 (double*, double*, double*, double*, i32, ...) bitcast (i32 (...)* @HDs to i32 (double*, double*, double*, double*, i32, ...)*)(double* %58, double* %59, double* %60, double* %61, i32 %62)
%64 = load i32*, i32** %11
%65 = icmp ne i32* %64, null
br i1 %65, label %69, label %66
66: ; preds = %52
%67 = load i32*, i32** %14
%68 = bitcast i32* %67 to i8*
br label %69
69: ; preds = %66, %52
%70 = load double*, double** %12
%71 = icmp ne double* %70, null
br i1 %71, label %75, label %72
72: ; preds = %69
%73 = load double*, double** %15
%74 = bitcast double* %73 to i8*
br label %75
75: ; preds = %72, %69
ret void
}

LLVM IR (-O2):
define void @dHDs(double* %0, double* %1, i32 %2, double* %3, i32* %4, double* %5) {
%7 = icmp eq i32* %4, null
br i1 %7, label %8, label %13
8: ; preds = %6
%9 = zext i32 %2 to i64
%10 = shl nuw nsw i64 %9, 2
%11 = tail call i8* @malloc(i64 %10)
%12 = bitcast i8* %11 to i32*
br label %13
13: ; preds = %6, %8
%14 = phi i32* [ %12, %8 ], [ %4, %6 ]
%15 = icmp eq double* %5, null
br i1 %15, label %16, label %22
16: ; preds = %13
%17 = mul i32 %2, 18
%18 = zext i32 %17 to i64
%19 = shl nuw nsw i64 %18, 3
%20 = tail call i8* @malloc(i64 %19)
%21 = bitcast i8* %20 to double*
br label %22
22: ; preds = %13, %16
%23 = phi double* [ %21, %16 ], [ %5, %13 ]
%24 = icmp eq i32 %2, 0
br i1 %24, label %98, label %25
25: ; preds = %22
%26 = zext i32 %2 to i64
%27 = icmp ult i32 %2, 8
br i1 %27, label %90, label %28
28: ; preds = %25
%29 = and i64 %26, 4294967288
%30 = add nsw i64 %29, -8
%31 = lshr exact i64 %30, 3
%32 = add nuw nsw i64 %31, 1
%33 = and i64 %32, 3
%34 = icmp ult i64 %30, 24
br i1 %34, label %71, label %35
35: ; preds = %28
%36 = and i64 %32, 4611686018427387900
br label %37
37: ; preds = %37, %35
%38 = phi i64 [ 0, %35 ], [ %67, %37 ]
%39 = phi <4 x i32> [ <i32 0, i32 1, i32 2, i32 3>, %35 ], [ %68, %37 ]
%40 = phi i64 [ 0, %35 ], [ %69, %37 ]
%41 = add <4 x i32> %39, <i32 4, i32 4, i32 4, i32 4>
%42 = getelementptr inbounds i32, i32* %14, i64 %38
%43 = bitcast i32* %42 to <4 x i32>*
store <4 x i32> %39, <4 x i32>* %43
%44 = getelementptr inbounds i32, i32* %42, i64 4
%45 = bitcast i32* %44 to <4 x i32>*
store <4 x i32> %41, <4 x i32>* %45
%46 = or i64 %38, 8
%47 = add <4 x i32> %39, <i32 8, i32 8, i32 8, i32 8>
%48 = add <4 x i32> %39, <i32 12, i32 12, i32 12, i32 12>
%49 = getelementptr inbounds i32, i32* %14, i64 %46
%50 = bitcast i32* %49 to <4 x i32>*
store <4 x i32> %47, <4 x i32>* %50
%51 = getelementptr inbounds i32, i32* %49, i64 4
%52 = bitcast i32* %51 to <4 x i32>*
store <4 x i32> %48, <4 x i32>* %52
%53 = or i64 %38, 16
%54 = add <4 x i32> %39, <i32 16, i32 16, i32 16, i32 16>
%55 = add <4 x i32> %39, <i32 20, i32 20, i32 20, i32 20>
%56 = getelementptr inbounds i32, i32* %14, i64 %53
%57 = bitcast i32* %56 to <4 x i32>*
store <4 x i32> %54, <4 x i32>* %57
%58 = getelementptr inbounds i32, i32* %56, i64 4
%59 = bitcast i32* %58 to <4 x i32>*
store <4 x i32> %55, <4 x i32>* %59
%60 = or i64 %38, 24
%61 = add <4 x i32> %39, <i32 24, i32 24, i32 24, i32 24>
%62 = add <4 x i32> %39, <i32 28, i32 28, i32 28, i32 28>
%63 = getelementptr inbounds i32, i32* %14, i64 %60
%64 = bitcast i32* %63 to <4 x i32>*
store <4 x i32> %61, <4 x i32>* %64
%65 = getelementptr inbounds i32, i32* %63, i64 4
%66 = bitcast i32* %65 to <4 x i32>*
store <4 x i32> %62, <4 x i32>* %66
%67 = add nuw i64 %38, 32
%68 = add <4 x i32> %39, <i32 32, i32 32, i32 32, i32 32>
%69 = add i64 %40, 4
%70 = icmp eq i64 %69, %36
br i1 %70, label %71, label %37
71: ; preds = %37, %28
%72 = phi i64 [ 0, %28 ], [ %67, %37 ]
%73 = phi <4 x i32> [ <i32 0, i32 1, i32 2, i32 3>, %28 ], [ %68, %37 ]
%74 = icmp eq i64 %33, 0
br i1 %74, label %88, label %75
75: ; preds = %71, %75
%76 = phi i64 [ %84, %75 ], [ %72, %71 ]
%77 = phi <4 x i32> [ %85, %75 ], [ %73, %71 ]
%78 = phi i64 [ %86, %75 ], [ 0, %71 ]
%79 = add <4 x i32> %77, <i32 4, i32 4, i32 4, i32 4>
%80 = getelementptr inbounds i32, i32* %14, i64 %76
%81 = bitcast i32* %80 to <4 x i32>*
store <4 x i32> %77, <4 x i32>* %81
%82 = getelementptr inbounds i32, i32* %80, i64 4
%83 = bitcast i32* %82 to <4 x i32>*
store <4 x i32> %79, <4 x i32>* %83
%84 = add nuw i64 %76, 8
%85 = add <4 x i32> %77, <i32 8, i32 8, i32 8, i32 8>
%86 = add i64 %78, 1
%87 = icmp eq i64 %86, %33
br i1 %87, label %88, label %75
88: ; preds = %75, %71
%89 = icmp eq i64 %29, %26
br i1 %89, label %98, label %90
90: ; preds = %25, %88
%91 = phi i64 [ 0, %25 ], [ %29, %88 ]
br label %92
92: ; preds = %90, %92
%93 = phi i64 [ %96, %92 ], [ %91, %90 ]
%94 = getelementptr inbounds i32, i32* %14, i64 %93
%95 = trunc i64 %93 to i32
store i32 %95, i32* %94
%96 = add nuw nsw i64 %93, 1
%97 = icmp eq i64 %96, %26
br i1 %97, label %98, label %92
98: ; preds = %92, %88, %22
%99 = tail call i32 (double*, double*, i32*, i32, ...) bitcast (i32 (...)* @lin_hg to i32 (double*, double*, i32*, i32, ...)*)(double* %1, double* %23, i32* %14, i32 %2)
%100 = tail call i32 (double*, double*, double*, double*, i32, ...) bitcast (i32 (...)* @HDs to i32 (double*, double*, double*, double*, i32, ...)*)(double* %23, double* %1, double* %0, double* %3, i32 %2)
br i1 %7, label %101, label %103
101: ; preds = %98
%102 = bitcast i32* %14 to i8*
tail call void @free(i8* %102)
br label %103
103: ; preds = %101, %98
br i1 %15, label %104, label %106
104: ; preds = %103
%105 = bitcast double* %23 to i8*
tail call void @free(i8* %105)
br label %106
106: ; preds = %104, %103
ret void
}