// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: subvector
static s7_pointer subvector(s7_scheme *sc, s7_pointer vect, s7_int skip_dims, s7_int index)
                {
                    s7_pointer x;
                    s7_int dims;

                    new_cell(sc, x, (typeflag(vect) & (~T_COLLECTED)) | T_SUBVECTOR | T_SAFE_PROCEDURE);
                    vector_length(x) = 0;
                    vector_block(x) = mallocate_vector(sc, 0);
                    vector_elements(x) = NULL;
                    vector_getter(x) = vector_getter(vect);
                    vector_setter(x) = vector_setter(vect);

                    dims = vector_ndims(vect) - skip_dims;
                    if (dims > 1)
                    {
                        vdims_t *v;
                        v = (vdims_t *)mallocate_block(sc);
                        vdims_rank(v) = dims;
                        vdims_dims(v) = (s7_int *)(vector_dimensions(vect) + skip_dims);
                        vdims_offsets(v) = (s7_int *)(vector_offsets(vect) + skip_dims);
                        vdims_original(v) = vect;
                        vector_elements_should_be_freed(v) = false;
                        vector_set_dimension_info(x, v);
                    }
                    else
                    {
                        vector_set_dimension_info(x, NULL);
                        subvector_set_vector(x, vect);
                    }

                    if (is_normal_vector(vect))
                        mark_function[T_VECTOR] = mark_vector_possibly_shared;
                    else mark_function[type(vect)] = mark_int_or_float_vector_possibly_shared;

                    if (skip_dims > 0)
                        vector_length(x) = vector_offset(vect, skip_dims - 1);
                    else vector_length(x) = vector_length(vect);

                    if (is_int_vector(vect))
                        int_vector_ints(x) = (s7_int *)(int_vector_ints(vect) + index);
                    else
                    {
                        if (is_float_vector(vect))
                            float_vector_floats(x) = (s7_double *)(float_vector_floats(vect) + index);
                        else
                        {
                            if (is_normal_vector(vect))
                                vector_elements(x) = (s7_pointer *)(vector_elements(vect) + index);
                            else byte_vector_bytes(x) = (uint8_t *)(byte_vector_bytes(vect) + index);
                        }
                    }
                    add_multivector(sc, x);
                    return(x);
                }

// Assembly:
subq $0x38, %rsp
movq %rdi, 0x30(%rsp)
movq %rsi, 0x28(%rsp)
movq %rdx, 0x20(%rsp)
movq %rcx, 0x18(%rsp)
movq 0x30(%rsp), %rax
movq 0x90(%rax), %rax
movq 0x30(%rsp), %rcx
cmpq 0x98(%rcx), %rax
ja 0x16c57c
movq 0x30(%rsp), %rdi
callq 0xc670
movq 0x30(%rsp), %rcx
movq 0x90(%rcx), %rax
movq %rax, %rdx
addq $-0x8, %rdx
movq %rdx, 0x90(%rcx)
movq -0x8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x28(%rsp), %rax
movq (%rax), %rcx
andq $-0x20001, %rcx         # imm = 0xFFFDFFFF
orq $0x20000000, %rcx       # imm = 0x20000000
orq $0x200000, %rcx         # imm = 0x200000
movq 0x10(%rsp), %rax
movq %rcx, (%rax)
movq 0x10(%rsp), %rax
movq $0x0, 0x8(%rax)
movq 0x30(%rsp), %rdi
xorl %eax, %eax
movl %eax, %esi
callq 0x33d80
movq %rax, %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x10(%rsp), %rax
movq $0x0, 0x10(%rax)
movq 0x28(%rsp), %rax
movq 0x20(%rax), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x20(%rax)
movq 0x28(%rsp), %rax
movq 0x28(%rax), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x28(%rax)
movq 0x28(%rsp), %rax
movq 0x18(%rax), %rax
movq 0x20(%rax), %rax
movq 0x10(%rax), %rax
subq 0x20(%rsp), %rax
movq %rax, 0x8(%rsp)
cmpq $0x1, 0x8(%rsp)
jle 0x16c6ce
movq 0x30(%rsp), %rdi
callq 0x11020
movq %rax, (%rsp)
movq 0x8(%rsp), %rcx
movq (%rsp), %rax
movq %rcx, 0x10(%rax)
movq 0x28(%rsp), %rax
movq 0x18(%rax), %rax
movq 0x20(%rax), %rax
movq (%rax), %rcx
movq 0x20(%rsp), %rax
shlq $0x3, %rax
addq %rax, %rcx
movq (%rsp), %rax
movq %rcx, (%rax)
movq 0x28(%rsp), %rax
movq 0x18(%rax), %rax
movq 0x20(%rax), %rax
movq 0x18(%rax), %rcx
movq 0x20(%rsp), %rax
shlq $0x3, %rax
addq %rax, %rcx
movq (%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x28(%rsp), %rcx
movq (%rsp), %rax
movq %rcx, 0x20(%rax)
movq (%rsp), %rax
movb $0x0, 0xc(%rax)
movq (%rsp), %rcx
movq 0x10(%rsp), %rax
movq 0x18(%rax), %rax
movq %rcx, 0x20(%rax)
jmp 0x16c6f1
movq 0x10(%rsp), %rax
movq 0x18(%rax), %rax
movq $0x0, 0x20(%rax)
movq 0x28(%rsp), %rcx
movq 0x10(%rsp), %rax
movq 0x18(%rax), %rax
movq %rcx, 0x18(%rax)
movq 0x28(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x15, %eax
jne 0x16c70e
leaq 0xd0b(%rip), %rax       # 0x16d410
movq %rax, 0xa9c3c(%rip)     # 0x216348
jmp 0x16c72a
movq 0x28(%rsp), %rax
movzbl (%rax), %eax
movl %eax, %ecx
leaq 0xa9b81(%rip), %rax     # 0x2162a0
leaq 0xd8a(%rip), %rdx       # 0x16d4b0
movq %rdx, (%rax,%rcx,8)
cmpq $0x0, 0x20(%rsp)
jle 0x16c75b
movq 0x28(%rsp), %rax
movq 0x18(%rax), %rax
movq 0x20(%rax), %rax
movq 0x18(%rax), %rax
movq 0x20(%rsp), %rcx
subq $0x1, %rcx
movq (%rax,%rcx,8), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x8(%rax)
jmp 0x16c76d
movq 0x28(%rsp), %rax
movq 0x8(%rax), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x28(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x16, %eax
jne 0x16c79a
movq 0x28(%rsp), %rax
movq 0x10(%rax), %rcx
movq 0x18(%rsp), %rax
shlq $0x3, %rax
addq %rax, %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x10(%rax)
jmp 0x16c80f
movq 0x28(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x17, %eax
jne 0x16c7c7
movq 0x28(%rsp), %rax
movq 0x10(%rax), %rcx
movq 0x18(%rsp), %rax
shlq $0x3, %rax
addq %rax, %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x10(%rax)
jmp 0x16c80d
movq 0x28(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x15, %eax
jne 0x16c7f4
movq 0x28(%rsp), %rax
movq 0x10(%rax), %rcx
movq 0x18(%rsp), %rax
shlq $0x3, %rax
addq %rax, %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x10(%rax)
jmp 0x16c80b
movq 0x28(%rsp), %rax
movq 0x10(%rax), %rcx
addq 0x18(%rsp), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x10(%rax)
jmp 0x16c80d
jmp 0x16c80f
movq 0x30(%rsp), %rax
movq 0x790(%rax), %rdi
movq 0x10(%rsp), %rsi
callq 0x11230
movq 0x10(%rsp), %rax
addq $0x38, %rsp
retq
nop