// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: d_vid_ok
static bool d_vid_ok(s7_scheme *sc, opt_info *opc, s7_pointer s_func, s7_pointer car_x)
                {
                    if ((is_symbol(cadr(car_x))) &&
                            (is_symbol(caddr(car_x))))
                    {
                        s7_d_vid_t flt;
                        flt = s7_d_vid_function(s_func);
                        if (flt)
                        {
                            s7_pointer sig;
                            opc->v[4].d_vid_f = flt;
                            sig = c_function_signature(s_func);
                            if (is_pair(sig))
                            {
                                int32_t start;
                                s7_pointer vslot;
                                start = sc->pc;
                                vslot = opt_types_match(sc, cadr(sig), cadr(car_x));
                                if (vslot)
                                {
                                    s7_pointer slot;
                                    opc->v[0].fd = opt_d_vid_ssf;
                                    opc->v[1].p = vslot;
                                    slot = opt_integer_symbol(sc, caddr(car_x));
                                    if ((slot) &&
                                            (float_optimize(sc, cdddr(car_x))))
                                    {
                                        opt_info *o2;
                                        opc->v[2].p = slot;
                                        opc->v[5].obj = (void *)c_object_value(slot_value(vslot));
                                        o2 = sc->opts[start];
                                        if (o2->v[0].fd == opt_d_dd_ff_mul1)
                                        {
                                            opt_info *o3;
                                            o3 = sc->opts[start + 2];
                                            if (o3->v[0].fd == opt_d_vd_o1)
                                            {
                                                opt_info *o1;
                                                o1 = sc->opts[start + 4];
                                                if ((o1->v[0].fd == opt_d_dd_ff_o3) &&
                                                        (o1->v[4].d_dd_f == multiply_d_dd) &&
                                                        (o3->v[4].d_dd_f == add_d_dd))
                                                    opc->v[0].fd = opt_fmv;
                                            }
                                        }
                                        return(oo_set_type_2(opc, 6, 1 + (5 << 4), 2, OO_V, OO_I));
                                    }
                                }
                                pc_fallback(sc, start);
                            }}}
                    return(return_false(sc, car_x, __func__, __LINE__));
                }

// Assembly:
subq $0x78, %rsp
movq %rdi, 0x68(%rsp)
movq %rsi, 0x60(%rsp)
movq %rdx, 0x58(%rsp)
movq %rcx, 0x50(%rsp)
movq 0x50(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movzbl (%rax), %eax
cmpl $0xa, %eax
jne 0xe3e00
movq 0x50(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movzbl (%rax), %eax
cmpl $0xa, %eax
jne 0xe3e00
movq 0x58(%rsp), %rdi
callq 0x46ee0
movq %rax, 0x48(%rsp)
cmpq $0x0, 0x48(%rsp)
je 0xe3dfe
movq 0x48(%rsp), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x20(%rax)
movq 0x58(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x38(%rax), %rax
movq %rax, 0x40(%rsp)
movq 0x40(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x1, %eax
jne 0xe3dfc
movq 0x68(%rsp), %rax
movl 0x2258(%rax), %eax
movl %eax, 0x3c(%rsp)
movq 0x68(%rsp), %rdi
movq 0x40(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rsi
movq 0x50(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rdx
callq 0x112c50
movq %rax, 0x30(%rsp)
cmpq $0x0, 0x30(%rsp)
je 0xe3dee
movq 0x60(%rsp), %rax
leaq 0x332c6(%rip), %rcx     # 0x116f30
movq %rcx, (%rax)
movq 0x30(%rsp), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x68(%rsp), %rdi
movq 0x50(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rsi
callq 0xe5260
movq %rax, 0x28(%rsp)
cmpq $0x0, 0x28(%rsp)
je 0xe3dec
movq 0x68(%rsp), %rdi
movq 0x50(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rsi
callq 0x473f0
testb $0x1, %al
jne 0xe3ccb
jmp 0xe3dec
movq 0x28(%rsp), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x10(%rax)
movq 0x30(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x28(%rax)
movq 0x68(%rsp), %rax
movslq 0x3c(%rsp), %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x20(%rsp)
movq 0x20(%rsp), %rax
leaq 0x31b2e(%rip), %rcx     # 0x115840
cmpq %rcx, (%rax)
jne 0xe3dac
movq 0x68(%rsp), %rax
movl 0x3c(%rsp), %ecx
addl $0x2, %ecx
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
leaq 0x324ad(%rip), %rcx     # 0x1161f0
cmpq %rcx, (%rax)
jne 0xe3daa
movq 0x68(%rsp), %rax
movl 0x3c(%rsp), %ecx
addl $0x4, %ecx
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rax
leaq 0x318f0(%rip), %rcx     # 0x115660
cmpq %rcx, (%rax)
jne 0xe3da8
movq 0x10(%rsp), %rax
leaq -0x31101(%rip), %rcx    # 0xb2c80
cmpq %rcx, 0x20(%rax)
jne 0xe3da8
movq 0x18(%rsp), %rax
leaq -0x31153(%rip), %rcx    # 0xb2c40
cmpq %rcx, 0x20(%rax)
jne 0xe3da8
movq 0x60(%rsp), %rax
leaq 0x3321b(%rip), %rcx     # 0x116fc0
movq %rcx, (%rax)
jmp 0xe3daa
jmp 0xe3dac
movq 0x60(%rsp), %rdi
movl $0x6, %esi
movl $0x51, %edx
movl $0x2, %ecx
movl $0x3, %r8d
movl $0x1, %r9d
leaq 0x10b939(%rip), %rax    # 0x1ef70c
movq %rax, (%rsp)
movl $0xe696, 0x8(%rsp)      # imm = 0xE696
callq 0xe54b0
andb $0x1, %al
movb %al, 0x77(%rsp)
jmp 0xe3e05
jmp 0xe3dee
movq 0x68(%rsp), %rdi
movl 0x3c(%rsp), %esi
callq 0xe59a0
jmp 0xe3dfe
jmp 0xe3e00
movb $0x0, 0x77(%rsp)
movb 0x77(%rsp), %al
andb $0x1, %al
addq $0x78, %rsp
retq