LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: string_read_line
static s7_pointer string_read_line(s7_scheme *sc, s7_pointer port, bool with_eol, bool copied)
    {
        s7_int i, port_start;
        uint8_t *port_str, *cur, *start;

        port_start = port_position(port);
        port_str = port_data(port);
        start = (uint8_t *)(port_str + port_start);

        cur = (uint8_t *)strchr((const char *)start, (int)'\n'); /* this can run off the end making valgrind unhappy, but I think it's innocuous */
        if (cur)
        {
            port_line_number(port)++;
            i = cur - port_str;
            port_position(port) = i + 1;
            if (copied)
                return(make_string_with_length(sc, (const char *)start, ((with_eol) ? i + 1 : i) - port_start));
            return(wrap_string(sc, (char *)start, ((with_eol) ? i + 1 : i) - port_start));
        }
        i = port_data_size(port);
        port_position(port) = i;
        if (i <= port_start)         /* the < part can happen -- if not caught we try to create a string of length - 1 -> segfault */
            return(eof_object);

        if (copied)
            return(make_string_with_length(sc, (const char *)start, i - port_start));
        return(wrap_string(sc, (char *)start, i - port_start));
    }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movl %ecx, %ebx
movl %edx, %r13d
movq %rsi, %r14
movq %rdi, 0x10(%rsp)
movq 0x10(%rsi), %rbp
movq 0x20(%rsi), %r15
leaq (%r15,%rbp), %rdi
movq %rdi, 0x8(%rsp)
movl $0xa, %esi
callq 0x91d0
testq %rax, %rax
je 0x9713f
movq %rax, %r12
movq 0x8(%r14), %rax
incl 0x20(%rax)
subq %rbp, %r12
leaq 0x1(%r12), %rax
movq %rax, 0x20(%r14)
testb %r13b, %r13b
cmovneq %rax, %r12
subq %r15, %r12
jmp 0x97150
movq 0x18(%r14), %r12
movq %r12, 0x20(%r14)
subq %r15, %r12
jle 0x97240
testb %bl, %bl
je 0x9720e
movq 0x10(%rsp), %rbx
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x97175
movq %rbx, %rdi
callq 0xb389
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %r14
movq $0x200013, (%r14)       # imm = 0x200013
leaq 0x1(%r12), %rsi
movq %rbx, %rdi
callq 0xa305
movq %rax, 0x20(%r14)
movq (%rax), %rdi
movq %rdi, 0x10(%r14)
testq %r12, %r12
jle 0x971bc
movq 0x8(%rsp), %rsi
movq %r12, %rdx
callq 0x93e0
movq 0x10(%r14), %rax
movb $0x0, (%rax,%r12)
movq %r12, 0x8(%r14)
movq $0x0, 0x18(%r14)
movq 0x738(%rbx), %rbx
movq 0x8(%rbx), %rsi
cmpq %rsi, 0x10(%rbx)
jne 0x971f9
leaq (%rsi,%rsi), %rax
movq %rax, 0x8(%rbx)
movq (%rbx), %rdi
shlq $0x4, %rsi
callq 0x9510
movq %rax, (%rbx)
movq (%rbx), %rax
movq 0x10(%rbx), %rcx
leaq 0x1(%rcx), %rdx
movq %rdx, 0x10(%rbx)
movq %r14, (%rax,%rcx,8)
jmp 0x97247
movq 0x10(%rsp), %rdx
movq 0x820(%rdx), %rax
movslq 0x7dc(%rdx), %rcx
movq (%rax,%rcx,8), %r14
leal 0x1(%rcx), %eax
andl $0x7, %eax
movl %eax, 0x7dc(%rdx)
movq 0x8(%rsp), %rax
movq %rax, 0x10(%r14)
movq %r12, 0x8(%r14)
jmp 0x97247
movq 0xb7519(%rip), %r14     # 0x14e760
movq %r14, %rax
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: close_input_string
static void close_input_string(s7_scheme *sc, s7_pointer p)
    {
        if (port_filename(p))
        {
            /* for string ports, this is the original input file name */
            liberate(sc, port_filename_block(p));
            port_filename(p) = NULL;
        }
        if (port_needs_unprotect(p))
        {
            s7_gc_unprotect_at(sc, port_gc_loc(p));
            port_needs_unprotect(p) = false;
        }
        if (port_needs_free(p))
            free_port_data(sc, p);

        port_port(p)->pf = &closed_port_functions;
        port_set_closed(p, true);
        port_position(p) = 0;
    }

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rsi, %rbx
movq %rdi, %r14
movq 0x8(%rsi), %rax
cmpq $0x0, 0x10(%rax)
je 0x972e0
movq 0x18(%rax), %r15
movslq 0x8(%r15), %rax
cmpq $0x11, %rax
jne 0x972c0
movq (%r15), %rdi
testq %rdi, %rdi
je 0x972af
callq 0x9050
movq $0x0, (%r15)
movl $0x0, 0x8(%r15)
leaq 0x838(%r14), %rax
jmp 0x972ca
leaq (%r14,%rax,8), %rax
addq $0x838, %rax            # imm = 0x838
movq (%rax), %rcx
movq %rcx, 0x18(%r15)
movq %r15, (%rax)
movq 0x8(%rbx), %rax
movq $0x0, 0x10(%rax)
movq 0x8(%rbx), %rax
cmpb $0x1, 0x1(%rax)
jne 0x9733d
movq 0x28(%rax), %rax
cmpq %rax, 0xf0(%r14)
jle 0x97335
movq 0xd0(%r14), %rcx
movq 0x140(%r14), %rdx
movq 0x10(%rcx), %rsi
cmpq %rdx, (%rsi,%rax,8)
je 0x9732d
movq 0xe8(%r14), %rsi
movq 0x108(%r14), %rdi
leaq 0x1(%rdi), %r8
movq %r8, 0x108(%r14)
movq %rax, 0x8(%rsi,%rdi,8)
movq 0x10(%rcx), %rcx
movq %rdx, (%rcx,%rax,8)
movq 0x8(%rbx), %rax
movb $0x0, 0x1(%rax)
movq 0x8(%rbx), %rax
cmpb $0x1, (%rax)
jne 0x97351
movq %r14, %rdi
movq %rbx, %rsi
callq 0x95065
movq 0x8(%rbx), %rax
leaq 0xb71f4(%rip), %rcx     # 0x14e550
movq %rcx, 0x48(%rax)
movq 0x8(%rbx), %rax
movb $0x1, 0x2(%rax)
movq $0x0, 0x20(%rbx)
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: token
static token_t token(s7_scheme *sc) /* inline here is slower */
                {
                    int32_t c;
                    c = port_read_white_space(sc->input_port)(sc, sc->input_port);
                    switch (c)
                    {
                        case '(':  return(TOKEN_LEFT_PAREN);
                        case ')':  return(TOKEN_RIGHT_PAREN);
                        case '.':  return(read_dot(sc, sc->input_port));
                        case '\'': return(TOKEN_QUOTE);
                        case ';':  return(port_read_semicolon(sc->input_port)(sc, sc->input_port));
                        case '"':  return(TOKEN_DOUBLE_QUOTE);
                        case '`':  return(TOKEN_BACK_QUOTE);
                        case ',':  return(read_comma(sc, sc->input_port));
                        case '#':  return(read_sharp(sc, sc->input_port));
                        case '\0':
                        case EOF:  return(TOKEN_EOF);
                        default:
                                   sc->strbuf[0] = (unsigned char)c; /* every TOKEN_ATOM return goes to port_read_name, so we save a backchar/inchar shuffle by starting the read here */
                                   return(TOKEN_ATOM);
                    }
                }

