// File: /workspace/github_c_makefile_star2_O3/johsteffens[P]beth/lib/bcore/bcore.xo.c
// Function: x_btcl_frame_s_eval_op_func_list_unfold_transform
er_t x_btcl_frame_s_eval_op_func_list_unfold_transform( x_btcl_frame_s* o, s2_t op_priority, x_source* source, sr_s* sr )
{
    // bcore_x_btcl_op.x:290:1
    BLM_INIT_LEVEL(0);
    sr_s sb;BLM_T_INIT_SPUSH(sr_s, &sb);; BLM_TRY(x_btcl_frame_s_eval(o,op_priority, source,&( sb )))
    
    if( sr_s_type(sr) == ((tp_t)(TYPEOF_x_btcl_function_s)) && sr_s_type(&(sb)) == ((tp_t)(TYPEOF_x_btcl_list_s)) )
    {BLM_INIT_LEVEL(1);
        x_btcl_function_s* f = ((x_btcl_function_s*)BLM_LEVEL_T_PUSH(1,x_btcl_function_s,((x_btcl_function_s*)bcore_fork(((x_btcl_function_s*)(sr->o))))));
        x_btcl_list_s* list = ((x_btcl_list_s*)BLM_LEVEL_T_PUSH(1,x_btcl_list_s,((x_btcl_list_s*)bcore_fork(((x_btcl_list_s*)(sb.o))))));
        x_btcl_list_s* list_r = ((x_btcl_list_s*)BLM_LEVEL_T_PUSH(1,x_btcl_list_s,x_btcl_list_s_create()));
        x_btcl_list_s_set_size(list_r,x_btcl_list_s_size(list) );
        for(sz_t i = 0; i < x_btcl_list_s_size(list); i++ )
        {BLM_INIT_LEVEL(3);
            if( sr_s_type(&(list->arr.data[ i ])) != ((tp_t)(TYPEOF_x_btcl_list_s)) ) BLM_RETURNV(er_t, x_source_parse_error_fa(source,"Operator '*.:' : List element '#<sz_t>' of type '#<sc_t>' is not a list.\n", i, bnameof( sr_s_type(&(list->arr.data[ i ])) ) ))
            BLM_TRY(x_btcl_function_s_call_via_arg_list(f,x_source_point_s__(((x_source_point_s*)BLM_LEVEL_T_PUSH(3,x_source_point_s,x_source_point_s_create())),source ), o, ((x_btcl_list_s*)(list->arr.data[ i ].o)),&( list_r->arr.data[ i ] )))
        BLM_DOWN();}
    
        sr_s_asm(sr,((x_btcl_list_s*)bcore_fork(list_r)) );
    
        BLM_RETURNV(er_t, 0)
    BLM_DOWN();}
    
    BLM_RETURNV(er_t, x_source_parse_error_fa(source,"Operator #<sc_t> * #<sc_t> is not defined.\n", bnameof( sr_s_o_type(sr) ), bnameof( sr_s_o_type(&(sb)) ) ))
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0xd8, %rsp
movq %rcx, %r14
movq %rdx, %rbx
movl %esi, %ebp
movq %rdi, %r15
leaq 0x1122f9(%rip), %rax    # 0x19bdd0
movq (%rax), %rsi
leaq 0x48(%rsp), %r12
movq %r12, %rdi
callq 0xd6675
movq $0x0, 0x10(%r12)
leaq 0x30(%rsp), %r13
movq %r13, %rdi
callq 0x107c9f
movabsq $0x79b76918ff0af12a, %rsi # imm = 0x79B76918FF0AF12A
movq %r12, %rdi
movq %r13, %rdx
callq 0xd68d9
movq %r15, %rdi
movl %ebp, %esi
movq %rbx, %rdx
movq %r13, %rcx
callq 0x81403
testq %rax, %rax
jne 0x89e06
testq %r14, %r14
je 0x89dc8
movq 0x8(%r14), %rax
testq %rax, %rax
je 0x89dc8
movabsq $-0x19831b480b40fba0, %r13 # imm = 0xE67CE4B7F4BF0460
cmpq %r13, 0x8(%rax)
jne 0x89dcc
movq 0x38(%rsp), %rcx
testq %rcx, %rcx
je 0x89dcc
movabsq $-0x240ec4eb25c1f3e8, %rbp # imm = 0xDBF13B14DA3E0C18
cmpq %rbp, 0x8(%rcx)
jne 0x89dcc
leaq 0x78(%rsp), %r12
leaq 0x48(%rsp), %rsi
movq %r12, %rdi
callq 0xd6675
movq $0x1, 0x10(%r12)
movq (%r14), %rdi
callq 0xbe7e4
movl $0x1, %esi
movq %r12, %rdi
movq %r13, %rdx
movq %rax, %rcx
callq 0xd68a8
movq %rax, 0x28(%rsp)
movq 0x30(%rsp), %rdi
callq 0xbe7e4
movl $0x1, %esi
movq %r12, %rdi
movq %rbp, %rdx
movq %rax, %rcx
callq 0xd68a8
movq %rax, %r13
callq 0x8c302
movl $0x1, %esi
movq %r12, %rdi
movq %rbp, %rdx
movq %rax, %rcx
callq 0xd68a8
movq 0x18(%r13), %rsi
movq %rax, 0x10(%rsp)
leaq 0x8(%rax), %rdi
callq 0xbb055
cmpq $0x0, 0x18(%r13)
jle 0x89da4
movq $0x0, (%rsp)
xorl %eax, %eax
movq %r13, 0x20(%rsp)
movq %rax, 0x18(%rsp)
leaq 0xa8(%rsp), %rdi
movq %rdi, 0x8(%rsp)
leaq 0x78(%rsp), %rsi
callq 0xd6675
movq 0x8(%rsp), %r12
movq $0x3, 0x10(%r12)
movq 0x10(%r13), %rax
testq %rax, %rax
je 0x89e28
movq (%rsp), %rcx
movq 0x8(%rax,%rcx), %rax
testq %rax, %rax
je 0x89e28
cmpq %rbp, 0x8(%rax)
jne 0x89e4c
callq 0x5475f
movl $0x3, %esi
movq %r12, %rdi
movabsq $0x717ff038b7471b82, %rdx # imm = 0x717FF038B7471B82
movq %rax, %rcx
callq 0xd68a8
movq %rax, %r13
leaq 0x8(%rax), %r12
movq %rbx, %rdi
callq 0xbe7e4
movq %r12, %rdi
movq %rax, %rsi
callq 0x6475d
movq (%rbx), %rbp
leaq 0x11301c(%rip), %rdx    # 0x19ccc8
movl (%rdx), %eax
cltq
leaq (%rax,%rax,2), %rax
movq 0x20(%rdx,%rax,8), %rcx
movq 0x18(%rdx,%rax,8), %rdx
andq %rbp, %rdx
shlq $0x4, %rdx
leaq (%rcx,%rdx), %rax
movq (%rcx,%rdx), %rdx
movl $0x8, %ecx
cmpq %rbp, %rdx
je 0x89d01
movq 0x10(%rax), %rdx
movl $0x18, %ecx
cmpq %rbp, %rdx
je 0x89d01
movq 0x20(%rax), %rdx
movl $0x28, %ecx
cmpq %rbp, %rdx
je 0x89d01
movq 0x30(%rax), %rdx
movl $0x38, %ecx
cmpq %rbp, %rdx
jne 0x89d0a
movq (%rax,%rcx), %r12
testq %r12, %r12
jne 0x89d31
movabsq $-0x7e8ee9b9b4bbaa8, %rdi # imm = 0xF817116464B44558
movq %rbp, %rsi
callq 0xe9bc5
movq %rax, %r12
leaq 0x112fa2(%rip), %rdi    # 0x19ccc8
movq %rbp, %rsi
movq %rax, %rdx
callq 0x115fac
movq %r12, %rdi
movq %rbx, %rsi
callq 0xffe72
movq %rax, 0x10(%r13)
movq %r13, %rsi
movq 0x20(%rsp), %r13
movq 0x10(%r13), %rax
movq (%rsp), %rbp
movq (%rax,%rbp), %rcx
movq 0x10(%rsp), %rax
movq 0x10(%rax), %r8
addq %rbp, %r8
movq 0x28(%rsp), %rdi
movq %r15, %rdx
callq 0x89580
testq %rax, %rax
jne 0x89e6e
leaq 0x8(%rsp), %rdi
callq 0xd6d0d
movq 0x18(%rsp), %rax
incq %rax
addq $0x18, %rbp
movq %rbp, (%rsp)
cmpq 0x18(%r13), %rax
movabsq $-0x240ec4eb25c1f3e8, %rbp # imm = 0xDBF13B14DA3E0C18
jl 0x89c16
movq 0x10(%rsp), %rdi
callq 0xbe7e4
movq %rax, %rbx
movq %r14, %rdi
callq 0x107ca9
testq %rbx, %rbx
je 0x89e2c
movq (%rbx), %rdi
callq 0x1074f1
jmp 0x89e2e
xorl %edi, %edi
jmp 0x89dd0
movq 0x8(%rax), %rdi
callq 0xd6ec4
movq %rax, %r14
movq 0x38(%rsp), %rax
testq %rax, %rax
je 0x89de8
movq 0x8(%rax), %rdi
jmp 0x89dea
xorl %edi, %edi
callq 0xd6ec4
leaq 0xaec4f(%rip), %rsi     # 0x138a45
movq %rbx, %rdi
movq %r14, %rdx
movq %rax, %rcx
xorl %eax, %eax
callq 0x71189
movq %rax, %r12
leaq 0x48(%rsp), %rdi
callq 0xd6d2c
movq %r12, %rax
addq $0xd8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
xorl %edi, %edi
jmp 0x89e50
xorl %eax, %eax
movq %rbx, (%r14)
movq %rax, 0x8(%r14)
movq $0x2, 0x10(%r14)
leaq 0x78(%rsp), %rdi
callq 0xd6d2c
xorl %r12d, %r12d
jmp 0x89e13
movq 0x8(%rax), %rdi
callq 0xd6ec4
leaq 0xaec3d(%rip), %rsi     # 0x138a99
movq %rbx, %rdi
movq 0x18(%rsp), %rdx
movq %rax, %rcx
xorl %eax, %eax
callq 0x71189
movq %rax, %r12
movq 0x8(%rsp), %rdi
jmp 0x89e0e