// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: make_vector_1
static s7_pointer make_vector_1(s7_scheme *sc, s7_int len, bool filled, uint8_t typ)
                {
                    s7_pointer x;

                    if (len < 0)
                        return(wrong_type_argument_with_type(sc, sc->make_vector_symbol, 1, wrap_integer1(sc, len), a_non_negative_integer_string));
                    if (len > sc->max_vector_length)
                        return(out_of_range(sc, sc->make_vector_symbol, small_int(1), wrap_integer1(sc, len), its_too_large_string));

                    /* this has to follow the error checks! (else garbage in free_heap temps portion confuses GC when "vector" is finalized) */

                    new_cell(sc, x, typ | T_SAFE_PROCEDURE);
                    vector_length(x) = len;
                    if (len == 0)
                    {
                        vector_block(x) = mallocate_vector(sc, 0);
                        vector_elements(x) = NULL;
                        if (typ == T_VECTOR) set_has_simple_elements(x);
                    }
                    else
                    {
                        block_t *b;
                        if (typ == T_VECTOR)
                        {
                            b = mallocate_vector(sc, len * sizeof(s7_pointer));
                            vector_block(x) = b;
                            vector_elements(x) = (s7_pointer *)block_data(b);
                            vector_getter(x) = default_vector_getter;
                            vector_setter(x) = default_vector_setter;
                            if (filled)
                                s7_vector_fill(sc, x, sc->nil);
                        }
                        else
                        {
                            if (typ == T_FLOAT_VECTOR)
                            {
                                b = mallocate_vector(sc, len * sizeof(s7_double));
                                vector_block(x) = b;
                                float_vector_floats(x) = (s7_double *)block_data(b);
                                if (filled)
                                {
                                    if (STEP_8(len))
                                        memclr64((void *)vector_elements(x), len * sizeof(s7_double));
                                    else memclr((void *)vector_elements(x), len * sizeof(s7_double));
                                }
                                vector_getter(x) = float_vector_getter;
                                vector_setter(x) = float_vector_setter;
                            }
                            else
                            {
                                if (typ == T_INT_VECTOR)
                                {
                                    b = mallocate_vector(sc, len * sizeof(s7_int));
                                    vector_block(x) = b;
                                    int_vector_ints(x) = (s7_int *)block_data(b);
                                    if (filled)
                                    {
                                        if (STEP_8(len))
                                            memclr64((void *)vector_elements(x), len * sizeof(s7_int));
                                        else memclr((void *)vector_elements(x), len * sizeof(s7_int));
                                    }
                                    vector_getter(x) = int_vector_getter;
                                    vector_setter(x) = int_vector_setter;
                                }
                                else
                                {
#if S7_DEBUGGING
                                    if (typ != T_BYTE_VECTOR)
                                        fprintf(stderr, "%s: typ=%d\n", __func__, (int)typ);
#endif
                                    b = mallocate(sc, len);
                                    vector_block(x) = b;
                                    byte_vector_bytes(x) = (uint8_t *)block_data(b);
                                    vector_getter(x) = byte_vector_getter;
                                    vector_setter(x) = byte_vector_setter;
                                    if (filled)
                                    {
                                        if (STEP_8(len))
                                            memclr64((void *)(byte_vector_bytes(x)), len);
                                        else memclr((void *)(byte_vector_bytes(x)), len);
                                    }}}}}
                    vector_set_dimension_info(x, NULL);
                    return(x);
                }