// Assembly:
pushq %rbx
movq %rdi, %rbx
movq 0x170(%rdi), %rsi
movq 0x8(%rsi), %rax
movq 0x48(%rax), %rax
callq *0x20(%rax)
cmpl $0x3a, %eax
jg 0x973b0
leal -0x22(%rax), %ecx
cmpl $0xc, %ecx
ja 0x973c1
leaq 0x79acc(%rip), %rdx     # 0x110e6c
movslq (%rdx,%rcx,4), %rcx
addq %rdx, %rcx
jmpq *%rcx
movl $0x6, %eax
jmp 0x97400
cmpl $0x3b, %eax
je 0x9741f
cmpl $0x60, %eax
jne 0x973cd
movl $0x7, %eax
jmp 0x97400
leal 0x1(%rax), %ecx
cmpl $0x2, %ecx
jae 0x973cd
xorl %eax, %eax
jmp 0x97400
movq 0x4b0(%rbx), %rcx
movb %al, (%rcx)
movl $0x4, %eax
jmp 0x97400
movq 0x170(%rbx), %rsi
movq %rbx, %rdi
popq %rbx
jmp 0x97493
movl $0x2, %eax
jmp 0x97400
movl $0x5, %eax
jmp 0x97400
movl $0x1, %eax
popq %rbx
retq
movq 0x170(%rbx), %rsi
movq %rbx, %rdi
popq %rbx
jmp 0x974da
movq 0x170(%rbx), %rsi
movq %rbx, %rdi
popq %rbx
jmp 0x97438
movq 0x170(%rbx), %rsi
movq 0x8(%rsi), %rax
movq 0x48(%rax), %rax
movq 0x18(%rax), %rax
movq %rbx, %rdi
popq %rbx
jmpq *%rax
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: read_dot
static token_t read_dot(s7_scheme *sc, s7_pointer pt)
                {
                    int32_t c;
                    c = inchar(pt);
                    if (c != EOF)
                    {
                        backchar(c, pt);
                        if ((!char_ok_in_a_name[c]) && (c != 0))
                            return(TOKEN_DOT);
                    }
                    else
                    {
                        sc->strbuf[0] = '.';
                        return(TOKEN_DOT);
                    }
                    sc->strbuf[0] = '.';
                    return(TOKEN_ATOM);  /* i.e. something that can start with a dot like a number */
                }

// Assembly:
pushq %rbp
pushq %r14
pushq %rbx
movq %rsi, %r14
movq %rdi, %rbx
movq %rsi, %rdi
callq 0x97c27
cmpl $-0x1, %eax
je 0x9747d
movl %eax, %ebp
movsbl %bpl, %edi
movq %r14, %rsi
callq 0x1090a
movl $0x4, %ecx
testl %ebp, %ebp
je 0x97482
movslq %ebp, %rdx
leaq 0xc65f0(%rip), %rsi     # 0x15da60
movl $0x3, %eax
cmpb $0x0, (%rdx,%rsi)
je 0x9748e
jmp 0x97482
movl $0x3, %ecx
movq 0x4b0(%rbx), %rax
movb $0x2e, (%rax)
movl %ecx, %eax
popq %rbx
popq %r14
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: inchar
static int32_t inchar(s7_pointer pt)
    {
        int32_t c;
        if (is_file_port(pt))
            c = fgetc(port_file(pt)); /* not uint8_t! -- could be EOF */
        else
        {
            if (port_data_size(pt) <= port_position(pt))
                return(EOF);
            c = (uint8_t)port_data(pt)[port_position(pt)++];
        }

        if (c == '\n')
            port_line_number(pt)++;

        return(c);
    }

// Assembly:
pushq %rbx
movq %rdi, %rbx
movq 0x8(%rdi), %rax
cmpl $0x0, 0x4(%rax)
je 0x97c56
movq 0x20(%rbx), %rcx
movl $0xffffffff, %eax       # imm = 0xFFFFFFFF
cmpq %rcx, 0x18(%rbx)
jle 0x97c6b
movq 0x10(%rbx), %rax
leaq 0x1(%rcx), %rdx
movq %rdx, 0x20(%rbx)
movzbl (%rax,%rcx), %eax
jmp 0x97c5f
movq 0x8(%rax), %rdi
callq 0x9290
cmpl $0xa, %eax
jne 0x97c6b
movq 0x8(%rbx), %rcx
incl 0x20(%rcx)
popq %rbx
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: nan2_or_bust
static s7_pointer nan2_or_bust(s7_scheme *sc, s7_double x, char *p, char *q, int32_t radix, bool want_symbol)
    {
        char *ip;
        s7_pointer rl;
        s7_int len;
        len = safe_strlen(q);
        ip = copy_string_with_length((const char *)q, len - 7);
        rl = make_atom(sc, ip, radix, false, false);
        free(ip);
        if (s7_is_real(rl))
            return(make_complex(sc, real_to_double(sc, rl, __func__), x));
        return((want_symbol) ? make_symbol(sc, q) : sc->F);
    }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %ecx, %ebp
movl %edx, %r15d
movq %rsi, %r14
movq %rdi, %rbx
movq $-0x7, %r12
testq %rsi, %rsi
movsd %xmm0, (%rsp)
je 0x9941a
cmpb $0x0, (%r14)
je 0x9941a
movq $-0x8, %rax
leaq 0x1(%rax), %r12
cmpb $0x0, 0x8(%r14,%rax)
movq %r12, %rax
jne 0x9940b
leaq 0x1(%r12), %rdi
callq 0x9480
movq %rax, %r13
testq %r12, %r12
je 0x9943a
movq %r13, %rdi
movq %r14, %rsi
movq %r12, %rdx
callq 0x93e0
movb $0x0, (%r13,%r12)
movq %rbx, %rdi
movq %r13, %rsi
movl %r15d, %edx
xorl %ecx, %ecx
callq 0x97c6d
movq %rax, %r15
movq %r13, %rdi
callq 0x9050
movzbl (%r15), %eax
leaq 0xb954a(%rip), %rcx     # 0x1529b0
cmpb $0x1, (%rax,%rcx)
jne 0x9948c
xorpd %xmm0, %xmm0
movsd (%rsp), %xmm1
ucomisd %xmm0, %xmm1
jne 0x994b6
jp 0x994b6
cmpb $0xd, %al
jne 0x994fe
movsd 0x8(%r15), %xmm0
jmp 0x99510
testb %bpl, %bpl
je 0x994aa
movq %rbx, %rdi
movq %r14, %rsi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xaa9f
movq 0x120(%rbx), %r14
jmp 0x9957a
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x994d3
movq %rbx, %rdi
callq 0xb389
movsd (%rsp), %xmm1
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %r14
movq $0xe, (%r14)
cmpb $0xd, (%r15)
jne 0x99557
movsd 0x8(%r15), %xmm0
jmp 0x9956e
leaq 0x86377(%rip), %rdx     # 0x11f87c
movq %rbx, %rdi
movq %r15, %rsi
callq 0xe212
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x99532
movq %rbx, %rdi
movsd %xmm0, (%rsp)
callq 0xb389
movsd (%rsp), %xmm0
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %r14
movq $0xd, (%r14)
movsd %xmm0, 0x8(%r14)
jmp 0x9957a
leaq 0x8631e(%rip), %rdx     # 0x11f87c
movq %rbx, %rdi
movq %r15, %rsi
callq 0xe212
movsd (%rsp), %xmm1
movsd %xmm0, 0x8(%r14)
movsd %xmm1, 0x10(%r14)
movq %r14, %rax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: unknown_sharp_constant
static s7_pointer unknown_sharp_constant(s7_scheme *sc, char *name)
    {
        if (hook_has_functions(sc->read_error_hook))  /* check *read-error-hook* */
        {
            s7_pointer result;
            /* see sc->error_hook for a more robust way to handle this */
            result = s7_call(sc, sc->read_error_hook, list_2(sc, sc->T, s7_make_string_wrapper(sc, name)));
            if (result != sc->unspecified)
                return(result);
        }
        return(make_unknown(sc, name));
    }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rsi, %rbx
