// File: /workspace/github_c_makefile_star2_O0/johsteffens[P]beth/lib/bcore/bcore_spect_array.c
// Function: bcore_array_default_set_size
void bcore_array_default_set_size( const bcore_array_s* p, bcore_array* o, uz_t size )
{
    if( p->size_fix > 0 )
    {
        if( size == p->size_fix ) return;
        ERR( "Cannot change size for fixed-size-array" );
    }

    uz_t space = bcore_array_p_get_space( p, o );

    if( size > space ) bcore_array_p_set_space( p, o, ( size <= space * 2 ) ? space * 2 : size );

    // If array was referencing external data and size > 0, it has now copied over external data (taken ownership)
    // If size == 0, array will release external references below

    vd_t obj = ( u0_t* )o + p->caps_offset;
    switch( p->type_caps )
    {
        case BCORE_CAPS_ARRAY_DYN_SOLID_STATIC:
        {
            bcore_array_dyn_solid_static_s* arr = obj;
            if( arr->size > arr->space )
            {
                arr->size = 0;
                arr->data = NULL;
            }
            const bcore_inst_s* instance_p = p->item_p;
            uz_t unit_size = instance_p->size;
            if( size < arr->size )
            {
                if( instance_p->down_flat )
                {
                    arr->size = size;
                }
                else
                {
                    while( size < arr->size )
                    {
                        arr->size--;
                        instance_p->down( instance_p, ( u0_t* )arr->data + unit_size * arr->size );
                    }
                }
            }
            else if( size > arr->size )
            {
                if( instance_p->init_flat )
                {
                    bcore_memzero( ( u0_t* )arr->data + unit_size * arr->size, unit_size * ( size - arr->size ) );
                    arr->size = size;
                }
                else
                {
                    while( size > arr->size )
                    {
                        instance_p->init( instance_p, ( u0_t* )arr->data + unit_size * arr->size );
                        arr->size++;
                    }
                }
            }
        }
        break;

        case BCORE_CAPS_ARRAY_DYN_SOLID_TYPED:
        {
            bcore_array_dyn_solid_typed_s* arr = obj;
            if( arr->size > arr->space )
            {
                arr->size = 0;
                arr->data = NULL;
            }
            if( size == arr->size ) break;
            if( !arr->type ) ERR( "attempt to change size on type-zero array" );
            const bcore_inst_s* instance_p = bcore_inst_s_get_typed( arr->type );
            uz_t unit_size = instance_p->size;
            if( size < arr->size )
            {
                if( instance_p->down_flat )
                {
                    arr->size = size;
                }
                else
                {
                    while( size < arr->size )
                    {
                        arr->size--;
                        instance_p->down( instance_p, ( u0_t* )arr->data + unit_size * arr->size );
                    }
                }
            }
            else if( size > arr->size )
            {
                if( instance_p->init_flat )
                {
                    bcore_memzero( ( u0_t* )arr->data + unit_size * arr->size, unit_size * ( size - arr->size ) );
                    arr->size = size;
                }
                else
                {
                    while( size > arr->size )
                    {
                        instance_p->init( instance_p, ( u0_t* )arr->data + unit_size * arr->size );
                        arr->size++;
                    }
                }
            }
        }
        break;

        case BCORE_CAPS_ARRAY_DYN_LINK_STATIC:
        {
            bcore_array_dyn_link_static_s* arr = obj;
            if( arr->size > arr->space )
            {
                arr->size = 0;
                arr->data = NULL;
            }
            const bcore_inst_s* instance_p = p->item_p;
            if( size < arr->size )
            {
                while( size < arr->size )
                {
                    arr->size--;
                    instance_p->discard( instance_p, arr->data[ arr->size ] );
                }
            }
            else if( size > arr->size )
            {
                bcore_memzero( arr->data + arr->size, sizeof( vd_t ) * ( size - arr->size ) );
                arr->size = size;
            }
        }
        break;

        case BCORE_CAPS_ARRAY_DYN_LINK_TYPED:
        {
            bcore_array_dyn_link_typed_s* arr = obj;
            if( arr->size > arr->space )
            {
                arr->size = 0;
                arr->data = NULL;
            }
            if( size < arr->size )
            {
                const bcore_inst_s* instance_p = ( arr->type ) ? bcore_inst_s_get_typed( arr->type ) : NULL;
                while( size < arr->size )
                {
                    arr->size--;
                    if( arr->data[ arr->size ] )
                    {
                        if( !instance_p ) ERR( "cannot discard element on type-zero array" );
                        instance_p->discard( instance_p, arr->data[ arr->size ] );
                    }
                }
            }
            else if( size > arr->size )
            {
                bcore_memzero( arr->data + arr->size, sizeof( vd_t ) * ( size - arr->size ) );
                arr->size = size;
            }
        }
        break;

        case BCORE_CAPS_ARRAY_DYN_LINK_AWARE:
        {
            bcore_array_dyn_link_aware_s* arr = obj;
            if( arr->size > arr->space )
            {
                arr->size = 0;
                arr->data = NULL;
            }
            if( size < arr->size )
            {
                while( size < arr->size )
                {
                    arr->size--;
                    bcore_inst_a_discard( arr->data[ arr->size ] );
                }
            }
            else if( size > arr->size )
            {
                bcore_memzero( arr->data + arr->size, sizeof( vd_t ) * ( size - arr->size ) );
                arr->size = size;
            }
        }
        break;

        default: ERR( "invalid type_caps (%"PRIu32")", ( u2_t )p->type_caps );
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0xb0, %rsp
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movq %rdx, -0x18(%rbp)
movq -0x8(%rbp), %rax
cmpq $0x0, 0x18(%rax)
jbe 0xd5136
movq -0x18(%rbp), %rax
movq -0x8(%rbp), %rcx
cmpq 0x18(%rcx), %rax
jne 0xd5115
jmp 0xd5831
leaq 0x7ded2(%rip), %rdi     # 0x152fee
leaq 0x7ddd5(%rip), %rsi     # 0x152ef8
movl $0x16a, %edx            # imm = 0x16A
leaq 0x7dedc(%rip), %rcx     # 0x15300b
movb $0x0, %al
callq 0x9cf40
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rsi
callq 0xd5840
movq %rax, -0x20(%rbp)
movq -0x18(%rbp), %rax
cmpq -0x20(%rbp), %rax
jbe 0xd51ac
movq -0x8(%rbp), %rax
movq %rax, -0x90(%rbp)
movq -0x10(%rbp), %rax
movq %rax, -0x88(%rbp)
movq -0x18(%rbp), %rax
movq -0x20(%rbp), %rcx
shlq %rcx
cmpq %rcx, %rax
ja 0xd5187
movq -0x20(%rbp), %rax
shlq %rax
movq %rax, -0x98(%rbp)
jmp 0xd5192
movq -0x18(%rbp), %rax
movq %rax, -0x98(%rbp)
movq -0x88(%rbp), %rsi
movq -0x90(%rbp), %rdi
movq -0x98(%rbp), %rdx
callq 0xd5870
movq -0x10(%rbp), %rax
movq -0x8(%rbp), %rcx
movq 0x20(%rcx), %rcx
addq %rcx, %rax
movq %rax, -0x28(%rbp)
movq -0x8(%rbp), %rax
movq 0x10(%rax), %rax
addq $-0x6, %rax
movq %rax, -0xa0(%rbp)
subq $0x4, %rax
ja 0xd5805
movq -0xa0(%rbp), %rax
leaq 0x7db2e(%rip), %rcx     # 0x152d18
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movq -0x28(%rbp), %rax
movq %rax, -0x30(%rbp)
movq -0x30(%rbp), %rax
movq 0x8(%rax), %rax
movq -0x30(%rbp), %rcx
cmpq 0x10(%rcx), %rax
jbe 0xd5224
movq -0x30(%rbp), %rax
movq $0x0, 0x8(%rax)
movq -0x30(%rbp), %rax
movq $0x0, (%rax)
movq -0x8(%rbp), %rax
movq 0x28(%rax), %rax
movq %rax, -0x38(%rbp)
movq -0x38(%rbp), %rax
movq 0x18(%rax), %rax
movq %rax, -0x40(%rbp)
movq -0x18(%rbp), %rax
movq -0x30(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jae 0xd52b3
movq -0x38(%rbp), %rax
testb $0x1, 0x2a(%rax)
je 0xd5262
movq -0x18(%rbp), %rcx
movq -0x30(%rbp), %rax
movq %rcx, 0x8(%rax)
jmp 0xd52ae
jmp 0xd5264
movq -0x18(%rbp), %rax
movq -0x30(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jae 0xd52ac
movq -0x30(%rbp), %rax
movq 0x8(%rax), %rcx
addq $-0x1, %rcx
movq %rcx, 0x8(%rax)
movq -0x38(%rbp), %rax
movq 0x88(%rax), %rax
movq -0x38(%rbp), %rdi
movq -0x30(%rbp), %rcx
movq (%rcx), %rsi
movq -0x40(%rbp), %rcx
movq -0x30(%rbp), %rdx
imulq 0x8(%rdx), %rcx
addq %rcx, %rsi
callq *%rax
jmp 0xd5264
jmp 0xd52ae
jmp 0xd535d
movq -0x18(%rbp), %rax
movq -0x30(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jbe 0xd535b
movq -0x38(%rbp), %rax
testb $0x1, 0x29(%rax)
je 0xd530d
movq -0x30(%rbp), %rax
movq (%rax), %rdi
movq -0x40(%rbp), %rax
movq -0x30(%rbp), %rcx
imulq 0x8(%rcx), %rax
addq %rax, %rdi
movq -0x40(%rbp), %rsi
movq -0x18(%rbp), %rax
movq -0x30(%rbp), %rcx
subq 0x8(%rcx), %rax
imulq %rax, %rsi
callq 0x9d4f0
movq -0x18(%rbp), %rcx
movq -0x30(%rbp), %rax
movq %rcx, 0x8(%rax)
jmp 0xd5359
jmp 0xd530f
movq -0x18(%rbp), %rax
movq -0x30(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jbe 0xd5357
movq -0x38(%rbp), %rax
movq 0x80(%rax), %rax
movq -0x38(%rbp), %rdi
movq -0x30(%rbp), %rcx
movq (%rcx), %rsi
movq -0x40(%rbp), %rcx
movq -0x30(%rbp), %rdx
imulq 0x8(%rdx), %rcx
addq %rcx, %rsi
callq *%rax
movq -0x30(%rbp), %rax
movq 0x8(%rax), %rcx
addq $0x1, %rcx
movq %rcx, 0x8(%rax)
jmp 0xd530f
jmp 0xd5359
jmp 0xd535b
jmp 0xd535d
jmp 0xd5831
movq -0x28(%rbp), %rax
movq %rax, -0x48(%rbp)
movq -0x48(%rbp), %rax
movq 0x8(%rax), %rax
movq -0x48(%rbp), %rcx
cmpq 0x10(%rcx), %rax
jbe 0xd5393
movq -0x48(%rbp), %rax
movq $0x0, 0x8(%rax)
movq -0x48(%rbp), %rax
movq $0x0, (%rax)
movq -0x18(%rbp), %rax
movq -0x48(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jne 0xd53a6
jmp 0xd5831
movq -0x48(%rbp), %rax
cmpq $0x0, 0x18(%rax)
jne 0xd53d2
leaq 0x7dc36(%rip), %rdi     # 0x152fee
leaq 0x7db39(%rip), %rsi     # 0x152ef8
movl $0x1ac, %edx            # imm = 0x1AC
leaq 0x7dc68(%rip), %rcx     # 0x153033
movb $0x0, %al
callq 0x9cf40
movq -0x48(%rbp), %rax
movq 0x18(%rax), %rdi
callq 0xd46d0
movq %rax, -0x50(%rbp)
movq -0x50(%rbp), %rax
movq 0x18(%rax), %rax
movq %rax, -0x58(%rbp)
movq -0x18(%rbp), %rax
movq -0x48(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jae 0xd5466
movq -0x50(%rbp), %rax
testb $0x1, 0x2a(%rax)
je 0xd5415
movq -0x18(%rbp), %rcx
movq -0x48(%rbp), %rax
movq %rcx, 0x8(%rax)
jmp 0xd5461
jmp 0xd5417
movq -0x18(%rbp), %rax
movq -0x48(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jae 0xd545f
movq -0x48(%rbp), %rax
movq 0x8(%rax), %rcx
addq $-0x1, %rcx
movq %rcx, 0x8(%rax)
movq -0x50(%rbp), %rax
movq 0x88(%rax), %rax
movq -0x50(%rbp), %rdi
movq -0x48(%rbp), %rcx
movq (%rcx), %rsi
movq -0x58(%rbp), %rcx
movq -0x48(%rbp), %rdx
imulq 0x8(%rdx), %rcx
addq %rcx, %rsi
callq *%rax
jmp 0xd5417
jmp 0xd5461
jmp 0xd5510
movq -0x18(%rbp), %rax
movq -0x48(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jbe 0xd550e
movq -0x50(%rbp), %rax
testb $0x1, 0x29(%rax)
je 0xd54c0
movq -0x48(%rbp), %rax
movq (%rax), %rdi
movq -0x58(%rbp), %rax
movq -0x48(%rbp), %rcx
imulq 0x8(%rcx), %rax
addq %rax, %rdi
movq -0x58(%rbp), %rsi
movq -0x18(%rbp), %rax
movq -0x48(%rbp), %rcx
subq 0x8(%rcx), %rax
imulq %rax, %rsi
callq 0x9d4f0
movq -0x18(%rbp), %rcx
movq -0x48(%rbp), %rax
movq %rcx, 0x8(%rax)
jmp 0xd550c
jmp 0xd54c2
movq -0x18(%rbp), %rax
movq -0x48(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jbe 0xd550a
movq -0x50(%rbp), %rax
movq 0x80(%rax), %rax
movq -0x50(%rbp), %rdi
movq -0x48(%rbp), %rcx
movq (%rcx), %rsi
movq -0x58(%rbp), %rcx
movq -0x48(%rbp), %rdx
imulq 0x8(%rdx), %rcx
addq %rcx, %rsi
callq *%rax
movq -0x48(%rbp), %rax
movq 0x8(%rax), %rcx
addq $0x1, %rcx
movq %rcx, 0x8(%rax)
jmp 0xd54c2
jmp 0xd550c
jmp 0xd550e
jmp 0xd5510
jmp 0xd5831
movq -0x28(%rbp), %rax
movq %rax, -0x60(%rbp)
movq -0x60(%rbp), %rax
movq 0x8(%rax), %rax
movq -0x60(%rbp), %rcx
cmpq 0x10(%rcx), %rax
jbe 0xd5546
movq -0x60(%rbp), %rax
movq $0x0, 0x8(%rax)
movq -0x60(%rbp), %rax
movq $0x0, (%rax)
movq -0x8(%rbp), %rax
movq 0x28(%rax), %rax
movq %rax, -0x68(%rbp)
movq -0x18(%rbp), %rax
movq -0x60(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jae 0xd55a8
jmp 0xd5562
movq -0x18(%rbp), %rax
movq -0x60(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jae 0xd55a6
movq -0x60(%rbp), %rax
movq 0x8(%rax), %rcx
addq $-0x1, %rcx
movq %rcx, 0x8(%rax)
movq -0x68(%rbp), %rax
movq 0xb8(%rax), %rax
movq -0x68(%rbp), %rdi
movq -0x60(%rbp), %rcx
movq (%rcx), %rcx
movq -0x60(%rbp), %rdx
movq 0x8(%rdx), %rdx
movq (%rcx,%rdx,8), %rsi
callq *%rax
jmp 0xd5562
jmp 0xd55ef
movq -0x18(%rbp), %rax
movq -0x60(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jbe 0xd55ed
movq -0x60(%rbp), %rax
movq (%rax), %rdi
movq -0x60(%rbp), %rax
movq 0x8(%rax), %rax
shlq $0x3, %rax
addq %rax, %rdi
movq -0x18(%rbp), %rsi
movq -0x60(%rbp), %rax
subq 0x8(%rax), %rsi
shlq $0x3, %rsi
callq 0x9d4f0
movq -0x18(%rbp), %rcx
movq -0x60(%rbp), %rax
movq %rcx, 0x8(%rax)
jmp 0xd55ef
jmp 0xd5831
movq -0x28(%rbp), %rax
movq %rax, -0x70(%rbp)
movq -0x70(%rbp), %rax
movq 0x8(%rax), %rax
movq -0x70(%rbp), %rcx
cmpq 0x10(%rcx), %rax
jbe 0xd5625
movq -0x70(%rbp), %rax
movq $0x0, 0x8(%rax)
movq -0x70(%rbp), %rax
movq $0x0, (%rax)
movq -0x18(%rbp), %rax
movq -0x70(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jae 0xd56f5
movq -0x70(%rbp), %rax
cmpq $0x0, 0x18(%rax)
je 0xd5658
movq -0x70(%rbp), %rax
movq 0x18(%rax), %rdi
callq 0xd46d0
movq %rax, -0xa8(%rbp)
jmp 0xd5663
xorl %eax, %eax
movq %rax, -0xa8(%rbp)
jmp 0xd5663
movq -0xa8(%rbp), %rax
movq %rax, -0x78(%rbp)
movq -0x18(%rbp), %rax
movq -0x70(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jae 0xd56f3
movq -0x70(%rbp), %rax
movq 0x8(%rax), %rcx
addq $-0x1, %rcx
movq %rcx, 0x8(%rax)
movq -0x70(%rbp), %rax
movq (%rax), %rax
movq -0x70(%rbp), %rcx
movq 0x8(%rcx), %rcx
cmpq $0x0, (%rax,%rcx,8)
je 0xd56ee
cmpq $0x0, -0x78(%rbp)
jne 0xd56ca
leaq 0x7d93e(%rip), %rdi     # 0x152fee
leaq 0x7d841(%rip), %rsi     # 0x152ef8
movl $0x1fa, %edx            # imm = 0x1FA
leaq 0x7d99a(%rip), %rcx     # 0x15305d
movb $0x0, %al
callq 0x9cf40
movq -0x78(%rbp), %rax
movq 0xb8(%rax), %rax
movq -0x78(%rbp), %rdi
movq -0x70(%rbp), %rcx
movq (%rcx), %rcx
movq -0x70(%rbp), %rdx
movq 0x8(%rdx), %rdx
movq (%rcx,%rdx,8), %rsi
callq *%rax
jmp 0xd566e
jmp 0xd573c
movq -0x18(%rbp), %rax
movq -0x70(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jbe 0xd573a
movq -0x70(%rbp), %rax
movq (%rax), %rdi
movq -0x70(%rbp), %rax
movq 0x8(%rax), %rax
shlq $0x3, %rax
addq %rax, %rdi
movq -0x18(%rbp), %rsi
movq -0x70(%rbp), %rax
subq 0x8(%rax), %rsi
shlq $0x3, %rsi
callq 0x9d4f0
movq -0x18(%rbp), %rcx
movq -0x70(%rbp), %rax
movq %rcx, 0x8(%rax)
jmp 0xd573c
jmp 0xd5831
movq -0x28(%rbp), %rax
movq %rax, -0x80(%rbp)
movq -0x80(%rbp), %rax
movq 0x8(%rax), %rax
movq -0x80(%rbp), %rcx
cmpq 0x10(%rcx), %rax
jbe 0xd5772
movq -0x80(%rbp), %rax
movq $0x0, 0x8(%rax)
movq -0x80(%rbp), %rax
movq $0x0, (%rax)
movq -0x18(%rbp), %rax
movq -0x80(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jae 0xd57bc
jmp 0xd5782
movq -0x18(%rbp), %rax
movq -0x80(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jae 0xd57ba
movq -0x80(%rbp), %rax
movq 0x8(%rax), %rcx
addq $-0x1, %rcx
movq %rcx, 0x8(%rax)
movq -0x80(%rbp), %rax
movq (%rax), %rax
movq -0x80(%rbp), %rcx
movq 0x8(%rcx), %rcx
movq (%rax,%rcx,8), %rdi
callq 0xd50a0
jmp 0xd5782
jmp 0xd5803
movq -0x18(%rbp), %rax
movq -0x80(%rbp), %rcx
cmpq 0x8(%rcx), %rax
jbe 0xd5801
movq -0x80(%rbp), %rax
movq (%rax), %rdi
movq -0x80(%rbp), %rax
movq 0x8(%rax), %rax
shlq $0x3, %rax
addq %rax, %rdi
movq -0x18(%rbp), %rsi
movq -0x80(%rbp), %rax
subq 0x8(%rax), %rsi
shlq $0x3, %rsi
callq 0x9d4f0
movq -0x18(%rbp), %rcx
movq -0x80(%rbp), %rax
movq %rcx, 0x8(%rax)
jmp 0xd5803
jmp 0xd5831
movq -0x8(%rbp), %rax
movq 0x10(%rax), %rax
movl %eax, %r8d
leaq 0x7d7d7(%rip), %rdi     # 0x152fee
leaq 0x7d6da(%rip), %rsi     # 0x152ef8
movl $0x21f, %edx            # imm = 0x21F
leaq 0x7d70f(%rip), %rcx     # 0x152f39
movb $0x0, %al
callq 0x9cf40
addq $0xb0, %rsp
popq %rbp
retq
nopw (%rax,%rax)