// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: stacktrace_add_func
static block_t *stacktrace_add_func(s7_scheme *sc, s7_pointer f, s7_pointer code, char *errstr, char *notes, s7_int code_max, bool as_comment)
                {
                    s7_int newlen, errlen;
                    char *newstr, *str;
                    block_t *newp, *b;

                    errlen = strlen(errstr);
                    if ((is_symbol(f)) &&
                            (f != car(code)))
                    {
                        newlen = symbol_name_length(f) + errlen + 10;
                        newp = mallocate(sc, newlen);
                        newstr = (char *)block_data(newp);
                        /* newstr[0] = '\0'; */
                        errlen = catstrs_direct(newstr, symbol_name(f), ": ", errstr, NULL);
                    }
                    else
                    {
                        newlen = errlen + 8;
                        newp = mallocate(sc, newlen);
                        newstr = (char *)block_data(newp);
                        /* newstr[0] = '\0'; */
                        if ((errlen > 2) && (errstr[2] == '('))
                            errlen = catstrs_direct(newstr, "  ", errstr, NULL);
                        else
                        {
                            memcpy((void *)newstr, (void *)errstr, errlen);
                            newstr[errlen] = '\0';
                        }
                    }

                    newlen = code_max + 8 + ((notes) ? strlen(notes) : 0);
                    b = mallocate(sc, newlen);
                    str = (char *)block_data(b);
                    /* str[0] = '\0'; */

                    if (errlen >= code_max)
                    {
                        newstr[code_max - 4] = '.';
                        newstr[code_max - 3] = '.';
                        newstr[code_max - 2] = '.';
                        newstr[code_max - 1] = '\0';
                        catstrs_direct(str, (as_comment) ? "; " : "", newstr, (notes) ? notes : "", "\n", NULL);
                    }
                    else
                    {
                        /* send out newstr, pad with spaces to code_max, then notes */
                        s7_int len;
                        len = catstrs_direct(str, (as_comment) ? "; " : "", newstr, NULL);
                        if (notes)
                        {
                            s7_int i;
                            for (i = len; i < code_max - 1; i++)
                                str[i] = ' ';
                            str[i] = '\0';
                            catstrs(str, newlen, notes, "\n", NULL);
                        }
                        else catstrs(str, newlen, "\n", NULL);
                    }
                    liberate(sc, newp);
                    return(b);
                }