movq %rdi, %r14
movq 0x210(%rdi), %r15
movq 0x18e0(%rdi), %rsi
movq 0x18(%r15), %rdx
callq 0xcd2c
cmpb $0x1, (%rax)
jne 0x9a282
testq %rbx, %rbx
je 0x9a1c9
cmpb $0x0, (%rbx)
je 0x9a1c9
movq $-0x1, %rcx
leaq 0x1(%rcx), %rax
cmpb $0x0, 0x1(%rbx,%rcx)
movq %rax, %rcx
jne 0x9a1b9
jmp 0x9a1cb
xorl %eax, %eax
movq 0x118(%r14), %r12
movq 0x820(%r14), %rcx
movslq 0x7dc(%r14), %rdx
movq (%rcx,%rdx,8), %r13
leal 0x1(%rdx), %ecx
andl $0x7, %ecx
movl %ecx, 0x7dc(%r14)
movq %rbx, 0x10(%r13)
movq %rax, 0x8(%r13)
movq 0x90(%r14), %rax
movq 0x110(%r14), %rbp
cmpq 0x98(%r14), %rax
ja 0x9a218
movq %r14, %rdi
callq 0xb389
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%r14)
movq -0x8(%rax), %rax
movl $0x200001, %ecx         # imm = 0x200001
movq %rcx, (%rax)
movq %r13, 0x8(%rax)
movq %rbp, 0x10(%rax)
movq 0x90(%r14), %rdx
leaq -0x8(%rdx), %rsi
movq %rsi, 0x90(%r14)
movq -0x8(%rdx), %rdx
movq %rcx, (%rdx)
movq %r12, 0x8(%rdx)
movq %rax, 0x10(%rdx)
movq %r14, %rdi
movq %r15, %rsi
callq 0x466aa
cmpq 0x130(%r14), %rax
je 0x9a282
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movq %r14, %rdi
movq %rbx, %rsi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x9a298
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: make_unknown
static s7_pointer make_unknown(s7_scheme *sc, const char* name)
    {
        s7_pointer p;
        char *newstr;
        s7_int len;
        new_cell(sc, p, T_UNDEFINED | T_IMMUTABLE);
        len = safe_strlen(name);
        newstr = (char *)malloc(len + 2); /* this is a non-permanent unknown */
        newstr[0] = '#';
        if (len > 0)
            memcpy((void *)(newstr + 1), (void *)name, len);
        newstr[len + 1] = '\0';
        if (sc->undefined_constant_warnings)
            s7_warn(sc, len + 32, "%s is undefined\n", newstr);
        unique_name_length(p) = len + 1;
        unknown_name(p) = newstr;
        add_unknown(sc, p);
        return(p);
    }

// Assembly:
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
movq %rsi, %r15
movq %rdi, %r14
movq 0x90(%rdi), %rax
cmpq 0x98(%rdi), %rax
ja 0x9a2bf
movq %r14, %rdi
callq 0xb389
movq 0x90(%r14), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%r14)
movq -0x8(%rax), %rbx
movq $0x1000004, (%rbx)      # imm = 0x1000004
testq %r15, %r15
je 0x9a2ff
cmpb $0x0, (%r15)
je 0x9a2ff
movq $-0x1, %rax
leaq 0x1(%rax), %r12
cmpb $0x0, 0x1(%r15,%rax)
movq %r12, %rax
jne 0x9a2ee
jmp 0x9a302
xorl %r12d, %r12d
leaq 0x2(%r12), %rdi
callq 0x9480
movq %rax, %r13
movb $0x23, (%rax)
testq %r12, %r12
jle 0x9a328
movq %r13, %rdi
incq %rdi
movq %r15, %rsi
movq %r12, %rdx
callq 0x93e0
leaq 0x1(%r12), %r15
movb $0x0, 0x1(%r13,%r12)
cmpb $0x1, 0x218d(%r14)
jne 0x9a358
addq $0x20, %r12
leaq 0x85516(%rip), %rdx     # 0x11f85e
movq %r14, %rdi
movq %r12, %rsi
movq %r13, %rcx
xorl %eax, %eax
callq 0xfc3d
movq %r15, 0x28(%rbx)
movq %r13, 0x20(%rbx)
movq 0x780(%r14), %r14
movq 0x8(%r14), %rsi
cmpq %rsi, 0x10(%r14)
jne 0x9a388
leaq (%rsi,%rsi), %rax
movq %rax, 0x8(%r14)
movq (%r14), %rdi
shlq $0x4, %rsi
callq 0x9510
movq %rax, (%r14)
movq (%r14), %rax
movq 0x10(%r14), %rcx
leaq 0x1(%rcx), %rdx
movq %rdx, 0x10(%r14)
movq %rbx, (%rax,%rcx,8)
movq %rbx, %rax
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: resize_strbuf
static void resize_strbuf(s7_scheme *sc, s7_int needed_size)
    {
        s7_int i, old_size;
        old_size = sc->strbuf_size;
        while (sc->strbuf_size <= needed_size) sc->strbuf_size *= 2;
        sc->strbuf = (char *)realloc(sc->strbuf, sc->strbuf_size);
        for (i = old_size; i < sc->strbuf_size; i++) sc->strbuf[i] = '\0';
    }

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rsi, %rax
movq %rdi, %rbx
movq 0x4a8(%rdi), %r14
movq %r14, %rsi
cmpq %rax, %r14
jg 0x9a3d3
movq %r14, %rsi
addq %rsi, %rsi
cmpq %rax, %rsi
jle 0x9a3c4
movq %rsi, 0x4a8(%rbx)
movq 0x4b0(%rbx), %rdi
callq 0x9510
movq %rax, 0x4b0(%rbx)
cmpq 0x4a8(%rbx), %r14
jge 0x9a400
movq 0x4b0(%rbx), %rax
movb $0x0, (%rax,%r14)
incq %r14
jmp 0x9a3e6
addq $0x8, %rsp
popq %rbx
popq %r14
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: file_read_semicolon
static token_t file_read_semicolon(s7_scheme *sc, s7_pointer pt)
    {
        int32_t c;
        do (c = fgetc(port_file(pt))); while ((c != '\n') && (c != EOF));
        port_line_number(pt)++;
        if (c == EOF)
            return(TOKEN_EOF);
        return(token(sc));
    }

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rsi, %r14
movq %rdi, %rbx
movq 0x8(%r14), %rax
movq 0x8(%rax), %rdi
callq 0x9290
cmpl $0xa, %eax
je 0x9a4de
cmpl $-0x1, %eax
jne 0x9a4c7
movq 0x8(%r14), %rcx
incl 0x20(%rcx)
cmpl $-0x1, %eax
je 0x9a4f9
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x97376
xorl %eax, %eax
addq $0x8, %rsp
popq %rbx
popq %r14
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: file_read_white_space
static int32_t file_read_white_space(s7_scheme *sc, s7_pointer port)
    {
        int32_t c;
        while (is_white_space(c = fgetc(port_file(port))))
            if (c == '\n')
                port_line_number(port)++;
        return(c);
    }

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rsi, %rbx
movq 0xbfdbf(%rip), %r14     # 0x15a2d0
movq 0x8(%rsi), %rax
movq 0x8(%rax), %rdi
callq 0x9290
movslq %eax, %rcx
cmpb $0x1, (%r14,%rcx)
jne 0x9a552
cmpl $0xa, %eax
jne 0x9a534
movq 0x8(%rbx), %rax
incl 0x20(%rax)
movq 0xbfd95(%rip), %r14     # 0x15a2d0
movq 0x8(%rbx), %rax
movq 0x8(%rax), %rdi
callq 0x9290
movslq %eax, %rcx
cmpb $0x0, (%r14,%rcx)
jne 0x9a528
addq $0x8, %rsp
popq %rbx
popq %r14
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: close_input_file
static void close_input_file(s7_scheme *sc, s7_pointer p)
    {
        if (port_filename(p))
        {
            /* for string ports, this is the original input file name */
            liberate(sc, port_filename_block(p));
            port_filename(p) = NULL;
        }
        if (port_file(p))
        {
            fclose(port_file(p));
            port_file(p) = NULL;
        }
        if (port_needs_free(p))
            free_port_data(sc, p);

        port_port(p)->pf = &closed_port_functions;
        port_set_closed(p, true);
        port_position(p) = 0;
    }

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rsi, %rbx
movq %rdi, %r14
movq 0x8(%rsi), %rax
cmpq $0x0, 0x10(%rax)
je 0x9a83e
movq 0x18(%rax), %r15
movslq 0x8(%r15), %rax
cmpq $0x11, %rax
jne 0x9a81e
movq (%r15), %rdi
testq %rdi, %rdi
je 0x9a80d
callq 0x9050
movq $0x0, (%r15)
movl $0x0, 0x8(%r15)
leaq 0x838(%r14), %rax
jmp 0x9a828
leaq (%r14,%rax,8), %rax
addq $0x838, %rax            # imm = 0x838
movq (%rax), %rcx
movq %rcx, 0x18(%r15)
movq %r15, (%rax)
movq 0x8(%rbx), %rax
movq $0x0, 0x10(%rax)
movq 0x8(%rbx), %rax
movq 0x8(%rax), %rdi
testq %rdi, %rdi
je 0x9a85c
callq 0x9180
movq 0x8(%rbx), %rax
movq $0x0, 0x8(%rax)
movq 0x8(%rbx), %rax
cmpb $0x1, (%rax)
jne 0x9a870
movq %r14, %rdi
movq %rbx, %rsi
callq 0x95065
movq 0x8(%rbx), %rax
leaq 0xb3cd5(%rip), %rcx     # 0x14e550
movq %rcx, 0x48(%rax)
movq 0x8(%rbx), %rax
movb $0x1, 0x2(%rax)
movq $0x0, 0x20(%rbx)
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: file_read_name_or_sharp
static s7_pointer file_read_name_or_sharp(s7_scheme *sc, s7_pointer pt, bool atom_case)
    {
        int32_t c;
        s7_int i = 1;
        /* sc->strbuf[0] has the first char of the string we're reading */

        do {
            c = fgetc(port_file(pt)); /* might return EOF */
            if (c == '\n')
                port_line_number(pt)++;

            sc->strbuf[i++] = (unsigned char)c;
            if (i >= sc->strbuf_size)
                resize_strbuf(sc, i);
        } while ((c != EOF) && (char_ok_in_a_name[c]));

        if ((i == 2) &&
                (sc->strbuf[0] == '\\'))
            sc->strbuf[2] = '\0';
        else
        {
            if (c != EOF)
            {
                if (c == '\n')
                    port_line_number(pt)--;
                ungetc(c, port_file(pt));
            }
            sc->strbuf[i - 1] = '\0';
        }

        if (atom_case)
            return(make_atom(sc, sc->strbuf, BASE_10, SYMBOL_OK, WITH_OVERFLOW_ERROR));

        return(make_sharp_constant(sc, sc->strbuf, WITH_OVERFLOW_ERROR));
    }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %edx, 0x4(%rsp)
