// File: /workspace/github_c_makefile_star2_O2/BernardTatin[P]s7sh/s7.c
// Function: p_pip_ssf_combinable
static bool p_pip_ssf_combinable(s7_scheme *sc, opt_info *opc, int32_t start)
                {
                    opt_info *o1;
                    if ((sc->pc > 1) &&
                            (opc == sc->opts[sc->pc - 2]))
                    {
                        o1 = sc->opts[sc->pc - 1];
                        if (o1->v[0].fp == opt_p_pi_ss) /* ref for set! as in (set! (var ind) ...) for example */
                        {
                            opt_type_t ref_type, set_type;
                            ref_type = o1->types[0];
                            set_type = opc->types[0];
                            opc->v[5].p_pip_f = opc->v[3].p_pip_f;
                            opc->v[6].p_pi_f = o1->v[3].p_pi_f;
                            opc->v[3].p = o1->v[1].p;
                            opc->v[4].p = o1->v[2].p;
                            opc->v[0].fp = opt_p_pip_sso;
                            backup_pc(sc);
                            return(oo_set_type_4(opc, 7, 1, 2, 3, 4, set_type, OO_I, ref_type, OO_I));
                        }
                        if (o1->v[0].fp == opt_p_p_c)
                        {
                            opc->v[5].p_p_f = o1->v[2].p_p_f;
                            opc->v[4].p = o1->v[1].p;
                            backup_pc(sc);
                            opc->v[0].fp = opt_p_pip_c;
                            return(oo_set_type_2(opc, 6, 1, 2, OO_P, OO_I));
                        }
                    }

                    o1 = sc->opts[start];
                    if (o1->v[0].fp == opt_p_p_f)
                    {
                        opc->v[4].p_p_f = o1->v[2].p_p_f;
                        opc->v[0].fp = opt_p_pip_ssf1;
                        return(oo_set_type_2(opc, 5, 1, 2, OO_P, OO_I));
                    }
                    return(return_false(sc, NULL, __func__, __LINE__));
                }

// Assembly:
movl 0x2258(%rdi), %eax
cmpl $0x2, %eax
jl 0x865c0
leal -0x2(%rax), %ecx
cmpq %rsi, 0x2260(%rdi,%rcx,8)
je 0x8660b
movslq %edx, %rax
movq 0x2260(%rdi,%rax,8), %rax
leaq 0x966(%rip), %rcx       # 0x86f38
cmpq %rcx, (%rax)
je 0x865da
xorl %eax, %eax
retq
movq 0x10(%rax), %rax
movq %rax, 0x20(%rsi)
leaq 0x98b(%rip), %rax       # 0x86f74
movq %rax, (%rsi)
movabsq $0x200000005, %rax      # imm = 0x200000005
movq %rax, 0x60(%rsi)
andl $0x0, 0x70(%rsi)
pushq $0x74
popq %rax
movl $0x1, (%rsi,%rax)
movb $0x1, %al
retq
decl %eax
movq 0x2260(%rdi,%rax,8), %rax
movq (%rax), %rcx
leaq 0x840(%rip), %r8        # 0x86e5f
cmpq %r8, %rcx
je 0x8665c
leaq 0x8b2(%rip), %r8        # 0x86edd
cmpq %r8, %rcx
jne 0x865c0
movq 0x10(%rax), %rcx
movq %rcx, 0x28(%rsi)
movq 0x8(%rax), %rax
movq %rax, 0x20(%rsi)
decl 0x2258(%rdi)
leaq 0x89e(%rip), %rax       # 0x86eeb
movq %rax, (%rsi)
movabsq $0x200000006, %rax      # imm = 0x200000006
jmp 0x865f6
movl 0x70(%rax), %ecx
movl 0x70(%rsi), %edx
movq 0x18(%rsi), %r8
movq %r8, 0x28(%rsi)
movq 0x18(%rax), %r8
movq %r8, 0x30(%rsi)
movq 0x8(%rax), %r8
movq %r8, 0x18(%rsi)
movq 0x10(%rax), %rax
movq %rax, 0x20(%rsi)
leaq 0x7f7(%rip), %rax       # 0x86e80
movq %rax, (%rsi)
decl 0x2258(%rdi)
movl %edx, 0x70(%rsi)
movl $0x1, 0x74(%rsi)
movl %ecx, 0x78(%rsi)
movabsq $0x400000007, %rax      # imm = 0x400000007
movq %rax, 0x60(%rsi)
pushq $0x7c
jmp 0x86600