// File: 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
movq %rsp, %rbp
subq $0x80, %rsp
movq 0x40(%rbp), %rax
movq 0x38(%rbp), %rax
movq 0x30(%rbp), %rax
movq 0x28(%rbp), %rax
movq 0x20(%rbp), %rax
movq 0x18(%rbp), %rax
movq 0x10(%rbp), %rax
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movq %rdx, -0x18(%rbp)
movq %rcx, -0x20(%rbp)
movq %r8, -0x28(%rbp)
movq %r9, -0x30(%rbp)
movq -0x10(%rbp), %rax
movq %rax, -0x40(%rbp)
movq $0x0, -0x48(%rbp)
movq -0x40(%rbp), %rax
cmpq $0x0, (%rax)
je 0x26825
jmp 0x2680b
movq -0x40(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x40(%rbp)
movq -0x48(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x48(%rbp)
jmp 0x267ff
movq $0x0, -0x50(%rbp)
movq -0x18(%rbp), %rax
movq %rax, -0x40(%rbp)
movq -0x40(%rbp), %rax
cmpq $0x0, (%rax)
je 0x2685b
jmp 0x26841
movq -0x40(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x40(%rbp)
movq -0x50(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x50(%rbp)
jmp 0x26835
movq -0x48(%rbp), %rax
addq -0x50(%rbp), %rax
addq $0x2, %rax
movl $0x8, %ecx
mulq %rcx
movq %rax, %rdi
seto %cl
movq $-0x1, %rax
testb $0x1, %cl
cmovneq %rax, %rdi
callq 0x5050
movq %rax, %rcx
movq -0x8(%rbp), %rax
movq %rcx, (%rax)
movq -0x8(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rax
movq %rax, -0x40(%rbp)
movq -0x40(%rbp), %rax
cmpq $0x0, (%rax)
je 0x268d7
movq -0x40(%rbp), %rax
movq (%rax), %rcx
movq -0x38(%rbp), %rax
movq %rcx, (%rax)
movq -0x38(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x38(%rbp)
movq -0x40(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x40(%rbp)
jmp 0x268a5
movq -0x18(%rbp), %rax
movq %rax, -0x40(%rbp)
movq -0x40(%rbp), %rax
cmpq $0x0, (%rax)
je 0x26911
movq -0x40(%rbp), %rax
movq (%rax), %rcx
movq -0x38(%rbp), %rax
movq %rcx, (%rax)
movq -0x38(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x38(%rbp)
movq -0x40(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x40(%rbp)
jmp 0x268df
movq 0x40(%rbp), %rcx
movq -0x38(%rbp), %rax
movq %rax, %rdx
addq $0x8, %rdx
movq %rdx, -0x38(%rbp)
movq %rcx, (%rax)
movq -0x38(%rbp), %rax
movq $0x0, (%rax)
movq -0x28(%rbp), %rax
movq %rax, -0x60(%rbp)
movq $0x0, -0x48(%rbp)
movq -0x60(%rbp), %rax
cmpq $0x0, (%rax)
je 0x26968
jmp 0x2694e
movq -0x60(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x60(%rbp)
movq -0x48(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x48(%rbp)
jmp 0x26942
movq $0x0, -0x50(%rbp)
movq -0x30(%rbp), %rax
movq %rax, -0x60(%rbp)
movq -0x60(%rbp), %rax
cmpq $0x0, (%rax)
je 0x2699e
jmp 0x26984
movq -0x60(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x60(%rbp)
movq -0x50(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x50(%rbp)
jmp 0x26978
movq -0x48(%rbp), %rax
addq -0x50(%rbp), %rax
addq $0x1, %rax
movl $0x8, %ecx
mulq %rcx
movq %rax, %rdi
seto %cl
movq $-0x1, %rax
testb $0x1, %cl
cmovneq %rax, %rdi
callq 0x5050
movq %rax, %rcx
movq -0x20(%rbp), %rax
movq %rcx, (%rax)
movq -0x20(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x58(%rbp)
movq -0x28(%rbp), %rax
movq %rax, -0x60(%rbp)
movq -0x60(%rbp), %rax
cmpq $0x0, (%rax)
je 0x26a1a
movq -0x60(%rbp), %rax
movq (%rax), %rcx
movq -0x58(%rbp), %rax
movq %rcx, (%rax)
movq -0x58(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x58(%rbp)
movq -0x60(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x60(%rbp)
jmp 0x269e8
movq -0x30(%rbp), %rax
movq %rax, -0x60(%rbp)
movq -0x60(%rbp), %rax
cmpq $0x0, (%rax)
je 0x26a54
movq -0x60(%rbp), %rax
movq (%rax), %rcx
movq -0x58(%rbp), %rax
movq %rcx, (%rax)
movq -0x58(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x58(%rbp)
movq -0x60(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x60(%rbp)
jmp 0x26a22
movq -0x58(%rbp), %rax
movq $0x0, (%rax)
movq 0x18(%rbp), %rax
movq %rax, -0x70(%rbp)
movq $0x0, -0x48(%rbp)
movq -0x70(%rbp), %rax
movsd (%rax), %xmm0
movsd 0x20ed9(%rip), %xmm1    # 0x47958
ucomisd %xmm1, %xmm0
jne 0x26a89
jp 0x26a89
jmp 0x26aa5
jmp 0x26a8b
movq -0x70(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x70(%rbp)
movq -0x48(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x48(%rbp)
jmp 0x26a6f
movq $0x0, -0x50(%rbp)
movq 0x20(%rbp), %rax
movq %rax, -0x70(%rbp)
movq -0x70(%rbp), %rax
movsd (%rax), %xmm0
movsd 0x20e93(%rip), %xmm1    # 0x47958
ucomisd %xmm1, %xmm0
jne 0x26acf
jp 0x26acf
jmp 0x26aeb
jmp 0x26ad1
movq -0x70(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x70(%rbp)
movq -0x50(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x50(%rbp)
jmp 0x26ab5
movq -0x48(%rbp), %rax
addq -0x50(%rbp), %rax
addq $0x1, %rax
movl $0x8, %ecx
mulq %rcx
movq %rax, %rdi
seto %cl
movq $-0x1, %rax
testb $0x1, %cl
cmovneq %rax, %rdi
callq 0x5050
movq %rax, %rcx
movq 0x10(%rbp), %rax
movq %rcx, (%rax)
movq 0x10(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x68(%rbp)
movq 0x18(%rbp), %rax
movq %rax, -0x70(%rbp)
movq -0x70(%rbp), %rax
movsd (%rax), %xmm0
movsd 0x20e13(%rip), %xmm1    # 0x47958
ucomisd %xmm1, %xmm0
jne 0x26b4f
jp 0x26b4f
jmp 0x26b74
movq -0x68(%rbp), %rax
xorps %xmm0, %xmm0
movsd %xmm0, (%rax)
movq -0x68(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x68(%rbp)
movq -0x70(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x70(%rbp)
jmp 0x26b35
movq 0x20(%rbp), %rax
movq %rax, -0x70(%rbp)
movq -0x70(%rbp), %rax
movsd (%rax), %xmm0
movsd 0x20dcc(%rip), %xmm1    # 0x47958
ucomisd %xmm1, %xmm0
jne 0x26b96
jp 0x26b96
jmp 0x26bbb
movq -0x68(%rbp), %rax
xorps %xmm0, %xmm0
movsd %xmm0, (%rax)
movq -0x68(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x68(%rbp)
movq -0x70(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x70(%rbp)
jmp 0x26b7c
movq -0x68(%rbp), %rax
movsd 0x20d91(%rip), %xmm0    # 0x47958
movsd %xmm0, (%rax)
movq 0x30(%rbp), %rax
movq %rax, -0x80(%rbp)
movq $0x0, -0x48(%rbp)
movq -0x80(%rbp), %rax
cmpq $0x0, (%rax)
je 0x26c01
jmp 0x26be7
movq -0x80(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x80(%rbp)
movq -0x48(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x48(%rbp)
jmp 0x26bdb
movq $0x0, -0x50(%rbp)
movq 0x38(%rbp), %rax
movq %rax, -0x80(%rbp)
movq -0x80(%rbp), %rax
cmpq $0x0, (%rax)
je 0x26c37
jmp 0x26c1d
movq -0x80(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x80(%rbp)
movq -0x50(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x50(%rbp)
jmp 0x26c11
movq -0x48(%rbp), %rax
addq -0x50(%rbp), %rax
addq $0x1, %rax
movl $0x8, %ecx
mulq %rcx
movq %rax, %rdi
seto %cl
movq $-0x1, %rax
testb $0x1, %cl
cmovneq %rax, %rdi
callq 0x5050
movq %rax, %rcx
movq 0x28(%rbp), %rax
movq %rcx, (%rax)
movq 0x28(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x78(%rbp)
movq 0x30(%rbp), %rax
movq %rax, -0x80(%rbp)
movq -0x80(%rbp), %rax
cmpq $0x0, (%rax)
je 0x26cb3
movq -0x80(%rbp), %rax
movq (%rax), %rcx
movq -0x78(%rbp), %rax
movq %rcx, (%rax)
movq -0x78(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x78(%rbp)
movq -0x80(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x80(%rbp)
jmp 0x26c81
movq 0x38(%rbp), %rax
movq %rax, -0x80(%rbp)
movq -0x80(%rbp), %rax
cmpq $0x0, (%rax)
je 0x26ced
movq -0x80(%rbp), %rax
movq (%rax), %rcx
movq -0x78(%rbp), %rax
movq %rcx, (%rax)
movq -0x78(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x78(%rbp)
movq -0x80(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x80(%rbp)
jmp 0x26cbb
movq -0x78(%rbp), %rax
movq $0x0, (%rax)
addq $0x80, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)