movq %rsi, %r14
movq %rdi, %rbx
movq $-0x1, %rax
movl $0x2, %ecx
leaq 0xc31a3(%rip), %rbp     # 0x15da60
movq %rax, %r13
movq %rcx, %r12
movq 0x8(%r14), %rax
movq 0x8(%rax), %rdi
callq 0x9290
movl %eax, %r15d
cmpl $0xa, %eax
jne 0x9a8df
movq 0x8(%r14), %rax
incl 0x20(%rax)
movq 0x4b0(%rbx), %rax
movb %r15b, -0x1(%rax,%r12)
cmpq 0x4a8(%rbx), %r12
jl 0x9a8ff
movq %rbx, %rdi
movq %r12, %rsi
callq 0x9a3a8
cmpl $-0x1, %r15d
je 0x9a917
movslq %r15d, %rdx
leaq -0x1(%r13), %rax
leaq 0x1(%r12), %rcx
cmpb $0x0, (%rdx,%rbp)
jne 0x9a8bd
cmpq $0x2, %r12
jne 0x9a92f
movq 0x4b0(%rbx), %rax
cmpb $0x5c, (%rax)
jne 0x9a92f
addq $0x2, %rax
jmp 0x9a95c
cmpl $-0x1, %r15d
je 0x9a952
cmpl $0xa, %r15d
jne 0x9a942
movq 0x8(%r14), %rax
decl 0x20(%rax)
movq 0x8(%r14), %rax
movq 0x8(%rax), %rsi
movl %r15d, %edi
callq 0x94c0
movq 0x4b0(%rbx), %rax
subq %r13, %rax
movb $0x0, (%rax)
movq 0x4b0(%rbx), %rsi
cmpb $0x0, 0x4(%rsp)
je 0x9a98d
movq %rbx, %rdi
movl $0xa, %edx
movl $0x1, %ecx
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x97c6d
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x98bb4
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: file_write_char
static void file_write_char(s7_scheme *sc, uint8_t c, s7_pointer port)
    {
        if (port_position(port) == PORT_DATA_SIZE)
        {
            if (fwrite((void *)(port_data(port)), 1, PORT_DATA_SIZE, port_file(port)) != PORT_DATA_SIZE)
                s7_warn(sc, 64, "fwrite trouble during write-char\n");
            port_position(port) = 0;
        }
        port_data(port)[port_position(port)++] = c;
    }

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rdx, %r14
movl %esi, %ebx
cmpq $0x100, 0x20(%rdx)      # imm = 0x100
jne 0x9aa21
movq %rdi, %r15
movq 0x8(%r14), %rax
movq 0x10(%r14), %rdi
movq 0x8(%rax), %rcx
movl $0x1, %esi
movl $0x100, %edx            # imm = 0x100
callq 0x9660
cmpq $0x100, %rax            # imm = 0x100
je 0x9aa19
leaq 0x84e7f(%rip), %rdx     # 0x11f889
movl $0x40, %esi
movq %r15, %rdi
xorl %eax, %eax
callq 0xfc3d
movq $0x0, 0x20(%r14)
movq 0x10(%r14), %rax
movq 0x20(%r14), %rcx
leaq 0x1(%rcx), %rdx
movq %rdx, 0x20(%r14)
movb %bl, (%rax,%rcx)
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: file_write_string
static void file_write_string(s7_scheme *sc, const char *str, s7_int len, s7_pointer pt)
    {
        s7_int new_len;
        new_len = port_position(pt) + len;
        if (new_len >= PORT_DATA_SIZE)
        {
            if (port_position(pt) > 0)
            {
                if (fwrite((void *)(port_data(pt)), 1, port_position(pt), port_file(pt)) != (size_t)port_position(pt))
                    s7_warn(sc, 64, "fwrite trouble in write-string\n");
                port_position(pt) = 0;
            }
            if (fwrite((void *)str, 1, len, port_file(pt)) != (size_t)len)
                s7_warn(sc, 64, "fwrite trouble in write-string\n");
        }
        else
        {
            memcpy((void *)(port_data(pt) + port_position(pt)), (void *)str, len);
            port_position(pt) = new_len;
        }
    }

