// File: /workspace/github_c_makefile_star2_O0/johsteffens[P]beth/lib/bcore/bcore.xo.c
// Function: x_btcl_function_s_call_via_evaluation
er_t x_btcl_function_s_call_via_evaluation( x_btcl_function_s* o, x_source* source, x_btcl_frame_s* lexical_frame, sr_s* sr )
{
    // bcore_x_btcl.x:880:1
    BLM_INIT_LEVEL(0);
    bcore_arr_sr_s* arg_list = ((bcore_arr_sr_s*)BLM_LEVEL_T_PUSH(0,bcore_arr_sr_s,bcore_arr_sr_s_create()));
    while( !x_source_eos(source) && !x_source_parse_bl(source," #=?')'" ) )
    {BLM_INIT_LEVEL(1);
        sr_s* sr_arg = ((sr_s*)BLM_LEVEL_T_PUSH(1,sr_s,sr_s_create()));
        BLM_TRY(x_btcl_frame_s_eval(lexical_frame,0, source, sr_arg ))
        sr_s_fork_from(bcore_arr_sr_s_push_sr(arg_list,sr_null() ),sr_arg );
        if( !x_source_parse_bl(source," #=?')'" ) ) BLM_TRY(x_source_parse_fa(source," ," ))
    BLM_DOWN();}
    BLM_RETURNV(er_t, x_btcl_function_s_call(o,x_source_point_s__(((x_source_point_s*)BLM_LEVEL_T_PUSH(0,x_source_point_s,x_source_point_s_create())),source ), lexical_frame, arg_list, sr ))
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x140, %rsp            # imm = 0x140
movq %rdi, -0x10(%rbp)
movq %rsi, -0x18(%rbp)
movq %rdx, -0x20(%rbp)
movq %rcx, -0x28(%rbp)
leaq 0x14e70e(%rip), %rax    # 0x1b2330
movq (%rax), %rax
movq %rax, -0x30(%rbp)
leaq -0x60(%rbp), %rax
movq %rax, -0x68(%rbp)
movq -0x68(%rbp), %rdi
movq -0x30(%rbp), %rsi
callq 0xbfe80
movq -0x68(%rbp), %rax
movq %rax, -0x30(%rbp)
movq -0x30(%rbp), %rax
movq $0x0, 0x10(%rax)
movq -0x30(%rbp), %rax
movq %rax, -0x100(%rbp)
movb $0x0, %al
callq 0x97ba0
movq -0x100(%rbp), %rdi
movq %rax, %rcx
xorl %eax, %eax
movl %eax, %esi
movabsq $-0x78ea303a4f284a4, %rdx # imm = 0xF8715CFC5B0D7B5C
callq 0xc01a0
movq %rax, -0x70(%rbp)
movq -0x18(%rbp), %rdi
callq 0x44f20
movb %al, %cl
xorl %eax, %eax
testb $0x1, %cl
movb %al, -0x101(%rbp)
jne 0x63cb5
movq -0x18(%rbp), %rdi
leaq 0xcfba0(%rip), %rsi     # 0x133848
callq 0x44f40
xorb $-0x1, %al
movb %al, -0x101(%rbp)
movb -0x101(%rbp), %al
testb $0x1, %al
jne 0x63cc4
jmp 0x63e4f
movq -0x68(%rbp), %rax
movq %rax, -0x78(%rbp)
leaq -0xa8(%rbp), %rax
movq %rax, -0xb0(%rbp)
movq -0xb0(%rbp), %rdi
movq -0x78(%rbp), %rsi
callq 0xbfe80
movq -0xb0(%rbp), %rax
movq %rax, -0x78(%rbp)
movq -0x78(%rbp), %rax
movq $0x1, 0x10(%rax)
movq -0x78(%rbp), %rax
movq %rax, -0x110(%rbp)
movb $0x0, %al
callq 0xfbfb0
movq -0x110(%rbp), %rdi
movq %rax, %rcx
movl $0x1, %esi
movabsq $0x79b76918ff0af12a, %rdx # imm = 0x79B76918FF0AF12A
callq 0xc01a0
movq %rax, -0xb8(%rbp)
movq -0x20(%rbp), %rdi
movq -0x18(%rbp), %rdx
movq -0xb8(%rbp), %rcx
xorl %esi, %esi
callq 0x5b950
movq %rax, -0xc0(%rbp)
cmpq $0x0, -0xc0(%rbp)
je 0x63d89
movq -0xc0(%rbp), %rax
movq %rax, -0xc8(%rbp)
movq -0xb0(%rbp), %rdi
callq 0xc0720
movq -0xc8(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0x63ec9
movq -0x70(%rbp), %rax
movq %rax, -0x118(%rbp)
leaq -0xe0(%rbp), %rdi
callq 0x8a380
movq -0x118(%rbp), %rdi
leaq -0xe0(%rbp), %rax
movq (%rax), %rcx
movq %rcx, (%rsp)
movq 0x8(%rax), %rcx
movq %rcx, 0x8(%rsp)
movq 0x10(%rax), %rax
movq %rax, 0x10(%rsp)
callq 0x97f40
movq %rax, %rdi
movq -0xb8(%rbp), %rsi
callq 0xfc070
movq -0x18(%rbp), %rdi
leaq 0xcfa62(%rip), %rsi     # 0x133848
callq 0x44f40
testb $0x1, %al
jne 0x63e3e
movq -0x18(%rbp), %rdi
leaq 0xd069e(%rip), %rsi     # 0x134498
movb $0x0, %al
callq 0x44f70
movq %rax, -0xe8(%rbp)
cmpq $0x0, -0xe8(%rbp)
je 0x63e3c
movq -0xe8(%rbp), %rax
movq %rax, -0xf0(%rbp)
movq -0xb0(%rbp), %rdi
callq 0xc0720
movq -0xf0(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0x63ec9
jmp 0x63e3e
leaq -0xb0(%rbp), %rdi
callq 0xc06e0
jmp 0x63c85
movq -0x10(%rbp), %rax
movq %rax, -0x120(%rbp)
movq -0x30(%rbp), %rax
movq %rax, -0x128(%rbp)
callq 0x42f50
movq -0x128(%rbp), %rdi
movq %rax, %rcx
xorl %eax, %eax
movl %eax, %esi
movabsq $0x717ff038b7471b82, %rdx # imm = 0x717FF038B7471B82
callq 0xc01a0
movq %rax, %rdi
movq -0x18(%rbp), %rsi
callq 0x61ae0
movq -0x120(%rbp), %rdi
movq %rax, %rsi
movq -0x20(%rbp), %rdx
movq -0x70(%rbp), %rcx
movq -0x28(%rbp), %r8
callq 0x680d0
movq %rax, -0xf8(%rbp)
movq -0x68(%rbp), %rdi
callq 0xc0720
movq -0xf8(%rbp), %rax
movq %rax, -0x8(%rbp)
movq -0x8(%rbp), %rax
addq $0x140, %rsp            # imm = 0x140
popq %rbp
retq
nopw %cs:(%rax,%rax)