int32 FUNC_PARSENUMHASHLOOKUP(qbs*_FUNC_PARSENUMHASHLOOKUP_STRING_ELE,void*_FUNC_PARSENUMHASHLOOKUP_UDT_STATE){
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 "data190.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{
*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHFOUND= 0 ;
if(!qbevent)break;evnt(24222,717,"const_eval.bas");}while(r);
do{
qbs_set(_FUNC_PARSENUMHASHLOOKUP_STRING_HASHNAME,_FUNC_PARSENUMHASHLOOKUP_STRING_ELE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,719,"const_eval.bas");}while(r);
do{
qbs_set(_FUNC_PARSENUMHASHLOOKUP_STRING_UNUSEDSYMBOL,FUNC_TRYREMOVESYMBOL(_FUNC_PARSENUMHASHLOOKUP_STRING_HASHNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,720,"const_eval.bas");}while(r);
S_35506:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(24222,722,"const_eval.bas");if(r)goto S_35506;}
do{
sub__echo(qbs_add(qbs_new_txt_len("hash lookup: ",13),_FUNC_PARSENUMHASHLOOKUP_STRING_HASHNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,722,"const_eval.bas");}while(r);
}
S_35509:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(24222,723,"const_eval.bas");if(r)goto S_35509;}
do{
sub__echo(qbs_add(qbs_new_txt_len("unused symbol: ",15),_FUNC_PARSENUMHASHLOOKUP_STRING_HASHNAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,723,"const_eval.bas");}while(r);
}
do{
*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHCHKFLAGS= 1024ll ;
if(!qbevent)break;evnt(24222,724,"const_eval.bas");}while(r);
do{
*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_PARSENUMHASHLOOKUP_STRING_HASHNAME,_FUNC_PARSENUMHASHLOOKUP_LONG_HASHCHKFLAGS,_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESFLAGS,_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,725,"const_eval.bas");}while(r);
S_35514:;
while((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRES)||is_error_pending()){
if(qbevent){evnt(24222,726,"const_eval.bas");if(r)goto S_35514;}
S_35515:;
if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(24222,727,"const_eval.bas");if(r)goto S_35515;}
S_35516:;
if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||is_error_pending()){
if(qbevent){evnt(24222,728,"const_eval.bas");if(r)goto S_35516;}
do{
*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHFOUND= 1 ;
if(!qbevent)break;evnt(24222,729,"const_eval.bas");}while(r);
do{
goto dl_exit_4187;
if(!qbevent)break;evnt(24222,730,"const_eval.bas");}while(r);
}
}
S_35521:;
if ((-(*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRES!= 1 ))||is_error_pending()){
if(qbevent){evnt(24222,733,"const_eval.bas");if(r)goto S_35521;}
do{
*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESFLAGS,_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF);
if(!qbevent)break;evnt(24222,733,"const_eval.bas");}while(r);
}else{
do{
*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRES= 0 ;
if(!qbevent)break;evnt(24222,733,"const_eval.bas");}while(r);
}
dl_continue_4187:;
}
dl_exit_4187:;
S_35527:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(24222,736,"const_eval.bas");if(r)goto S_35527;}
do{
sub__echo(qbs_add(qbs_new_txt_len("Hashfound:",10),qbs_str((int32)(*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHFOUND))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,736,"const_eval.bas");}while(r);
}
S_35530:;
if ((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHFOUND)||is_error_pending()){
if(qbevent){evnt(24222,737,"const_eval.bas");if(r)goto S_35530;}
S_35531:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(24222,738,"const_eval.bas");if(r)goto S_35531;}
do{
sub__echo(qbs_add(qbs_new_txt_len("is string:",10),qbs_str((int64)(((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]&*__LONG_ISSTRING))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,738,"const_eval.bas");}while(r);
}
S_35534:;
if ((((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(24222,740,"const_eval.bas");if(r)goto S_35534;}
do{
SUB_PARSENUMSETS((void*)( ((char*)(_FUNC_PARSENUMHASHLOOKUP_UDT_STATE)) + (8) ),((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[array_check((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,741,"const_eval.bas");}while(r);
S_35536:;
}else{
if (((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]&*__LONG_ISFLOAT){
if(qbevent){evnt(24222,742,"const_eval.bas");if(r)goto S_35536;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_PARSENUMHASHLOOKUP_UDT_STATE)) + (8) ),(&(((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])])),(&(((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])])));
if(!qbevent)break;evnt(24222,743,"const_eval.bas");}while(r);
}else{
S_35539:;
if ((((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(24222,745,"const_eval.bas");if(r)goto S_35539;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_PARSENUMHASHLOOKUP_UDT_STATE)) + (8) ),(&(((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])])),(&(((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])])));
if(!qbevent)break;evnt(24222,746,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_PARSENUMHASHLOOKUP_UDT_STATE)) + (8) ),(&(((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])])),(&(((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_PARSENUMHASHLOOKUP_LONG_HASHRESREF)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])])));
if(!qbevent)break;evnt(24222,748,"const_eval.bas");}while(r);
}
}
}
S_35545:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(24222,752,"const_eval.bas");if(r)goto S_35545;}
do{
sub__echo(qbs_add(qbs_add(qbs_new_txt_len("Found! value: ",14),qbs__tostr((long double)(*(long double*)(((char*)_FUNC_PARSENUMHASHLOOKUP_UDT_STATE)+(8))),NULL,0)),*((qbs**)((char*)_FUNC_PARSENUMHASHLOOKUP_UDT_STATE+(56)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,752,"const_eval.bas");}while(r);
}
do{
*_FUNC_PARSENUMHASHLOOKUP_LONG_PARSENUMHASHLOOKUP= -1 ;
if(!qbevent)break;evnt(24222,754,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24222,755,"const_eval.bas");}while(r);
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free190.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_PARSENUMHASHLOOKUP_LONG_PARSENUMHASHLOOKUP;
}
