// File: /workspace/github_c_makefile_star2_O2/BernardTatin[P]s7sh/s7.c
// Function: vector_fill
static void vector_fill(s7_scheme *sc, s7_pointer vec, s7_pointer obj)
                {
                    switch (type(vec))
                    {
                        case T_FLOAT_VECTOR:
                            if (!s7_is_real(obj))
                                s7_wrong_type_arg_error(sc, "float-vector fill!", 2, obj, "a real");
                            else float_vector_fill(sc, vec, s7_real(obj));
                            break;

                        case T_INT_VECTOR:
                            if (!s7_is_integer(obj)) /* possibly a bignum */
                                s7_wrong_type_arg_error(sc, "int-vector fill!", 2, obj, "an integer");
                            else int_vector_fill(sc, vec, s7_integer(obj));
                            break;

                        case T_BYTE_VECTOR:
                            if (!is_byte(obj))
                                s7_wrong_type_arg_error(sc, "byte-vector fill!", 2, obj, "a byte");
                            else byte_vector_fill(sc, vec, (uint8_t)s7_integer(obj));
                            break;

                        default:
                            normal_vector_fill(sc, vec, obj);
                    }
                }

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rdx, %rbx
movq %rsi, %r14
movq %rdi, %r15
movzbl (%rsi), %eax
cmpl $0x16, %eax
je 0x2eac9
cmpl $0x18, %eax
je 0x2ea83
cmpl $0x17, %eax
jne 0x2eae5
movzbl (%rbx), %eax
leaq 0xeaf52(%rip), %rcx     # 0x1199b0
cmpb $0x0, (%rax,%rcx)
je 0x2eb43
movq %rbx, %rdi
callq 0xc42a
movq %r14, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
jmp 0x7af6e
cmpb $0xb, (%rbx)
jne 0x2eb23
movq 0x8(%rbx), %rax
cmpq $0x100, %rax            # imm = 0x100
jae 0x2eb23
movq 0x8(%r14), %rdx
testq %rdx, %rdx
je 0x2ec07
movq 0x10(%r14), %rdi
testq %rax, %rax
je 0x2ec13
movzbl %al, %esi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
jmp 0x73e47
cmpb $0xb, (%rbx)
jne 0x2eb33
movq 0x8(%rbx), %rsi
movq %r14, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
jmp 0x7afdc
movq 0x8(%r14), %r12
testq %r12, %r12
je 0x2ec07
testb $0x2, 0x6(%r14)
je 0x2ebbe
movq 0x28(%r14), %rsi
cmpb $0x30, (%rsi)
jb 0x2eb6a
movq 0x10(%rsi), %rax
movq 0x700(%r15), %rcx
movq %rbx, 0x8(%rcx)
movq 0x700(%r15), %rsi
movq %r15, %rdi
callq *%rax
jmp 0x2eb84
leaq 0xb456f(%rip), %rsi     # 0xe3099
leaq 0xb4536(%rip), %r8      # 0xe3067
jmp 0x2eb51
leaq 0xb454e(%rip), %rsi     # 0xe3088
leaq 0xb45d1(%rip), %r8      # 0xe3112
jmp 0x2eb51
leaq 0xb4524(%rip), %rsi     # 0xe306e
leaq 0xb4530(%rip), %r8      # 0xe3081
pushq $0x2
popq %rdx
movq %r15, %rdi
movq %rbx, %rcx
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
jmp 0xc2b0
movq 0x700(%r15), %rax
movq %rbx, 0x8(%rax)
movq 0x700(%r15), %rdx
movq %r15, %rdi
callq 0xa34c
cmpq 0x120(%r15), %rax
jne 0x2ebbe
movq %r15, %rdi
movq %r14, %rsi
callq 0x7b119
pushq $0x1
popq %rdx
movq %r15, %rdi
movq %rax, %rsi
callq 0x7b04d
leaq 0xb44f1(%rip), %rsi     # 0xe309e
pushq $0x2
popq %rdx
movq %r15, %rdi
movq %rbx, %rcx
movq %rax, %r8
callq 0xc2b0
movq 0x10(%r14), %rax
leaq -0x8(%r12), %rdx
xorl %ecx, %ecx
cmpq %rdx, %rcx
jg 0x2ec02
movq %rbx, (%rax,%rcx,8)
movq %rbx, 0x8(%rax,%rcx,8)
movq %rbx, 0x10(%rax,%rcx,8)
movq %rbx, 0x18(%rax,%rcx,8)
movq %rbx, 0x20(%rax,%rcx,8)
movq %rbx, 0x28(%rax,%rcx,8)
movq %rbx, 0x30(%rax,%rcx,8)
movq %rbx, 0x38(%rax,%rcx,8)
addq $0x8, %rcx
jmp 0x2ebc9
movq %rbx, (%rax,%rcx,8)
incq %rcx
cmpq %r12, %rcx
jl 0x2ebfb
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
movq %rdx, %rsi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
jmp 0x78377