LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: opt_p_call_any
static s7_pointer opt_p_call_any(opt_info *o)
                {
                    s7_pointer arg, val;
                    int32_t i;
                    s7_scheme *sc;
                    sc = o->sc;
                    oo_rc(sc, o, 3, 0);
                    val = safe_list_if_possible(sc, o->v[1].i);
                    if (in_heap(val))
                        gc_protect_direct(sc, val);
                    for (i = 0, arg = val; i < o->v[1].i; i++, arg = cdr(arg))
                    {
                        opt_info *o1;
                        o1 = sc->opts[++sc->pc];
                        set_car(arg, o1->v[0].fp(o1));
                    }
                    arg = o->v[2].call(sc, val);
                    if (in_heap(val))
                        sc->stack_end -= 4;
                    else
                    {
                        clear_type_bit(T_Pair(val), T_LIST_IN_USE);
                        sc->current_safe_list = 0;
                    }
                    return(arg);
                }

// Assembly:
subq $0x38, %rsp
movq %rdi, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq 0x68(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rdi
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rsi
callq 0x101200
movq %rax, 0x20(%rsp)
movq 0x20(%rsp), %rax
movzwl 0x6(%rax), %eax
andl $0x4000, %eax           # imm = 0x4000
cmpl $0x0, %eax
jne 0x101111
movq 0x10(%rsp), %rdi
movq 0x20(%rsp), %rsi
callq 0xfd720
movl $0x0, 0x1c(%rsp)
movq 0x20(%rsp), %rax
movq %rax, 0x28(%rsp)
movslq 0x1c(%rsp), %rax
movq 0x30(%rsp), %rcx
cmpq 0x8(%rcx), %rax
jge 0x101192
movq 0x10(%rsp), %rax
movq 0x10(%rsp), %rdx
movl 0x2258(%rdx), %ecx
addl $0x1, %ecx
movl %ecx, 0x2258(%rdx)
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movq (%rax), %rax
movq 0x8(%rsp), %rdi
callq *%rax
movq %rax, %rcx
movq 0x28(%rsp), %rax
movq %rcx, 0x8(%rax)
movl 0x1c(%rsp), %eax
addl $0x1, %eax
movl %eax, 0x1c(%rsp)
movq 0x28(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x28(%rsp)
jmp 0x101123
movq 0x30(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rsp), %rdi
movq 0x20(%rsp), %rsi
callq *%rax
movq %rax, 0x28(%rsp)
movq 0x20(%rsp), %rax
movzwl 0x6(%rax), %eax
andl $0x4000, %eax           # imm = 0x4000
cmpl $0x0, %eax
jne 0x1011d2
movq 0x10(%rsp), %rax
movq 0x50(%rax), %rcx
addq $-0x20, %rcx
movq %rcx, 0x50(%rax)
jmp 0x1011f3
movq 0x20(%rsp), %rax
movq (%rax), %rcx
andq $-0x401, %rcx           # imm = 0xFBFF
movq %rcx, (%rax)
movq 0x10(%rsp), %rax
movl $0x0, 0x2138(%rax)
movq 0x28(%rsp), %rax
addq $0x38, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: safe_list_if_possible
static inline s7_pointer safe_list_if_possible(s7_scheme *sc, s7_int num_args)
                {
                    if ((num_args < NUM_SAFE_PRELISTS) &&
                            (!list_is_in_use(sc->safe_lists[num_args])))
                    {
                        sc->current_safe_list = num_args;
                        set_list_in_use(sc->safe_lists[num_args]);
                        return(sc->safe_lists[num_args]);
                    }
                    return(make_safe_list(sc, num_args));
                }

// Assembly:
subq $0x18, %rsp
movq %rdi, 0x8(%rsp)
movq %rsi, (%rsp)
cmpq $0x8, (%rsp)
jge 0x101279
movq 0x8(%rsp), %rax
movq (%rsp), %rcx
movq 0x1f38(%rax,%rcx,8), %rax
movzwl (%rax), %eax
andl $0x400, %eax            # imm = 0x400
cmpl $0x0, %eax
jne 0x101279
movq (%rsp), %rax
movl %eax, %ecx
movq 0x8(%rsp), %rax
movl %ecx, 0x2138(%rax)
movq 0x8(%rsp), %rax
movq (%rsp), %rcx
movq 0x1f38(%rax,%rcx,8), %rax
movq (%rax), %rcx
orq $0x400, %rcx            # imm = 0x400
movq %rcx, (%rax)
movq 0x8(%rsp), %rax
movq (%rsp), %rcx
movq 0x1f38(%rax,%rcx,8), %rax
movq %rax, 0x10(%rsp)
jmp 0x10128c
movq 0x8(%rsp), %rdi
movq (%rsp), %rsi
callq 0x1012a0
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rax
addq $0x18, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: make_safe_list
static s7_pointer make_safe_list(s7_scheme *sc, s7_int num_args)
                {
                    if (num_args < NUM_SAFE_LISTS)
                    {
                        sc->current_safe_list = num_args;
                        if (!is_pair(sc->safe_lists[num_args]))
                            sc->safe_lists[num_args] = permanent_list(sc, num_args);
                        if (!list_is_in_use(sc->safe_lists[num_args]))
                        {
                            set_list_in_use(sc->safe_lists[num_args]);
                            return(sc->safe_lists[num_args]);
                        }
                    }
                    return(make_big_list(sc, num_args, sc->nil));
                }

// Assembly:
subq $0x18, %rsp
movq %rdi, 0x8(%rsp)
movq %rsi, (%rsp)
cmpq $0x40, (%rsp)
jge 0x10135a
movq (%rsp), %rax
movl %eax, %ecx
movq 0x8(%rsp), %rax
movl %ecx, 0x2138(%rax)
movq 0x8(%rsp), %rax
movq (%rsp), %rcx
movq 0x1f38(%rax,%rcx,8), %rax
movzbl (%rax), %eax
cmpl $0x1, %eax
je 0x101304
movq 0x8(%rsp), %rdi
movq (%rsp), %rsi
callq 0x2d950
movq %rax, %rdx
movq 0x8(%rsp), %rax
movq (%rsp), %rcx
movq %rdx, 0x1f38(%rax,%rcx,8)
movq 0x8(%rsp), %rax
movq (%rsp), %rcx
movq 0x1f38(%rax,%rcx,8), %rax
movzwl (%rax), %eax
andl $0x400, %eax            # imm = 0x400
cmpl $0x0, %eax
jne 0x101358
movq 0x8(%rsp), %rax
movq (%rsp), %rcx
movq 0x1f38(%rax,%rcx,8), %rax
movq (%rax), %rcx
orq $0x400, %rcx            # imm = 0x400
movq %rcx, (%rax)
movq 0x8(%rsp), %rax
movq (%rsp), %rcx
movq 0x1f38(%rax,%rcx,8), %rax
movq %rax, 0x10(%rsp)
jmp 0x10137b
jmp 0x10135a
movq 0x8(%rsp), %rdi
movq (%rsp), %rax
movl %eax, %esi
movq 0x8(%rsp), %rax
movq 0x110(%rax), %rdx
callq 0xd7c20
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rax
addq $0x18, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: g_symbol_to_string_uncopied
static s7_pointer g_symbol_to_string_uncopied(s7_scheme *sc, s7_pointer args)
    {
        s7_pointer sym;

        sym = car(args);
        if (!is_symbol(sym))
            return(method_or_bust_one_arg(sc, sym, sc->symbol_to_string_symbol, args, T_SYMBOL));
        if (is_gensym(sym))
            return(make_string_with_length(sc, symbol_name(sym), symbol_name_length(sym)));    /* return a copy of gensym name (which will be freed) */
        return(symbol_name_cell(sym));
    }

// Assembly:
subq $0x28, %rsp
movq %rdi, 0x18(%rsp)
movq %rsi, 0x10(%rsp)
movq 0x10(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movzbl (%rax), %eax
cmpl $0xa, %eax
je 0x1019d6
movq 0x18(%rsp), %rdi
movq 0x8(%rsp), %rsi
movq 0x18(%rsp), %rax
movq 0x15c0(%rax), %rdx
movq 0x10(%rsp), %rcx
movl $0xa, %r8d
callq 0xcfd30
movq %rax, 0x20(%rsp)
jmp 0x101a23
movq 0x8(%rsp), %rax
movq (%rax), %rax
andq $0x20000000, %rax       # imm = 0x20000000
cmpq $0x0, %rax
je 0x101a15
movq 0x18(%rsp), %rdi
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rsi
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rdx
callq 0x144d0
movq %rax, 0x20(%rsp)
jmp 0x101a23
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x20(%rsp)
movq 0x20(%rsp), %rax
addq $0x28, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: symbol_to_string_uncopied_p
static s7_pointer symbol_to_string_uncopied_p(s7_scheme *sc, s7_pointer sym)
    {
        if (!is_symbol(sym))
            simple_wrong_type_argument(sc, sc->symbol_to_string_symbol, sym, T_SYMBOL);
        if (is_gensym(sym))
            return(make_string_with_length(sc, symbol_name(sym), symbol_name_length(sym)));
        return(symbol_name_cell(sym));
    }

// Assembly:
subq $0x18, %rsp
movq %rdi, 0x8(%rsp)
movq %rsi, (%rsp)
movq (%rsp), %rax
movzbl (%rax), %eax
cmpl $0xa, %eax
je 0x101a7a
movq 0x8(%rsp), %rdi
movq 0x8(%rsp), %rax
movq 0x15c0(%rax), %rax
movq 0x8(%rax), %rsi
movq (%rsp), %rdx
movq 0x8(%rsp), %rax
movq 0x140(%rax), %rcx
movq 0x118b6b(%rip), %r8     # 0x21a5e0
callq 0x14a60
movq (%rsp), %rax
movq (%rax), %rax
andq $0x20000000, %rax       # imm = 0x20000000
cmpq $0x0, %rax
je 0x101ab6
movq 0x8(%rsp), %rdi
movq (%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rsi
movq (%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rdx
callq 0x144d0
movq %rax, 0x10(%rsp)
jmp 0x101ac3
movq (%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rax
addq $0x18, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: p_p_f_combinable
static bool p_p_f_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].fp == opt_p_p_s)
                        {
                            opc->v[3].p_p_f = o1->v[2].p_p_f;
                            opc->v[1].p = o1->v[1].p;
                            opc->v[0].fp = opt_p_p_f1;
                            backup_pc(sc);
                            return(oo_set_type_1(opc, 4, 1, OO_P));
                        }
                    }
                    return(return_false(sc, NULL, __func__, __LINE__));
                }

// Assembly:
subq $0x28, %rsp
movq %rdi, 0x18(%rsp)
movq %rsi, 0x10(%rsp)
movq 0x18(%rsp), %rax
cmpl $0x1, 0x2258(%rax)
jle 0x101bc1
movq 0x10(%rsp), %rax
movq 0x18(%rsp), %rcx
movq 0x18(%rsp), %rdx
movl 0x2258(%rdx), %edx
subl $0x2, %edx
movslq %edx, %rdx
cmpq 0x2260(%rcx,%rdx,8), %rax
jne 0x101bc1
movq 0x18(%rsp), %rax
movq 0x18(%rsp), %rcx
movl 0x2258(%rcx), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
leaq -0x5f78(%rip), %rcx     # 0xfbbd0
cmpq %rcx, (%rax)
jne 0x101bbf
movq 0x8(%rsp), %rax
movq 0x10(%rax), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x10(%rsp), %rax
leaq 0x1b3(%rip), %rcx       # 0x101d30
movq %rcx, (%rax)
movq 0x18(%rsp), %rax
movl 0x2258(%rax), %ecx
addl $-0x1, %ecx
movl %ecx, 0x2258(%rax)
movq 0x10(%rsp), %rdi
movl $0x4, %esi
movl $0x1, %edx
xorl %ecx, %ecx
leaq 0xed892(%rip), %r8      # 0x1ef43e
movl $0xebf2, %r9d           # imm = 0xEBF2
callq 0xe4950
andb $0x1, %al
movb %al, 0x27(%rsp)
jmp 0x101bc6
jmp 0x101bc1
movb $0x0, 0x27(%rsp)
movb 0x27(%rsp), %al
andb $0x1, %al
addq $0x28, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: opt_p_ii_ff
static s7_pointer opt_p_ii_ff(opt_info *o)
                {
                    opt_info *o1;
                    s7_int i1;
                    s7_scheme *sc;
                    sc = o->sc;
                    oo_rc(sc, o, 4, 0);
                    o1 = sc->opts[++sc->pc];
                    i1 = o1->v[0].fi(o1);
                    o1 = sc->opts[++sc->pc];
                    return(o->v[3].p_ii_f(sc, i1, o1->v[0].fi(o1)));
                }

// Assembly:
subq $0x38, %rsp
movq %rdi, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq 0x68(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
movq 0x18(%rsp), %rdx
movl 0x2258(%rdx), %ecx
addl $0x1, %ecx
movl %ecx, 0x2258(%rdx)
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x28(%rsp), %rdi
callq *%rax
movq %rax, 0x20(%rsp)
movq 0x18(%rsp), %rax
movq 0x18(%rsp), %rdx
movl 0x2258(%rdx), %ecx
addl $0x1, %ecx
movl %ecx, 0x2258(%rdx)
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x28(%rsp)
movq 0x30(%rsp), %rax
movq 0x18(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x18(%rsp), %rax
movq %rax, (%rsp)
movq 0x20(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x28(%rsp), %rdi
callq *%rax
movq (%rsp), %rdi
movq 0x8(%rsp), %rsi
movq %rax, %rdx
movq 0x10(%rsp), %rax
callq *%rax
addq $0x38, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: p_pi_fc_combinable
static bool p_pi_fc_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].fp == opt_p_p_s)
                        {
                            opc->v[4].p_p_f = o1->v[2].p_p_f;
                            opc->v[1].p = o1->v[1].p;
                            opc->v[0].fp = opt_p_pi_fco;
                            backup_pc(sc);
                            return(oo_set_type_1(opc, 5, 1, OO_P));
                        }
                    }
                    return(return_false(sc, NULL, __func__, __LINE__));
                }

// Assembly:
subq $0x28, %rsp
movq %rdi, 0x18(%rsp)
movq %rsi, 0x10(%rsp)
movq 0x18(%rsp), %rax
cmpl $0x1, 0x2258(%rax)
jle 0x102361
movq 0x10(%rsp), %rax
movq 0x18(%rsp), %rcx
movq 0x18(%rsp), %rdx
movl 0x2258(%rdx), %edx
subl $0x2, %edx
movslq %edx, %rdx
cmpq 0x2260(%rcx,%rdx,8), %rax
jne 0x102361
movq 0x18(%rsp), %rax
movq 0x18(%rsp), %rcx
movl 0x2258(%rcx), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
leaq -0x6718(%rip), %rcx     # 0xfbbd0
cmpq %rcx, (%rax)
jne 0x10235f
movq 0x8(%rsp), %rax
movq 0x10(%rax), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x20(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x10(%rsp), %rax
leaq 0x253(%rip), %rcx       # 0x102570
movq %rcx, (%rax)
movq 0x18(%rsp), %rax
movl 0x2258(%rax), %ecx
addl $-0x1, %ecx
movl %ecx, 0x2258(%rax)
movq 0x10(%rsp), %rdi
movl $0x5, %esi
movl $0x1, %edx
xorl %ecx, %ecx
leaq 0xed128(%rip), %r8      # 0x1ef474
movl $0xedd2, %r9d           # imm = 0xEDD2
callq 0xe4950
andb $0x1, %al
movb %al, 0x27(%rsp)
jmp 0x102366
jmp 0x102361
movb $0x0, 0x27(%rsp)
movb 0x27(%rsp), %al
andb $0x1, %al
addq $0x28, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: opt_p_call_sf
static s7_pointer opt_p_call_sf(opt_info *o)
                {
                    opt_info *o1;
                    s7_pointer po1;
                    s7_scheme *sc;
                    sc = o->sc;
                    o1 = sc->opts[++sc->pc];
                    po1 = o1->v[0].fp(o1);
                    oo_rc(sc, o, 4, 1);
                    return(o->v[3].call(sc, set_plist_2(sc, slot_value(o->v[1].p), po1)));
                }

// Assembly:
subq $0x38, %rsp
movq %rdi, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq 0x68(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
movq 0x18(%rsp), %rdx
movl 0x2258(%rdx), %ecx
addl $0x1, %ecx
movl %ecx, 0x2258(%rdx)
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x28(%rsp), %rdi
callq *%rax
movq %rax, 0x20(%rsp)
movq 0x30(%rsp), %rax
movq 0x18(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x18(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x18(%rsp), %rdi
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rsi
movq 0x20(%rsp), %rdx
callq 0x36f70
movq 0x8(%rsp), %rdi
movq %rax, %rsi
movq 0x10(%rsp), %rax
callq *%rax
addq $0x38, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: opt_p_call_ff
static s7_pointer opt_p_call_ff(opt_info *o)
                {
                    opt_info *o1;
                    s7_pointer po2;
                    s7_scheme *sc;

                    sc = o->sc;
#if S7_DEBUGGING
                    if (sc->stack_end >= sc->stack_resize_trigger) fprintf(stderr, "%s[%d]: skipped stack resize\n", __func__, __LINE__);
#endif
                    oo_rc(sc, o, 4, 0);
                    o1 = sc->opts[++sc->pc];
                    gc_protect_direct(sc, o1->v[0].fp(o1));
                    o1 = sc->opts[++sc->pc];
                    po2 = o1->v[0].fp(o1);
                    po2 = o->v[3].call(sc, set_plist_2(sc, sc->stack_end[-2], po2));
                    sc->stack_end -= 4;
                    return(po2);
                }

// Assembly:
subq $0x38, %rsp
movq %rdi, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq 0x68(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
movq 0x18(%rsp), %rdx
movl 0x2258(%rdx), %ecx
addl $0x1, %ecx
movl %ecx, 0x2258(%rdx)
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x28(%rsp)
movq 0x18(%rsp), %rax
movq %rax, (%rsp)
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x28(%rsp), %rdi
callq *%rax
movq (%rsp), %rdi
movq %rax, %rsi
callq 0xfd720
movq 0x18(%rsp), %rax
movq 0x18(%rsp), %rdx
movl 0x2258(%rdx), %ecx
addl $0x1, %ecx
movl %ecx, 0x2258(%rdx)
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x28(%rsp), %rdi
callq *%rax
movq %rax, 0x20(%rsp)
movq 0x30(%rsp), %rax
movq 0x18(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x18(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x18(%rsp), %rdi
movq 0x18(%rsp), %rax
movq 0x50(%rax), %rax
movq -0x10(%rax), %rsi
movq 0x20(%rsp), %rdx
callq 0x36f70
movq 0x8(%rsp), %rdi
movq %rax, %rsi
movq 0x10(%rsp), %rax
callq *%rax
movq %rax, 0x20(%rsp)
movq 0x18(%rsp), %rax
movq 0x50(%rax), %rcx
addq $-0x20, %rcx
movq %rcx, 0x50(%rax)
movq 0x20(%rsp), %rax
addq $0x38, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: int_vector_set_unchecked_p
static s7_pointer int_vector_set_unchecked_p(s7_scheme *sc, s7_pointer v, s7_int i, s7_pointer p)
                {
                    if (!s7_is_integer(p))
                        s7_wrong_type_arg_error(sc, "int-vector-set!", 3, p, "an integer");
                    int_vector(v, i) = s7_integer(p);
                    return(p);
                }

// Assembly:
subq $0x28, %rsp
movq %rdi, 0x20(%rsp)
movq %rsi, 0x18(%rsp)
movq %rdx, 0x10(%rsp)
movq %rcx, 0x8(%rsp)
movq 0x8(%rsp), %rdi
callq 0x11340
testb $0x1, %al
jne 0x1029e8
movq 0x20(%rsp), %rdi
movq 0x8(%rsp), %rcx
leaq 0xe7a83(%rip), %rsi     # 0x1ea45a
movl $0x3, %edx
leaq 0xec24f(%rip), %r8      # 0x1eec32
callq 0x12540
movq 0x8(%rsp), %rdi
callq 0x10790
movq %rax, %rdx
movq 0x18(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rsp), %rcx
movq %rdx, (%rax,%rcx,8)
movq 0x8(%rsp), %rax
addq $0x28, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: opt_p_ppp_fff
static s7_pointer opt_p_ppp_fff(opt_info *o)
                {
                    opt_info *o1;
                    s7_pointer res;
                    s7_scheme *sc;
                    sc = o->sc;
#if S7_DEBUGGING
                    if (sc->stack_end >= sc->stack_resize_trigger) fprintf(stderr, "%s[%d]: skipped stack resize\n", __func__, __LINE__);
#endif
                    oo_rc(sc, o, 4, 0);
                    o1 = sc->opts[++sc->pc];
                    gc_protect_direct(sc, T_Pos(o1->v[0].fp(o1)));
                    o1 = sc->opts[++sc->pc];
                    sc->stack_end[-4] = T_Pos(o1->v[0].fp(o1));
                    o1 = sc->opts[++sc->pc];
                    res = o->v[3].p_ppp_f(sc, sc->stack_end[-2], sc->stack_end[-4], o1->v[0].fp(o1));
                    sc->stack_end -= 4;
                    return(res);
                }

// Assembly:
subq $0x48, %rsp
movq %rdi, 0x40(%rsp)
movq 0x40(%rsp), %rax
movq 0x68(%rax), %rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq 0x28(%rsp), %rdx
movl 0x2258(%rdx), %ecx
addl $0x1, %ecx
movl %ecx, 0x2258(%rdx)
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x38(%rsp)
movq 0x28(%rsp), %rax
movq %rax, (%rsp)
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x38(%rsp), %rdi
callq *%rax
movq (%rsp), %rdi
movq %rax, %rsi
callq 0xfd720
movq 0x28(%rsp), %rax
movq 0x28(%rsp), %rdx
movl 0x2258(%rdx), %ecx
addl $0x1, %ecx
movl %ecx, 0x2258(%rdx)
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x38(%rsp), %rdi
callq *%rax
movq %rax, %rcx
movq 0x28(%rsp), %rax
movq 0x50(%rax), %rax
movq %rcx, -0x20(%rax)
movq 0x28(%rsp), %rax
movq 0x28(%rsp), %rdx
movl 0x2258(%rdx), %ecx
addl $0x1, %ecx
movl %ecx, 0x2258(%rdx)
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x38(%rsp)
movq 0x40(%rsp), %rax
movq 0x18(%rax), %rax
movq %rax, 0x20(%rsp)
movq 0x28(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x28(%rsp), %rax
movq 0x50(%rax), %rax
movq -0x10(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x28(%rsp), %rax
movq 0x50(%rax), %rax
movq -0x20(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x38(%rsp), %rax
movq (%rax), %rax
movq 0x38(%rsp), %rdi
callq *%rax
movq 0x8(%rsp), %rdi
movq 0x10(%rsp), %rsi
movq 0x18(%rsp), %rdx
movq %rax, %rcx
movq 0x20(%rsp), %rax
callq *%rax
movq %rax, 0x30(%rsp)
movq 0x28(%rsp), %rax
movq 0x50(%rax), %rcx
addq $-0x20, %rcx
movq %rcx, 0x50(%rax)
movq 0x30(%rsp), %rax
addq $0x48, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: opt_p_call_ppp
static s7_pointer opt_p_call_ppp(opt_info *o)
                {
                    opt_info *o1;
                    s7_pointer po3;
                    s7_scheme *sc;
                    sc = o->sc;
#if S7_DEBUGGING
                    if (sc->stack_end >= sc->stack_resize_trigger) fprintf(stderr, "%s[%d]: skipped stack resize\n", __func__, __LINE__);
#endif
                    o1 = sc->opts[++sc->pc];
                    oo_rc(sc, o, 3, 0);
                    gc_protect_direct(sc, o1->v[0].fp(o1));
                    o1 = sc->opts[++sc->pc];
                    sc->stack_end[-4] = o1->v[0].fp(o1);
                    o1 = sc->opts[++sc->pc];
                    po3 = o1->v[0].fp(o1);
                    po3 = o->v[2].call(sc, set_plist_3(sc, sc->stack_end[-2], sc->stack_end[-4], po3));
                    sc->stack_end -= 4;
                    return(po3);
                }

// Assembly:
subq $0x38, %rsp
movq %rdi, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq 0x68(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
movq 0x18(%rsp), %rdx
movl 0x2258(%rdx), %ecx
addl $0x1, %ecx
movl %ecx, 0x2258(%rdx)
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x28(%rsp)
movq 0x18(%rsp), %rax
movq %rax, (%rsp)
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x28(%rsp), %rdi
callq *%rax
movq (%rsp), %rdi
movq %rax, %rsi
callq 0xfd720
movq 0x18(%rsp), %rax
movq 0x18(%rsp), %rdx
movl 0x2258(%rdx), %ecx
addl $0x1, %ecx
movl %ecx, 0x2258(%rdx)
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x28(%rsp), %rdi
callq *%rax
movq %rax, %rcx
movq 0x18(%rsp), %rax
movq 0x50(%rax), %rax
movq %rcx, -0x20(%rax)
movq 0x18(%rsp), %rax
movq 0x18(%rsp), %rdx
movl 0x2258(%rdx), %ecx
addl $0x1, %ecx
movl %ecx, 0x2258(%rdx)
movslq %ecx, %rcx
movq 0x2260(%rax,%rcx,8), %rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq (%rax), %rax
movq 0x28(%rsp), %rdi
callq *%rax
movq %rax, 0x20(%rsp)
movq 0x30(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x18(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x18(%rsp), %rdi
movq 0x18(%rsp), %rax
movq 0x50(%rax), %rax
movq -0x10(%rax), %rsi
movq 0x18(%rsp), %rax
movq 0x50(%rax), %rax
movq -0x20(%rax), %rdx
movq 0x20(%rsp), %rcx
callq 0x359a0
movq 0x8(%rsp), %rdi
movq %rax, %rsi
movq 0x10(%rsp), %rax
callq *%rax
movq %rax, 0x20(%rsp)
movq 0x18(%rsp), %rax
movq 0x50(%rax), %rcx
addq $-0x20, %rcx
movq %rcx, 0x50(%rax)
movq 0x20(%rsp), %rax
addq $0x38, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: let_symbol_is_safe
static bool let_symbol_is_safe(s7_scheme *sc, s7_pointer sym, s7_pointer e)
    {
        if (is_slot(global_slot(sym)))
            return(true);
        if (is_null(e))
            e = sc->rootlet;
        return((!is_with_let_let(e)) &&
                (is_slot(symbol_to_slot(sc, sym))));
    }

// Assembly:
subq $0x28, %rsp
movq %rdi, 0x18(%rsp)
movq %rsi, 0x10(%rsp)
movq %rdx, 0x8(%rsp)
movq 0x10(%rsp), %rax
movq 0x10(%rax), %rax
movzbl (%rax), %eax
cmpl $0x20, %eax
jne 0x105c2b
movb $0x1, 0x27(%rsp)
jmp 0x105c90
movq 0x8(%rsp), %rax
movq 0x18(%rsp), %rcx
cmpq 0x110(%rcx), %rax
jne 0x105c4f
movq 0x18(%rsp), %rax
movq 0x150(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movq (%rax), %rcx
andq $0x40000, %rcx          # imm = 0x40000
xorl %eax, %eax
cmpq $0x0, %rcx
movb %al, 0x7(%rsp)
jne 0x105c86
movq 0x18(%rsp), %rdi
movq 0x10(%rsp), %rsi
callq 0xfc80
movzbl (%rax), %eax
cmpl $0x20, %eax
sete %al
movb %al, 0x7(%rsp)
movb 0x7(%rsp), %al
andb $0x1, %al
movb %al, 0x27(%rsp)
movb 0x27(%rsp), %al
andb $0x1, %al
addq $0x28, %rsp
retq
nopl (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: fx_or_and_2
static s7_pointer fx_or_and_2(s7_scheme *sc, s7_pointer arg)
                {
                    s7_pointer p, val;
                    p = cdr(arg);
                    val = fx_call(sc, p);
                    if (val != sc->F) return(val);
                    p = cdadr(p);
                    val = fx_call(sc, p);
                    if (val == sc->F) return(val);
                    return(fx_call(sc, cdr(p)));
                }

// Assembly:
subq $0x58, %rsp
movq %rdi, 0x48(%rsp)
movq %rsi, 0x40(%rsp)
movq 0x40(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x48(%rsp), %rdi
movq 0x28(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x20(%rsp)
movq 0x20(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq 0x48(%rsp), %rcx
cmpq 0x120(%rcx), %rax
je 0x106140
movq 0x30(%rsp), %rax
movq %rax, 0x50(%rsp)
jmp 0x1061db
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x48(%rsp), %rdi
movq 0x18(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq 0x48(%rsp), %rcx
cmpq 0x120(%rcx), %rax
jne 0x1061a7
movq 0x30(%rsp), %rax
movq %rax, 0x50(%rsp)
jmp 0x1061db
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x48(%rsp), %rdi
movq 0x8(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, (%rsp)
movq (%rsp), %rax
movq %rax, 0x50(%rsp)
movq 0x50(%rsp), %rax
addq $0x58, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: fx_and_3
static s7_pointer fx_and_3(s7_scheme *sc, s7_pointer arg)
                {
                    s7_pointer p, val;
                    p = cdr(arg);
                    val = fx_call(sc, p);
                    if (val == sc->F) return(val);
                    p = cdr(p);
                    val = fx_call(sc, p);
                    if (val == sc->F) return(val);
                    return(fx_call(sc, cdr(p)));
                }

// Assembly:
subq $0x58, %rsp
movq %rdi, 0x48(%rsp)
movq %rsi, 0x40(%rsp)
movq 0x40(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x48(%rsp), %rdi
movq 0x28(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x20(%rsp)
movq 0x20(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq 0x48(%rsp), %rcx
cmpq 0x120(%rcx), %rax
jne 0x106260
movq 0x30(%rsp), %rax
movq %rax, 0x50(%rsp)
jmp 0x1062f3
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x48(%rsp), %rdi
movq 0x18(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq 0x48(%rsp), %rcx
cmpq 0x120(%rcx), %rax
jne 0x1062bf
movq 0x30(%rsp), %rax
movq %rax, 0x50(%rsp)
jmp 0x1062f3
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x48(%rsp), %rdi
movq 0x8(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, (%rsp)
movq (%rsp), %rax
movq %rax, 0x50(%rsp)
movq 0x50(%rsp), %rax
addq $0x58, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: fx_or_and_3
static s7_pointer fx_or_and_3(s7_scheme *sc, s7_pointer arg)
                {
                    s7_pointer p, val;
                    p = cdr(arg);
                    val = fx_call(sc, p);
                    if (val != sc->F) return(val);
                    p = cdadr(p);
                    val = fx_call(sc, p);
                    if (val == sc->F) return(val);
                    p = cdr(p);
                    val = fx_call(sc, p);
                    if (val == sc->F) return(val);
                    return(fx_call(sc, cdr(p)));
                }

// Assembly:
subq $0x68, %rsp
movq %rdi, 0x58(%rsp)
movq %rsi, 0x50(%rsp)
movq 0x50(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x48(%rsp)
movq 0x48(%rsp), %rax
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x58(%rsp), %rdi
movq 0x38(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq %rax, 0x40(%rsp)
movq 0x40(%rsp), %rax
movq 0x58(%rsp), %rcx
cmpq 0x120(%rcx), %rax
je 0x106370
movq 0x40(%rsp), %rax
movq %rax, 0x60(%rsp)
jmp 0x10646d
movq 0x48(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x48(%rsp)
movq 0x48(%rsp), %rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x58(%rsp), %rdi
movq 0x28(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x20(%rsp)
movq 0x20(%rsp), %rax
movq %rax, 0x40(%rsp)
movq 0x40(%rsp), %rax
movq 0x58(%rsp), %rcx
cmpq 0x120(%rcx), %rax
jne 0x1063da
movq 0x40(%rsp), %rax
movq %rax, 0x60(%rsp)
jmp 0x10646d
movq 0x48(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x48(%rsp)
movq 0x48(%rsp), %rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x58(%rsp), %rdi
movq 0x18(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rax
movq %rax, 0x40(%rsp)
movq 0x40(%rsp), %rax
movq 0x58(%rsp), %rcx
cmpq 0x120(%rcx), %rax
jne 0x106439
movq 0x40(%rsp), %rax
movq %rax, 0x60(%rsp)
jmp 0x10646d
movq 0x48(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x58(%rsp), %rdi
movq 0x8(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, (%rsp)
movq (%rsp), %rax
movq %rax, 0x60(%rsp)
movq 0x60(%rsp), %rax
addq $0x68, %rsp
retq
nopw (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: fx_iterate_p_p
static s7_pointer fx_iterate_p_p(s7_scheme *sc, s7_pointer arg)
                {
                    s7_pointer iter;
                    iter = lookup(sc, cadr(arg));
                    if (is_iterator(iter))
                        return((iterator_next(iter))(sc, iter));
                    return(method_or_bust_one_arg(sc, iter, sc->iterate_symbol, set_plist_1(sc, iter), T_ITERATOR));
                }

// Assembly:
subq $0x38, %rsp
movq %rdi, 0x28(%rsp)
movq %rsi, 0x20(%rsp)
movq 0x28(%rsp), %rdi
movq 0x20(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rsi
callq 0xde990
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x1d, %eax
jne 0x106c03
movq 0x18(%rsp), %rax
movq 0x28(%rax), %rax
movq 0x28(%rsp), %rdi
movq 0x18(%rsp), %rsi
callq *%rax
movq %rax, 0x30(%rsp)
jmp 0x106c57
movq 0x28(%rsp), %rax
movq %rax, (%rsp)
movq 0x18(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x28(%rsp), %rax
movq 0x11c8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x28(%rsp), %rdi
movq 0x18(%rsp), %rsi
callq 0x35ea0
movq (%rsp), %rdi
movq 0x8(%rsp), %rsi
movq 0x10(%rsp), %rdx
movq %rax, %rcx
movl $0x1d, %r8d
callq 0xcfd30
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
addq $0x38, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: fx_num_eq_ss
static s7_pointer fx_num_eq_ss(s7_scheme *sc, s7_pointer arg)
                {
                    s7_pointer x, y;
                    x = lookup(sc, cadr(arg));
                    y = lookup(sc, opt2_sym(cdr(arg)));
                    if ((is_t_integer(x)) && (is_t_integer(y)))
                        return(make_boolean(sc, integer(x) == integer(y)));
                    return(num_eq_p_pp(sc, x, y));
                }

// Assembly:
subq $0x38, %rsp
movq %rdi, 0x28(%rsp)
movq %rsi, 0x20(%rsp)
movq 0x28(%rsp), %rdi
movq 0x20(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rsi
callq 0xde990
movq %rax, 0x18(%rsp)
movq 0x28(%rsp), %rdi
movq 0x20(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x20(%rax), %rsi
callq 0xde990
movq %rax, 0x10(%rsp)
movq 0x18(%rsp), %rax
movzbl (%rax), %eax
cmpl $0xb, %eax
jne 0x106f84
movq 0x10(%rsp), %rax
movzbl (%rax), %eax
cmpl $0xb, %eax
jne 0x106f84
movq 0x18(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rsp), %rcx
cmpq 0x8(%rcx), %rax
jne 0x106f67
movq 0x28(%rsp), %rax
movq 0x118(%rax), %rax
movq %rax, 0x8(%rsp)
jmp 0x106f78
movq 0x28(%rsp), %rax
movq 0x120(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movq %rax, 0x30(%rsp)
jmp 0x106f9d
movq 0x28(%rsp), %rdi
movq 0x18(%rsp), %rsi
movq 0x10(%rsp), %rdx
callq 0xba5c0
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
addq $0x38, %rsp
retq
nopw (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: fx_is_eq_ss
static s7_pointer fx_is_eq_ss(s7_scheme *sc, s7_pointer arg)
                {
                    s7_pointer x, y;
                    x = lookup(sc, cadr(arg));
                    y = lookup(sc, opt2_sym(cdr(arg)));
                    return(make_boolean(sc, (x == y) || ((is_unspecified(x)) && (is_unspecified(y)))));
                }

// Assembly:
subq $0x28, %rsp
movq %rdi, 0x20(%rsp)
movq %rsi, 0x18(%rsp)
movq 0x20(%rsp), %rdi
movq 0x18(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rsi
callq 0xde990
movq %rax, 0x10(%rsp)
movq 0x20(%rsp), %rdi
movq 0x18(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x20(%rax), %rsi
callq 0xde990
movq %rax, 0x8(%rsp)
movq 0x10(%rsp), %rax
cmpq 0x8(%rsp), %rax
je 0x107bac
movq 0x10(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x5, %eax
jne 0x107bbe
movq 0x8(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x5, %eax
jne 0x107bbe
movq 0x20(%rsp), %rax
movq 0x118(%rax), %rax
movq %rax, (%rsp)
jmp 0x107bce
movq 0x20(%rsp), %rax
movq 0x120(%rax), %rax
movq %rax, (%rsp)
movq (%rsp), %rax
addq $0x28, %rsp
retq
nopw (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: g_hash_table_ref_2
static s7_pointer g_hash_table_ref_2(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer table;
                    table = car(args);
                    if (!is_hash_table(table))
                        return(method_or_bust(sc, table, sc->hash_table_ref_symbol, args, T_HASH_TABLE, 1));
                    return(hash_entry_value((*hash_table_checker(table))(sc, table, cadr(args))));
                }

// Assembly:
subq $0x28, %rsp
movq %rdi, 0x18(%rsp)
movq %rsi, 0x10(%rsp)
movq 0x10(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x1b, %eax
je 0x107d9c
movq 0x18(%rsp), %rdi
movq 0x8(%rsp), %rsi
movq 0x18(%rsp), %rax
movq 0xf68(%rax), %rdx
movq 0x10(%rsp), %rcx
movl $0x1b, %r8d
movl $0x1, %r9d
callq 0x13c50
movq %rax, 0x20(%rsp)
jmp 0x107dc7
movq 0x8(%rsp), %rax
movq 0x18(%rax), %rax
movq 0x18(%rsp), %rdi
movq 0x8(%rsp), %rsi
movq 0x10(%rsp), %rcx
movq 0x10(%rcx), %rcx
movq 0x8(%rcx), %rdx
callq *%rax
movq 0x20(%rax), %rax
movq %rax, 0x20(%rsp)
movq 0x20(%rsp), %rax
addq $0x28, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: fx_c_sss
static s7_pointer fx_c_sss(s7_scheme *sc, s7_pointer arg)
                {
                    set_car(sc->t3_1, lookup(sc, cadr(arg)));
                    set_car(sc->t3_2, lookup(sc, opt1_sym(cdr(arg)))); /* caddr(arg) */
                    set_car(sc->t3_3, lookup(sc, opt2_sym(cdr(arg)))); /* cadddr(arg) */
                    return(c_call(arg)(sc, sc->t3_1));
                }

// Assembly:
subq $0x18, %rsp
movq %rdi, 0x10(%rsp)
movq %rsi, 0x8(%rsp)
movq 0x10(%rsp), %rdi
movq 0x8(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rsi
callq 0xde990
movq %rax, %rcx
movq 0x10(%rsp), %rax
movq 0x580(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x10(%rsp), %rdi
movq 0x8(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x18(%rax), %rsi
callq 0xde990
movq %rax, %rcx
movq 0x10(%rsp), %rax
movq 0x588(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x10(%rsp), %rdi
movq 0x8(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x20(%rax), %rsi
callq 0xde990
movq %rax, %rcx
movq 0x10(%rsp), %rax
movq 0x590(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x8(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x10(%rsp), %rdi
movq 0x10(%rsp), %rcx
movq 0x580(%rcx), %rsi
callq *%rax
addq $0x18, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: fx_c_ssa
static s7_pointer fx_c_ssa(s7_scheme *sc, s7_pointer arg)
                {
                    s7_pointer p;
                    p = cddr(arg);
                    set_car(sc->t3_3, fx_call(sc, cdr(p)));
                    set_car(sc->t3_1, lookup(sc, cadr(arg)));
                    set_car(sc->t3_2, lookup(sc, car(p)));
                    return(c_call(arg)(sc, sc->t3_1));
                }

// Assembly:
subq $0x28, %rsp
movq %rdi, 0x20(%rsp)
movq %rsi, 0x18(%rsp)
movq 0x18(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x20(%rsp), %rdi
movq 0x8(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, (%rsp)
movq (%rsp), %rcx
movq 0x20(%rsp), %rax
movq 0x590(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x20(%rsp), %rdi
movq 0x18(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rsi
callq 0xde990
movq %rax, %rcx
movq 0x20(%rsp), %rax
movq 0x580(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x20(%rsp), %rdi
movq 0x10(%rsp), %rax
movq 0x8(%rax), %rsi
callq 0xde990
movq %rax, %rcx
movq 0x20(%rsp), %rax
movq 0x588(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x18(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x20(%rsp), %rdi
movq 0x20(%rsp), %rcx
movq 0x580(%rcx), %rsi
callq *%rax
addq $0x28, %rsp
retq
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: fx_c_gac
static s7_pointer fx_c_gac(s7_scheme *sc, s7_pointer arg)
                {
                    s7_pointer p;
                    p = cdr(arg);
                    set_car(sc->t3_2, fx_call(sc, cdr(p)));
                    set_car(sc->t3_3, caddr(p));
                    set_car(sc->t3_1, lookup_global(sc, car(p)));
                    return(c_call(arg)(sc, sc->t3_1));
                }

// Assembly:
subq $0x48, %rsp
movq %rdi, 0x40(%rsp)
movq %rsi, 0x38(%rsp)
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x40(%rsp), %rdi
movq 0x28(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x20(%rsp)
movq 0x20(%rsp), %rcx
movq 0x40(%rsp), %rax
movq 0x588(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x30(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rcx
movq 0x40(%rsp), %rax
movq 0x590(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rax
movq (%rax), %rax
andq $0x10000, %rax          # imm = 0x10000
cmpq $0x0, %rax
je 0x1085de
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x8(%rsp)
jmp 0x108633
movq 0x40(%rsp), %rdi
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rsi
callq 0xde990
movq %rax, 0x18(%rsp)
cmpq $0x0, 0x18(%rsp)
je 0x108609
movq 0x18(%rsp), %rax
movq %rax, (%rsp)
jmp 0x108620
movq 0x40(%rsp), %rdi
movq 0x30(%rsp), %rax
movq 0x8(%rax), %rsi
callq 0xdead0
movq %rax, (%rsp)
movq (%rsp), %rax
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rcx
movq 0x40(%rsp), %rax
movq 0x580(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x38(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x40(%rsp), %rdi
movq 0x40(%rsp), %rcx
movq 0x580(%rcx), %rsi
callq *%rax
addq $0x48, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: fx_c_aaa
static s7_pointer fx_c_aaa(s7_scheme *sc, s7_pointer arg)
                {
                    check_stack_size(sc);
                    gc_protect_direct(sc, fx_call(sc, cdr(arg)));
                    sc->stack_end[-4] = fx_call(sc, cddr(arg));
                    set_car(sc->t3_3, fx_call(sc, cdddr(arg)));
                    set_car(sc->t3_2, sc->stack_end[-4]);
                    set_car(sc->t3_1, sc->stack_end[-2]);
                    sc->stack_end -= 4;
                    return(c_call(arg)(sc, sc->t3_1));
                }

// Assembly:
subq $0x48, %rsp
movq %rdi, 0x40(%rsp)
movq %rsi, 0x38(%rsp)
movq 0x40(%rsp), %rax
movq 0x50(%rax), %rax
movq 0x40(%rsp), %rcx
cmpq 0x58(%rcx), %rax
jb 0x10869c
movq 0x40(%rsp), %rdi
callq 0x10fdc0
jmp 0x10869e
movq 0x40(%rsp), %rax
movq %rax, (%rsp)
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x40(%rsp), %rdi
movq 0x30(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq (%rsp), %rdi
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rsi
callq 0xfd720
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x20(%rsp)
movq 0x20(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x40(%rsp), %rdi
movq 0x20(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rcx
movq 0x40(%rsp), %rax
movq 0x50(%rax), %rax
movq %rcx, -0x20(%rax)
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x40(%rsp), %rdi
movq 0x10(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rcx
movq 0x40(%rsp), %rax
movq 0x590(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x40(%rsp), %rax
movq 0x50(%rax), %rax
movq -0x20(%rax), %rcx
movq 0x40(%rsp), %rax
movq 0x588(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x40(%rsp), %rax
movq 0x50(%rax), %rax
movq -0x10(%rax), %rcx
movq 0x40(%rsp), %rax
movq 0x580(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x40(%rsp), %rax
movq 0x50(%rax), %rcx
addq $-0x20, %rcx
movq %rcx, 0x50(%rax)
movq 0x38(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x40(%rsp), %rdi
movq 0x40(%rsp), %rcx
movq 0x580(%rcx), %rsi
callq *%rax
addq $0x48, %rsp
retq
nopl (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: fx_c_3g
static s7_pointer fx_c_3g(s7_scheme *sc, s7_pointer arg)
                {
                    set_car(sc->t3_1, fx_call(sc, cdr(arg)));
                    set_car(sc->t3_2, fx_call(sc, cddr(arg)));
                    set_car(sc->t3_3, fx_call(sc, cdddr(arg)));
                    return(c_call(arg)(sc, sc->t3_1));
                }

// Assembly:
subq $0x48, %rsp
movq %rdi, 0x40(%rsp)
movq %rsi, 0x38(%rsp)
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x40(%rsp), %rdi
movq 0x30(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rcx
movq 0x40(%rsp), %rax
movq 0x580(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x20(%rsp)
movq 0x20(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x40(%rsp), %rdi
movq 0x20(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rcx
movq 0x40(%rsp), %rax
movq 0x588(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x40(%rsp), %rdi
movq 0x10(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rcx
movq 0x40(%rsp), %rax
movq 0x590(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x38(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x40(%rsp), %rdi
movq 0x40(%rsp), %rcx
movq 0x580(%rcx), %rsi
callq *%rax
addq $0x48, %rsp
retq
nop
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: fx_c_4g
static s7_pointer fx_c_4g(s7_scheme *sc, s7_pointer code) /* all opts in use for code, opt1 free cdr(code), code opt3 is line_number, cdr(code) opt3 is arglen?? */
                {
                    s7_pointer res;
                    res = cdr(code);
                    set_car(sc->t4_1, fx_call(sc, res));
                    set_car(sc->t3_1, fx_call(sc, cdr(res)));
                    set_car(sc->t3_2, fx_call(sc, cddr(res)));
                    set_car(sc->t3_3, fx_call(sc, cdddr(res)));
                    res = c_call(code)(sc, sc->t4_1);
                    set_car(sc->t4_1, sc->F);
                    return(res);
                }

// Assembly:
subq $0x58, %rsp
movq %rdi, 0x50(%rsp)
movq %rsi, 0x48(%rsp)
movq 0x48(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x40(%rsp)
movq 0x40(%rsp), %rax
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x50(%rsp), %rdi
movq 0x38(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rcx
movq 0x50(%rsp), %rax
movq 0x5a8(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x40(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x50(%rsp), %rdi
movq 0x28(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x20(%rsp)
movq 0x20(%rsp), %rcx
movq 0x50(%rsp), %rax
movq 0x580(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x40(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x50(%rsp), %rdi
movq 0x18(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rcx
movq 0x50(%rsp), %rax
movq 0x588(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x40(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x50(%rsp), %rdi
movq 0x8(%rsp), %rcx
movq 0x8(%rcx), %rsi
callq *%rax
movq %rax, (%rsp)
movq (%rsp), %rcx
movq 0x50(%rsp), %rax
movq 0x590(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x48(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x50(%rsp), %rdi
movq 0x50(%rsp), %rcx
movq 0x5a8(%rcx), %rsi
callq *%rax
movq %rax, 0x40(%rsp)
movq 0x50(%rsp), %rax
movq 0x120(%rax), %rcx
movq 0x50(%rsp), %rax
movq 0x5a8(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x40(%rsp), %rax
addq $0x58, %rsp
retq
nopl (%rax)