// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: g_format_allg_no_column
static s7_pointer g_format_allg_no_column(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer pt, str;
                    pt = car(args);
                    if (is_null(pt))
                    {
                        pt = sc->output_port;
                        if (pt == sc->F)
                            return(sc->F);
                    }

                    if (!((s7_is_boolean(pt)) ||
                                ((is_output_port(pt)) &&             /* (current-output-port) or call-with-open-file arg, etc */
                                 (!port_is_closed(pt)))))
                        return(method_or_bust_with_type(sc, pt, sc->format_symbol, args, a_format_port_string, 1));

                    str = cadr(args);
                    sc->format_column = 0;
                    return(format_to_port_1(sc, (pt == sc->T) ? sc->output_port : pt,
                                string_value(str), cddr(args), NULL,
                                !is_output_port(pt),   /* i.e. is boolean port so we're returning a string */
                                false,                 /* we checked in advance that it is not columnized */
                                string_length(str),
                                str));
                }

// Assembly:
subq $0x58, %rsp
movq %rdi, 0x48(%rsp)
movq %rsi, 0x40(%rsp)
movq 0x40(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rax
movq 0x48(%rsp), %rcx
cmpq 0x110(%rcx), %rax
jne 0x1d728b
movq 0x48(%rsp), %rax
movq 0x188(%rax), %rax
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rax
movq 0x48(%rsp), %rcx
cmpq 0x120(%rcx), %rax
jne 0x1d7289
movq 0x48(%rsp), %rax
movq 0x120(%rax), %rax
movq %rax, 0x50(%rsp)
jmp 0x1d73b1
jmp 0x1d728b
movq 0x38(%rsp), %rdi
callq 0x9c50
testb $0x1, %al
jne 0x1d72ec
movq 0x38(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x22, %eax
jne 0x1d72b5
movq 0x38(%rsp), %rax
movq 0x8(%rax), %rax
testb $0x1, 0x2(%rax)
je 0x1d72ec
movq 0x48(%rsp), %rdi
movq 0x38(%rsp), %rsi
movq 0x48(%rsp), %rax
movq 0xf20(%rax), %rdx
movq 0x40(%rsp), %rcx
movq 0x4df01(%rip), %r8      # 0x2251d8
movl $0x1, %r9d
callq 0x14130
movq %rax, 0x50(%rsp)
jmp 0x1d73b1
movq 0x40(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x30(%rsp)
movq 0x48(%rsp), %rax
movl $0x0, 0x238(%rax)
movq 0x48(%rsp), %rax
movq %rax, 0x28(%rsp)
movq 0x38(%rsp), %rax
movq 0x48(%rsp), %rcx
cmpq 0x118(%rcx), %rax
jne 0x1d733d
movq 0x48(%rsp), %rax
movq 0x188(%rax), %rax
movq %rax, 0x20(%rsp)
jmp 0x1d7347
movq 0x38(%rsp), %rax
movq %rax, 0x20(%rsp)
movq 0x28(%rsp), %rdi
movq 0x20(%rsp), %rsi
movq 0x30(%rsp), %rax
movq 0x10(%rax), %rdx
movq 0x40(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rcx
movq 0x38(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x22, %eax
sete %al
xorb $-0x1, %al
movq 0x30(%rsp), %r8
movq 0x8(%r8), %r9
movq 0x30(%rsp), %r10
xorl %r8d, %r8d
movq %rsp, %r8
movq %r10, 0x10(%r8)
movq %r9, 0x8(%r8)
movl $0x0, (%r8)
movzbl %al, %r9d
andl $0x1, %r9d
xorl %eax, %eax
movl %eax, %r8d
callq 0xd2940
movq %rax, 0x50(%rsp)
movq 0x50(%rsp), %rax
addq $0x58, %rsp
retq
nopl (%rax,%rax)