// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: d_7pid_ssf_combinable
static bool d_7pid_ssf_combinable(s7_scheme *sc, opt_info *opc)
                {
                    if ((sc->pc > 1) &&
                            (opc == sc->opts[sc->pc - 2]))
                    {
                        opt_info *o1;
                        o1 = sc->opts[sc->pc - 1];
                        if (o1->v[0].fd == opt_d_v)
                        {
                            opc->v[6].p = o1->v[1].p;
                            opc->v[3].obj = o1->v[5].obj;
                            opc->v[5].d_v_f = o1->v[3].d_v_f;
                            opc->v[0].fd = opt_d_7pid_sso;
                            backup_pc(sc);
                            return(oo_set_type_3(opc, 7, 1, 2, 6 + (3 << 4), OO_P, OO_I, OO_V));
                        }
                        if (o1->v[0].fd == opt_d_7pi_ss)
                        {
                            opc->v[3].d_7pi_f = o1->v[3].d_7pi_f;
                            opc->v[5].p = o1->v[1].p;
                            opc->v[6].p = o1->v[2].p;
                            opc->v[0].fd = opt_d_7pid_ss_ss;
                            backup_pc(sc);
                            return(oo_set_type_4(opc, 7, 1, 2, 5, 6, OO_P, OO_I, OO_P, OO_I));
                        }
                        if ((o1->v[0].fd == opt_d_dd_fso) &&
                                (opc->v[1].p == o1->v[2].p))
                        {
                            /* opc: pid_ssf: o->v[4].d_7pid_f(slot_value(o->v[1].p), integer(slot_value(o->v[2].p)), o1->v[0].fd(o1))
                             * o1: d_dd_fso: o->v[4].d_dd_f(o->v[5].d_7pi_f(slot_value(o->v[2].p), integer(slot_value(o->v[3].p))), real(slot_value(o->v[1].p))))
                             */
                            opc->v[6].d_dd_f = o1->v[4].d_dd_f;
                            opc->v[5].d_7pi_f = o1->v[5].d_7pi_f;
                            opc->v[3].p = o1->v[3].p;
                            opc->v[8].p = o1->v[1].p; /* can't use v8 since d_to_p commandeers it */
                            opc->v[0].fd = opt_d_7pid_ssfo;
                            if (((opc->v[5].d_7pi_f == float_vector_ref_unchecked) ||
                                        (opc->v[5].d_7pi_f == float_vector_ref_d_7pi)) &&
                                    ((opc->v[4].d_7pid_f == float_vector_set_unchecked) ||
                                     (opc->v[4].d_7pid_f == float_vector_set_d_7pid)))
                            {
                                opc->v[0].fd = opt_d_7pid_ssfo_fv; /* actually if either is *_d, we need to check the indices */
                                oo_set_type_4(opc, 9, 1, 2, 3, 8, OO_FV, OO_I, OO_I, OO_D);
                            }
                            else oo_set_type_4(opc, 9, 1, 2, 3, 8, OO_P, OO_I, OO_I, OO_D);
                            backup_pc(sc);
                            return(true);
                        }
                    }
                    return(return_false(sc, NULL, __func__, __LINE__));
                }

