// File: /workspace/github_c_makefile_star2_O0/johsteffens[P]beth/lib/bcore/bcore.xo.c
// Function: x_btcl_functor_f3_s_copy_typed
er_t x_btcl_functor_f3_s_copy_typed( x_btcl_functor_f3_s* o, tp_t type, vc_t src )
{
    // bcore_x_btcl_functor_f3.x:44:5
    
    switch( type )
    {
        case ((tp_t)(TYPEOF_x_btcl_functor_f3_s)): x_btcl_functor_f3_s_copy(o,((const x_btcl_functor_f3_s*)(src)) ); break;
        case ((tp_t)(TYPEOF_x_btcl_functor_s)): BLM_TRY(x_btcl_functor_f3_s_from_functor(o,((const x_btcl_functor_s*)(src)) )) break;
        default:
        {
            if( bcore_tp_is_numeric( type ) )
            {BLM_INIT_LEVEL(4);
                x_btcl_operator_f3_const_nop_s* nop = ((x_btcl_operator_f3_const_nop_s*)BLM_LEVEL_T_PUSH(4,x_btcl_operator_f3_const_nop_s,x_btcl_operator_f3_const_nop_s_create()));
                nop->val = sr_s_to_f3(sr_s_twc( ((sr_s*)BLM_LEVEL_T_PUSH(4,sr_s,sr_s_create())),type, src ));
                x_btcl_operator_f3_a_attach( &(o->op_tree ), (x_btcl_operator_f3*)( ((x_btcl_operator_f3_const_nop_s*)bcore_fork(nop))));
            BLM_DOWN();}
            else
            {
                BLM_TRY(GERR_fa("Cannot convert from #<sc_t>.", bnameof( type ) ))
            }
        }
        break;
    }
    return  0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0xb0, %rsp
movq %rdi, -0x10(%rbp)
movq %rsi, -0x18(%rbp)
movq %rdx, -0x20(%rbp)
movq -0x18(%rbp), %rax
movq %rax, -0x90(%rbp)
movabsq $-0x1c14cd2ad50d125, %rcx # imm = 0xFE3EB32D52AF2EDB
subq %rcx, %rax
je 0x72deb
jmp 0x72dd3
movq -0x90(%rbp), %rax
movabsq $0x73f13731f3140e07, %rcx # imm = 0x73F13731F3140E07
subq %rcx, %rax
je 0x72dfd
jmp 0x72e3e
movq -0x10(%rbp), %rdi
movq -0x20(%rbp), %rsi
callq 0x72b90
jmp 0x72fa0
movq -0x10(%rbp), %rdi
movq -0x20(%rbp), %rsi
callq 0x72fc0
movq %rax, -0x28(%rbp)
cmpq $0x0, -0x28(%rbp)
je 0x72e39
movq -0x28(%rbp), %rax
movq %rax, -0x30(%rbp)
leaq 0x13f50c(%rip), %rax    # 0x1b2330
movq (%rax), %rdi
callq 0xc0720
movq -0x30(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0x72fa8
jmp 0x72fa0
movq -0x18(%rbp), %rdi
callq 0x1117f0
cmpq $0x0, %rax
je 0x72f3d
leaq 0x13f4d8(%rip), %rax    # 0x1b2330
movq (%rax), %rax
movq %rax, -0x38(%rbp)
leaq -0x68(%rbp), %rax
movq %rax, -0x70(%rbp)
movq -0x70(%rbp), %rdi
movq -0x38(%rbp), %rsi
callq 0xbfe80
movq -0x70(%rbp), %rax
movq %rax, -0x38(%rbp)
movq -0x38(%rbp), %rax
movq $0x4, 0x10(%rax)
movq -0x38(%rbp), %rax
movq %rax, -0xa8(%rbp)
callq 0x6e8c0
movq -0xa8(%rbp), %rdi
movq %rax, %rcx
movl $0x4, %esi
movabsq $0x50e723bc207f24dc, %rdx # imm = 0x50E723BC207F24DC
callq 0xc01a0
movq %rax, -0x78(%rbp)
movq -0x38(%rbp), %rax
movq %rax, -0xa0(%rbp)
movb $0x0, %al
callq 0xfbfb0
movq -0xa0(%rbp), %rdi
movq %rax, %rcx
movl $0x4, %esi
movabsq $0x79b76918ff0af12a, %rdx # imm = 0x79B76918FF0AF12A
callq 0xc01a0
movq %rax, %rdi
movq -0x18(%rbp), %rsi
movq -0x20(%rbp), %rdx
callq 0x61710
movq %rax, %rdi
callq 0xfc680
movq -0x78(%rbp), %rax
movsd %xmm0, 0x8(%rax)
movq -0x10(%rbp), %rax
addq $0x28, %rax
movq %rax, -0x98(%rbp)
movq -0x78(%rbp), %rdi
callq 0x9d3d0
movq -0x98(%rbp), %rdi
movq %rax, %rsi
callq 0x70cf0
leaq -0x70(%rbp), %rdi
callq 0xc06e0
jmp 0x72f9e
movq -0x18(%rbp), %rdi
callq 0x44d00
movq %rax, %r8
leaq 0xce315(%rip), %rdi     # 0x141265
leaq 0xcc0b7(%rip), %rsi     # 0x13f00e
movl $0x2193, %edx           # imm = 0x2193
leaq 0xce321(%rip), %rcx     # 0x141284
movb $0x0, %al
callq 0x9e2c0
movq %rax, -0x80(%rbp)
cmpq $0x0, -0x80(%rbp)
je 0x72f9c
movq -0x80(%rbp), %rax
movq %rax, -0x88(%rbp)
leaq 0x13f3a9(%rip), %rax    # 0x1b2330
movq (%rax), %rdi
callq 0xc0720
movq -0x88(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0x72fa8
jmp 0x72f9e
jmp 0x72fa0
movq $0x0, -0x8(%rbp)
movq -0x8(%rbp), %rax
addq $0xb0, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)