// Assembly:
subq $0x88, %rsp
movb %cl, %al
movb %dl, %cl
movq %rdi, 0x78(%rsp)
movq %rsi, 0x70(%rsp)
andb $0x1, %cl
movb %cl, 0x6f(%rsp)
movb %al, 0x6e(%rsp)
cmpq $0x0, 0x70(%rsp)
jge 0x3350d
movq 0x78(%rsp), %rax
movq %rax, 0x28(%rsp)
movq 0x78(%rsp), %rax
movq 0x1318(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x30(%rsp)
movq $0x1, 0x58(%rsp)
movq 0x58(%rsp), %rax
andq $-0x800, %rax           # imm = 0xF800
cmpq $0x0, %rax
jne 0x3343c
movq 0x58(%rsp), %rcx
leaq 0x1e304f(%rip), %rax    # 0x216480
movq (%rax,%rcx,8), %rax
movq %rax, 0x20(%rsp)
jmp 0x334b3
jmp 0x3343e
movq 0x78(%rsp), %rax
movq 0x90(%rax), %rax
movq 0x78(%rsp), %rcx
cmpq 0x98(%rcx), %rax
ja 0x33462
movq 0x78(%rsp), %rdi
callq 0xc670
movq 0x78(%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, 0x20(%rsp)
movq 0x20(%rsp), %rax
movq %rax, 0x50(%rsp)
movq 0x50(%rsp), %rax
movq %rax, 0x18(%rsp)
movq 0x78(%rsp), %rdi
movq 0x70(%rsp), %rsi
callq 0x12430
movq 0x28(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq 0x18(%rsp), %rdx
movq %rax, %rcx
movq 0x78(%rsp), %rax
movq 0x140(%rax), %r8
movq 0x1ef22d(%rip), %r9     # 0x222728
callq 0xc560
movq %rax, 0x80(%rsp)
jmp 0x338e5
movq 0x70(%rsp), %rax
movq 0x78(%rsp), %rcx
cmpq 0x2a0(%rcx), %rax
jle 0x33583
movq 0x78(%rsp), %rax
movq %rax, (%rsp)
movq 0x78(%rsp), %rax
movq 0x1318(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x1e2f43(%rip), %rax    # 0x216488
movq %rax, 0x10(%rsp)
movq 0x78(%rsp), %rdi
movq 0x70(%rsp), %rsi
callq 0x12430
movq (%rsp), %rdi
movq 0x8(%rsp), %rsi
movq 0x10(%rsp), %rdx
movq %rax, %rcx
movq 0x1e6fff(%rip), %r8     # 0x21a570
callq 0x13880
movq %rax, 0x80(%rsp)
jmp 0x338e5
jmp 0x33585
movq 0x78(%rsp), %rax
movq 0x90(%rax), %rax
movq 0x78(%rsp), %rcx
cmpq 0x98(%rcx), %rax
ja 0x335a9
movq 0x78(%rsp), %rdi
callq 0xc670
movq 0x78(%rsp), %rcx
movq 0x90(%rcx), %rax
movq %rax, %rdx
addq $-0x8, %rdx
movq %rdx, 0x90(%rcx)
movq -0x8(%rax), %rax
movq %rax, 0x60(%rsp)
movzbl 0x6e(%rsp), %eax
orl $0x200000, %eax         # imm = 0x200000
movslq %eax, %rcx
movq 0x60(%rsp), %rax
movq %rcx, (%rax)
movq 0x70(%rsp), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x8(%rax)
cmpq $0x0, 0x70(%rsp)
jne 0x33640
movq 0x78(%rsp), %rdi
xorl %eax, %eax
movl %eax, %esi
callq 0x33d80
movq %rax, %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x60(%rsp), %rax
movq $0x0, 0x10(%rax)
movzbl 0x6e(%rsp), %eax
cmpl $0x15, %eax
jne 0x3363b
movq 0x60(%rsp), %rax
movzwl 0x6(%rax), %ecx
orl $0x100, %ecx            # imm = 0x100
movw %cx, 0x6(%rax)
jmp 0x338c7
movzbl 0x6e(%rsp), %eax
cmpl $0x15, %eax
jne 0x336c8
movq 0x78(%rsp), %rdi
movq 0x70(%rsp), %rsi
shlq $0x3, %rsi
callq 0x33d80
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x38(%rsp), %rax
movq (%rax), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x10(%rax)
movq 0x60(%rsp), %rax
leaq 0x2d563(%rip), %rcx     # 0x60bf0
movq %rcx, 0x20(%rax)
movq 0x60(%rsp), %rax
leaq 0x2d583(%rip), %rcx     # 0x60c20
movq %rcx, 0x28(%rax)
testb $0x1, 0x6f(%rsp)
je 0x336c3
movq 0x78(%rsp), %rdi
movq 0x60(%rsp), %rsi
movq 0x78(%rsp), %rax
movq 0x110(%rax), %rdx
callq 0x33f30
jmp 0x338c5
movzbl 0x6e(%rsp), %eax
cmpl $0x17, %eax
jne 0x3377a
movq 0x78(%rsp), %rdi
movq 0x70(%rsp), %rsi
shlq $0x3, %rsi
callq 0x33d80
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x38(%rsp), %rax
movq (%rax), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x10(%rax)
testb $0x1, 0x6f(%rsp)
je 0x33755
movq 0x70(%rsp), %rax
andq $0x7, %rax
cmpq $0x0, %rax
jne 0x3373c
movq 0x60(%rsp), %rax
movq 0x10(%rax), %rdi
movq 0x70(%rsp), %rsi
shlq $0x3, %rsi
callq 0xd7ce0
jmp 0x33753
movq 0x60(%rsp), %rax
movq 0x10(%rax), %rdi
movq 0x70(%rsp), %rsi
shlq $0x3, %rsi
callq 0xd2340
jmp 0x33755
movq 0x60(%rsp), %rax
leaq 0x68f(%rip), %rcx       # 0x33df0
movq %rcx, 0x20(%rax)
movq 0x60(%rsp), %rax
leaq 0x72f(%rip), %rcx       # 0x33ea0
movq %rcx, 0x28(%rax)
jmp 0x338c3
movzbl 0x6e(%rsp), %eax
cmpl $0x16, %eax
jne 0x3382c
movq 0x78(%rsp), %rdi
movq 0x70(%rsp), %rsi
shlq $0x3, %rsi
callq 0x33d80
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x38(%rsp), %rax
movq (%rax), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x10(%rax)
testb $0x1, 0x6f(%rsp)
je 0x33807
movq 0x70(%rsp), %rax
andq $0x7, %rax
cmpq $0x0, %rax
jne 0x337ee
movq 0x60(%rsp), %rax
movq 0x10(%rax), %rdi
movq 0x70(%rsp), %rsi
shlq $0x3, %rsi
callq 0xd7ce0
jmp 0x33805
movq 0x60(%rsp), %rax
movq 0x10(%rax), %rdi
movq 0x70(%rsp), %rsi
shlq $0x3, %rsi
callq 0xd2340
jmp 0x33807
movq 0x60(%rsp), %rax
leaq 0xa460d(%rip), %rcx     # 0xd7e20
movq %rcx, 0x20(%rax)
movq 0x60(%rsp), %rax
leaq 0xa46dd(%rip), %rcx     # 0xd7f00
movq %rcx, 0x28(%rax)
jmp 0x338c1
movq 0x78(%rsp), %rdi
movq 0x70(%rsp), %rsi
callq 0xaa80
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x38(%rsp), %rax
movq (%rax), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x10(%rax)
movq 0x60(%rsp), %rax
leaq 0xa4715(%rip), %rcx     # 0xd7f80
movq %rcx, 0x20(%rax)
movq 0x60(%rsp), %rax
leaq 0xa47e5(%rip), %rcx     # 0xd8060
movq %rcx, 0x28(%rax)
testb $0x1, 0x6f(%rsp)
je 0x338bf
movq 0x70(%rsp), %rax
andq $0x7, %rax
cmpq $0x0, %rax
jne 0x338aa
movq 0x60(%rsp), %rax
movq 0x10(%rax), %rdi
movq 0x70(%rsp), %rsi
callq 0xd7ce0
jmp 0x338bd
movq 0x60(%rsp), %rax
movq 0x10(%rax), %rdi
movq 0x70(%rsp), %rsi
callq 0xd2340
jmp 0x338bf
jmp 0x338c1
jmp 0x338c3
jmp 0x338c5
jmp 0x338c7
movq 0x60(%rsp), %rax
movq 0x18(%rax), %rax
movq $0x0, 0x20(%rax)
movq 0x60(%rsp), %rax
movq %rax, 0x80(%rsp)
movq 0x80(%rsp), %rax
addq $0x88, %rsp
retq
nopw %cs:(%rax,%rax)