void SUB_HASHDUMP(){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data217.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{
*_SUB_HASHDUMP_LONG_FH=func_freefile();
if(!qbevent)break;evnt(25757,258,"hash.bas");}while(r);
do{
sub_open(qbs_new_txt_len("hashdump.txt",12), 4 ,NULL,NULL,*_SUB_HASHDUMP_LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,259,"hash.bas");}while(r);
do{
qbs_set(_SUB_HASHDUMP_STRING_B,qbs_new_txt_len("12345678901234567890123456789012}",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,260,"hash.bas");}while(r);
S_37746:;
fornext_value4464= 0 ;
fornext_finalvalue4464= 16777215 ;
fornext_step4464= 1 ;
if (fornext_step4464<0) fornext_step_negative4464=1; else fornext_step_negative4464=0;
if (is_error_pending()) goto fornext_error4464;
goto fornext_entrylabel4464;
while(1){
fornext_value4464=fornext_step4464+(*_SUB_HASHDUMP_LONG_X);
fornext_entrylabel4464:
*_SUB_HASHDUMP_LONG_X=fornext_value4464;
if (fornext_step_negative4464){
if (fornext_value4464<fornext_finalvalue4464) break;
}else{
if (fornext_value4464>fornext_finalvalue4464) break;
}
fornext_error4464:;
if(qbevent){evnt(25757,261,"hash.bas");if(r)goto S_37746;}
S_37747:;
if ((((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((*_SUB_HASHDUMP_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])])||is_error_pending()){
if(qbevent){evnt(25757,262,"hash.bas");if(r)goto S_37747;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH;
if (is_error_pending()) goto skip4465;
sub_file_print(tmp_fileno,qbs_new_txt_len("START HashTable(",16), 0, 0, 0);
if (is_error_pending()) goto skip4465;
sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_X)), 1, 0, 0);
if (is_error_pending()) goto skip4465;
sub_file_print(tmp_fileno,qbs_new_txt_len("):",2), 0, 0, 1);
if (is_error_pending()) goto skip4465;
skip4465:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25757,264,"hash.bas");}while(r);
do{
*_SUB_HASHDUMP_LONG_I=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((*_SUB_HASHDUMP_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])];
if(!qbevent)break;evnt(25757,265,"hash.bas");}while(r);
do{
*_SUB_HASHDUMP_LONG_LASTI=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)));
if(!qbevent)break;evnt(25757,268,"hash.bas");}while(r);
S_37751:;
if ((qbs_cleanup(qbs_tmp_base,(-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)))== 0 ))|(-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)))!= 0 ))|(-(FUNC_HASHVALUE(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1))!=*_SUB_HASHDUMP_LONG_X))))||is_error_pending()){
if(qbevent){evnt(25757,269,"hash.bas");if(r)goto S_37751;}
do{
goto LABEL_CORRUPT;
if(!qbevent)break;evnt(25757,269,"hash.bas");}while(r);
}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH;
if (is_error_pending()) goto skip4466;
sub_file_print(tmp_fileno,qbs_new_txt_len("  HashList(",11), 0, 0, 0);
if (is_error_pending()) goto skip4466;
sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_I)), 1, 0, 0);
if (is_error_pending()) goto skip4466;
sub_file_print(tmp_fileno,qbs_new_txt_len(").LastItem=",11), 0, 0, 0);
if (is_error_pending()) goto skip4466;
sub_file_print(tmp_fileno,qbs_str((int32)(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))))), 1, 0, 1);
if (is_error_pending()) goto skip4466;
skip4466:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25757,271,"hash.bas");}while(r);
LABEL_HASHDUMPNEXTITEM:;
if(qbevent){evnt(25757,272,"hash.bas");r=0;}
do{
qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("  [",3),qbs__tostr((int32)(*_SUB_HASHDUMP_LONG_I),NULL,0)),qbs_new_txt_len("]",1)),qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,273,"hash.bas");}while(r);
do{
*_SUB_HASHDUMP_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+0)));
if(!qbevent)break;evnt(25757,275,"hash.bas");}while(r);
do{
qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(qbs_add(qbs_add(_SUB_HASHDUMP_STRING_X,qbs_new_txt_len(",.Flags=",8)),qbs__tostr((int32)(*_SUB_HASHDUMP_LONG_F),NULL,0)),qbs_new_txt_len("{",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,276,"hash.bas");}while(r);
S_37758:;
fornext_value4468= 1 ;
fornext_finalvalue4468= 32 ;
fornext_step4468= 1 ;
if (fornext_step4468<0) fornext_step_negative4468=1; else fornext_step_negative4468=0;
if (is_error_pending()) goto fornext_error4468;
goto fornext_entrylabel4468;
while(1){
fornext_value4468=fornext_step4468+(*_SUB_HASHDUMP_LONG_Z);
fornext_entrylabel4468:
*_SUB_HASHDUMP_LONG_Z=fornext_value4468;
if (fornext_step_negative4468){
if (fornext_value4468<fornext_finalvalue4468) break;
}else{
if (fornext_value4468>fornext_finalvalue4468) break;
}
fornext_error4468:;
if(qbevent){evnt(25757,277,"hash.bas");if(r)goto S_37758;}
do{
tqbs=_SUB_HASHDUMP_STRING_B; if (!is_error_pending()){
tmp_fileno=*_SUB_HASHDUMP_LONG_Z; if (!is_error_pending()){
tmp_long=(*_SUB_HASHDUMP_LONG_F& 1 )+ 48 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(25757,278,"hash.bas");}while(r);
do{
*_SUB_HASHDUMP_LONG_F=*_SUB_HASHDUMP_LONG_F/  2 ;
if(!qbevent)break;evnt(25757,279,"hash.bas");}while(r);
fornext_continue_4467:;
}
fornext_exit_4467:;
do{
qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(_SUB_HASHDUMP_STRING_X,_SUB_HASHDUMP_STRING_B));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,281,"hash.bas");}while(r);
do{
qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(qbs_add(_SUB_HASHDUMP_STRING_X,qbs_new_txt_len(",.Reference=",12)),qbs__tostr((int32)(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)))),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,283,"hash.bas");}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH;
if (is_error_pending()) goto skip4469;
sub_file_print(tmp_fileno,_SUB_HASHDUMP_STRING_X, 0, 0, 1);
if (is_error_pending()) goto skip4469;
skip4469:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25757,285,"hash.bas");}while(r);
do{
*_SUB_HASHDUMP_LONG_I1=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)));
if(!qbevent)break;evnt(25757,288,"hash.bas");}while(r);
do{
*_SUB_HASHDUMP_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)));
if(!qbevent)break;evnt(25757,289,"hash.bas");}while(r);
S_37767:;
if ((*_SUB_HASHDUMP_LONG_I1)||is_error_pending()){
if(qbevent){evnt(25757,290,"hash.bas");if(r)goto S_37767;}
S_37768:;
if ((-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_SUB_HASHDUMP_LONG_I1)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)))!=*_SUB_HASHDUMP_LONG_I))||is_error_pending()){
if(qbevent){evnt(25757,291,"hash.bas");if(r)goto S_37768;}
do{
goto LABEL_CORRUPT;
if(!qbevent)break;evnt(25757,291,"hash.bas");}while(r);
}
}
S_37772:;
if ((*_SUB_HASHDUMP_LONG_I2)||is_error_pending()){
if(qbevent){evnt(25757,293,"hash.bas");if(r)goto S_37772;}
S_37773:;
if ((-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_SUB_HASHDUMP_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)))!=*_SUB_HASHDUMP_LONG_I))||is_error_pending()){
if(qbevent){evnt(25757,294,"hash.bas");if(r)goto S_37773;}
do{
goto LABEL_CORRUPT;
if(!qbevent)break;evnt(25757,294,"hash.bas");}while(r);
}
}
S_37777:;
if ((-(*_SUB_HASHDUMP_LONG_I2== 0 ))||is_error_pending()){
if(qbevent){evnt(25757,296,"hash.bas");if(r)goto S_37777;}
S_37778:;
if ((-(*_SUB_HASHDUMP_LONG_LASTI!=*_SUB_HASHDUMP_LONG_I))||is_error_pending()){
if(qbevent){evnt(25757,297,"hash.bas");if(r)goto S_37778;}
do{
goto LABEL_CORRUPT;
if(!qbevent)break;evnt(25757,297,"hash.bas");}while(r);
}
}
do{
*_SUB_HASHDUMP_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)));
if(!qbevent)break;evnt(25757,300,"hash.bas");}while(r);
S_37783:;
if ((*_SUB_HASHDUMP_LONG_I)||is_error_pending()){
if(qbevent){evnt(25757,301,"hash.bas");if(r)goto S_37783;}
do{
goto LABEL_HASHDUMPNEXTITEM;
if(!qbevent)break;evnt(25757,301,"hash.bas");}while(r);
}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH;
if (is_error_pending()) goto skip4470;
sub_file_print(tmp_fileno,qbs_new_txt_len("END HashTable(",14), 0, 0, 0);
if (is_error_pending()) goto skip4470;
sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_X)), 1, 0, 0);
if (is_error_pending()) goto skip4470;
sub_file_print(tmp_fileno,qbs_new_txt_len(")",1), 0, 0, 1);
if (is_error_pending()) goto skip4470;
skip4470:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25757,303,"hash.bas");}while(r);
}
fornext_continue_4463:;
}
fornext_exit_4463:;
do{
sub_close(*_SUB_HASHDUMP_LONG_FH,1);
if(!qbevent)break;evnt(25757,306,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,308,"hash.bas");}while(r);
LABEL_CORRUPT:;
if(qbevent){evnt(25757,309,"hash.bas");r=0;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH;
if (is_error_pending()) goto skip4471;
sub_file_print(tmp_fileno,qbs_new_txt_len("HASH TABLE CORRUPT!",19), 0, 0, 1);
if (is_error_pending()) goto skip4471;
skip4471:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25757,310,"hash.bas");}while(r);
do{
sub_close(*_SUB_HASHDUMP_LONG_FH,1);
if(!qbevent)break;evnt(25757,311,"hash.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free217.txt"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
cmem_sp=tmp_cmem_sp;
}
