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

    bcore_hmap_tpfp_s* map = bcore_hmap_tpfp_s_create();
    const uz_t cycles = 200000;

    typedef struct
    {
        tp_t key;
        fp_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 = ( fp_t )(intptr_t)rval2;
            kvbuf[ kvbuf_size++ ] = kv;

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

            // retrieve
            rval1 = bcore_xsg_u2( rval1 );
            kv = kvbuf[ rval1 % kvbuf_size ];
            fp_t* val_ptr = bcore_hmap_tpfp_s_get( map, kv.key );
            if( kv.val != *val_ptr ) ERR( "value mismatch (%lu vs %lu)", kv.val, *val_ptr );

            // 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_tpfp_s_get( map, kv.key ) )  ERR( "key (%lu) not found", kv.key );
                bcore_hmap_tpfp_s_remove( map, kv.key );
                if( bcore_hmap_tpfp_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_tpfp_s_status( map ) );

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

    time = clock();
    bcore_hmap_tpfp_s* map3 = bcore_life_s_push_aware( l, bcore_hmap_tpfp_s_create() );
    bcore_via_a_nset( (bcore_via*)map3, typeof( "data" ), bcore_via_a_nget( (bcore_via*)map, typeof( "data" ) ) );
    time = clock() - time;
    st_s_pushf( log, "Via-assign ..... %5.3fs\n", ( double )time/CLOCKS_PER_SEC );
    time = clock();
    for( uz_t i = 0; i < map->size; i++ )
    {
        tp_t key = bcore_hmap_tpfp_s_idx_key( map, i );
        if( key != 0 )
        {
            fp_t val = bcore_hmap_tpfp_s_idx_val( map, i );
            ASSERT( bcore_hmap_tpfp_s_exists( map3, key ) );
            ASSERT( val == *bcore_hmap_tpfp_s_get( map3, 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_tpfp_s_get( map, kvbuf[ i ].key ) != kvbuf[ i ].val ) ERR( "value mismatch (%lu vs %lu)", kvbuf[ i ].key, kvbuf[ i ].val );
        }
    }
    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_tpfp_s_get( map, kv.key ) )  ERR( "key (%lu) not found", kv.key );
        bcore_hmap_tpfp_s_remove( map, kv.key );
        if( bcore_hmap_tpfp_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_tpfp_s_status( map ) );

    bcore_hmap_tpfp_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 $0x140, %rsp            # imm = 0x140
movb $0x0, %al
callq 0xbfdd0
movq %rax, -0x8(%rbp)
leaq 0x9b461(%rip), %rdi     # 0x1508fe
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 0xae3f0
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 0x8c04b(%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 0xb5766
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 0xae920
movq -0x40(%rbp), %rax
movl %eax, %edi
callq 0xb9e80
movl %eax, %eax
movq %rax, -0x40(%rbp)
movq -0x28(%rbp), %rax
movq %rax, -0xe8(%rbp)
movq -0x40(%rbp), %rax
xorl %ecx, %ecx
movl %ecx, %edx
divq -0x30(%rbp)
movq -0xe8(%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 0xae740
movq %rax, -0x68(%rbp)
movq -0x58(%rbp), %rax
movq -0x68(%rbp), %rcx
cmpq (%rcx), %rax
je 0xb5638
movq -0x58(%rbp), %r8
movq -0x68(%rbp), %rax
movq (%rax), %r9
leaq 0x9b2fd(%rip), %rdi     # 0x15091b
leaq 0x9a17e(%rip), %rsi     # 0x14f7a3
movl $0x7e3, %edx            # imm = 0x7E3
leaq 0x9b09f(%rip), %rcx     # 0x1506d0
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 0xb5753
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 0xae740
cmpq $0x0, %rax
jne 0xb56d6
movq -0x80(%rbp), %r8
leaq 0x9b25f(%rip), %rdi     # 0x15091b
leaq 0x9a0e0(%rip), %rsi     # 0x14f7a3
movl $0x7ec, %edx            # imm = 0x7EC
leaq 0x9b01d(%rip), %rcx     # 0x1506ec
movb $0x0, %al
callq 0x9cf40
movq -0x18(%rbp), %rdi
movq -0x80(%rbp), %rsi
callq 0xaeb70
movq -0x18(%rbp), %rdi
movq -0x80(%rbp), %rsi
callq 0xae740
cmpq $0x0, %rax
je 0xb571b
movq -0x80(%rbp), %r8
leaq 0x9b21a(%rip), %rdi     # 0x15091b
leaq 0x9a09b(%rip), %rsi     # 0x14f7a3
movl $0x7ee, %edx            # imm = 0x7EE
leaq 0x9afec(%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 0xb5755
movq -0x50(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x50(%rbp)
jmp 0xb552f
callq 0x4300
subq -0x38(%rbp), %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
cvtsi2sdq -0x38(%rbp), %xmm0
movsd 0x7dc43(%rip), %xmm1    # 0x1333c8
divsd %xmm1, %xmm0
leaq 0x9af8f(%rip), %rsi     # 0x15071f
movb $0x1, %al
callq 0x100120
movq -0x10(%rbp), %rax
movq %rax, -0x118(%rbp)
movq -0x18(%rbp), %rdi
callq 0xb9eb0
movq -0x118(%rbp), %rdi
movq %rax, %rsi
callq 0xfff40
callq 0x4300
movq %rax, -0x38(%rbp)
movq -0x8(%rbp), %rax
movq %rax, -0x110(%rbp)
movq -0x18(%rbp), %rdi
callq 0xae450
movq -0x110(%rbp), %rdi
movq %rax, %rsi
callq 0xc0460
callq 0x4300
subq -0x38(%rbp), %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
cvtsi2sdq -0x38(%rbp), %xmm0
movsd 0x7dbc3(%rip), %xmm1    # 0x1333c8
divsd %xmm1, %xmm0
leaq 0x9af76(%rip), %rsi     # 0x150786
movb $0x1, %al
callq 0x100120
callq 0x4300
movq %rax, -0x38(%rbp)
movq -0x8(%rbp), %rax
movq %rax, -0x108(%rbp)
callq 0xae3f0
movq -0x108(%rbp), %rdi
movq %rax, %rsi
callq 0xc0460
movq %rax, -0x88(%rbp)
movq -0x88(%rbp), %rax
movq %rax, -0xf8(%rbp)
leaq 0x9da64(%rip), %rdi     # 0x1532bf
callq 0xb3380
movq %rax, -0xf0(%rbp)
movq -0x18(%rbp), %rax
movq %rax, -0x100(%rbp)
leaq 0x9da46(%rip), %rdi     # 0x1532bf
callq 0xb3380
movq -0x100(%rbp), %rsi
movq %rax, %rdx
leaq -0xa0(%rbp), %rdi
callq 0xb9d50
movq -0xf8(%rbp), %rdi
movq -0xf0(%rbp), %rsi
leaq -0xa0(%rbp), %rax
movq (%rax), %rcx
movq %rcx, (%rsp)
movq 0x8(%rax), %rcx
movq %rcx, 0x8(%rsp)
movq 0x10(%rax), %rax
movq %rax, 0x10(%rsp)
callq 0xb9cf0
callq 0x4300
subq -0x38(%rbp), %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
cvtsi2sdq -0x38(%rbp), %xmm0
movsd 0x7dae2(%rip), %xmm1    # 0x1333c8
divsd %xmm1, %xmm0
leaq 0x9aeed(%rip), %rsi     # 0x1507de
movb $0x1, %al
callq 0x100120
callq 0x4300
movq %rax, -0x38(%rbp)
movq $0x0, -0xa8(%rbp)
movq -0xa8(%rbp), %rax
movq -0x18(%rbp), %rcx
cmpq 0x18(%rcx), %rax
jae 0xb5a11
movq -0x18(%rbp), %rdi
movq -0xa8(%rbp), %rsi
callq 0xaed60
movq %rax, -0xb0(%rbp)
cmpq $0x0, -0xb0(%rbp)
je 0xb59f8
movq -0x18(%rbp), %rdi
movq -0xa8(%rbp), %rsi
callq 0xaed90
movq %rax, -0xb8(%rbp)
movq -0x88(%rbp), %rdi
movq -0xb0(%rbp), %rsi
callq 0xaec20
testb $0x1, %al
jne 0xb599d
leaq 0x7e024(%rip), %rdi     # 0x13399f
leaq 0x9afac(%rip), %rsi     # 0x15092e
leaq 0x9af92(%rip), %rdx     # 0x15091b
leaq 0x99e13(%rip), %rcx     # 0x14f7a3
movl $0x80b, %r8d            # imm = 0x80B
movb $0x0, %al
callq 0x9cea0
movq -0xb8(%rbp), %rax
movq %rax, -0x120(%rbp)
movq -0x88(%rbp), %rdi
movq -0xb0(%rbp), %rsi
callq 0xae740
movq %rax, %rcx
movq -0x120(%rbp), %rax
cmpq (%rcx), %rax
je 0xb59f6
leaq 0x7dfcb(%rip), %rdi     # 0x13399f
leaq 0x9af79(%rip), %rsi     # 0x150954
leaq 0x9af39(%rip), %rdx     # 0x15091b
leaq 0x99dba(%rip), %rcx     # 0x14f7a3
movl $0x80c, %r8d            # imm = 0x80C
movb $0x0, %al
callq 0x9cea0
jmp 0xb59f8
jmp 0xb59fa
movq -0xa8(%rbp), %rax
addq $0x1, %rax
movq %rax, -0xa8(%rbp)
jmp 0xb590c
callq 0x4300
subq -0x38(%rbp), %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
cvtsi2sdq -0x38(%rbp), %xmm0
movsd 0x7d998(%rip), %xmm1    # 0x1333c8
divsd %xmm1, %xmm0
leaq 0x9ae0d(%rip), %rsi     # 0x150848
movb $0x1, %al
callq 0x100120
callq 0x4300
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
movq -0x30(%rbp), %rdx
leaq 0x9accf(%rip), %rsi     # 0x150729
movb $0x0, %al
callq 0x100120
movq $0x14, -0xc0(%rbp)
movq $0x0, -0xc8(%rbp)
movq -0xc8(%rbp), %rax
cmpq -0xc0(%rbp), %rax
jae 0xb5b5e
movq $0x0, -0xd0(%rbp)
movq -0xd0(%rbp), %rax
cmpq -0x30(%rbp), %rax
jae 0xb5b45
movq -0x18(%rbp), %rdi
movq -0x28(%rbp), %rax
movq -0xd0(%rbp), %rcx
shlq $0x4, %rcx
addq %rcx, %rax
movq (%rax), %rsi
callq 0xae740
movq (%rax), %rax
movq -0x28(%rbp), %rcx
movq -0xd0(%rbp), %rdx
shlq $0x4, %rdx
addq %rdx, %rcx
cmpq 0x8(%rcx), %rax
je 0xb5b2c
movq -0x28(%rbp), %rax
movq -0xd0(%rbp), %rcx
shlq $0x4, %rcx
addq %rcx, %rax
movq (%rax), %r8
movq -0x28(%rbp), %rax
movq -0xd0(%rbp), %rcx
shlq $0x4, %rcx
addq %rcx, %rax
movq 0x8(%rax), %r9
leaq 0x9ae09(%rip), %rdi     # 0x15091b
leaq 0x99c8a(%rip), %rsi     # 0x14f7a3
movl $0x819, %edx            # imm = 0x819
leaq 0x9abab(%rip), %rcx     # 0x1506d0
movb $0x0, %al
callq 0x9cf40
jmp 0xb5b2e
movq -0xd0(%rbp), %rax
addq $0x1, %rax
movq %rax, -0xd0(%rbp)
jmp 0xb5a96
jmp 0xb5b47
movq -0xc8(%rbp), %rax
addq $0x1, %rax
movq %rax, -0xc8(%rbp)
jmp 0xb5a77
callq 0x4300
movq -0x38(%rbp), %rcx
subq %rcx, %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
cvtsi2sdq -0x38(%rbp), %xmm0
movsd 0x7d848(%rip), %xmm1    # 0x1333c8
divsd %xmm1, %xmm0
movq -0x30(%rbp), %rax
movq -0xc0(%rbp), %rcx
imulq %rcx, %rax
movq %rax, %xmm1
movaps 0x89361(%rip), %xmm2    # 0x13ef00
punpckldq %xmm2, %xmm1    # xmm1 = xmm1[0],xmm2[0],xmm1[1],xmm2[1]
movapd 0x89365(%rip), %xmm2    # 0x13ef10
subpd %xmm2, %xmm1
movaps %xmm1, %xmm2
unpckhpd %xmm1, %xmm1            # xmm1 = xmm1[1,1]
addsd %xmm2, %xmm1
divsd %xmm1, %xmm0
leaq 0x9ab7f(%rip), %rsi     # 0x150744
movb $0x1, %al
callq 0x100120
movq -0x10(%rbp), %rdi
leaq 0x9ce4a(%rip), %rsi     # 0x152a21
movb $0x0, %al
callq 0x100120
movq -0x10(%rbp), %rdi
leaq 0x8bbcd(%rip), %rsi     # 0x1417b6
movb $0x0, %al
callq 0x100120
callq 0x4300
movq %rax, -0x38(%rbp)
cmpq $0x0, -0x30(%rbp)
je 0xb5cc5
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, -0xe0(%rbp)
movq 0x8(%rax), %rax
movq %rax, -0xd8(%rbp)
movq -0x18(%rbp), %rdi
movq -0xe0(%rbp), %rsi
callq 0xae740
cmpq $0x0, %rax
jne 0xb5c72
movq -0xe0(%rbp), %r8
leaq 0x9acc3(%rip), %rdi     # 0x15091b
leaq 0x99b44(%rip), %rsi     # 0x14f7a3
movl $0x826, %edx            # imm = 0x826
leaq 0x9aa81(%rip), %rcx     # 0x1506ec
movb $0x0, %al
callq 0x9cf40
movq -0x18(%rbp), %rdi
movq -0xe0(%rbp), %rsi
callq 0xaeb70
movq -0x18(%rbp), %rdi
movq -0xe0(%rbp), %rsi
callq 0xae740
cmpq $0x0, %rax
je 0xb5cc0
movq -0xe0(%rbp), %r8
leaq 0x9ac75(%rip), %rdi     # 0x15091b
leaq 0x99af6(%rip), %rsi     # 0x14f7a3
movl $0x828, %edx            # imm = 0x828
leaq 0x9aa47(%rip), %rcx     # 0x150700
movb $0x0, %al
callq 0x9cf40
jmp 0xb5bf9
callq 0x4300
subq -0x38(%rbp), %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rdi
cvtsi2sdq -0x38(%rbp), %xmm0
movsd 0x7d6e4(%rip), %xmm1    # 0x1333c8
divsd %xmm1, %xmm0
leaq 0x9aa30(%rip), %rsi     # 0x15071f
movb $0x1, %al
callq 0x100120
movq -0x10(%rbp), %rax
movq %rax, -0x128(%rbp)
movq -0x18(%rbp), %rdi
callq 0xb9eb0
movq -0x128(%rbp), %rdi
movq %rax, %rsi
callq 0xfff40
movq -0x18(%rbp), %rdi
callq 0xae420
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 $0x140, %rsp            # imm = 0x140
popq %rbp
retq
nopw %cs:(%rax,%rax)