// Assembly:
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
movq %rcx, %r15
movq %rdx, %r14
movq %rsi, %r12
movq 0x20(%rcx), %rdx
leaq (%rdx,%r14), %r13
cmpq $0x100, %r13            # imm = 0x100
jl 0x9aadb
movq %rdi, %rbx
testq %rdx, %rdx
jle 0x9aa9f
movq 0x8(%r15), %rax
movq 0x10(%r15), %rdi
movq 0x8(%rax), %rcx
movl $0x1, %esi
callq 0x9660
cmpq 0x20(%r15), %rax
je 0x9aa97
leaq 0x84e23(%rip), %rdx     # 0x11f8ab
movl $0x40, %esi
movq %rbx, %rdi
xorl %eax, %eax
callq 0xfc3d
movq $0x0, 0x20(%r15)
movq 0x8(%r15), %rax
movq 0x8(%rax), %rcx
movl $0x1, %esi
movq %r12, %rdi
movq %r14, %rdx
callq 0x9660
cmpq %r14, %rax
je 0x9aaf1
leaq 0x84de8(%rip), %rdx     # 0x11f8ab
movl $0x40, %esi
movq %rbx, %rdi
xorl %eax, %eax
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
jmp 0xfc3d
addq 0x10(%r15), %rdx
movq %rdx, %rdi
movq %r12, %rsi
movq %r14, %rdx
callq 0x93e0
movq %r13, 0x20(%r15)
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: file_display
static void file_display(s7_scheme *sc, const char *s, s7_pointer port)
    {
        if (s)
        {
            if (port_position(port) > 0)
            {
                if (fwrite((void *)(port_data(port)), 1, port_position(port), port_file(port)) != (size_t)port_position(port))
                    s7_warn(sc, 64, "fwrite trouble in display\n");
                port_position(port) = 0;
            }
            if (fputs(s, port_file(port)) == EOF)
                s7_warn(sc, 64, "write to %s: %s\n", port_filename(port), strerror(errno));
        }
    }

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
testq %rsi, %rsi
je 0x9ab87
movq %rdx, %r14
movq %rsi, %r15
movq %rdi, %rbx
movq 0x20(%rdx), %rdx
testq %rdx, %rdx
jle 0x9ab72
movq 0x8(%r14), %rax
movq 0x10(%r14), %rdi
movq 0x8(%rax), %rcx
movl $0x1, %esi
callq 0x9660
cmpq 0x20(%r14), %rax
je 0x9ab6a
leaq 0x84d70(%rip), %rdx     # 0x11f8cb
movl $0x40, %esi
movq %rbx, %rdi
xorl %eax, %eax
callq 0xfc3d
movq $0x0, 0x20(%r14)
movq 0x8(%r14), %rax
movq 0x8(%rax), %rsi
movq %r15, %rdi
callq 0x9250
cmpl $-0x1, %eax
je 0x9ab8d
popq %rbx
popq %r14
popq %r15
retq
movq 0x8(%r14), %rax
movq 0x10(%rax), %r14
callq 0x9090
movl (%rax), %edi
callq 0x96b0
leaq 0x84d3e(%rip), %rdx     # 0x11f8e6
movl $0x40, %esi
movq %rbx, %rdi
movq %r14, %rcx
movq %rax, %r8
xorl %eax, %eax
popq %rbx
popq %r14
popq %r15
jmp 0xfc3d
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: close_output_file
static void close_output_file(s7_scheme *sc, s7_pointer p)
    {
        if (port_filename(p)) /* only a file output port has a filename(?) */
        {
            liberate(sc, port_filename_block(p));
            port_filename(p) = NULL;
            port_filename_length(p) = 0;
        }
        if (port_file(p))
        {
            if (port_position(p) > 0)
            {
                if (fwrite((void *)(port_data(p)), 1, port_position(p), port_file(p)) != (size_t)port_position(p))
                    s7_warn(sc, 64, "fwrite trouble in close-output-port\n");
            }
            fflush(port_file(p));
            fclose(port_file(p));
            port_file(p) = NULL;
        }
        port_port(p)->pf = &closed_port_functions;
        port_set_closed(p, true);
        port_position(p) = 0;
    }

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rsi, %rbx
movq %rdi, %r14
movq 0x8(%rsi), %rax
cmpq $0x0, 0x10(%rax)
je 0x9ac31
movq 0x18(%rax), %r15
movslq 0x8(%r15), %rax
cmpq $0x11, %rax
jne 0x9ac0b
movq (%r15), %rdi
testq %rdi, %rdi
je 0x9abfa
callq 0x9050
movq $0x0, (%r15)
movl $0x0, 0x8(%r15)
leaq 0x838(%r14), %rax
jmp 0x9ac15
leaq (%r14,%rax,8), %rax
addq $0x838, %rax            # imm = 0x838
movq (%rax), %rcx
movq %rcx, 0x18(%r15)
movq %r15, (%rax)
movq 0x8(%rbx), %rax
xorl %ecx, %ecx
movq %rcx, 0x10(%rax)
movq 0x8(%rbx), %rax
movq %rcx, 0x30(%rax)
movq 0x8(%rbx), %rax
movq 0x8(%rax), %rcx
testq %rcx, %rcx
je 0x9ac97
movq 0x20(%rbx), %rdx
testq %rdx, %rdx
jle 0x9ac71
movq 0x10(%rbx), %rdi
movl $0x1, %esi
callq 0x9660
cmpq 0x20(%rbx), %rax
je 0x9ac71
leaq 0x84c95(%rip), %rdx     # 0x11f8f7
movl $0x40, %esi
movq %r14, %rdi
xorl %eax, %eax
callq 0xfc3d
movq 0x8(%rbx), %rax
movq 0x8(%rax), %rdi
callq 0x9490
movq 0x8(%rbx), %rax
movq 0x8(%rax), %rdi
callq 0x9180
movq 0x8(%rbx), %rax
movq $0x0, 0x8(%rax)
movq 0x8(%rbx), %rax
leaq 0xb38ae(%rip), %rcx     # 0x14e550
movq %rcx, 0x48(%rax)
movq 0x8(%rbx), %rax
movb $0x1, 0x2(%rax)
movq $0x0, 0x20(%rbx)
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: close_simple_input_string
static void close_simple_input_string(s7_scheme *sc, s7_pointer p)
    {
#if S7_DEBUGGING
        if (port_filename(p))
            fprintf(stderr, "%s: port has a filename\n", __func__);
        if (port_needs_free(p))
            fprintf(stderr, "%s: port needs free\n", __func__);
#endif
        if (port_needs_unprotect(p))
        {
            s7_gc_unprotect_at(sc, port_gc_loc(p));
            port_needs_unprotect(p) = false;
        }
        port_port(p)->pf = &closed_port_functions;
        port_set_closed(p, true);
        port_position(p) = 0;
    }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, 0x1(%rax)
