// File: /workspace/github_c_makefile_star2_O2/BernardTatin[P]s7sh/s7.c
// Function: g_string_1
static s7_pointer g_string_1(s7_scheme *sc, s7_pointer args, s7_pointer sym)
    {
        int32_t i, len;
        s7_pointer x, newstr;
        char *str;

        /* get length for new string and check arg types */
        for (len = 0, x = args; is_not_null(x); len++, x = cdr(x))
        {
            s7_pointer p;
            p = car(x);
            if (!s7_is_character(p))
            {
                if (has_active_methods(sc, p))
                {
                    s7_pointer func;
                    func = find_method(sc, find_let(sc, p), sym);
                    if (func != sc->undefined)
                    {
                        s7_pointer y;
                        if (len == 0)
                            return(s7_apply_function(sc, func, args));
                        newstr = make_empty_string(sc, len, 0);
                        str = string_value(newstr);
                        for (i = 0, y = args; y != x; i++, y = cdr(y))
                            str[i] = character(car(y));
                        return(g_string_append_1(sc, set_plist_2(sc, newstr, s7_apply_function(sc, func, x)), sym));
                    }
                }
                return(wrong_type_argument(sc, sym, len + 1, car(x), T_CHARACTER));
            }
        }
        newstr = make_empty_string(sc, len, 0);
        str = string_value(newstr);
        for (i = 0, x = args; is_not_null(x); i++, x = cdr(x))
            str[i] = character(car(x));

        return(newstr);
    }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdx, %r12
movq %rsi, %r14
movq %rdi, %rbx
movq 0x110(%rdi), %rax
xorl %r13d, %r13d
movq %rsi, %r15
cmpq %rax, %r15
je 0xca33a
movq 0x8(%r15), %rsi
cmpb $0x8, (%rsi)
jne 0xca375
incq %r13
movq 0x10(%r15), %r15
jmp 0xca323
movl %r13d, %esi
movq %rbx, %rdi
xorl %edx, %edx
callq 0xd239
movq 0x10(%rax), %rcx
cmpq 0x110(%rbx), %r14
je 0xca366
movq 0x8(%r14), %rdx
movb 0x8(%rdx), %dl
movb %dl, (%rcx)
movq 0x10(%r14), %r14
incq %rcx
jmp 0xca34b
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
testb $0x40, 0x3(%rsi)
je 0xca3de
cmpb $0x1, 0x24c(%rbx)
jne 0xca3de
movq %rbx, %rdi
callq 0x88f3
movq %rbx, %rdi
movq %rax, %rsi
movq %r12, %rdx
callq 0x888f
cmpq 0x128(%rbx), %rax
je 0xca3de
movq %rax, %rbp
testq %r13, %r13
je 0xca4a5
movq %rbx, %rdi
movq %r13, %rsi
xorl %edx, %edx
callq 0xd239
movq %rax, %r13
movq 0x10(%rax), %rax
cmpq %r15, %r14
je 0xca461
movq 0x8(%r14), %rcx
movb 0x8(%rcx), %cl
movb %cl, (%rax)
movq 0x10(%r14), %r14
incq %rax
jmp 0xca3c3
movq 0x8(%r12), %r14
cmpq $0x7fe, %r13            # imm = 0x7FE
ja 0xca3fa
leaq 0x4b55d(%rip), %rax     # 0x115950
movq 0x8(%rax,%r13,8), %rdx
jmp 0xca436
incq %r13
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0xca41c
movq %rbx, %rdi
callq 0x9c27
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rdx
movq $0xb, (%rdx)
movq %r13, 0x8(%rdx)
movq 0x8(%r15), %rcx
movq 0x140(%rbx), %r8
movq 0x4f658(%rip), %r9      # 0x119aa0
movq %rbx, %rdi
movq %r14, %rsi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x9bbb
movq %rbx, %rdi
movq %rbp, %rsi
movq %r15, %rdx
callq 0xa34c
movq 0x708(%rbx), %rcx
movq %r13, 0x8(%rcx)
movq 0x710(%rbx), %rcx
movq %rax, 0x8(%rcx)
movq 0x708(%rbx), %rsi
movq %rbx, %rdi
movq %r12, %rdx
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xc6ff6
movq %rbx, %rdi
movq %rbp, %rsi
movq %r14, %rdx
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xa34c