// Assembly:
subq $0x58, %rsp
movq %rdi, 0x48(%rsp)
movq %rsi, 0x40(%rsp)
movq 0x48(%rsp), %rax
cmpl $0x1, 0x2258(%rax)
jle 0xe58dd
movq 0x40(%rsp), %rax
movq 0x48(%rsp), %rcx
movq 0x48(%rsp), %rdx
movl 0x2258(%rdx), %edx
subl $0x2, %edx
movslq %edx, %rdx
cmpq 0x2260(%rcx,%rdx,8), %rax
jne 0xe58dd
movq 0x48(%rsp), %rax
movq 0x48(%rsp), %rcx
movl 0x2258(%rcx), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rax
leaq 0xb58(%rip), %rcx       # 0xe6100
cmpq %rcx, (%rax)
jne 0xe565a
movq 0x38(%rsp), %rax
movq 0x8(%rax), %rcx
movq 0x40(%rsp), %rax
movq %rcx, 0x30(%rax)
movq 0x38(%rsp), %rax
movq 0x28(%rax), %rcx
movq 0x40(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x38(%rsp), %rax
movq 0x18(%rax), %rcx
movq 0x40(%rsp), %rax
movq %rcx, 0x28(%rax)
movq 0x40(%rsp), %rax
leaq 0xb2d(%rip), %rcx       # 0xe6120
movq %rcx, (%rax)
movq 0x48(%rsp), %rax
movl 0x2258(%rax), %ecx
addl $-0x1, %ecx
movl %ecx, 0x2258(%rax)
movq 0x40(%rsp), %rdi
movl $0x7, %esi
movl $0x1, %edx
movl $0x2, %ecx
movl $0x36, %r8d
xorl %r9d, %r9d
leaq 0x109be6(%rip), %rax    # 0x1ef214
movl $0x1, (%rsp)
movl $0x3, 0x8(%rsp)
movq %rax, 0x10(%rsp)
movl $0xe507, 0x18(%rsp)     # imm = 0xE507
callq 0xe53d0
andb $0x1, %al
movb %al, 0x57(%rsp)
jmp 0xe58e2
movq 0x38(%rsp), %rax
leaq 0xb3a(%rip), %rcx       # 0xe61a0
cmpq %rcx, (%rax)
jne 0xe572d
movq 0x38(%rsp), %rax
movq 0x18(%rax), %rcx
movq 0x40(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x38(%rsp), %rax
movq 0x8(%rax), %rcx
movq 0x40(%rsp), %rax
movq %rcx, 0x28(%rax)
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rcx
movq 0x40(%rsp), %rax
movq %rcx, 0x30(%rax)
movq 0x40(%rsp), %rax
leaq 0xb2f(%rip), %rcx       # 0xe61e0
movq %rcx, (%rax)
movq 0x48(%rsp), %rax
movl 0x2258(%rax), %ecx
addl $-0x1, %ecx
movl %ecx, 0x2258(%rax)
movq 0x40(%rsp), %rdi
movl $0x7, %esi
movl $0x1, %edx
movl $0x2, %ecx
movl $0x5, %r8d
movl $0x6, %r9d
xorl %eax, %eax
leaq 0x109b23(%rip), %rax    # 0x1ef214
movl $0x0, (%rsp)
movl $0x1, 0x8(%rsp)
movl $0x0, 0x10(%rsp)
movl $0x1, 0x18(%rsp)
movq %rax, 0x20(%rsp)
movl $0xe510, 0x28(%rsp)     # imm = 0xE510
callq 0xe6280
andb $0x1, %al
movb %al, 0x57(%rsp)
jmp 0xe58e2
movq 0x38(%rsp), %rax
leaq 0xc07(%rip), %rcx       # 0xe6340
cmpq %rcx, (%rax)
jne 0xe58db
movq 0x40(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x38(%rsp), %rcx
cmpq 0x10(%rcx), %rax
jne 0xe58db
movq 0x38(%rsp), %rax
movq 0x20(%rax), %rcx
movq 0x40(%rsp), %rax
movq %rcx, 0x30(%rax)
movq 0x38(%rsp), %rax
movq 0x28(%rax), %rcx
movq 0x40(%rsp), %rax
movq %rcx, 0x28(%rax)
movq 0x38(%rsp), %rax
movq 0x18(%rax), %rcx
movq 0x40(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x38(%rsp), %rax
movq 0x8(%rax), %rcx
movq 0x40(%rsp), %rax
movq %rcx, 0x40(%rax)
movq 0x40(%rsp), %rax
leaq 0xc02(%rip), %rcx       # 0xe63b0
movq %rcx, (%rax)
movq 0x40(%rsp), %rax
leaq 0xcc3(%rip), %rcx       # 0xe6480
cmpq %rcx, 0x28(%rax)
je 0xe57d9
movq 0x40(%rsp), %rax
leaq -0x3e5df(%rip), %rcx    # 0xa71f0
cmpq %rcx, 0x28(%rax)
jne 0xe5866
movq 0x40(%rsp), %rax
leaq -0x515(%rip), %rcx      # 0xe52d0
cmpq %rcx, 0x20(%rax)
je 0xe57fd
movq 0x40(%rsp), %rax
leaq -0x3e3d7(%rip), %rcx    # 0xa7420
cmpq %rcx, 0x20(%rax)
jne 0xe5866
movq 0x40(%rsp), %rax
leaq 0xca7(%rip), %rcx       # 0xe64b0
movq %rcx, (%rax)
movq 0x40(%rsp), %rdi
movl $0x9, %esi
movl $0x1, %edx
movl $0x2, %ecx
movl $0x3, %r8d
movl $0x8, %r9d
leaq 0x1099e1(%rip), %rax    # 0x1ef214
movl $0x5, (%rsp)
movl $0x1, 0x8(%rsp)
movl $0x1, 0x10(%rsp)
movl $0x2, 0x18(%rsp)
movq %rax, 0x20(%rsp)
movl $0xe523, 0x28(%rsp)     # imm = 0xE523
callq 0xe6280
jmp 0xe58c0
movq 0x40(%rsp), %rdi
movl $0x9, %esi
movl $0x1, %edx
movl $0x2, %ecx
movl $0x3, %r8d
movl $0x8, %r9d
xorl %eax, %eax
leaq 0x109985(%rip), %rax    # 0x1ef214
movl $0x0, (%rsp)
movl $0x1, 0x8(%rsp)
movl $0x1, 0x10(%rsp)
movl $0x2, 0x18(%rsp)
movq %rax, 0x20(%rsp)
movl $0xe525, 0x28(%rsp)     # imm = 0xE525
callq 0xe6280
movq 0x48(%rsp), %rax
movl 0x2258(%rax), %ecx
addl $-0x1, %ecx
movl %ecx, 0x2258(%rax)
movb $0x1, 0x57(%rsp)
jmp 0xe58e2
jmp 0xe58dd
movb $0x0, 0x57(%rsp)
movb 0x57(%rsp), %al
andb $0x1, %al
addq $0x58, %rsp
retq
nopl (%rax)