jne 0x9afec
movq 0x28(%rax), %rax
cmpq %rax, 0xf0(%rdi)
jle 0x9afe4
movq 0xd0(%rdi), %rcx
movq 0x140(%rdi), %rdx
movq 0x10(%rcx), %r8
cmpq %rdx, (%r8,%rax,8)
je 0x9afdc
movq 0xe8(%rdi), %r8
movq 0x108(%rdi), %r9
leaq 0x1(%r9), %r10
movq %r10, 0x108(%rdi)
movq %rax, 0x8(%r8,%r9,8)
movq 0x10(%rcx), %rcx
movq %rdx, (%rcx,%rax,8)
movq 0x8(%rsi), %rax
movb $0x0, 0x1(%rax)
movq 0x8(%rsi), %rax
leaq 0xb3559(%rip), %rcx     # 0x14e550
movq %rcx, 0x48(%rax)
movq 0x8(%rsi), %rax
movb $0x1, 0x2(%rax)
movq $0x0, 0x20(%rsi)
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: string_write_string
static void string_write_string(s7_scheme *sc, const char *str, s7_int len, s7_pointer pt)
    {
#if S7_DEBUGGING
        if (len == 0) {fprintf(stderr, "string_write_string len == 0\n"); abort();}
#endif
        if (port_position(pt) + len < port_data_size(pt))
        {
            memcpy((void *)(port_data(pt) + port_position(pt)), (void *)str, len);
            /* memcpy is much faster than the equivalent while loop, and faster than using the 4-bytes-at-a-time shuffle */
            port_position(pt) += len;
        }
        else string_write_string_resized(sc, str, len, pt);
    }

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rcx, %rbx
movq %rdx, %r14
movq %rsi, %r15
movq 0x20(%rcx), %rax
leaq (%rax,%rdx), %r12
cmpq 0x18(%rcx), %r12
jge 0x9b081
addq 0x10(%rbx), %rax
movq %rax, %rdi
movq %r15, %rsi
movq %r14, %rdx
callq 0x93e0
addq 0x20(%rbx), %r14
movq %r14, %r12
jmp 0x9b0a0
leaq (%r12,%r12), %rdx
movq %rbx, %rsi
callq 0x9b110
movq 0x10(%rbx), %rdi
addq 0x20(%rbx), %rdi
movq %r15, %rsi
movq %r14, %rdx
callq 0x93e0
movq %r12, 0x20(%rbx)
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: resize_port_data
static void resize_port_data(s7_scheme *sc, s7_pointer pt, s7_int new_size)
    {
        s7_int loc;
        block_t *nb;

        loc = port_data_size(pt);
        if (new_size < loc) return;
        if (new_size > sc->max_port_data_size)
            s7_error(sc, make_symbol(sc, "port-too-big"),
                    set_elist_1(sc, wrap_string(sc, "port data size has grown past (*s7* 'max-port-data-size)", 56)));

        nb = reallocate(sc, port_data_block(pt), new_size);
        port_data_block(pt) = nb;
        port_data(pt) = (uint8_t *)(block_data(nb));
        port_data_size(pt) = new_size;
    }

// Assembly:
cmpq %rdx, 0x18(%rsi)
jg 0x9b23d
pushq %r15
pushq %r14
pushq %rbx
movq %rdx, %rbx
movq %rsi, %r14
movq %rdi, %r15
cmpq %rdx, 0x2c8(%rdi)
jge 0x9b212
movabsq $0x6f6f742ddbdbd19d, %rcx # imm = 0x6F6F742DDBDBD19D
movq 0x148(%r15), %rax
movq 0x10(%rax), %rax
movq 0xdf18(%rax), %rax
cmpb $0x1, (%rax)
jne 0x9b1aa
leaq 0x847bf(%rip), %rdx     # 0x11f91c
leaq -0x6769622d(%rcx), %rsi
cmpq %rcx, 0x18(%rax)
jne 0x9b1a1
cmpl $0xc, 0x2c(%rax)
jne 0x9b1a1
movq 0x20(%rax), %rdi
cmpq %rsi, (%rdi)
jne 0x9b1a1
xorl %r8d, %r8d
movb 0x8(%r8,%rdx), %r9b
movb 0x8(%rdi,%r8), %r10b
cmpb %r10b, %r9b
jne 0x9b198
leaq 0x1(%r8), %r11
cmpq $0x3, %r8
movq %r11, %r8
jne 0x9b17c
cmpb %r10b, %r9b
je 0x9b23e
movq 0x10(%rax), %rax
cmpb $0x1, (%rax)
je 0x9b164
leaq 0x8476b(%rip), %rsi     # 0x11f91c
movl $0xc, %edx
movq %r15, %rdi
movl $0x1be3, %r8d           # imm = 0x1BE3
callq 0xa5ef
movq %rax, %rsi
movq 0x820(%r15), %rax
movslq 0x7dc(%r15), %rcx
movq (%rax,%rcx,8), %rax
incl %ecx
andl $0x7, %ecx
movl %ecx, 0x7dc(%r15)
leaq 0x8473d(%rip), %rcx     # 0x11f929
movq %rcx, 0x10(%rax)
movq $0x38, 0x8(%rax)
movq 0x6d8(%r15), %rcx
movq %rax, 0x8(%rcx)
movq 0x6d8(%r15), %rdx
movq %r15, %rdi
callq 0x3b366
movq 0x8(%r14), %rax
movq 0x38(%rax), %rsi
movq %r15, %rdi
movq %rbx, %rdx
callq 0xae0f
movq 0x8(%r14), %rcx
movq %rax, 0x38(%rcx)
movq (%rax), %rax
movq %rax, 0x10(%r14)
movq %rbx, 0x18(%r14)
popq %rbx
popq %r14
popq %r15
retq
movq 0x8(%rax), %rsi
jmp 0x9b1c7
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: full_filename
static block_t *full_filename(s7_scheme *sc, const char *filename)
    {
        s7_int len;
        char *rtn;
        block_t *block;
        if (filename[0] == '/')
        {
            len = safe_strlen(filename);
            block = mallocate(sc, len);
            rtn = (char *)block_data(block);
            memcpy((void *)rtn, (void *)filename, len);
            rtn[len - 1] = '\0';
        }
        else
        {
            char *pwd = getcwd(NULL, 0); /* docs say this means it will return a new string of the right size */
            len = safe_strlen(pwd) + safe_strlen(filename) + 1;
            block = mallocate(sc, len);
            rtn = (char *)block_data(block);
            if (pwd)
            {
                rtn[0] = '\0';
                catstrs(rtn, len, pwd, "/", filename, NULL);
                free(pwd);
            }
            else
            {
                memcpy((void *)rtn, (void *)filename, len);
                rtn[len - 1] = '\0';
            }
        }
        return(block);
    }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rsi, %rbx
