// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: number_to_string_p_pp
static s7_pointer number_to_string_p_pp(s7_scheme *sc, s7_pointer p1, s7_pointer p2)
    {
        s7_int nlen = 0, radix;
        block_t *b;

        if (!is_number(p1))
            return(wrong_type_argument_with_type(sc, sc->number_to_string_symbol, 1, p1, a_number_string));
        if (!is_t_integer(p2))
            return(wrong_type_argument(sc, sc->number_to_string_symbol, 2, p2, T_INTEGER));
        radix = s7_integer(p2);
        if ((radix < 2) || (radix > 16))
            return(out_of_range(sc, sc->number_to_string_symbol, small_int(2), p2, a_valid_radix_string));

        b = number_to_string_with_radix(sc, p1, radix, 0, sc->float_format_precision, 'g', &nlen);
        return(block_to_string(sc, b, nlen));
    }

// Assembly:
subq $0xb8, %rsp
movq %rdi, 0xa8(%rsp)
movq %rsi, 0xa0(%rsp)
movq %rdx, 0x98(%rsp)
movq $0x0, 0x90(%rsp)
movq 0xa0(%rsp), %rax
movzbl (%rax), %eax
movl %eax, %ecx
leaq 0x16f451(%rip), %rax    # 0x21a4a0
testb $0x1, (%rax,%rcx)
jne 0xab17e
movq 0xa8(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0xa8(%rsp), %rax
movq 0x1370(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x38(%rsp)
movq $0x1, 0x78(%rsp)
movq 0x78(%rsp), %rax
andq $-0x800, %rax           # imm = 0xF800
cmpq $0x0, %rax
jne 0xab0b2
movq 0x78(%rsp), %rcx
leaq 0x16b3dc(%rip), %rax    # 0x216480
movq (%rax,%rcx,8), %rax
movq %rax, 0x28(%rsp)
jmp 0xab135
jmp 0xab0b4
movq 0xa8(%rsp), %rax
movq 0x90(%rax), %rax
movq 0xa8(%rsp), %rcx
cmpq 0x98(%rcx), %rax
ja 0xab0e1
movq 0xa8(%rsp), %rdi
callq 0xc670
movq 0xa8(%rsp), %rcx
movq 0x90(%rcx), %rax
movq %rax, %rdx
addq $-0x8, %rdx
movq %rdx, 0x90(%rcx)
movq -0x8(%rax), %rax
movq %rax, 0x68(%rsp)
movq 0x68(%rsp), %rax
movq $0xb, (%rax)
movq 0x78(%rsp), %rcx
movq 0x68(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x68(%rsp), %rax
movq %rax, 0x60(%rsp)
movq 0x60(%rsp), %rax
movq %rax, 0x28(%rsp)
movq 0x38(%rsp), %rsi
movq 0x30(%rsp), %rdi
movq 0x28(%rsp), %rax
movq %rax, 0x70(%rsp)
movq 0x70(%rsp), %rdx
movq 0xa0(%rsp), %rcx
movq 0xa8(%rsp), %rax
movq 0x140(%rax), %r8
movq 0x179d84(%rip), %r9     # 0x224ef0
callq 0xc560
movq %rax, 0xb0(%rsp)
jmp 0xab393
movq 0x98(%rsp), %rax
movzbl (%rax), %eax
cmpl $0xb, %eax
je 0xab2b7
movq 0xa8(%rsp), %rax
movq %rax, 0x18(%rsp)
movq 0xa8(%rsp), %rax
movq 0x1370(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x20(%rsp)
movq $0x2, 0x58(%rsp)
movq 0x58(%rsp), %rax
andq $-0x800, %rax           # imm = 0xF800
cmpq $0x0, %rax
jne 0xab1eb
movq 0x58(%rsp), %rcx
leaq 0x16b2a3(%rip), %rax    # 0x216480
movq (%rax,%rcx,8), %rax
movq %rax, 0x10(%rsp)
jmp 0xab26e
jmp 0xab1ed
movq 0xa8(%rsp), %rax
movq 0x90(%rax), %rax
movq 0xa8(%rsp), %rcx
cmpq 0x98(%rcx), %rax
ja 0xab21a
movq 0xa8(%rsp), %rdi
callq 0xc670
movq 0xa8(%rsp), %rcx
movq 0x90(%rcx), %rax
movq %rax, %rdx
addq $-0x8, %rdx
movq %rdx, 0x90(%rcx)
movq -0x8(%rax), %rax
movq %rax, 0x48(%rsp)
movq 0x48(%rsp), %rax
movq $0xb, (%rax)
movq 0x58(%rsp), %rcx
movq 0x48(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x48(%rsp), %rax
movq %rax, 0x40(%rsp)
movq 0x40(%rsp), %rax
movq %rax, 0x10(%rsp)
movq 0x20(%rsp), %rsi
movq 0x18(%rsp), %rdi
movq 0x10(%rsp), %rax
movq %rax, 0x50(%rsp)
movq 0x50(%rsp), %rdx
movq 0x98(%rsp), %rcx
movq 0xa8(%rsp), %rax
movq 0x140(%rax), %r8
movq 0x16f343(%rip), %r9     # 0x21a5e8
callq 0xc560
movq %rax, 0xb0(%rsp)
jmp 0xab393
movq 0x98(%rsp), %rdi
callq 0x10790
movq %rax, 0x88(%rsp)
cmpq $0x2, 0x88(%rsp)
jl 0xab2e2
cmpq $0x10, 0x88(%rsp)
jle 0xab322
movq 0xa8(%rsp), %rdi
movq 0xa8(%rsp), %rax
movq 0x1370(%rax), %rax
movq 0x8(%rax), %rsi
movq 0x16b18c(%rip), %rdx    # 0x216490
movq 0x98(%rsp), %rcx
movq 0x179ecd(%rip), %r8     # 0x2251e0
callq 0x13880
movq %rax, 0xb0(%rsp)
jmp 0xab393
movq 0xa8(%rsp), %rdi
movq 0xa0(%rsp), %rsi
movq 0x88(%rsp), %rax
movl %eax, %edx
movq 0xa8(%rsp), %rax
movslq 0x468(%rax), %r8
xorl %eax, %eax
movl %eax, %ecx
movl $0x67, %r9d
leaq 0x90(%rsp), %rax
movq %rax, (%rsp)
callq 0x129b0
movq %rax, 0x80(%rsp)
movq 0xa8(%rsp), %rdi
movq 0x80(%rsp), %rsi
movq 0x90(%rsp), %rdx
callq 0x2d220
movq %rax, 0xb0(%rsp)
movq 0xb0(%rsp), %rax
addq $0xb8, %rsp
retq
nopw %cs:(%rax,%rax)