// File: /workspace/github_cpp_makefile_star2_O3/srajangarg[P]raytracer/src/core/mathexpr.cpp
// Function: BCDouble(void (**&)(double*&), void (**)(double*&), void (**)(double*&), double**&, double**, double**, double*&, double*, double*, RFunction**&, RFunction**, RFunction**, void (*)(double*&))
void BCDouble(pfoncld*&pf,pfoncld*pf1,pfoncld*pf2,
	      double**&pv,double**pv1,double**pv2,
	      double*&pp,double*pp1,double*pp2,
	      RFunction**&prf,RFunction**prf1,RFunction**prf2,
	      pfoncld f)
{
  pfoncld*pf3,*pf4=pf1;long n1,n2;
  for(n1=0;*pf4!=NULL;pf4++,n1++){};for(n2=0,pf4=pf2;*pf4!=NULL;pf4++,n2++){};
  pf=new pfoncld[n1+n2+2];
  for(pf3=pf,pf4=pf1;*pf4!=NULL;pf3++,pf4++)*pf3=*pf4;
  for(pf4=pf2;*pf4!=NULL;pf3++,pf4++)*pf3=*pf4;
  *pf3++=f;*pf3=NULL;//delete[]pf1,pf2;
  double**pv3,**pv4=pv1;
  for(n1=0;*pv4!=NULL;pv4++,n1++){};for(n2=0,pv4=pv2;*pv4!=NULL;pv4++,n2++){};
  pv=new double*[n1+n2+1];
  for(pv3=pv,pv4=pv1;*pv4!=NULL;pv3++,pv4++)*pv3=*pv4;
  for(pv4=pv2;*pv4!=NULL;pv3++,pv4++)*pv3=*pv4;
  *pv3=NULL;//delete[]pv1,pv2;
  double*pp3,*pp4=pp1;
  for(n1=0;*pp4!=ErrVal;pp4++,n1++){};for(n2=0,pp4=pp2;*pp4!=ErrVal;pp4++,n2++){};
  pp=new double[n1+n2+1];  // Really need to add and not to take max(n1,n2) in case of Juxt operator
  for(pp3=pp,pp4=pp1;*pp4!=ErrVal;pp3++,pp4++)*pp3=0;
  for(pp4=pp2;*pp4!=ErrVal;pp3++,pp4++)*pp3=0;
  *pp3=ErrVal;//delete[]pp1,pp2;
  PRFunction*prf3,*prf4=prf1;
  for(n1=0;*prf4!=NULL;prf4++,n1++){};for(n2=0,prf4=prf2;*prf4!=NULL;prf4++,n2++){};
  prf=new PRFunction[n1+n2+1];
  for(prf3=prf,prf4=prf1;*prf4!=NULL;prf3++,prf4++)*prf3=*prf4;
  for(prf4=prf2;*prf4!=NULL;prf3++,prf4++)*prf3=*prf4;
  *prf3=NULL;//delete[]prf1,prf2;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %r9, %rbx
movq %r8, %r14
movq %rcx, %r15
movq %rdx, %r12
movq %rsi, %r13
movq %rdi, %rbp
cmpq $0x0, (%rsi)
je 0x13a56
xorl %ecx, %ecx
leaq 0x1(%rcx), %rax
cmpq $0x0, 0x8(%r13,%rcx,8)
movq %rax, %rcx
jne 0x13a45
jmp 0x13a58
xorl %eax, %eax
cmpq $0x0, (%r12)
je 0x13a72
xorl %edx, %edx
leaq 0x1(%rdx), %rcx
cmpq $0x0, 0x8(%r12,%rdx,8)
movq %rcx, %rdx
jne 0x13a61
jmp 0x13a74
xorl %ecx, %ecx
movabsq $0x1ffffffffffffffe, %rdx # imm = 0x1FFFFFFFFFFFFFFE
addq %rax, %rcx
leaq -0x1(%rdx), %rax
cmpq %rax, %rcx
leaq 0x10(,%rcx,8), %rax
movq $-0x1, %rdi
cmovbeq %rax, %rdi
callq 0x4040
movq %rax, (%rbp)
movq (%r13), %rcx
testq %rcx, %rcx
je 0x13ac5
addq $0x8, %r13
movq %rcx, (%rax)
addq $0x8, %rax
movq (%r13), %rcx
addq $0x8, %r13
testq %rcx, %rcx
jne 0x13ab1
movq 0x80(%rsp), %rcx
movq (%r12), %rdx
testq %rdx, %rdx
je 0x13aee
addq $0x8, %r12
movq %rdx, (%rax)
addq $0x8, %rax
movq (%r12), %rdx
addq $0x8, %r12
testq %rdx, %rdx
jne 0x13ada
movq %rcx, (%rax)
movq $0x0, 0x8(%rax)
cmpq $0x0, (%r14)
je 0x13b1c
xorl %ecx, %ecx
movabsq $0x1ffffffffffffffe, %r12 # imm = 0x1FFFFFFFFFFFFFFE
leaq 0x1(%rcx), %rax
cmpq $0x0, 0x8(%r14,%rcx,8)
movq %rax, %rcx
jne 0x13b0b
jmp 0x13b28
xorl %eax, %eax
movabsq $0x1ffffffffffffffe, %r12 # imm = 0x1FFFFFFFFFFFFFFE
cmpq $0x0, (%rbx)
je 0x13b41
xorl %edx, %edx
leaq 0x1(%rdx), %rcx
cmpq $0x0, 0x8(%rbx,%rdx,8)
movq %rcx, %rdx
jne 0x13b30
jmp 0x13b43
xorl %ecx, %ecx
addq %rax, %rcx
cmpq %r12, %rcx
leaq 0x8(,%rcx,8), %rax
movq $-0x1, %rdi
cmovbeq %rax, %rdi
callq 0x4040
movq %rax, (%r15)
movq (%r14), %rcx
testq %rcx, %rcx
je 0x13b83
addq $0x8, %r14
movq %rcx, (%rax)
addq $0x8, %rax
movq (%r14), %rcx
addq $0x8, %r14
testq %rcx, %rcx
jne 0x13b70
movq 0x58(%rsp), %r14
movq (%rbx), %rcx
testq %rcx, %rcx
je 0x13ba7
addq $0x8, %rbx
movq %rcx, (%rax)
addq $0x8, %rax
movq (%rbx), %rcx
addq $0x8, %rbx
testq %rcx, %rcx
jne 0x13b94
movq 0x60(%rsp), %rbx
movq $0x0, (%rax)
movsd (%r14), %xmm0
movsd %xmm0, 0x8(%rsp)
xorl %eax, %eax
ucomisd 0x17ca8(%rip), %xmm0    # 0x2b870
jne 0x13bcc
jnp 0x13be6
movsd 0x17c9c(%rip), %xmm0    # 0x2b870
movsd 0x8(%r14,%rax,8), %xmm1
incq %rax
ucomisd %xmm0, %xmm1
jne 0x13bd4
jp 0x13bd4
movq 0x50(%rsp), %r15
movsd (%rbx), %xmm0
movsd %xmm0, 0x10(%rsp)
xorl %ecx, %ecx
ucomisd 0x17c71(%rip), %xmm0    # 0x2b870
jne 0x13c03
jnp 0x13c1c
movsd 0x17c65(%rip), %xmm0    # 0x2b870
movsd 0x8(%rbx,%rcx,8), %xmm1
incq %rcx
ucomisd %xmm0, %xmm1
jne 0x13c0b
jp 0x13c0b
addq %rax, %rcx
cmpq %r12, %rcx
leaq 0x8(,%rcx,8), %rax
movq $-0x1, %rdi
cmovbeq %rax, %rdi
callq 0x4040
movsd 0x8(%rsp), %xmm0
ucomisd 0x17c28(%rip), %xmm0    # 0x2b870
movq %rax, (%r15)
jne 0x13c4f
jnp 0x13c77
addq $0x8, %r14
movsd 0x17c15(%rip), %xmm0    # 0x2b870
movq $0x0, (%rax)
addq $0x8, %rax
movsd (%r14), %xmm1
addq $0x8, %r14
ucomisd %xmm0, %xmm1
jne 0x13c5b
jp 0x13c5b
movq 0x70(%rsp), %r14
movsd 0x10(%rsp), %xmm0
ucomisd 0x17be6(%rip), %xmm0    # 0x2b870
jne 0x13c8e
jnp 0x13cb5
addq $0x8, %rbx
movsd 0x17bd6(%rip), %xmm0    # 0x2b870
movq $0x0, (%rax)
addq $0x8, %rax
movsd (%rbx), %xmm1
addq $0x8, %rbx
ucomisd %xmm0, %xmm1
jne 0x13c9a
jp 0x13c9a
movq 0x78(%rsp), %rbx
movabsq $0x7fefffffffffffff, %rcx # imm = 0x7FEFFFFFFFFFFFFF
movq %rcx, (%rax)
cmpq $0x0, (%r14)
je 0x13ce0
xorl %ecx, %ecx
leaq 0x1(%rcx), %rax
cmpq $0x0, 0x8(%r14,%rcx,8)
movq %rax, %rcx
jne 0x13ccf
jmp 0x13ce2
xorl %eax, %eax
movq 0x68(%rsp), %r15
cmpq $0x0, (%rbx)
je 0x13d00
xorl %edx, %edx
leaq 0x1(%rdx), %rcx
cmpq $0x0, 0x8(%rbx,%rdx,8)
movq %rcx, %rdx
jne 0x13cef
jmp 0x13d02
xorl %ecx, %ecx
addq %rax, %rcx
cmpq %r12, %rcx
leaq 0x8(,%rcx,8), %rax
movq $-0x1, %rdi
cmovbeq %rax, %rdi
callq 0x4040
movq %rax, (%r15)
movq (%r14), %rcx
testq %rcx, %rcx
je 0x13d42
addq $0x8, %r14
movq %rcx, (%rax)
addq $0x8, %rax
movq (%r14), %rcx
addq $0x8, %r14
testq %rcx, %rcx
jne 0x13d2f
movq (%rbx), %rcx
testq %rcx, %rcx
je 0x13d61
addq $0x8, %rbx
movq %rcx, (%rax)
addq $0x8, %rax
movq (%rbx), %rcx
addq $0x8, %rbx
testq %rcx, %rcx
jne 0x13d4e
movq $0x0, (%rax)
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq