// File: /workspace/github_c_makefile_star2_O0/johsteffens[P]beth/lib/bcore/bcore_hmap.c
// Function: hmap_tpvd_selftest
static st_s* hmap_tpvd_selftest( void )
{
    bcore_life_s* l = bcore_life_s_create();
    st_s* log = st_s_createf( "== bcore_hmap_tpvd_selftest " );
    st_s_push_char_n( log, '=', 80 - log->size );
    st_s_push_char( log, '\n' );

    bcore_hmap_tpvd_s* map = bcore_hmap_tpvd_s_create();
    const uz_t cycles = 200000;

    typedef struct
    {
        tp_t key;
        vd_t val;
    } kv_s;

    kv_s* kvbuf = bcore_alloc( NULL, cycles * sizeof( kv_s ) );
    uz_t kvbuf_size = 0;

    clock_t time = clock();
    st_s_pushf( log, "Mixed access: " );

    {
        u3_t rval1 = 1;
        u3_t rval2 = 12345;
        for( uz_t i = 0; i < cycles; i++ )
        {
            rval1 = bcore_xsg_u2( rval1 );
            rval2 = bcore_xsg_u2( rval2 );
            kv_s kv;
            kv.key = ( tp_t )rval1;
            kv.val = ( vd_t )( intptr_t )rval2;
            kvbuf[ kvbuf_size++ ] = kv;

            // set
            bcore_hmap_tpvd_s_set( map, kv.key, kv.val );

            // retrieve
            rval1 = bcore_xsg_u2( rval1 );
            kv = kvbuf[ rval1 % kvbuf_size ];
            vd_t val = *bcore_hmap_tpvd_s_get( map, kv.key );
            if( kv.val != val ) ERR( "value mismatch" );

            // delete
            rval1 = bcore_xsg_u2( rval1 );
            if( ( ( rval1 >> 10 ) & 1 ) == 1 )
            {
                rval1 = bcore_xsg_u2( rval1 );
                uz_t idx = rval1 % kvbuf_size;
                kv_s kv = kvbuf[ idx ];
                if( !bcore_hmap_tpvd_s_get( map, kv.key ) )  ERR( "key (%lu) not found", kv.key );
                bcore_hmap_tpvd_s_remove( map, kv.key );
                if( bcore_hmap_tpvd_s_get( map, kv.key ) )  ERR( "deleted key still exists (%lu)", kv.key );
                kvbuf_size--;
                kvbuf[ idx ] = kvbuf[ kvbuf_size ];
            }
        }
    }

    time = clock() - time;
    st_s_pushf( log, "(%5.3fs)\n", ( double )time/CLOCKS_PER_SEC );

    st_s_push_st_d( log, hmap_tpvd_s_status( map ) );

    time = clock();
    bcore_hmap_tpvd_s* map2 = bcore_life_s_push_aware( l, bcore_hmap_tpvd_s_clone( map ) );
    time = clock() - time;
    st_s_pushf( log, "Clone .......... %5.3fs\n", ( double )time/CLOCKS_PER_SEC );

    time = clock();
    ASSERT( bcore_compare_aware( map, map2 ) == 0 );
    time = clock() - time;
    st_s_pushf( log, "Comparison ..... %5.3fs\n", ( double )time/CLOCKS_PER_SEC );

    for( uz_t i = 0; i < map->size; i++ )
    {
        tp_t key = bcore_hmap_tpvd_s_idx_key( map, i );
        if( key != 0 )
        {
            vd_t val = bcore_hmap_tpvd_s_idx_val( map, i );
            ASSERT( bcore_hmap_tpvd_s_exists( map2, key ) );
            ASSERT( val == *bcore_hmap_tpvd_s_get( map2, key ) );
        }
    }
    time = clock() - time;
    st_s_pushf( log, "verify assign .. %5.3fs\n", ( double )time/CLOCKS_PER_SEC );

    time = clock();
    st_s_pushf( log, "\nRead-access of %lu keys: ", kvbuf_size );
    uz_t read_cycles = 20;
    for( uz_t j = 0; j < read_cycles; j++ )
    {
        for( uz_t i = 0; i < kvbuf_size; i++ )
        {
            if( *bcore_hmap_tpvd_s_get( map, kvbuf[ i ].key ) != kvbuf[ i ].val ) ERR( "value mismatch" );
        }
    }
    time = clock() - time;
    st_s_pushf( log, "(%gs per access)\n", ( ( double )time/CLOCKS_PER_SEC ) / ( kvbuf_size * read_cycles ) );

    st_s_pushf( log, "\n" );
    st_s_pushf( log, "Removal: " );
    time = clock();
    while( kvbuf_size )
    {
        kvbuf_size--;
        kv_s kv = kvbuf[ kvbuf_size ];
        if( !bcore_hmap_tpvd_s_get( map, kv.key ) )  ERR( "key (%lu) not found", kv.key );
        bcore_hmap_tpvd_s_remove( map, kv.key );
        if( bcore_hmap_tpvd_s_get( map, kv.key ) )  ERR( "deleted key still exists (%lu)", kv.key );
    }
    time = clock() - time;
    st_s_pushf( log, "(%5.3fs)\n", ( double )time/CLOCKS_PER_SEC );

    st_s_push_st_d( log, hmap_tpvd_s_status( map ) );

    bcore_hmap_tpvd_s_discard( map );
    bcore_alloc( kvbuf, 0 );

    bcore_life_s_discard( l );

    st_s_push_char_n( log, '=', 80 );
    st_s_push_char( log, '\n' );
    return log;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0xf0, %rsp
movb $0x0, %al
callq 0xbfdd0
movq %rax, -0x8(%rbp)
leaq 0x9a303(%rip), %rdi     # 0x150a00
movb $0x0, %al
callq 0xff350
movq %rax, -0x10(%rbp)
movq -0x10(%rbp), %rdi
movq -0x10(%rbp), %rax
movl $0x50, %edx
subq 0x10(%rax), %rdx
movl $0x3d, %esi
callq 0xffca0
movq -0x10(%rbp), %rdi
movl $0xa, %esi
callq 0xffba0
callq 0xafa30
movq %rax, -0x18(%rbp)
movq $0x30d40, -0x20(%rbp)   # imm = 0x30D40
xorl %eax, %eax
movl %eax, %edi
movl $0x30d400, %esi         # imm = 0x30D400
callq 0x9d210
movq %rax, -0x28(%rbp)
movq $0x0, -0x30(%rbp)
callq 0x4300
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
leaq 0x8adeb(%rip), %rsi     # 0x14155b
movb $0x0, %al
callq 0x100120
movq $0x1, -0x40(%rbp)
movq $0x3039, -0x48(%rbp)    # imm = 0x3039
movq $0x0, -0x50(%rbp)
cmpq $0x30d40, -0x50(%rbp)   # imm = 0x30D40
jae 0xb69bb
movq -0x40(%rbp), %rax
movl %eax, %edi
callq 0xb9e80
movl %eax, %eax
movq %rax, -0x40(%rbp)
movq -0x48(%rbp), %rax
movl %eax, %edi
callq 0xb9e80
movl %eax, %eax
movq %rax, -0x48(%rbp)
movq -0x40(%rbp), %rax
movq %rax, -0x60(%rbp)
movq -0x48(%rbp), %rax
movq %rax, -0x58(%rbp)
movq -0x28(%rbp), %rax
movq -0x30(%rbp), %rcx
movq %rcx, %rdx
addq $0x1, %rdx
movq %rdx, -0x30(%rbp)
shlq $0x4, %rcx
addq %rcx, %rax
movq -0x60(%rbp), %rcx
movq %rcx, (%rax)
movq -0x58(%rbp), %rcx
movq %rcx, 0x8(%rax)
movq -0x18(%rbp), %rdi
movq -0x60(%rbp), %rsi
movq -0x58(%rbp), %rdx
callq 0xafd80
movq -0x40(%rbp), %rax
movl %eax, %edi
callq 0xb9e80
movl %eax, %eax
movq %rax, -0x40(%rbp)
movq -0x28(%rbp), %rax
movq %rax, -0xd0(%rbp)
movq -0x40(%rbp), %rax
xorl %ecx, %ecx
movl %ecx, %edx
divq -0x30(%rbp)
movq -0xd0(%rbp), %rax
shlq $0x4, %rdx
addq %rdx, %rax
movq (%rax), %rcx
movq %rcx, -0x60(%rbp)
movq 0x8(%rax), %rax
movq %rax, -0x58(%rbp)
movq -0x18(%rbp), %rdi
movq -0x60(%rbp), %rsi
callq 0xb0090
movq (%rax), %rax
movq %rax, -0x68(%rbp)
movq -0x58(%rbp), %rax
cmpq -0x68(%rbp), %rax
je 0xb688d
leaq 0x9a1aa(%rip), %rdi     # 0x150a1d
leaq 0x98f29(%rip), %rsi     # 0x14f7a3
movl $0xb49, %edx            # imm = 0xB49
leaq 0x9a1aa(%rip), %rcx     # 0x150a30
movb $0x0, %al
callq 0x9cf40
movq -0x40(%rbp), %rax
movl %eax, %edi
callq 0xb9e80
movl %eax, %eax
movq %rax, -0x40(%rbp)
movq -0x40(%rbp), %rax
shrq $0xa, %rax
andq $0x1, %rax
cmpq $0x1, %rax
jne 0xb69a8
movq -0x40(%rbp), %rax
movl %eax, %edi
callq 0xb9e80
movl %eax, %eax
movq %rax, -0x40(%rbp)
movq -0x40(%rbp), %rax
xorl %ecx, %ecx
movl %ecx, %edx
divq -0x30(%rbp)
movq %rdx, -0x70(%rbp)
movq -0x28(%rbp), %rax
movq -0x70(%rbp), %rcx
shlq $0x4, %rcx
addq %rcx, %rax
movq (%rax), %rcx
movq %rcx, -0x80(%rbp)
movq 0x8(%rax), %rax
movq %rax, -0x78(%rbp)
movq -0x18(%rbp), %rdi
movq -0x80(%rbp), %rsi
callq 0xb0090
cmpq $0x0, %rax
jne 0xb692b
movq -0x80(%rbp), %r8
leaq 0x9a10c(%rip), %rdi     # 0x150a1d
leaq 0x98e8b(%rip), %rsi     # 0x14f7a3
movl $0xb52, %edx            # imm = 0xB52
leaq 0x99dc8(%rip), %rcx     # 0x1506ec
movb $0x0, %al
callq 0x9cf40
movq -0x18(%rbp), %rdi
movq -0x80(%rbp), %rsi
callq 0xb0110
movq -0x18(%rbp), %rdi
movq -0x80(%rbp), %rsi
callq 0xb0090
cmpq $0x0, %rax
je 0xb6970
movq -0x80(%rbp), %r8
leaq 0x9a0c7(%rip), %rdi     # 0x150a1d
leaq 0x98e46(%rip), %rsi     # 0x14f7a3
movl $0xb54, %edx            # imm = 0xB54
leaq 0x99d97(%rip), %rcx     # 0x150700
movb $0x0, %al
callq 0x9cf40
movq -0x30(%rbp), %rax
addq $-0x1, %rax
movq %rax, -0x30(%rbp)
movq -0x28(%rbp), %rax
movq -0x70(%rbp), %rcx
shlq $0x4, %rcx
addq %rcx, %rax
movq -0x28(%rbp), %rcx
movq -0x30(%rbp), %rdx
shlq $0x4, %rdx
addq %rdx, %rcx
movq (%rcx), %rdx
movq %rdx, (%rax)
movq 0x8(%rcx), %rcx
movq %rcx, 0x8(%rax)
jmp 0xb69aa
movq -0x50(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x50(%rbp)
jmp 0xb678f
callq 0x4300
subq -0x38(%rbp), %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
cvtsi2sdq -0x38(%rbp), %xmm0
movsd 0x7c9ee(%rip), %xmm1    # 0x1333c8
divsd %xmm1, %xmm0
leaq 0x99d3a(%rip), %rsi     # 0x15071f
movb $0x1, %al
callq 0x100120
movq -0x10(%rbp), %rax
movq %rax, -0xe0(%rbp)
movq -0x18(%rbp), %rdi
callq 0xba070
movq -0xe0(%rbp), %rdi
movq %rax, %rsi
callq 0xfff40
callq 0x4300
movq %rax, -0x38(%rbp)
movq -0x8(%rbp), %rax
movq %rax, -0xd8(%rbp)
movq -0x18(%rbp), %rdi
callq 0xafa90
movq -0xd8(%rbp), %rdi
movq %rax, %rsi
callq 0xc0460
movq %rax, -0x88(%rbp)
callq 0x4300
subq -0x38(%rbp), %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
cvtsi2sdq -0x38(%rbp), %xmm0
movsd 0x7c967(%rip), %xmm1    # 0x1333c8
divsd %xmm1, %xmm0
leaq 0x99d1a(%rip), %rsi     # 0x150786
movb $0x1, %al
callq 0x100120
callq 0x4300
movq %rax, -0x38(%rbp)
movq -0x18(%rbp), %rdi
movq -0x88(%rbp), %rsi
callq 0xe0090
cmpl $0x0, %eax
je 0xb6aba
leaq 0x7cf07(%rip), %rdi     # 0x13399f
leaq 0x99d00(%rip), %rsi     # 0x15079f
leaq 0x99f77(%rip), %rdx     # 0x150a1d
leaq 0x98cf6(%rip), %rcx     # 0x14f7a3
movl $0xb66, %r8d            # imm = 0xB66
movb $0x0, %al
callq 0x9cea0
callq 0x4300
subq -0x38(%rbp), %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
cvtsi2sdq -0x38(%rbp), %xmm0
movsd 0x7c8ef(%rip), %xmm1    # 0x1333c8
divsd %xmm1, %xmm0
leaq 0x99ce1(%rip), %rsi     # 0x1507c5
movb $0x1, %al
callq 0x100120
movq $0x0, -0x90(%rbp)
movq -0x90(%rbp), %rax
movq -0x18(%rbp), %rcx
cmpq 0x18(%rcx), %rax
jae 0xb6bfb
movq -0x18(%rbp), %rdi
movq -0x90(%rbp), %rsi
callq 0xb02d0
movq %rax, -0x98(%rbp)
cmpq $0x0, -0x98(%rbp)
je 0xb6be2
movq -0x18(%rbp), %rdi
movq -0x90(%rbp), %rsi
callq 0xb0300
movq %rax, -0xa0(%rbp)
movq -0x88(%rbp), %rdi
movq -0x98(%rbp), %rsi
callq 0xb0190
testb $0x1, %al
jne 0xb6b87
leaq 0x7ce3a(%rip), %rdi     # 0x13399f
leaq 0x99ed3(%rip), %rsi     # 0x150a3f
leaq 0x99eaa(%rip), %rdx     # 0x150a1d
leaq 0x98c29(%rip), %rcx     # 0x14f7a3
movl $0xb70, %r8d            # imm = 0xB70
movb $0x0, %al
callq 0x9cea0
movq -0xa0(%rbp), %rax
movq %rax, -0xe8(%rbp)
movq -0x88(%rbp), %rdi
movq -0x98(%rbp), %rsi
callq 0xb0090
movq %rax, %rcx
movq -0xe8(%rbp), %rax
cmpq (%rcx), %rax
je 0xb6be0
leaq 0x7cde1(%rip), %rdi     # 0x13399f
leaq 0x99ea0(%rip), %rsi     # 0x150a65
leaq 0x99e51(%rip), %rdx     # 0x150a1d
leaq 0x98bd0(%rip), %rcx     # 0x14f7a3
movl $0xb71, %r8d            # imm = 0xB71
movb $0x0, %al
callq 0x9cea0
jmp 0xb6be2
jmp 0xb6be4
movq -0x90(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x90(%rbp)
jmp 0xb6af6
callq 0x4300
subq -0x38(%rbp), %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
cvtsi2sdq -0x38(%rbp), %xmm0
movsd 0x7c7ae(%rip), %xmm1    # 0x1333c8
divsd %xmm1, %xmm0
leaq 0x99c23(%rip), %rsi     # 0x150848
movb $0x1, %al
callq 0x100120
callq 0x4300
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
movq -0x30(%rbp), %rdx
leaq 0x99ae5(%rip), %rsi     # 0x150729
movb $0x0, %al
callq 0x100120
movq $0x14, -0xa8(%rbp)
movq $0x0, -0xb0(%rbp)
movq -0xb0(%rbp), %rax
cmpq -0xa8(%rbp), %rax
jae 0xb6d16
movq $0x0, -0xb8(%rbp)
movq -0xb8(%rbp), %rax
cmpq -0x30(%rbp), %rax
jae 0xb6cfd
movq -0x18(%rbp), %rdi
movq -0x28(%rbp), %rax
movq -0xb8(%rbp), %rcx
shlq $0x4, %rcx
addq %rcx, %rax
movq (%rax), %rsi
callq 0xb0090
movq (%rax), %rax
movq -0x28(%rbp), %rcx
movq -0xb8(%rbp), %rdx
shlq $0x4, %rdx
addq %rdx, %rcx
cmpq 0x8(%rcx), %rax
je 0xb6ce7
leaq 0x99d50(%rip), %rdi     # 0x150a1d
leaq 0x98acf(%rip), %rsi     # 0x14f7a3
movl $0xb7e, %edx            # imm = 0xB7E
leaq 0x99d50(%rip), %rcx     # 0x150a30
movb $0x0, %al
callq 0x9cf40
jmp 0xb6ce9
movq -0xb8(%rbp), %rax
addq $0x1, %rax
movq %rax, -0xb8(%rbp)
jmp 0xb6c80
jmp 0xb6cff
movq -0xb0(%rbp), %rax
addq $0x1, %rax
movq %rax, -0xb0(%rbp)
jmp 0xb6c61
callq 0x4300
movq -0x38(%rbp), %rcx
subq %rcx, %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
cvtsi2sdq -0x38(%rbp), %xmm0
movsd 0x7c690(%rip), %xmm1    # 0x1333c8
divsd %xmm1, %xmm0
movq -0x30(%rbp), %rax
movq -0xa8(%rbp), %rcx
imulq %rcx, %rax
movq %rax, %xmm1
movaps 0x881a9(%rip), %xmm2    # 0x13ef00
punpckldq %xmm2, %xmm1    # xmm1 = xmm1[0],xmm2[0],xmm1[1],xmm2[1]
movapd 0x881ad(%rip), %xmm2    # 0x13ef10
subpd %xmm2, %xmm1
movaps %xmm1, %xmm2
unpckhpd %xmm1, %xmm1            # xmm1 = xmm1[1,1]
addsd %xmm2, %xmm1
divsd %xmm1, %xmm0
leaq 0x999c7(%rip), %rsi     # 0x150744
movb $0x1, %al
callq 0x100120
movq -0x10(%rbp), %rdi
leaq 0x9bc92(%rip), %rsi     # 0x152a21
movb $0x0, %al
callq 0x100120
movq -0x10(%rbp), %rdi
leaq 0x8aa15(%rip), %rsi     # 0x1417b6
movb $0x0, %al
callq 0x100120
callq 0x4300
movq %rax, -0x38(%rbp)
cmpq $0x0, -0x30(%rbp)
je 0xb6e7d
movq -0x30(%rbp), %rax
addq $-0x1, %rax
movq %rax, -0x30(%rbp)
movq -0x28(%rbp), %rax
movq -0x30(%rbp), %rcx
shlq $0x4, %rcx
addq %rcx, %rax
movq (%rax), %rcx
movq %rcx, -0xc8(%rbp)
movq 0x8(%rax), %rax
movq %rax, -0xc0(%rbp)
movq -0x18(%rbp), %rdi
movq -0xc8(%rbp), %rsi
callq 0xb0090
cmpq $0x0, %rax
jne 0xb6e2a
movq -0xc8(%rbp), %r8
leaq 0x99c0d(%rip), %rdi     # 0x150a1d
leaq 0x9898c(%rip), %rsi     # 0x14f7a3
movl $0xb8b, %edx            # imm = 0xB8B
leaq 0x998c9(%rip), %rcx     # 0x1506ec
movb $0x0, %al
callq 0x9cf40
movq -0x18(%rbp), %rdi
movq -0xc8(%rbp), %rsi
callq 0xb0110
movq -0x18(%rbp), %rdi
movq -0xc8(%rbp), %rsi
callq 0xb0090
cmpq $0x0, %rax
je 0xb6e78
movq -0xc8(%rbp), %r8
leaq 0x99bbf(%rip), %rdi     # 0x150a1d
leaq 0x9893e(%rip), %rsi     # 0x14f7a3
movl $0xb8d, %edx            # imm = 0xB8D
leaq 0x9988f(%rip), %rcx     # 0x150700
movb $0x0, %al
callq 0x9cf40
jmp 0xb6db1
callq 0x4300
subq -0x38(%rbp), %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
cvtsi2sdq -0x38(%rbp), %xmm0
movsd 0x7c52c(%rip), %xmm1    # 0x1333c8
divsd %xmm1, %xmm0
leaq 0x99878(%rip), %rsi     # 0x15071f
movb $0x1, %al
callq 0x100120
movq -0x10(%rbp), %rax
movq %rax, -0xf0(%rbp)
movq -0x18(%rbp), %rdi
callq 0xba070
movq -0xf0(%rbp), %rdi
movq %rax, %rsi
callq 0xfff40
movq -0x18(%rbp), %rdi
callq 0xafa60
movq -0x28(%rbp), %rdi
xorl %eax, %eax
movl %eax, %esi
callq 0x9d210
movq -0x8(%rbp), %rdi
callq 0xbfe00
movq -0x10(%rbp), %rdi
movl $0x3d, %esi
movl $0x50, %edx
callq 0xffca0
movq -0x10(%rbp), %rdi
movl $0xa, %esi
callq 0xffba0
movq -0x10(%rbp), %rax
addq $0xf0, %rsp
popq %rbp
retq
nop