// File: /workspace/github_c_makefile_star2_O2/johsteffens[P]beth/lib/bcore/bcore.xo.c
// Function: x_btcl_frame_s_eval_op_modifier
er_t x_btcl_frame_s_eval_op_modifier( x_btcl_frame_s* o, x_source* source, sr_s* sr )
{
    // bcore_x_btcl_op.x:214:1
    
    (*(sr)) = sr_clone( (*(sr)) );
    
    bl_t do_loop = true;
    while( do_loop )
    {
        if( x_source_parse_bl(source," #=?'.'") )
        {
            sr_s sr_weak = sr_cw( (*(sr)) );
            BLM_TRY(x_btcl_frame_s_eval_op(o,0, source,&( sr_weak )))
        }
        else
        {BLM_INIT_LEVEL(2);
            sr_s* sb = ((sr_s*)BLM_LEVEL_T_PUSH(2,sr_s,sr_s_create()));
            BLM_TRY(x_btcl_frame_s_eval(o,0, source, sb ))
            er_t err = x_btcl_frame_s_generic_copy(o,x_source_point_s_setup_from_source(((x_source_point_s*)BLM_LEVEL_T_PUSH(2,x_source_point_s,x_source_point_s_create())),source ), sr, sb );
            if( err ) {BLM_INIT_LEVEL(3); BLM_RETURNV(er_t, x_source_parse_error_fa(source,"#<sc_t>\n", bcore_error_pop_all_to_st(((st_s*)BLM_LEVEL_T_PUSH(3,st_s,st_s_create())) )->sc )) BLM_DOWN();}
        BLM_DOWN();}
    
        do_loop = false;
    
        if( x_source_parse_bl(source," #?','"  ) ) do_loop = true;
        if( x_source_parse_bl(source," #=?')'" ) ) do_loop = false;
    }
    
    x_stamp_t_mutated(((x_stamp*)(sr->o)),sr_s_type(sr) );
    
    return  0;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x98, %rsp
movq %rdx, %r14
movq %rsi, %rbx
movq %rdi, %r13
movq 0x10(%rdx), %rax
movq %rax, 0x10(%rsp)
movups (%rdx), %xmm0
movups %xmm0, (%rsp)
leaq 0x30(%rsp), %r12
movq %r12, %rdi
callq 0x8cdc6
movq 0x10(%r12), %rax
movq %rax, 0x10(%r14)
movups (%r12), %xmm0
movq %r14, 0x28(%rsp)
movups %xmm0, (%r14)
leaq 0x761b6(%rip), %r15     # 0xb5e69
pushq $0x2
popq %r14
movq %rbx, %rdi
movq %r15, %rsi
callq 0x2ef75
testb %al, %al
je 0x3fd04
movq 0x28(%rsp), %rax
movups (%rax), %xmm0
movaps %xmm0, 0x30(%rsp)
movq 0x10(%rax), %rax
andq $-0x3, %rax
movq %rax, 0x40(%rsp)
movq %r13, %r14
movq %r13, %rdi
xorl %esi, %esi
movq %rbx, %rdx
movq %r12, %rcx
callq 0x3d632
testq %rax, %rax
jne 0x3fe20
movq %r14, %r13
jmp 0x3fdc7
leaq 0xd80c5(%rip), %rax     # 0x117dd0
movq (%rax), %rsi
movq %r12, 0x20(%rsp)
movq %r12, %rdi
callq 0x717f5
movq 0x20(%rsp), %r12
movq $0x2, 0x10(%r12)
xorl %eax, %eax
callq 0x8d285
movq %r12, %rdi
movq %r14, %rsi
movabsq $0x79b76918ff0af12a, %rdx # imm = 0x79B76918FF0AF12A
movq %rax, %rcx
callq 0x71967
movq %rax, %rbp
movq %r13, %rdi
xorl %esi, %esi
movq %rbx, %rdx
movq %rax, %rcx
callq 0x3afac
testq %rax, %rax
jne 0x3fe16
movq %r13, %r15
callq 0x2dde5
movq %r12, %rdi
movq %r14, %rsi
movabsq $0x717ff038b7471b82, %rdx # imm = 0x717FF038B7471B82
movq %rax, %rcx
callq 0x71967
movq %rax, %r12
movq %rax, %rdi
movq %rbx, %rsi
callq 0x3d596
movq %r13, %rdi
movq %r12, %rsi
movq 0x28(%rsp), %rdx
movq %rbp, %rcx
callq 0x3a76e
testq %rax, %rax
jne 0x3fe2f
movq %r15, %r13
leaq 0x20(%rsp), %rdi
callq 0x71b48
leaq 0x30(%rsp), %r12
leaq 0x760a2(%rip), %r15     # 0xb5e69
movq %rbx, %rdi
leaq 0x6c588(%rip), %rsi     # 0xac359
callq 0x2ef75
movl %eax, %ebp
movq %rbx, %rdi
leaq 0x6a70e(%rip), %rsi     # 0xaa4f0
callq 0x2ef75
testb %al, %al
pushq $0x2
popq %r14
jne 0x3fdf8
testb %bpl, %bpl
jne 0x3fcb7
movq 0x28(%rsp), %rax
movq (%rax), %rdi
movq 0x8(%rax), %rax
testq %rax, %rax
je 0x3fe95
movq 0x8(%rax), %rsi
jmp 0x3fe97
movq %rax, %r13
movq 0x20(%rsp), %rdi
jmp 0x3fe8e
movq %rax, %r13
leaq 0xd7fa6(%rip), %rax     # 0x117dd0
movq (%rax), %rdi
jmp 0x3fe8e
movq 0x20(%rsp), %rsi
leaq 0x68(%rsp), %r14
movq %r14, %rdi
callq 0x717f5
movq $0x3, 0x10(%r14)
xorl %eax, %eax
callq 0x8eb65
pushq $0x3
popq %rsi
movabsq $-0x503db0e6e1c2e704, %rdx # imm = 0xAFC24F191E3D18FC
movq %r14, %rdi
movq %rax, %rcx
callq 0x71967
movq %rax, %r15
movq %rax, %rdi
callq 0x6098b
movq 0x8(%r15), %rdx
leaq 0x8c22a(%rip), %rsi     # 0xcc0a8
movq %rbx, %rdi
xorl %eax, %eax
callq 0x3667e
movq %rax, %r13
movq %r14, %rdi
callq 0x71b64
jmp 0x3fe9f
xorl %esi, %esi
callq 0x3705d
xorl %r13d, %r13d
movq %r13, %rax
addq $0x98, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq