// File: /workspace/github_c_makefile_star2_O2/BernardTatin[P]s7sh/s7.c
// Function: op_do_no_vars
static bool op_do_no_vars(s7_scheme *sc)
                {
                    s7_pointer p, form;
                    int32_t i;
                    form = sc->code;
                    set_current_code(sc, form);
                    sc->code = cdr(sc->code);
                    sc->pc = 0;
                    reset_opts(sc);
                    for (i = 0, p = cddr(sc->code); is_pair(p); i++, p = cdr(p))
                        if (!cell_optimize(sc, p))
                            break;
                    if (is_null(p))
                    {
                        s7_pointer end;
                        end = cadr(sc->code);
                        new_frame(sc, sc->envir, sc->envir);
                        if (i == 1)
                        {
                            while (true)
                            {
                                sc->value = fx_call(sc, end);
                                if (is_true(sc, sc->value))
                                {
                                    sc->code = cdr(end);
                                    return(true);
                                }
                                sc->pc = 0;
                                sc->opts[0]->v[0].fp(sc->opts[0]);
                            }
                        }
                        else
                        {
                            if (i == 0) /* null body! */
                            {
                                s7_function endf;
                                s7_pointer endp;
                                endf = c_call(end);
                                endp = car(end);
                                while (!is_true(sc, sc->value = endf(sc, endp))); /* the assignment is (normally) in the noise */
                                sc->code = cdr(end);
                                return(true);
                            }
                            while (true)
                            {
                                int32_t k;
                                sc->value = fx_call(sc, end);
                                if (is_true(sc, sc->value))
                                {
                                    sc->code = cdr(end);
                                    return(true);
                                }
                                sc->pc = -1;
                                for (k = 0; k < i; k++)
                                {
                                    opt_info *o;
                                    o = sc->opts[++sc->pc];
                                    o->v[0].fp(o);
                                }
                            }
                        }
                    }
                    /* back out */
                    pair_set_syntax_op(form, OP_DO_NO_VARS_NO_OPT);
                    sc->envir = new_frame_in_env(sc, sc->envir);
                    sc->value = fx_call(sc, cadr(sc->code));
                    if (is_true(sc, sc->value))
                    {
                        sc->code = cdadr(sc->code);
                        return(true);
                    }
                    push_stack_no_args(sc, OP_DO_NO_VARS_NO_OPT_1, sc->code);
                    sc->code = T_Pair(cddr(sc->code));
                    return(false);
                }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
movq %rdi, %rbx
movq (%rdi), %r15
movq %r15, 0x28(%rdi)
movq 0x10(%r15), %rax
movq %rax, (%rdi)
andl $0x0, 0x2258(%rdi)
movq 0x10(%rax), %r14
xorl %ebp, %ebp
movq 0x10(%r14), %r14
cmpb $0x1, (%r14)
jne 0x9c8fe
movq %rbx, %rdi
movq %r14, %rsi
callq 0x80a38
testb %al, %al
je 0x9c8fe
incl %ebp
jmp 0x9c8e1
cmpq 0x110(%rbx), %r14
je 0x9c95c
movw $0x2fb, 0x4(%r15)       # imm = 0x2FB
movw $0x201, (%r15)          # imm = 0x201
movq 0x8(%rbx), %rsi
movq %rbx, %rdi
callq 0x72a1d
movq %rax, 0x8(%rbx)
movq (%rbx), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rsi
movq %rbx, %rdi
callq *0x20(%rax)
movq %rax, 0x20(%rbx)
movq (%rbx), %rcx
cmpq 0x120(%rbx), %rax
setne %al
je 0x9ca43
addq $0x10, %rcx
pushq $0x8
popq %rdx
jmp 0x9ca6d
movq (%rbx), %rcx
movq 0x90(%rbx), %rax
movq 0x10(%rcx), %rcx
movq 0x8(%rcx), %r15
cmpq 0x98(%rbx), %rax
ja 0x9c986
movq %rbx, %rdi
callq 0x9c27
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movq $0x20001c, (%rax)       # imm = 0x20001C
movq 0x250(%rbx), %rcx
incq %rcx
movq %rcx, 0x250(%rbx)
movq %rcx, 0x18(%rax)
andq $0x0, 0x8(%rax)
movq 0x8(%rbx), %rcx
movq %rcx, 0x10(%rax)
movq %rax, 0x8(%rbx)
testl %ebp, %ebp
je 0x9ca76
cmpl $0x1, %ebp
jne 0x9ca29
movq 0x8(%r15), %rsi
movq %rbx, %rdi
callq *0x20(%r15)
movq %rax, 0x20(%rbx)
cmpq 0x120(%rbx), %rax
jne 0x9ca94
andl $0x0, 0x2258(%rbx)
movq 0x2260(%rbx), %rdi
callq *(%rdi)
jmp 0x9c9cf
orl $-0x1, 0x2258(%rbx)
movl %ebp, %r14d
subl $0x1, %r14d
jb 0x9ca29
movslq 0x2258(%rbx), %rax
leal 0x1(%rax), %ecx
movl %ecx, 0x2258(%rbx)
movq 0x2268(%rbx,%rax,8), %rdi
callq *(%rdi)
jmp 0x9ca07
movq 0x8(%r15), %rsi
movq %rbx, %rdi
callq *0x20(%r15)
movq %rax, 0x20(%rbx)
cmpq 0x120(%rbx), %rax
je 0x9c9fd
jmp 0x9ca94
movq 0x50(%rbx), %rdx
movq %rcx, (%rdx)
movq 0x8(%rbx), %rcx
movq 0x50(%rbx), %rdx
movq %rcx, 0x8(%rdx)
movq 0x50(%rbx), %rcx
movq $0x2fc, 0x18(%rcx)      # imm = 0x2FC
addq $0x20, 0x50(%rbx)
pushq $0x10
popq %rdx
movq %rbx, %rcx
movq (%rcx), %rcx
movq (%rcx,%rdx), %r15
jmp 0x9ca96
movq 0x8(%r15), %r14
movq 0x20(%r15), %r12
movq %rbx, %rdi
movq %r14, %rsi
callq *%r12
movq %rax, 0x20(%rbx)
cmpq 0x120(%rbx), %rax
je 0x9ca7e
movb $0x1, %al
movq 0x10(%r15), %rcx
movq %rcx, (%rbx)
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq