int32 FUNC_HASHFINDCONT(int32*_FUNC_HASHFINDCONT_LONG_RESULTFLAGS,int32*_FUNC_HASHFINDCONT_LONG_RESULTREFERENCE){
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 "data215.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;
S_37663:;
if ((*__LONG_HASHFIND_REVERSE)||is_error_pending()){
if(qbevent){evnt(25757,158,"hash.bas");if(r)goto S_37663;}
do{
*_FUNC_HASHFINDCONT_LONG_I=*__LONG_HASHFIND_NEXTLISTITEM;
if(!qbevent)break;evnt(25757,160,"hash.bas");}while(r);
LABEL_HASHFINDREVC_NEXT:;
if(qbevent){evnt(25757,161,"hash.bas");r=0;}
do{
*_FUNC_HASHFINDCONT_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+0)));
if(!qbevent)break;evnt(25757,162,"hash.bas");}while(r);
S_37666:;
if ((*__LONG_HASHFIND_SEARCHFLAGS&*_FUNC_HASHFINDCONT_LONG_F)||is_error_pending()){
if(qbevent){evnt(25757,163,"hash.bas");if(r)goto S_37666;}
S_37667:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1),__STRING_HASHFIND_NAME)))||is_error_pending()){
if(qbevent){evnt(25757,164,"hash.bas");if(r)goto S_37667;}
do{
*_FUNC_HASHFINDCONT_LONG_RESULTFLAGS=*_FUNC_HASHFINDCONT_LONG_F;
if(!qbevent)break;evnt(25757,165,"hash.bas");}while(r);
do{
*_FUNC_HASHFINDCONT_LONG_RESULTREFERENCE=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)));
if(!qbevent)break;evnt(25757,166,"hash.bas");}while(r);
do{
*_FUNC_HASHFINDCONT_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)));
if(!qbevent)break;evnt(25757,167,"hash.bas");}while(r);
S_37671:;
if ((*_FUNC_HASHFINDCONT_LONG_I2)||is_error_pending()){
if(qbevent){evnt(25757,168,"hash.bas");if(r)goto S_37671;}
do{
*_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 2 ;
if(!qbevent)break;evnt(25757,169,"hash.bas");}while(r);
do{
*__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFINDCONT_LONG_I2;
if(!qbevent)break;evnt(25757,170,"hash.bas");}while(r);
do{
*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I;
if(!qbevent)break;evnt(25757,171,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,172,"hash.bas");}while(r);
}else{
do{
*_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 1 ;
if(!qbevent)break;evnt(25757,174,"hash.bas");}while(r);
do{
*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I;
if(!qbevent)break;evnt(25757,175,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,176,"hash.bas");}while(r);
}
}
}
do{
*_FUNC_HASHFINDCONT_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)));
if(!qbevent)break;evnt(25757,180,"hash.bas");}while(r);
S_37684:;
if ((*_FUNC_HASHFINDCONT_LONG_I)||is_error_pending()){
if(qbevent){evnt(25757,181,"hash.bas");if(r)goto S_37684;}
do{
goto LABEL_HASHFINDREVC_NEXT;
if(!qbevent)break;evnt(25757,181,"hash.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,182,"hash.bas");}while(r);
}else{
do{
*_FUNC_HASHFINDCONT_LONG_I=*__LONG_HASHFIND_NEXTLISTITEM;
if(!qbevent)break;evnt(25757,186,"hash.bas");}while(r);
LABEL_HASHFINDC_NEXT:;
if(qbevent){evnt(25757,187,"hash.bas");r=0;}
do{
*_FUNC_HASHFINDCONT_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+0)));
if(!qbevent)break;evnt(25757,188,"hash.bas");}while(r);
S_37691:;
if ((*__LONG_HASHFIND_SEARCHFLAGS&*_FUNC_HASHFINDCONT_LONG_F)||is_error_pending()){
if(qbevent){evnt(25757,189,"hash.bas");if(r)goto S_37691;}
S_37692:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1),__STRING_HASHFIND_NAME)))||is_error_pending()){
if(qbevent){evnt(25757,190,"hash.bas");if(r)goto S_37692;}
do{
*_FUNC_HASHFINDCONT_LONG_RESULTFLAGS=*_FUNC_HASHFINDCONT_LONG_F;
if(!qbevent)break;evnt(25757,191,"hash.bas");}while(r);
do{
*_FUNC_HASHFINDCONT_LONG_RESULTREFERENCE=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)));
if(!qbevent)break;evnt(25757,192,"hash.bas");}while(r);
do{
*_FUNC_HASHFINDCONT_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)));
if(!qbevent)break;evnt(25757,193,"hash.bas");}while(r);
S_37696:;
if ((*_FUNC_HASHFINDCONT_LONG_I2)||is_error_pending()){
if(qbevent){evnt(25757,194,"hash.bas");if(r)goto S_37696;}
do{
*_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 2 ;
if(!qbevent)break;evnt(25757,195,"hash.bas");}while(r);
do{
*__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFINDCONT_LONG_I2;
if(!qbevent)break;evnt(25757,196,"hash.bas");}while(r);
do{
*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I;
if(!qbevent)break;evnt(25757,197,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,198,"hash.bas");}while(r);
}else{
do{
*_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 1 ;
if(!qbevent)break;evnt(25757,200,"hash.bas");}while(r);
do{
*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I;
if(!qbevent)break;evnt(25757,201,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,202,"hash.bas");}while(r);
}
}
}
do{
*_FUNC_HASHFINDCONT_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+(((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)));
if(!qbevent)break;evnt(25757,206,"hash.bas");}while(r);
S_37709:;
if ((*_FUNC_HASHFINDCONT_LONG_I)||is_error_pending()){
if(qbevent){evnt(25757,207,"hash.bas");if(r)goto S_37709;}
do{
goto LABEL_HASHFINDC_NEXT;
if(!qbevent)break;evnt(25757,207,"hash.bas");}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,208,"hash.bas");}while(r);
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free215.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;
return *_FUNC_HASHFINDCONT_LONG_HASHFINDCONT;
}
