// File: /workspace/github_c_makefile_star2_O3/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), %rcx
testq %rcx, %rcx
je 0x9b49a
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rsi, %rbx
movq (%rcx), %r15
testq %r15, %r15
je 0x9b614
movq %rdi, %r14
movq 0x8(%rcx), %rax
testq %rax, %rax
je 0x9b4bb
movq 0x8(%rax), %r12
jmp 0x9b4be
leaq 0x9df7f(%rip), %rdi     # 0x139420
leaq 0x9be86(%rip), %rsi     # 0x13732e
leaq 0x9df87(%rip), %rcx     # 0x139436
movl $0x216f, %edx           # imm = 0x216F
xorl %eax, %eax
jmp 0xbedd5
xorl %r12d, %r12d
leaq 0xff1cb(%rip), %rbp     # 0x19a690
movl 0xff1c5(%rip), %eax     # 0x19a690
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 0x9b51e
movq 0x10(%rax), %rdx
movl $0x18, %ecx
cmpq %r12, %rdx
je 0x9b51e
movq 0x20(%rax), %rdx
movl $0x28, %ecx
cmpq %r12, %rdx
je 0x9b51e
movq 0x30(%rax), %rdx
movl $0x38, %ecx
cmpq %r12, %rdx
jne 0x9b527
movq (%rax,%rcx), %r13
testq %r13, %r13
jne 0x9b54e
movabsq $-0x2d60bfcb4cae7a7a, %rdi # imm = 0xD29F4034B3518586
movq %r12, %rsi
callq 0xe9bc5
movq %rax, %r13
leaq 0xff14d(%rip), %rdi     # 0x19a690
movq %r12, %rsi
movq %rax, %rdx
callq 0x115fac
movq %r15, %rdi
callq *0x10(%r13)
movq 0x28(%r14), %rcx
testb %al, %al
je 0x9b614
movq (%rcx), %r14
movq (%r14), %r15
movl 0xff123(%rip), %eax     # 0x19a690
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 0x9b5c0
movq 0x10(%rax), %rdx
movl $0x18, %ecx
cmpq %r15, %rdx
je 0x9b5c0
movq 0x20(%rax), %rdx
movl $0x28, %ecx
cmpq %r15, %rdx
je 0x9b5c0
movq 0x30(%rax), %rdx
movl $0x38, %ecx
cmpq %r15, %rdx
jne 0x9b5c9
movq (%rax,%rcx), %r12
testq %r12, %r12
jne 0x9b5f0
movabsq $-0x2d60bfcb4cae7a7a, %rdi # imm = 0xD29F4034B3518586
movq %r15, %rsi
callq 0xe9bc5
movq %rax, %r12
leaq 0xff0ab(%rip), %rdi     # 0x19a690
movq %r15, %rsi
movq %rax, %rdx
callq 0x115fac
movq %r14, %rdi
movq %rbx, %rsi
callq *0x30(%r12)
testq %rax, %rax
je 0x9b659
movq %rax, %rbx
leaq 0x1007c6(%rip), %rax    # 0x19bdd0
movq (%rax), %rdi
callq 0xd6d2c
jmp 0x9b65b
movq 0x8(%rcx), %rax
testq %rax, %rax
je 0x9b623
movq 0x8(%rax), %r15
jmp 0x9b626
xorl %r15d, %r15d
movq (%rcx), %rdi
callq 0xbe7e4
movq %rax, %r14
movq %rbx, %rdi
callq 0x107ca9
testq %r15, %r15
je 0x9b648
movq %r15, %rdi
callq 0x1074f1
jmp 0x9b64a
xorl %eax, %eax
movq %r14, (%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