movq %rdi, %r15
cmpb $0x2f, (%rsi)
jne 0x9b552
movq $-0x1, %r14
cmpb $0x0, 0x1(%rbx,%r14)
leaq 0x1(%r14), %r14
jne 0x9b51c
movq %r15, %rdi
movq %r14, %rsi
callq 0xa305
movq %rax, %r15
movq (%rax), %r12
movq %r12, %rdi
movq %rbx, %rsi
movq %r14, %rdx
callq 0x93e0
movb $0x0, -0x1(%r12,%r14)
jmp 0x9b607
xorl %ebp, %ebp
xorl %edi, %edi
xorl %esi, %esi
callq 0x9280
movq %rax, %r14
testq %rax, %rax
je 0x9b585
cmpb $0x0, (%r14)
je 0x9b583
movq $-0x1, %rax
leaq 0x1(%rax), %rbp
cmpb $0x0, 0x1(%r14,%rax)
movq %rbp, %rax
jne 0x9b572
jmp 0x9b585
xorl %ebp, %ebp
cmpb $0x0, (%rbx)
je 0x9b5a1
movq $-0x1, %rax
leaq 0x1(%rax), %r12
cmpb $0x0, 0x1(%rbx,%rax)
movq %r12, %rax
jne 0x9b591
jmp 0x9b5a4
xorl %r12d, %r12d
leaq (%r12,%rbp), %rsi
incq %rsi
movq %r15, %rdi
movq %rsi, (%rsp)
callq 0xa305
movq %rax, %r15
movq (%rax), %r13
testq %r14, %r14
je 0x9b5ef
movb $0x0, (%r13)
leaq 0x7c4d6(%rip), %rcx     # 0x117aa4
movq %r13, %rdi
movq (%rsp), %rsi
movq %r14, %rdx
movq %rbx, %r8
xorl %r9d, %r9d
xorl %eax, %eax
callq 0xa4d7
movq %r14, %rdi
callq 0x9050
jmp 0x9b607
addq %rbp, %r12
movq %r13, %rdi
movq %rbx, %rsi
movq (%rsp), %rdx
callq 0x93e0
movb $0x0, (%r13,%r12)
movq %r15, %rax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: remember_file_name
static int32_t remember_file_name(s7_scheme *sc, const char *file)
    {
        int32_t i;

        for (i = 0; i <= sc->file_names_top; i++)
            if (safe_strcmp(file, string_value(sc->file_names[i])))
                return(i);

        sc->file_names_top++;
        if (sc->file_names_top >= sc->file_names_size)
        {
            int32_t old_size = 0;
            if (sc->file_names_size == 0)
            {
                sc->file_names_size = INITIAL_FILE_NAMES_SIZE;
                sc->file_names = (s7_pointer *)calloc(sc->file_names_size, sizeof(s7_pointer));
            }
            else
            {
                old_size = sc->file_names_size;
                sc->file_names_size *= 2;
                sc->file_names = (s7_pointer *)realloc(sc->file_names, sc->file_names_size * sizeof(s7_pointer));
            }
            for (i = old_size; i < sc->file_names_size; i++)
                sc->file_names[i] = sc->F;
        }
        sc->file_names[sc->file_names_top] = s7_make_permanent_string(sc, file);
        return(sc->file_names_top);
    }

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rsi, %r14
movq %rdi, %rbx
movl 0x4a4(%rdi), %ecx
testl %ecx, %ecx
js 0x9b689
movq 0x498(%rbx), %rdx
leaq 0x1(%rcx), %rsi
xorl %eax, %eax
movq (%rdx,%rax,8), %rdi
movq 0x10(%rdi), %rdi
testq %r14, %r14
je 0x9b671
testq %rdi, %rdi
je 0x9b671
xorl %r9d, %r9d
movb (%r14,%r9), %r10b
movb (%rdi,%r9), %r11b
cmpb %r11b, %r10b
sete %r8b
testb %r10b, %r10b
je 0x9b678
incq %r9
cmpb %r11b, %r10b
je 0x9b653
jmp 0x9b678
cmpq %r14, %rdi
sete %r8b
testb %r8b, %r8b
jne 0x9b72d
incq %rax
cmpq %rsi, %rax
jne 0x9b63e
incl %ecx
movl %ecx, 0x4a4(%rbx)
movl 0x4a0(%rbx), %r12d
cmpl %r12d, %ecx
jl 0x9b70d
movslq %r12d, %r15
testl %r12d, %r12d
je 0x9b6c4
leal (%r12,%r12), %eax
movl %eax, 0x4a0(%rbx)
movq 0x498(%rbx), %rdi
movq %r15, %rsi
shlq $0x4, %rsi
callq 0x9510
jmp 0x9b6e0
movl $0x8, 0x4a0(%rbx)
movl $0x8, %edi
movl $0x8, %esi
callq 0x9360
xorl %r12d, %r12d
movq %rax, 0x498(%rbx)
movslq 0x4a0(%rbx), %rax
cmpl %eax, %r12d
jge 0x9b70d
movq 0x120(%rbx), %rcx
movq 0x498(%rbx), %rdx
movq %rcx, (%rdx,%r15,8)
incq %r15
cmpq %r15, %rax
jne 0x9b6f3
movq %rbx, %rdi
movq %r14, %rsi
callq 0xf944
movq %rax, %rcx
movq 0x498(%rbx), %rdx
movslq 0x4a4(%rbx), %rax
movq %rcx, (%rdx,%rax,8)
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: hash_entry_to_cons
static s7_pointer hash_entry_to_cons(s7_scheme *sc, hash_entry_t *entry, s7_pointer p)
    {
        if (p)
        {
            set_car(p, hash_entry_key(entry));
            set_cdr(p, hash_entry_value(entry));
            return(p);
        }
        return(cons(sc, hash_entry_key(entry), hash_entry_value(entry)));
    }

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq (%rsi), %r15
testq %rdx, %rdx
je 0x9b7bb
movq %rdx, %rax
movq %r15, 0x8(%rdx)
movq 0x20(%rsi), %r14
jmp 0x9b7fb
movq %rdi, %rbx
movq 0x20(%rsi), %r14
movq 0x90(%rdi), %rax
cmpq 0x98(%rdi), %rax
ja 0x9b7da
movq %rbx, %rdi
callq 0xb389
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movq $0x200001, (%rax)       # imm = 0x200001
movq %r15, 0x8(%rax)
movq %r14, 0x10(%rax)
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: pair_iterate_1
static s7_pointer pair_iterate_1(s7_scheme *sc, s7_pointer obj)
    {
        if (is_pair(iterator_current(obj)))
        {
            s7_pointer result;
            result = car(iterator_current(obj));
            iterator_current(obj) = cdr(iterator_current(obj));
            if (iterator_current(obj) == iterator_slow(obj))
                iterator_current(obj) = sc->nil;
            else iterator_set_slow(obj, cdr(iterator_slow(obj)));
            iterator_next(obj) = pair_iterate;
            return(result);
        }
        return(iterator_quit(obj));
    }

