#line 257 "utilities/hash.bas"
void SUB_HASHDUMP(){
#line 257 "utilities/hash.bas"
qbs *tqbs;
#line 257 "utilities/hash.bas"
ptrszint tmp_long;
#line 257 "utilities/hash.bas"
int32 tmp_fileno;
#line 257 "utilities/hash.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 257 "utilities/hash.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 257 "utilities/hash.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 257 "utilities/hash.bas"
#include "data278.txt"
#line 257 "utilities/hash.bas"
mem_lock *sf_mem_lock;
#line 257 "utilities/hash.bas"
new_mem_lock();
#line 257 "utilities/hash.bas"
sf_mem_lock=mem_lock_tmp;
#line 257 "utilities/hash.bas"
sf_mem_lock->type=3;
#line 257 "utilities/hash.bas"
libqb_check_stack();
#line 257 "utilities/hash.bas"
if (is_error_pending()) goto exit_subfunc;
#line 258 "utilities/hash.bas"
do{
#line 258 "utilities/hash.bas"
*_SUB_HASHDUMP_LONG_FH=func_freefile();
#line 258 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,258,"hash.bas");}while(r);
#line 259 "utilities/hash.bas"
do{
#line 259 "utilities/hash.bas"
sub_open(qbs_new_txt_len("hashdump.txt",12), 4 ,NULL,NULL,*_SUB_HASHDUMP_LONG_FH,NULL,0);
#line 259 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 259 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,259,"hash.bas");}while(r);
#line 260 "utilities/hash.bas"
do{
#line 260 "utilities/hash.bas"
qbs_set(_SUB_HASHDUMP_STRING_B,qbs_new_txt_len("12345678901234567890123456789012}",33));
#line 260 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 260 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,260,"hash.bas");}while(r);
#line 261 "utilities/hash.bas"
S_41959:;
#line 261 "utilities/hash.bas"
fornext_value4214= 0 ;
#line 261 "utilities/hash.bas"
fornext_finalvalue4214= 16777215 ;
#line 261 "utilities/hash.bas"
fornext_step4214= 1 ;
#line 261 "utilities/hash.bas"
if (fornext_step4214<0) fornext_step_negative4214=1; else fornext_step_negative4214=0;
#line 261 "utilities/hash.bas"
if (is_error_pending()) goto fornext_error4214;
#line 261 "utilities/hash.bas"
goto fornext_entrylabel4214;
#line 261 "utilities/hash.bas"
while(1){
#line 261 "utilities/hash.bas"
fornext_value4214=fornext_step4214+(*_SUB_HASHDUMP_LONG_X);
#line 261 "utilities/hash.bas"
fornext_entrylabel4214:
#line 261 "utilities/hash.bas"
*_SUB_HASHDUMP_LONG_X=fornext_value4214;
#line 261 "utilities/hash.bas"
if (fornext_step_negative4214){
#line 261 "utilities/hash.bas"
if (fornext_value4214<fornext_finalvalue4214) break;
#line 261 "utilities/hash.bas"
}else{
#line 261 "utilities/hash.bas"
if (fornext_value4214>fornext_finalvalue4214) break;
#line 261 "utilities/hash.bas"
}
#line 261 "utilities/hash.bas"
fornext_error4214:;
#line 261 "utilities/hash.bas"
if(qbevent){evnt(28807,261,"hash.bas");if(r)goto S_41959;}
#line 262 "utilities/hash.bas"
S_41960:;
#line 262 "utilities/hash.bas"
if ((((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((*_SUB_HASHDUMP_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])])||is_error_pending()){
#line 262 "utilities/hash.bas"
if(qbevent){evnt(28807,262,"hash.bas");if(r)goto S_41960;}
#line 264 "utilities/hash.bas"
do{
#line 264 "utilities/hash.bas"
tab_spc_cr_size=2;
#line 264 "utilities/hash.bas"
tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH;
#line 264 "utilities/hash.bas"
if (is_error_pending()) goto skip4215;
#line 264 "utilities/hash.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("START HashTable(",16), 0, 0, 0);
#line 264 "utilities/hash.bas"
if (is_error_pending()) goto skip4215;
#line 264 "utilities/hash.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_X)), 1, 0, 0);
#line 264 "utilities/hash.bas"
if (is_error_pending()) goto skip4215;
#line 264 "utilities/hash.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("):",2), 0, 0, 1);
#line 264 "utilities/hash.bas"
if (is_error_pending()) goto skip4215;
#line 264 "utilities/hash.bas"
skip4215:
#line 264 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 264 "utilities/hash.bas"
tab_spc_cr_size=1;
#line 264 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,264,"hash.bas");}while(r);
#line 265 "utilities/hash.bas"
do{
#line 265 "utilities/hash.bas"
*_SUB_HASHDUMP_LONG_I=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((*_SUB_HASHDUMP_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])];
#line 265 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,265,"hash.bas");}while(r);
#line 268 "utilities/hash.bas"
do{
#line 268 "utilities/hash.bas"
*_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)));
#line 268 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,268,"hash.bas");}while(r);
#line 269 "utilities/hash.bas"
S_41964:;
#line 269 "utilities/hash.bas"
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()){
#line 269 "utilities/hash.bas"
if(qbevent){evnt(28807,269,"hash.bas");if(r)goto S_41964;}
#line 269 "utilities/hash.bas"
do{
#line 269 "utilities/hash.bas"
goto LABEL_CORRUPT;
#line 269 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,269,"hash.bas");}while(r);
#line 269 "utilities/hash.bas"
}
#line 271 "utilities/hash.bas"
do{
#line 271 "utilities/hash.bas"
tab_spc_cr_size=2;
#line 271 "utilities/hash.bas"
tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH;
#line 271 "utilities/hash.bas"
if (is_error_pending()) goto skip4216;
#line 271 "utilities/hash.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("  HashList(",11), 0, 0, 0);
#line 271 "utilities/hash.bas"
if (is_error_pending()) goto skip4216;
#line 271 "utilities/hash.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_I)), 1, 0, 0);
#line 271 "utilities/hash.bas"
if (is_error_pending()) goto skip4216;
#line 271 "utilities/hash.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len(").LastItem=",11), 0, 0, 0);
#line 271 "utilities/hash.bas"
if (is_error_pending()) goto skip4216;
#line 271 "utilities/hash.bas"
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);
#line 271 "utilities/hash.bas"
if (is_error_pending()) goto skip4216;
#line 271 "utilities/hash.bas"
skip4216:
#line 271 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 271 "utilities/hash.bas"
tab_spc_cr_size=1;
#line 271 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,271,"hash.bas");}while(r);
#line 272 "utilities/hash.bas"
LABEL_HASHDUMPNEXTITEM:;
#line 272 "utilities/hash.bas"
if(qbevent){evnt(28807,272,"hash.bas");r=0;}
#line 273 "utilities/hash.bas"
do{
#line 273 "utilities/hash.bas"
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)));
#line 273 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 273 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,273,"hash.bas");}while(r);
#line 275 "utilities/hash.bas"
do{
#line 275 "utilities/hash.bas"
*_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)));
#line 275 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,275,"hash.bas");}while(r);
#line 276 "utilities/hash.bas"
do{
#line 276 "utilities/hash.bas"
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)));
#line 276 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 276 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,276,"hash.bas");}while(r);
#line 277 "utilities/hash.bas"
S_41971:;
#line 277 "utilities/hash.bas"
fornext_value4218= 1 ;
#line 277 "utilities/hash.bas"
fornext_finalvalue4218= 32 ;
#line 277 "utilities/hash.bas"
fornext_step4218= 1 ;
#line 277 "utilities/hash.bas"
if (fornext_step4218<0) fornext_step_negative4218=1; else fornext_step_negative4218=0;
#line 277 "utilities/hash.bas"
if (is_error_pending()) goto fornext_error4218;
#line 277 "utilities/hash.bas"
goto fornext_entrylabel4218;
#line 277 "utilities/hash.bas"
while(1){
#line 277 "utilities/hash.bas"
fornext_value4218=fornext_step4218+(*_SUB_HASHDUMP_LONG_Z);
#line 277 "utilities/hash.bas"
fornext_entrylabel4218:
#line 277 "utilities/hash.bas"
*_SUB_HASHDUMP_LONG_Z=fornext_value4218;
#line 277 "utilities/hash.bas"
if (fornext_step_negative4218){
#line 277 "utilities/hash.bas"
if (fornext_value4218<fornext_finalvalue4218) break;
#line 277 "utilities/hash.bas"
}else{
#line 277 "utilities/hash.bas"
if (fornext_value4218>fornext_finalvalue4218) break;
#line 277 "utilities/hash.bas"
}
#line 277 "utilities/hash.bas"
fornext_error4218:;
#line 277 "utilities/hash.bas"
if(qbevent){evnt(28807,277,"hash.bas");if(r)goto S_41971;}
#line 278 "utilities/hash.bas"
do{
#line 278 "utilities/hash.bas"
tqbs=_SUB_HASHDUMP_STRING_B; if (!is_error_pending()){
#line 278 "utilities/hash.bas"
tmp_fileno=*_SUB_HASHDUMP_LONG_Z; if (!is_error_pending()){
#line 278 "utilities/hash.bas"
tmp_long=(*_SUB_HASHDUMP_LONG_F& 1 )+ 48 ; if (!is_error_pending()){
#line 278 "utilities/hash.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 278 "utilities/hash.bas"
}}}
#line 278 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,278,"hash.bas");}while(r);
#line 279 "utilities/hash.bas"
do{
#line 279 "utilities/hash.bas"
*_SUB_HASHDUMP_LONG_F=qb_safe_idiv(*_SUB_HASHDUMP_LONG_F, 2 );
#line 279 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,279,"hash.bas");}while(r);
#line 280 "utilities/hash.bas"
fornext_continue_4217:;
#line 280 "utilities/hash.bas"
}
#line 280 "utilities/hash.bas"
fornext_exit_4217:;
#line 281 "utilities/hash.bas"
do{
#line 281 "utilities/hash.bas"
qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(_SUB_HASHDUMP_STRING_X,_SUB_HASHDUMP_STRING_B));
#line 281 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 281 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,281,"hash.bas");}while(r);
#line 283 "utilities/hash.bas"
do{
#line 283 "utilities/hash.bas"
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)));
#line 283 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 283 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,283,"hash.bas");}while(r);
#line 285 "utilities/hash.bas"
do{
#line 285 "utilities/hash.bas"
tab_spc_cr_size=2;
#line 285 "utilities/hash.bas"
tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH;
#line 285 "utilities/hash.bas"
if (is_error_pending()) goto skip4219;
#line 285 "utilities/hash.bas"
sub_file_print(tmp_fileno,_SUB_HASHDUMP_STRING_X, 0, 0, 1);
#line 285 "utilities/hash.bas"
if (is_error_pending()) goto skip4219;
#line 285 "utilities/hash.bas"
skip4219:
#line 285 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 285 "utilities/hash.bas"
tab_spc_cr_size=1;
#line 285 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,285,"hash.bas");}while(r);
#line 288 "utilities/hash.bas"
do{
#line 288 "utilities/hash.bas"
*_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)));
#line 288 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,288,"hash.bas");}while(r);
#line 289 "utilities/hash.bas"
do{
#line 289 "utilities/hash.bas"
*_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)));
#line 289 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,289,"hash.bas");}while(r);
#line 290 "utilities/hash.bas"
S_41980:;
#line 290 "utilities/hash.bas"
if ((*_SUB_HASHDUMP_LONG_I1)||is_error_pending()){
#line 290 "utilities/hash.bas"
if(qbevent){evnt(28807,290,"hash.bas");if(r)goto S_41980;}
#line 291 "utilities/hash.bas"
S_41981:;
#line 291 "utilities/hash.bas"
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()){
#line 291 "utilities/hash.bas"
if(qbevent){evnt(28807,291,"hash.bas");if(r)goto S_41981;}
#line 291 "utilities/hash.bas"
do{
#line 291 "utilities/hash.bas"
goto LABEL_CORRUPT;
#line 291 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,291,"hash.bas");}while(r);
#line 291 "utilities/hash.bas"
}
#line 292 "utilities/hash.bas"
}
#line 293 "utilities/hash.bas"
S_41985:;
#line 293 "utilities/hash.bas"
if ((*_SUB_HASHDUMP_LONG_I2)||is_error_pending()){
#line 293 "utilities/hash.bas"
if(qbevent){evnt(28807,293,"hash.bas");if(r)goto S_41985;}
#line 294 "utilities/hash.bas"
S_41986:;
#line 294 "utilities/hash.bas"
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()){
#line 294 "utilities/hash.bas"
if(qbevent){evnt(28807,294,"hash.bas");if(r)goto S_41986;}
#line 294 "utilities/hash.bas"
do{
#line 294 "utilities/hash.bas"
goto LABEL_CORRUPT;
#line 294 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,294,"hash.bas");}while(r);
#line 294 "utilities/hash.bas"
}
#line 295 "utilities/hash.bas"
}
#line 296 "utilities/hash.bas"
S_41990:;
#line 296 "utilities/hash.bas"
if ((-(*_SUB_HASHDUMP_LONG_I2== 0 ))||is_error_pending()){
#line 296 "utilities/hash.bas"
if(qbevent){evnt(28807,296,"hash.bas");if(r)goto S_41990;}
#line 297 "utilities/hash.bas"
S_41991:;
#line 297 "utilities/hash.bas"
if ((-(*_SUB_HASHDUMP_LONG_LASTI!=*_SUB_HASHDUMP_LONG_I))||is_error_pending()){
#line 297 "utilities/hash.bas"
if(qbevent){evnt(28807,297,"hash.bas");if(r)goto S_41991;}
#line 297 "utilities/hash.bas"
do{
#line 297 "utilities/hash.bas"
goto LABEL_CORRUPT;
#line 297 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,297,"hash.bas");}while(r);
#line 297 "utilities/hash.bas"
}
#line 298 "utilities/hash.bas"
}
#line 300 "utilities/hash.bas"
do{
#line 300 "utilities/hash.bas"
*_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)));
#line 300 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,300,"hash.bas");}while(r);
#line 301 "utilities/hash.bas"
S_41996:;
#line 301 "utilities/hash.bas"
if ((*_SUB_HASHDUMP_LONG_I)||is_error_pending()){
#line 301 "utilities/hash.bas"
if(qbevent){evnt(28807,301,"hash.bas");if(r)goto S_41996;}
#line 301 "utilities/hash.bas"
do{
#line 301 "utilities/hash.bas"
goto LABEL_HASHDUMPNEXTITEM;
#line 301 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,301,"hash.bas");}while(r);
#line 301 "utilities/hash.bas"
}
#line 303 "utilities/hash.bas"
do{
#line 303 "utilities/hash.bas"
tab_spc_cr_size=2;
#line 303 "utilities/hash.bas"
tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH;
#line 303 "utilities/hash.bas"
if (is_error_pending()) goto skip4220;
#line 303 "utilities/hash.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("END HashTable(",14), 0, 0, 0);
#line 303 "utilities/hash.bas"
if (is_error_pending()) goto skip4220;
#line 303 "utilities/hash.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_X)), 1, 0, 0);
#line 303 "utilities/hash.bas"
if (is_error_pending()) goto skip4220;
#line 303 "utilities/hash.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len(")",1), 0, 0, 1);
#line 303 "utilities/hash.bas"
if (is_error_pending()) goto skip4220;
#line 303 "utilities/hash.bas"
skip4220:
#line 303 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 303 "utilities/hash.bas"
tab_spc_cr_size=1;
#line 303 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,303,"hash.bas");}while(r);
#line 304 "utilities/hash.bas"
}
#line 305 "utilities/hash.bas"
fornext_continue_4213:;
#line 305 "utilities/hash.bas"
}
#line 305 "utilities/hash.bas"
fornext_exit_4213:;
#line 306 "utilities/hash.bas"
do{
#line 306 "utilities/hash.bas"
sub_close(*_SUB_HASHDUMP_LONG_FH,1);
#line 306 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,306,"hash.bas");}while(r);
#line 308 "utilities/hash.bas"
do{
#line 308 "utilities/hash.bas"
goto exit_subfunc;
#line 308 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,308,"hash.bas");}while(r);
#line 309 "utilities/hash.bas"
LABEL_CORRUPT:;
#line 309 "utilities/hash.bas"
if(qbevent){evnt(28807,309,"hash.bas");r=0;}
#line 310 "utilities/hash.bas"
do{
#line 310 "utilities/hash.bas"
tab_spc_cr_size=2;
#line 310 "utilities/hash.bas"
tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH;
#line 310 "utilities/hash.bas"
if (is_error_pending()) goto skip4221;
#line 310 "utilities/hash.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("HASH TABLE CORRUPT!",19), 0, 0, 1);
#line 310 "utilities/hash.bas"
if (is_error_pending()) goto skip4221;
#line 310 "utilities/hash.bas"
skip4221:
#line 310 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 310 "utilities/hash.bas"
tab_spc_cr_size=1;
#line 310 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,310,"hash.bas");}while(r);
#line 311 "utilities/hash.bas"
do{
#line 311 "utilities/hash.bas"
sub_close(*_SUB_HASHDUMP_LONG_FH,1);
#line 311 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,311,"hash.bas");}while(r);
#line 313 "utilities/hash.bas"
exit_subfunc:;
#line 313 "utilities/hash.bas"
free_mem_lock(sf_mem_lock);
#line 313 "utilities/hash.bas"
#include "free278.txt"
#line 313 "utilities/hash.bas"
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;
#line 313 "utilities/hash.bas"
cmem_sp=tmp_cmem_sp;
#line 313 "utilities/hash.bas"
}
