// File: /workspace/github_c_makefile_star2_O1/johsteffens[P]beth/lib/bcore/bcore.xo.c
// Function: x_btcl_functor_s_call
er_t x_btcl_functor_s_call( const x_btcl_functor_s* o, sr_s* result )
{
    // bcore_x_btcl_functor.x:224:5
    
    if( !o->op_tree ) return  EM_ERR_fa("Functor has not been set up." );
    if( x_btcl_operator_sr_is_operator(o->op_tree ) )
    {
        BLM_TRY(x_btcl_operator_a_execute(((const x_btcl_operator*)(o->op_tree->o)),result ))
    }
    else
    {
        sr_s_tsc(result,sr_s_type(o->op_tree), ((x_inst*)bcore_fork(o->op_tree->o)) );
    }
    return  0;
}

// Assembly:
movq 0x28(%rdi), %rax
testq %rax, %rax
je 0xa4596
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rsi, %rbx
movq %rdi, %r14
movq (%rax), %r15
testq %r15, %r15
je 0xa4718
movq 0x8(%rax), %rax
testq %rax, %rax
je 0xa45b7
movq 0x8(%rax), %r12
jmp 0xa45ba
leaq 0xa000b(%rip), %rdi     # 0x1445a8
leaq 0x9df12(%rip), %rsi     # 0x1424b6
leaq 0xa0013(%rip), %rcx     # 0x1445be
movl $0x216f, %edx           # imm = 0x216F
xorl %eax, %eax
jmp 0xc8949
xorl %r12d, %r12d
leaq 0x1030cf(%rip), %rbp    # 0x1a7690
movl 0x1030c9(%rip), %eax    # 0x1a7690
cltq
leaq (%rax,%rax,2), %rax
movq 0x20(%rbp,%rax,8), %rcx
movq 0x18(%rbp,%rax,8), %rdx
andq %r12, %rdx
shlq $0x4, %rdx
leaq (%rcx,%rdx), %rax
movq (%rcx,%rdx), %rdx
movl $0x8, %ecx
cmpq %r12, %rdx
je 0xa461e
movq 0x10(%rax), %rdx
movl $0x18, %ecx
cmpq %r12, %rdx
je 0xa461e
movq 0x20(%rax), %rdx
movl $0x28, %ecx
cmpq %r12, %rdx
je 0xa461e
movq 0x30(%rax), %rdx
movl $0x38, %ecx
cmpq %r12, %rdx
jne 0xa477a
movq (%rax,%rcx), %r13
testq %r13, %r13
jne 0xa464e
movabsq $-0x2d60bfcb4cae7a7a, %rdi # imm = 0xD29F4034B3518586
movq %r12, %rsi
callq 0xf3f85
movq %rax, %r13
leaq 0x10304d(%rip), %rdi    # 0x1a7690
movq %r12, %rsi
movq %rax, %rdx
callq 0x12128c
movq %r15, %rdi
callq *0x10(%r13)
testb %al, %al
je 0xa4718
movq 0x28(%r14), %rax
movq (%rax), %r14
movq (%r14), %r15
movl 0x103023(%rip), %eax    # 0x1a7690
cltq
leaq (%rax,%rax,2), %rax
movq 0x20(%rbp,%rax,8), %rcx
movq 0x18(%rbp,%rax,8), %rdx
andq %r15, %rdx
shlq $0x4, %rdx
leaq (%rcx,%rdx), %rax
movq (%rcx,%rdx), %rdx
movl $0x8, %ecx
cmpq %r15, %rdx
je 0xa46c4
movq 0x10(%rax), %rdx
movl $0x18, %ecx
cmpq %r15, %rdx
je 0xa46c4
movq 0x20(%rax), %rdx
movl $0x28, %ecx
cmpq %r15, %rdx
je 0xa46c4
movq 0x30(%rax), %rdx
movl $0x38, %ecx
cmpq %r15, %rdx
jne 0xa4782
movq (%rax,%rcx), %r12
testq %r12, %r12
jne 0xa46f4
movabsq $-0x2d60bfcb4cae7a7a, %rdi # imm = 0xD29F4034B3518586
movq %r15, %rsi
callq 0xf3f85
movq %rax, %r12
leaq 0x102fa7(%rip), %rdi    # 0x1a7690
movq %r15, %rsi
movq %rax, %rdx
callq 0x12128c
movq %r14, %rdi
movq %rbx, %rsi
callq *0x30(%r12)
testq %rax, %rax
je 0xa4766
movq %rax, %rbx
leaq 0x1046c2(%rip), %rax    # 0x1a8dd0
movq (%rax), %rdi
callq 0xe0b30
jmp 0xa4768
movq 0x28(%r14), %rax
testq %rax, %rax
je 0xa4730
movq 0x8(%rax), %rcx
testq %rcx, %rcx
je 0xa4730
movq 0x8(%rcx), %r14
jmp 0xa4733
xorl %r14d, %r14d
movq (%rax), %rdi
callq 0xc8348
movq %rax, %r15
movq %rbx, %rdi
callq 0x112baf
testq %r14, %r14
je 0xa4755
movq %r14, %rdi
callq 0x1123e1
jmp 0xa4757
xorl %eax, %eax
movq %r15, (%rbx)
movq %rax, 0x8(%rbx)
movq $0x3, 0x10(%rbx)
xorl %ebx, %ebx
movq %rbx, %rax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
xorl %r13d, %r13d
jmp 0xa4622
xorl %r12d, %r12d
jmp 0xa46c8