// Assembly:
movq 0x10(%rsi), %rcx
cmpb $0x1, (%rcx)
jne 0x9b84f
movq 0x8(%rcx), %rax
movq 0x10(%rcx), %rcx
movq %rcx, 0x10(%rsi)
movq 0x20(%rsi), %rdx
leaq 0x10(%rdx), %r8
addq $0x110, %rdi            # imm = 0x110
xorl %r9d, %r9d
cmpq %rdx, %rcx
setne %r9b
cmovneq %r8, %rdi
shll $0x4, %r9d
movq (%rdi), %rcx
movq %rcx, 0x10(%r9,%rsi)
leaq -0x61c84(%rip), %rcx    # 0x39bc6
movq %rcx, 0x28(%rsi)
retq
leaq -0x61c47(%rip), %rax    # 0x39c0f
movq %rax, 0x28(%rsi)
andb $0x7f, 0x3(%rsi)
movq 0xb2efb(%rip), %rax     # 0x14e760
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: new_shared_info
static inline shared_info *new_shared_info(s7_scheme *sc)
    {
        shared_info *ci;
        ci = sc->circle_info;
        if (ci->top > 0)
        {
            int32_t i;
            memclr((void *)(ci->refs), ci->top * sizeof(int32_t));
            memclr((void *)(ci->defined), ci->top * sizeof(bool));
            for (i = 0; i < ci->top; i++)
                clear_cyclic_bits(ci->objs[i]); /* LOOP_4 is not faster */
            ci->top = 0;
        }
        ci->ref = 0;
        ci->has_hits = false;
        return(ci);
    }

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq 0x6c0(%rdi), %rbx
movslq 0xc(%rbx), %r14
testq %r14, %r14
jle 0x9c735
movl %r14d, %eax
movq 0x20(%rbx), %r15
shlq $0x2, %r14
cmpl $0x1, %eax
je 0x9c6b9
movabsq $0x1fffffff8, %r12      # imm = 0x1FFFFFFF8
andq %r14, %r12
movq %r15, %rdi
xorl %esi, %esi
movq %r12, %rdx
callq 0x9270
addq %r12, %r15
andl $0x4, %r14d
testq %r14, %r14
je 0x9c6cb
movq %r15, %rdi
xorl %esi, %esi
movq %r14, %rdx
callq 0x9270
movq 0x48(%rbx), %r15
movslq 0xc(%rbx), %r14
cmpq $0x8, %r14
jb 0x9c6f4
movq %r14, %r12
andq $-0x8, %r12
movq %r15, %rdi
xorl %esi, %esi
movq %r12, %rdx
callq 0x9270
addq %r12, %r15
andl $0x7, %r14d
testq %r14, %r14
je 0x9c706
movq %r15, %rdi
xorl %esi, %esi
movq %r14, %rdx
callq 0x9270
cmpl $0x0, 0xc(%rbx)
jle 0x9c72e
xorl %eax, %eax
movabsq $-0x600000000a0001, %rcx # imm = 0xFF9FFFFFFFF5FFFF
movq (%rbx), %rdx
movq (%rdx,%rax,8), %rdx
andq %rcx, (%rdx)
incq %rax
movslq 0xc(%rbx), %rdx
cmpq %rdx, %rax
jl 0x9c718
movl $0x0, 0xc(%rbx)
movl $0x0, 0x10(%rbx)
movb $0x0, 0x18(%rbx)
movq %rbx, %rax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: check_collected
static bool check_collected(s7_pointer top, shared_info *ci)
    {
        s7_pointer *p, *objs_end;
        int32_t i;

        objs_end = (s7_pointer *)(ci->objs + ci->top);
        for (p = ci->objs; p < objs_end; p++)
            if ((*p) == top)
            {
                i = (int32_t)(p - ci->objs);
                if (ci->refs[i] == 0)
                {
                    ci->has_hits = true;
                    ci->refs[i] = ++ci->ref;  /* if found, set the ref number */
                }
                break;
            }
        set_cyclic(top);
        return(true);
    }

// Assembly:
movslq 0xc(%rsi), %rax
testq %rax, %rax
jle 0x9cf44
movq (%rsi), %rcx
leaq (%rcx,%rax,8), %rdx
xorl %eax, %eax
movabsq $0x100000000, %r8       # imm = 0x100000000
cmpq %rdi, (%rcx)
je 0x9cf27
addq $0x8, %rcx
addq %r8, %rax
cmpq %rdx, %rcx
jb 0x9cf14
jmp 0x9cf44
movq 0x20(%rsi), %rcx
sarq $0x20, %rax
cmpl $0x0, (%rcx,%rax,4)
jne 0x9cf44
movb $0x1, 0x18(%rsi)
movl 0x10(%rsi), %edx
incl %edx
movl %edx, 0x10(%rsi)
movl %edx, (%rcx,%rax,4)
orb $0x20, 0x6(%rdi)
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: enlarge_shared_info
static void enlarge_shared_info(shared_info *ci)
    {
        int32_t i;
        ci->size *= 2;
        ci->size2 = ci->size - 2;
        ci->objs = (s7_pointer *)realloc(ci->objs, ci->size * sizeof(s7_pointer));
        ci->refs = (int32_t *)realloc(ci->refs, ci->size * sizeof(int32_t));
        ci->defined = (bool *)realloc(ci->defined, ci->size * sizeof(bool));
        /* this clearing is needed */
        for (i = ci->top; i < ci->size; i++)
        {
            ci->refs[i] = 0;
            ci->objs[i] = NULL;
        }
    }

// Assembly:
pushq %rbx
movq %rdi, %rbx
movslq 0x8(%rdi), %rsi
leal (%rsi,%rsi), %eax
movl %eax, 0x8(%rdi)
leal -0x2(,%rsi,2), %eax
movl %eax, 0x14(%rdi)
movq (%rdi), %rdi
shlq $0x4, %rsi
callq 0x9510
movq %rax, (%rbx)
movq 0x20(%rbx), %rdi
movslq 0x8(%rbx), %rsi
shlq $0x2, %rsi
callq 0x9510
movq %rax, 0x20(%rbx)
movq 0x48(%rbx), %rdi
movslq 0x8(%rbx), %rsi
callq 0x9510
movq %rax, 0x48(%rbx)
movslq 0xc(%rbx), %rax
cmpl 0x8(%rbx), %eax
jge 0x9cfc1
movq 0x20(%rbx), %rcx
movl $0x0, (%rcx,%rax,4)
movq (%rbx), %rcx
movq $0x0, (%rcx,%rax,8)
incq %rax
movslq 0x8(%rbx), %rcx
cmpq %rcx, %rax
jl 0x9cf9f
popq %rbx
retq
// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: collect_vector_info
static bool collect_vector_info(s7_scheme *sc, shared_info *ci, s7_pointer top, bool stop_at_print_length)
    {
        s7_int i, plen;
        bool cyclic = false;

        if (stop_at_print_length)
        {
            plen = sc->print_length;
            if (plen > vector_length(top))
                plen = vector_length(top);
        }
        else plen = vector_length(top);

        for (i = 0; i < plen; i++)
        {
            s7_pointer vel;
            vel = unchecked_vector_element(top, i);   /* "unchecked" because top might be rootlet, I think */
            if ((has_structure(vel)) &&
                    (collect_shared_info(sc, ci, vel, stop_at_print_length)))
            {
                set_cyclic(vel);
                cyclic = true;
                if ((is_c_pointer(vel)) ||
                        (is_iterator(vel)) ||
                        (is_c_object(vel)))
                    check_collected(top, ci);
            }
        }
        if (cyclic) set_cyclic(top);
        return(cyclic);
    }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rdx, %rbx
movq %rsi, %r14
testl %ecx, %ecx
je 0x9cfef
movq 0x280(%rdi), %rax
movq 0x8(%rbx), %r15
cmpq %r15, %rax
cmovlq %rax, %r15
jmp 0x9cff3
movq 0x8(%rbx), %r15
testq %r15, %r15
jle 0x9d092
movq %rdi, 0x10(%rsp)
xorl %r12d, %r12d
leaq 0xbd335(%rip), %rbp     # 0x15a340
movzbl %cl, %eax
movl %eax, 0x4(%rsp)
movq $0x0, 0x8(%rsp)
movq 0x10(%rbx), %rax
movq (%rax,%r12,8), %r13
movzbl (%r13), %eax
cmpb $0x1, (%rax,%rbp)
jne 0x9d083
cmpb $0x15, %al
jne 0x9d039
testb $0x1, 0x7(%r13)
jne 0x9d083
movq 0x10(%rsp), %rdi
movq %r14, %rsi
movq %r13, %rdx
movl 0x4(%rsp), %ecx
callq 0x9c74f
testb %al, %al
je 0x9d083
orb $0x20, 0x6(%r13)
movzbl (%r13), %eax
movb $0x1, %cl
movq %rcx, 0x8(%rsp)
cmpq $0x21, %rax
ja 0x9d083
movabsq $0x220100000, %rcx      # imm = 0x220100000
btq %rax, %rcx
jae 0x9d083
movq %rbx, %rdi
movq %r14, %rsi
callq 0x9cef8
incq %r12
cmpq %r12, %r15
jne 0x9d01b
movq 0x8(%rsp), %rax
jmp 0x9d094
xorl %eax, %eax
testb $0x1, %al
je 0x9d09c
orb $0x20, 0x6(%rbx)
andb $0x1, %al
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq