// File: /workspace/github_c_makefile_star2_O3/johsteffens[P]beth/lib/bcore/bcore.xo.c
// Function: x_btcl_external_function_s_execute
er_t x_btcl_external_function_s_execute( x_btcl_external_function_s* o, const x_source_point_s* sp, x_btcl_frame_s* lexical_frame, const bcore_arr_sr_s* args, sr_s* sr )
{
    // bcore_x_btcl.x:715:5
    
    sr_s_clear(sr);
    if( o->is_mutable )
    {BLM_INIT_LEVEL(1);
        BLM_TRY(x_btcl_a_m_btcl_function(((x_btcl*)BLM_LEVEL_A_PUSH(1,x_btcl_a_clone(o->object))),o->name, sp, lexical_frame, args, sr ))
    BLM_DOWN();}
    else
    {
        BLM_TRY(x_btcl_a_btcl_function(o->object,o->name, sp, lexical_frame, args, sr ))
    }
    return  0;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x68, %rsp
movq %r8, %rbx
movq %rcx, 0x20(%rsp)
movq %rdx, 0x18(%rsp)
movq %rsi, %r12
movq %rdi, %r13
testq %r8, %r8
je 0x8d45c
movq 0x10(%rbx), %rax
movq %rax, 0x40(%rsp)
movups (%rbx), %xmm0
movaps %xmm0, 0x30(%rsp)
testb $0x2, %al
je 0x8d44e
movq 0x40(%rsp), %rax
movq %rax, 0x10(%rsp)
movaps 0x30(%rsp), %xmm0
movups %xmm0, (%rsp)
callq 0x107590
xorps %xmm0, %xmm0
movups %xmm0, (%rbx)
movq $0x0, 0x10(%rbx)
cmpb $0x1, 0x10(%r13)
jne 0x8d551
leaq 0x10e962(%rip), %rax    # 0x19bdd0
movq (%rax), %rsi
leaq 0x30(%rsp), %r14
movq %r14, 0x28(%rsp)
movq %r14, %rdi
callq 0xd6675
movq $0x1, 0x10(%r14)
movq 0x18(%r13), %rbp
testq %rbp, %rbp
je 0x8d623
movq (%rbp), %rsi
movabsq $-0x12565a3dacdb0ecf, %rdi # imm = 0xEDA9A5C25324F131
callq 0x116fb0
movq (%rbp), %r14
leaq 0x10efb2(%rip), %rax    # 0x19c468
movl (%rax), %ecx
movslq %ecx, %rcx
leaq (%rcx,%rcx,2), %rcx
movq 0x20(%rax,%rcx,8), %rdx
movq 0x18(%rax,%rcx,8), %rcx
andq %r14, %rcx
shlq $0x4, %rcx
leaq (%rdx,%rcx), %rax
movq (%rdx,%rcx), %rdx
movl $0x8, %ecx
cmpq %r14, %rdx
je 0x8d50c
movq 0x10(%rax), %rdx
movl $0x18, %ecx
cmpq %r14, %rdx
je 0x8d50c
movq 0x20(%rax), %rdx
movl $0x28, %ecx
cmpq %r14, %rdx
je 0x8d50c
movq 0x30(%rax), %rdx
movl $0x38, %ecx
cmpq %r14, %rdx
jne 0x8d515
movq (%rax,%rcx), %r15
testq %r15, %r15
jne 0x8d53c
movabsq $0x782b96602f424981, %rdi # imm = 0x782B96602F424981
movq %r14, %rsi
callq 0xe9bc5
movq %rax, %r15
leaq 0x10ef37(%rip), %rdi    # 0x19c468
movq %r14, %rsi
movq %rax, %rdx
callq 0x115fac
movq %r15, %rdi
movq %rbp, %rsi
callq *0xc0(%r15)
movq %rax, %rdx
jmp 0x8d625
movq 0x8(%r13), %rbp
movq 0x18(%r13), %r13
movq (%r13), %r14
leaq 0x10cf14(%rip), %rax    # 0x19a478
movl 0x10cf0e(%rip), %ecx    # 0x19a478
movslq %ecx, %rcx
leaq (%rcx,%rcx,2), %rcx
movq 0x20(%rax,%rcx,8), %rdx
movq 0x18(%rax,%rcx,8), %rcx
andq %r14, %rcx
shlq $0x4, %rcx
leaq (%rdx,%rcx), %rax
movq (%rdx,%rcx), %rdx
movl $0x8, %ecx
cmpq %r14, %rdx
je 0x8d5be
movq 0x10(%rax), %rdx
movl $0x18, %ecx
cmpq %r14, %rdx
je 0x8d5be
movq 0x20(%rax), %rdx
movl $0x28, %ecx
cmpq %r14, %rdx
je 0x8d5be
movq 0x30(%rax), %rdx
movl $0x38, %ecx
cmpq %r14, %rdx
jne 0x8d5c7
movq (%rax,%rcx), %r15
testq %r15, %r15
jne 0x8d5ee
movabsq $0x235e6dc4678c61ed, %rdi # imm = 0x235E6DC4678C61ED
movq %r14, %rsi
callq 0xe9bc5
movq %rax, %r15
leaq 0x10ce95(%rip), %rdi    # 0x19a478
movq %r14, %rsi
movq %rax, %rdx
callq 0x115fac
movq %r13, %rdi
movq %rbp, %rsi
movq %r12, %rdx
movq 0x18(%rsp), %rcx
movq 0x20(%rsp), %r8
movq %rbx, %r9
callq *0x18(%r15)
testq %rax, %rax
je 0x8d707
movq %rax, %rbx
leaq 0x10e7b5(%rip), %rax    # 0x19bdd0
movq (%rax), %rdi
jmp 0x8d6f6
xorl %edx, %edx
leaq 0x30(%rsp), %rdi
movl $0x1, %esi
callq 0xd6b17
movq %rax, %rbp
movq 0x8(%r13), %r13
movq (%rax), %r14
leaq 0x10ce33(%rip), %rax    # 0x19a478
movl 0x10ce2d(%rip), %ecx    # 0x19a478
movslq %ecx, %rcx
leaq (%rcx,%rcx,2), %rcx
movq 0x20(%rax,%rcx,8), %rdx
movq 0x18(%rax,%rcx,8), %rcx
andq %r14, %rcx
shlq $0x4, %rcx
leaq (%rdx,%rcx), %rax
movq (%rdx,%rcx), %rdx
movl $0x8, %ecx
cmpq %r14, %rdx
je 0x8d69f
movq 0x10(%rax), %rdx
movl $0x18, %ecx
cmpq %r14, %rdx
je 0x8d69f
movq 0x20(%rax), %rdx
movl $0x28, %ecx
cmpq %r14, %rdx
je 0x8d69f
movq 0x30(%rax), %rdx
movl $0x38, %ecx
cmpq %r14, %rdx
jne 0x8d6a8
movq (%rax,%rcx), %r15
testq %r15, %r15
jne 0x8d6cf
movabsq $0x235e6dc4678c61ed, %rdi # imm = 0x235E6DC4678C61ED
movq %r14, %rsi
callq 0xe9bc5
movq %rax, %r15
leaq 0x10cdb4(%rip), %rdi    # 0x19a478
movq %r14, %rsi
movq %rax, %rdx
callq 0x115fac
movq %rbp, %rdi
movq %r13, %rsi
movq %r12, %rdx
movq 0x18(%rsp), %rcx
movq 0x20(%rsp), %r8
movq %rbx, %r9
callq *0x20(%r15)
testq %rax, %rax
je 0x8d6fd
movq %rax, %rbx
movq 0x28(%rsp), %rdi
callq 0xd6d2c
jmp 0x8d709
leaq 0x28(%rsp), %rdi
callq 0xd6d0d
xorl %ebx, %ebx
movq %rbx, %rax
addq $0x68, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq