// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: string_read_sharp
static s7_pointer string_read_sharp(s7_scheme *sc, s7_pointer pt)
    {
        /* sc->strbuf[0] has the first char of the string we're reading.
         *   since a *#readers* function might want to get further input, we can't mess with the input even when it is otherwise safe
         */
        char *str;
        str = (char *)(port_data(pt) + port_position(pt));

        if (char_ok_in_a_name[(uint8_t)*str])
        {
            s7_int k;
            char * orig_str;
            orig_str = (char *)(str - 1);
            str++;
            while (char_ok_in_a_name[(uint8_t)(*str)]) {str++;}
            k = str - orig_str;
            if (*str != 0)
                port_position(pt) += (k - 1);
            else port_position(pt) += k;

            if ((k + 1) >= sc->strbuf_size)
                resize_strbuf(sc, k + 1);

            memcpy((void *)(sc->strbuf), (void *)orig_str, k);
            sc->strbuf[k] = '\0';
            return(make_sharp_constant(sc, sc->strbuf, WITH_OVERFLOW_ERROR));
        }
        if (sc->strbuf[0] == 'f')
            return(sc->F);
        if (sc->strbuf[0] == 't')
            return(sc->T);
        if (sc->strbuf[0] == '\\')
        {
            /* must be from #\( and friends -- a character that happens to be not ok-in-a-name */
            sc->strbuf[1] = str[0];
            sc->strbuf[2] = '\0';
            port_position(pt)++;
        }
        else sc->strbuf[1] = '\0';
        return(make_sharp_constant(sc, sc->strbuf, WITH_OVERFLOW_ERROR));
    }

// Assembly:
subq $0x38, %rsp
movq %rdi, 0x28(%rsp)
movq %rsi, 0x20(%rsp)
movq 0x20(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x20(%rsp), %rcx
addq 0x20(%rcx), %rax
movq %rax, 0x18(%rsp)
movq 0x158da4(%rip), %rax    # 0x221e10
movq 0x18(%rsp), %rcx
movzbl (%rcx), %ecx
testb $0x1, (%rax,%rcx)
je 0xc9187
movq 0x18(%rsp), %rax
addq $-0x1, %rax
movq %rax, 0x8(%rsp)
movq 0x18(%rsp), %rax
addq $0x1, %rax
movq %rax, 0x18(%rsp)
movq 0x158d6f(%rip), %rax    # 0x221e10
movq 0x18(%rsp), %rcx
movzbl (%rcx), %ecx
testb $0x1, (%rax,%rcx)
je 0xc90bf
movq 0x18(%rsp), %rax
addq $0x1, %rax
movq %rax, 0x18(%rsp)
jmp 0xc909a
movq 0x18(%rsp), %rax
movq 0x8(%rsp), %rcx
subq %rcx, %rax
movq %rax, 0x10(%rsp)
movq 0x18(%rsp), %rax
movsbl (%rax), %eax
cmpl $0x0, %eax
je 0xc90f6
movq 0x10(%rsp), %rcx
subq $0x1, %rcx
movq 0x20(%rsp), %rax
addq 0x20(%rax), %rcx
movq %rcx, 0x20(%rax)
jmp 0xc9108
movq 0x10(%rsp), %rcx
movq 0x20(%rsp), %rax
addq 0x20(%rax), %rcx
movq %rcx, 0x20(%rax)
movq 0x10(%rsp), %rax
addq $0x1, %rax
movq 0x28(%rsp), %rcx
cmpq 0x4a8(%rcx), %rax
jl 0xc9132
movq 0x28(%rsp), %rdi
movq 0x10(%rsp), %rsi
addq $0x1, %rsi
callq 0xce2e0
movq 0x28(%rsp), %rax
movq 0x4b0(%rax), %rdi
movq 0x8(%rsp), %rsi
movq 0x10(%rsp), %rdx
callq 0x93e0
movq 0x28(%rsp), %rax
movq 0x4b0(%rax), %rax
movq 0x10(%rsp), %rcx
movb $0x0, (%rax,%rcx)
movq 0x28(%rsp), %rdi
movq 0x28(%rsp), %rax
movq 0x4b0(%rax), %rsi
movl $0x1, %edx
callq 0xcbc60
movq %rax, 0x30(%rsp)
jmp 0xc9255
movq 0x28(%rsp), %rax
movq 0x4b0(%rax), %rax
movsbl (%rax), %eax
cmpl $0x66, %eax
jne 0xc91b1
movq 0x28(%rsp), %rax
movq 0x120(%rax), %rax
movq %rax, 0x30(%rsp)
jmp 0xc9255
movq 0x28(%rsp), %rax
movq 0x4b0(%rax), %rax
movsbl (%rax), %eax
cmpl $0x74, %eax
jne 0xc91d8
movq 0x28(%rsp), %rax
movq 0x118(%rax), %rax
movq %rax, 0x30(%rsp)
jmp 0xc9255
movq 0x28(%rsp), %rax
movq 0x4b0(%rax), %rax
movsbl (%rax), %eax
cmpl $0x5c, %eax
jne 0xc9225
movq 0x18(%rsp), %rax
movb (%rax), %cl
movq 0x28(%rsp), %rax
movq 0x4b0(%rax), %rax
movb %cl, 0x1(%rax)
movq 0x28(%rsp), %rax
movq 0x4b0(%rax), %rax
movb $0x0, 0x2(%rax)
movq 0x20(%rsp), %rax
movq 0x20(%rax), %rcx
addq $0x1, %rcx
movq %rcx, 0x20(%rax)
jmp 0xc9235
movq 0x28(%rsp), %rax
movq 0x4b0(%rax), %rax
movb $0x0, 0x1(%rax)
movq 0x28(%rsp), %rdi
movq 0x28(%rsp), %rax
movq 0x4b0(%rax), %rsi
movl $0x1, %edx
callq 0xcbc60
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
addq $0x38, %rsp
retq
nop