// Assembly:
subq $0xa8, %rsp
movb 0xb0(%rsp), %al
movq %rdi, 0xa0(%rsp)
movq %rsi, 0x98(%rsp)
movq %rdx, 0x90(%rsp)
movq %rcx, 0x88(%rsp)
movq %r8, 0x80(%rsp)
movq %r9, 0x78(%rsp)
andb $0x1, %al
movb %al, 0x77(%rsp)
movq 0x88(%rsp), %rdi
callq 0x91a0
movq %rax, 0x60(%rsp)
movq 0x98(%rsp), %rax
movzbl (%rax), %eax
cmpl $0xa, %eax
jne 0xddc39
movq 0x98(%rsp), %rax
movq 0x90(%rsp), %rcx
cmpq 0x8(%rcx), %rax
je 0xddc39
movq 0x98(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rax
addq 0x60(%rsp), %rax
addq $0xa, %rax
movq %rax, 0x68(%rsp)
movq 0xa0(%rsp), %rdi
movq 0x68(%rsp), %rsi
callq 0xaa80
movq %rax, 0x48(%rsp)
movq 0x48(%rsp), %rax
movq (%rax), %rax
movq %rax, 0x58(%rsp)
movq 0x58(%rsp), %rdi
movq 0x98(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rsi
movq 0x88(%rsp), %rcx
leaq 0x104006(%rip), %rdx    # 0x1e1c29
xorl %eax, %eax
movl %eax, %r8d
movb $0x0, %al
callq 0x10540
movq %rax, 0x60(%rsp)
jmp 0xddcd1
movq 0x60(%rsp), %rax
addq $0x8, %rax
movq %rax, 0x68(%rsp)
movq 0xa0(%rsp), %rdi
movq 0x68(%rsp), %rsi
callq 0xaa80
movq %rax, 0x48(%rsp)
movq 0x48(%rsp), %rax
movq (%rax), %rax
movq %rax, 0x58(%rsp)
cmpq $0x2, 0x60(%rsp)
jle 0xddcaa
movq 0x88(%rsp), %rax
movsbl 0x2(%rax), %eax
cmpl $0x28, %eax
jne 0xddcaa
movq 0x58(%rsp), %rdi
movq 0x88(%rsp), %rdx
leaq 0x1113c6(%rip), %rsi    # 0x1ef05e
xorl %eax, %eax
movl %eax, %ecx
movb $0x0, %al
callq 0x10540
movq %rax, 0x60(%rsp)
jmp 0xddccf
movq 0x58(%rsp), %rdi
movq 0x88(%rsp), %rsi
movq 0x60(%rsp), %rdx
callq 0x93e0
movq 0x58(%rsp), %rax
movq 0x60(%rsp), %rcx
movb $0x0, (%rax,%rcx)
jmp 0xddcd1
movq 0x78(%rsp), %rax
addq $0x8, %rax
movq %rax, 0x28(%rsp)
cmpq $0x0, 0x80(%rsp)
je 0xddcfe
movq 0x80(%rsp), %rdi
callq 0x91a0
movq %rax, 0x20(%rsp)
jmp 0xddd07
xorl %eax, %eax
movq %rax, 0x20(%rsp)
jmp 0xddd07
movq 0x28(%rsp), %rax
movq 0x20(%rsp), %rcx
addq %rcx, %rax
movq %rax, 0x68(%rsp)
movq 0xa0(%rsp), %rdi
movq 0x68(%rsp), %rsi
callq 0xaa80
movq %rax, 0x40(%rsp)
movq 0x40(%rsp), %rax
movq (%rax), %rax
movq %rax, 0x50(%rsp)
movq 0x60(%rsp), %rax
cmpq 0x78(%rsp), %rax
jl 0xdde18
movq 0x58(%rsp), %rax
movq 0x78(%rsp), %rcx
subq $0x4, %rcx
movb $0x2e, (%rax,%rcx)
movq 0x58(%rsp), %rax
movq 0x78(%rsp), %rcx
subq $0x3, %rcx
movb $0x2e, (%rax,%rcx)
movq 0x58(%rsp), %rax
movq 0x78(%rsp), %rcx
subq $0x2, %rcx
movb $0x2e, (%rax,%rcx)
movq 0x58(%rsp), %rax
movq 0x78(%rsp), %rcx
subq $0x1, %rcx
movb $0x0, (%rax,%rcx)
movq 0x50(%rsp), %rax
movq %rax, 0x8(%rsp)
movb 0x77(%rsp), %dl
leaq 0x11670f(%rip), %rax    # 0x1f44b9
leaq 0x1112b1(%rip), %rcx    # 0x1ef062
testb $0x1, %dl
cmovneq %rcx, %rax
movq %rax, 0x10(%rsp)
movq 0x58(%rsp), %rax
movq %rax, 0x18(%rsp)
cmpq $0x0, 0x80(%rsp)
je 0xddde0
movq 0x80(%rsp), %rax
movq %rax, (%rsp)
jmp 0xddded
leaq 0x1166d2(%rip), %rax    # 0x1f44b9
movq %rax, (%rsp)
jmp 0xddded
movq 0x18(%rsp), %rdx
movq 0x10(%rsp), %rsi
movq 0x8(%rsp), %rdi
movq (%rsp), %rcx
leaq 0x1166b1(%rip), %r8     # 0x1f44b8
xorl %eax, %eax
movl %eax, %r9d
movb $0x0, %al
callq 0x10540
jmp 0xddee4
movq 0x50(%rsp), %rdi
movb 0x77(%rsp), %cl
leaq 0x116691(%rip), %rsi    # 0x1f44b9
leaq 0x111233(%rip), %rax    # 0x1ef062
testb $0x1, %cl
cmovneq %rax, %rsi
movq 0x58(%rsp), %rdx
xorl %eax, %eax
movl %eax, %ecx
movb $0x0, %al
callq 0x10540
movq %rax, 0x38(%rsp)
cmpq $0x0, 0x80(%rsp)
je 0xddec6
movq 0x38(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq 0x78(%rsp), %rcx
subq $0x1, %rcx
cmpq %rcx, %rax
jge 0xdde91
movq 0x50(%rsp), %rax
movq 0x30(%rsp), %rcx
movb $0x20, (%rax,%rcx)
movq 0x30(%rsp), %rax
addq $0x1, %rax
movq %rax, 0x30(%rsp)
jmp 0xdde60
movq 0x50(%rsp), %rax
movq 0x30(%rsp), %rcx
movb $0x0, (%rax,%rcx)
movq 0x50(%rsp), %rdi
movq 0x68(%rsp), %rsi
movq 0x80(%rsp), %rdx
leaq 0x116600(%rip), %rcx    # 0x1f44b8
xorl %eax, %eax
movl %eax, %r8d
movb $0x0, %al
callq 0xabd0
jmp 0xddee2
movq 0x50(%rsp), %rdi
movq 0x68(%rsp), %rsi
leaq 0x1165e1(%rip), %rdx    # 0x1f44b8
xorl %eax, %eax
movl %eax, %ecx
movb $0x0, %al
callq 0xabd0
jmp 0xddee4
movq 0xa0(%rsp), %rdi
movq 0x48(%rsp), %rsi
callq 0xb230
movq 0x40(%rsp), %rax
addq $0xa8, %rsp
retq
nopw %cs:(%rax,%rax)