int32 FUNC_HASHVALUE(qbs*_FUNC_HASHVALUE_STRING_A){
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 "data238.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
*_FUNC_HASHVALUE_LONG_L=_FUNC_HASHVALUE_STRING_A->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28170,4,"hash.bas");}while(r);
S_40257:;
if ((-(*_FUNC_HASHVALUE_LONG_L== 0 ))||is_error_pending()){
if(qbevent){evnt(28170,5,"hash.bas");if(r)goto S_40257;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28170,5,"hash.bas");}while(r);
}
do{
*_FUNC_HASHVALUE_LONG_A=qbs_asc(_FUNC_HASHVALUE_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28170,6,"hash.bas");}while(r);
S_40261:;
if ((-(*_FUNC_HASHVALUE_LONG_A!= 95 ))||is_error_pending()){
if(qbevent){evnt(28170,7,"hash.bas");if(r)goto S_40261;}
S_40262:;
if(qbevent){evnt(28170,8,"hash.bas");if(r)goto S_40262;}
S_40263:;
if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||is_error_pending()){
if(qbevent){evnt(28170,9,"hash.bas");if(r)goto S_40263;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((*_FUNC_HASHVALUE_LONG_A)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]+ 1048576 ;
if(!qbevent)break;evnt(28170,10,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28170,11,"hash.bas");}while(r);
sc_ec_208_end:;
goto sc_4886_end;
}
S_40266:;
if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||is_error_pending()){
if(qbevent){evnt(28170,12,"hash.bas");if(r)goto S_40266;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+ 2097152 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28170,13,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28170,14,"hash.bas");}while(r);
sc_ec_209_end:;
goto sc_4886_end;
}
S_40269:;
if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||is_error_pending()){
if(qbevent){evnt(28170,15,"hash.bas");if(r)goto S_40269;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 3 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]* 1024 )+( 3145728 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28170,16,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28170,17,"hash.bas");}while(r);
sc_ec_210_end:;
goto sc_4886_end;
}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L))+(qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L- 1 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]* 1024 )+((*_FUNC_HASHVALUE_LONG_L& 7 )* 1048576 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28170,19,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28170,20,"hash.bas");}while(r);
sc_4886_end:;
}else{
S_40277:;
if(qbevent){evnt(28170,23,"hash.bas");if(r)goto S_40277;}
S_40278:;
if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||is_error_pending()){
if(qbevent){evnt(28170,24,"hash.bas");if(r)goto S_40278;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=( 1048576 + 8388608 );
if(!qbevent)break;evnt(28170,25,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28170,25,"hash.bas");}while(r);
sc_ec_211_end:;
goto sc_4887_end;
}
S_40281:;
if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||is_error_pending()){
if(qbevent){evnt(28170,26,"hash.bas");if(r)goto S_40281;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 2 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]+( 2097152 + 8388608 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28170,27,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28170,28,"hash.bas");}while(r);
sc_ec_212_end:;
goto sc_4887_end;
}
S_40284:;
if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||is_error_pending()){
if(qbevent){evnt(28170,29,"hash.bas");if(r)goto S_40284;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A, 2 ))+(qbs_asc(_FUNC_HASHVALUE_STRING_A, 3 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+( 3145728 + 8388608 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28170,30,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28170,31,"hash.bas");}while(r);
sc_ec_213_end:;
goto sc_4887_end;
}
S_40287:;
if (((*_FUNC_HASHVALUE_LONG_L==( 4 )))||is_error_pending()){
if(qbevent){evnt(28170,32,"hash.bas");if(r)goto S_40287;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((qb_safe_idiv((string2l(_FUNC_HASHVALUE_STRING_A)& 16776960 ), 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 4 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]* 1024 )+(( 4194304 + 8388608 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28170,33,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28170,34,"hash.bas");}while(r);
sc_ec_214_end:;
goto sc_4887_end;
}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((qb_safe_idiv((string2l(_FUNC_HASHVALUE_STRING_A)& 16776960 ), 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L))+(qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L- 1 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]* 1024 )+((*_FUNC_HASHVALUE_LONG_L& 7 )* 1048576 )+( 8388608 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28170,36,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28170,37,"hash.bas");}while(r);
sc_4887_end:;
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free238.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_HASHVALUE_LONG_HASHVALUE;
}
