qbs* FUNC_EVALUATEFUNC(qbs*_FUNC_EVALUATEFUNC_STRING_A2,int32*_FUNC_EVALUATEFUNC_LONG_ARGS,int32*_FUNC_EVALUATEFUNC_LONG_TYP){
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 "data21.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{
qbs_set(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16622);}while(r);
S_19612:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(16624);if(r)goto S_19612;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2743;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("evaluatingfunction:",19),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len(":",1)),_FUNC_EVALUATEFUNC_STRING_A), 0, 0, 1);
if (is_error_pending()) goto skip2743;
skip2743:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16624);}while(r);
}
do{
if(!qbevent)break;evnt(16626);}while(r);
do{
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2);
qbs_set(*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861));
if(!qbevent)break;evnt(16628);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16629);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2381));
if(!qbevent)break;evnt(16630);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETID=*__LONG_CURRENTID;
if(!qbevent)break;evnt(16631);}while(r);
S_19620:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("func_stub",9))))||is_error_pending()){
if(qbevent){evnt(16633);if(r)goto S_19620;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Command not implemented",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16633);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16633);}while(r);
}
S_19624:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("func_input",10)))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))&(-(*__BYTE_INPUTFUNCTIONCALLED== 0 ))))||is_error_pending()){
if(qbevent){evnt(16634);if(r)goto S_19624;}
do{
*__BYTE_INPUTFUNCTIONCALLED= -1 ;
if(!qbevent)break;evnt(16635);}while(r);
S_19626:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + (0) )))||is_error_pending()){
if(qbevent){evnt(16636);if(r)goto S_19626;}
do{
SUB_WRITEBUFLINE(&(pass2744=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16637);}while(r);
}
}
do{
SUB_SETDEPENDENCY(&(pass2745=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(546))));
if(!qbevent)break;evnt(16641);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT=FUNC_COUNTFUNCTIONELEMENTS(_FUNC_EVALUATEFUNC_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16643);}while(r);
do{

if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS)[8])->id=(++mem_lock_id);
if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&1){
if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&4){
cmem_dynamic_free((uint8*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]));
}else{
free((void*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]));
}
}
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4]= 0 ;
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]=(*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4]+1;
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[6]=1;
if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&4){
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]*4);
memset((void*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]),0,_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]*4);
}else{
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=(ptrszint)calloc(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]*4,1);
if (!_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]) error(257);
}
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]|=1;
}
if(!qbevent)break;evnt(16644);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 0 ;
if(!qbevent)break;evnt(16646);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG= 0 ;
if(!qbevent)break;evnt(16647);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT= 0 ;
if(!qbevent)break;evnt(16648);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_F,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(1613)),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16650);}while(r);
S_19637:;
if ((qbs_cleanup(qbs_tmp_base,_FUNC_EVALUATEFUNC_STRING_F->len))||is_error_pending()){
if(qbevent){evnt(16651);if(r)goto S_19637;}
S_19638:;
fornext_value2748= 1 ;
fornext_finalvalue2748=*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT;
fornext_step2748= 1 ;
if (fornext_step2748<0) fornext_step_negative2748=1; else fornext_step_negative2748=0;
if (is_error_pending()) goto fornext_error2748;
goto fornext_entrylabel2748;
while(1){
fornext_value2748=fornext_step2748+(*_FUNC_EVALUATEFUNC_LONG_FI);
fornext_entrylabel2748:
*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2748;
if (fornext_step_negative2748){
if (fornext_value2748<fornext_finalvalue2748) break;
}else{
if (fornext_value2748>fornext_finalvalue2748) break;
}
fornext_error2748:;
if(qbevent){evnt(16653);if(r)goto S_19638;}
do{
tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_FI)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]=FUNC_HASFUNCTIONELEMENT(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FI);
if(!qbevent)break;evnt(16654);}while(r);
fornext_continue_2747:;
}
fornext_exit_2747:;
S_19641:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_F,qbs_new_txt_len("[?],?,?",7))))||is_error_pending()){
if(qbevent){evnt(16658);if(r)goto S_19641;}
do{
*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG= -1 ;
if(!qbevent)break;evnt(16659);}while(r);
S_19643:;
if ((-(func_ubound(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,1,1)== 2 ))||is_error_pending()){
if(qbevent){evnt(16661);if(r)goto S_19643;}
do{

if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&1){
preserved_elements=_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5];
}
else preserved_elements=0;
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4]= 0 ;
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]=( 3 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4]+1;
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[6]=1;
if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&4){
if (preserved_elements){
memcpy(redim_preserve_cmem_buffer,(void*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]),preserved_elements*4);
cmem_dynamic_free((uint8*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]));
tmp_long=_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5];
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*4);
memcpy((void*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]),redim_preserve_cmem_buffer,preserved_elements*4);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]*4);
memset((void*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]),0,_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]*4);
}
}else{
if (preserved_elements){
tmp_long=_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5];
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=(ptrszint)realloc((void*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]),tmp_long*4);
if (!_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]) error(257);
if (preserved_elements<tmp_long) ZeroMemory(((uint8*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))+preserved_elements*4,(tmp_long*4)-(preserved_elements*4));
}else{
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=(ptrszint)calloc(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]*4,1);
if (!_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]) error(257);
}
}
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]|=1;
}
if(!qbevent)break;evnt(16662);}while(r);
do{
tmp_long=array_check(( 3 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]=((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check(( 2 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])];
if(!qbevent)break;evnt(16664);}while(r);
do{
tmp_long=array_check(( 2 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]=((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check(( 1 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])];
if(!qbevent)break;evnt(16665);}while(r);
do{
tmp_long=array_check(( 1 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(16666);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG= -1 ;
if(!qbevent)break;evnt(16668);}while(r);
}
}
S_19651:;
if ((qbs_cleanup(qbs_tmp_base,~(FUNC_ISVALIDARGSET(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(1613)),256,1),_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT))))||is_error_pending()){
if(qbevent){evnt(16672);if(r)goto S_19651;}
S_19652:;
if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2861)))->len> 0 )))||is_error_pending()){
if(qbevent){evnt(16673);if(r)goto S_19652;}
do{
SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Incorrect number of arguments - Reference: ",43),*((qbs**)((char*)_FUNC_EVALUATEFUNC_UDT_ID2+(2861)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16674);}while(r);
}else{
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments passed to function",48));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16676);}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16678);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 1 ;
if(!qbevent)break;evnt(16681);}while(r);
}else{
S_19661:;
fornext_value2750= 1 ;
fornext_finalvalue2750=*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT;
fornext_step2750= 1 ;
if (fornext_step2750<0) fornext_step_negative2750=1; else fornext_step_negative2750=0;
if (is_error_pending()) goto fornext_error2750;
goto fornext_entrylabel2750;
while(1){
fornext_value2750=fornext_step2750+(*_FUNC_EVALUATEFUNC_LONG_FI);
fornext_entrylabel2750:
*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2750;
if (fornext_step_negative2750){
if (fornext_value2750<fornext_finalvalue2750) break;
}else{
if (fornext_value2750>fornext_finalvalue2750) break;
}
fornext_error2750:;
if(qbevent){evnt(16685);if(r)goto S_19661;}
do{
tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_FI)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]= -1 ;
if(!qbevent)break;evnt(16686);}while(r);
fornext_continue_2749:;
}
fornext_exit_2749:;
S_19664:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ASC",3)))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))))||is_error_pending()){
if(qbevent){evnt(16689);if(r)goto S_19664;}
do{
goto LABEL_SKIPARGNUMCHK;
if(!qbevent)break;evnt(16689);}while(r);
}
S_19667:;
if (((-(*(int8*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(808))== -1 ))&(((-(*_FUNC_EVALUATEFUNC_LONG_ARGS>=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(811))))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS<=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809)))))))||is_error_pending()){
if(qbevent){evnt(16690);if(r)goto S_19667;}
do{
goto LABEL_SKIPARGNUMCHK;
if(!qbevent)break;evnt(16690);}while(r);
}
S_19670:;
if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))!=*_FUNC_EVALUATEFUNC_LONG_ARGS))||is_error_pending()){
if(qbevent){evnt(16692);if(r)goto S_19670;}
S_19671:;
if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2861)))->len> 0 )))||is_error_pending()){
if(qbevent){evnt(16693);if(r)goto S_19671;}
do{
SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Incorrect number of arguments - Reference: ",43),*((qbs**)((char*)_FUNC_EVALUATEFUNC_UDT_ID2+(2861)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16694);}while(r);
}else{
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments passed to function",48));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16696);}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16698);}while(r);
}
}
LABEL_SKIPARGNUMCHK:;
if(qbevent){evnt(16703);r=0;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16705);}while(r);
S_19680:;
if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))!= 0 ))||is_error_pending()){
if(qbevent){evnt(16708);if(r)goto S_19680;}
do{
*_FUNC_EVALUATEFUNC_LONG_CURARG= 1 ;
if(!qbevent)break;evnt(16710);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_FIRSTI= 1 ;
if(!qbevent)break;evnt(16711);}while(r);
S_19683:;
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
if(qbevent){evnt(16715);if(r)goto S_19683;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL,",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16716);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_CURARG= 2 ;
if(!qbevent)break;evnt(16717);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATEFUNC_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16720);}while(r);
S_19688:;
fornext_value2752= 1 ;
fornext_finalvalue2752=*_FUNC_EVALUATEFUNC_LONG_N;
fornext_step2752= 1 ;
if (fornext_step2752<0) fornext_step_negative2752=1; else fornext_step_negative2752=0;
if (is_error_pending()) goto fornext_error2752;
goto fornext_entrylabel2752;
while(1){
fornext_value2752=fornext_step2752+(*_FUNC_EVALUATEFUNC_LONG_I);
fornext_entrylabel2752:
*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2752;
if (fornext_step_negative2752){
if (fornext_value2752<fornext_finalvalue2752) break;
}else{
if (fornext_value2752>fornext_finalvalue2752) break;
}
fornext_error2752:;
if(qbevent){evnt(16722);if(r)goto S_19688;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_L,FUNC_GETELEMENT(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16723);}while(r);
S_19690:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(16724);if(r)goto S_19690;}
do{
*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B+ 1 ;
if(!qbevent)break;evnt(16724);}while(r);
}
S_19693:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(16725);if(r)goto S_19693;}
do{
*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B- 1 ;
if(!qbevent)break;evnt(16725);}while(r);
}
S_19696:;
if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len(",",1)))&(-(*_FUNC_EVALUATEFUNC_LONG_B== 0 )))|(-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))))||is_error_pending()){
if(qbevent){evnt(16726);if(r)goto S_19696;}
S_19697:;
if ((~(((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_CURARG)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])]))||is_error_pending()){
if(qbevent){evnt(16727);if(r)goto S_19697;}
S_19698:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||is_error_pending()){
if(qbevent){evnt(16728);if(r)goto S_19698;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Last function argument cannot be empty",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16728);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16728);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL,",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16730);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ;
if(!qbevent)break;evnt(16731);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ;
if(!qbevent)break;evnt(16732);}while(r);
do{
goto fornext_continue_2751;
if(!qbevent)break;evnt(16733);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(813)),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16736);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2647)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16737);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2747)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16738);}while(r);
S_19710:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||is_error_pending()){
if(qbevent){evnt(16740);if(r)goto S_19710;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,_FUNC_EVALUATEFUNC_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16741);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,&(pass2753=*_FUNC_EVALUATEFUNC_LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16743);}while(r);
}
S_19715:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP)))))||is_error_pending()){
if(qbevent){evnt(16746);if(r)goto S_19715;}
do{
*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 1 ;
if(!qbevent)break;evnt(16746);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 0 ;
if(!qbevent)break;evnt(16746);}while(r);
}
S_19720:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("VAL",3))))||is_error_pending()){
if(qbevent){evnt(16750);if(r)goto S_19720;}
S_19721:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(16751);if(r)goto S_19721;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16752);}while(r);
S_19723:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16753);if(r)goto S_19723;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16753);}while(r);
}
S_19726:;
if(qbevent){evnt(16755);if(r)goto S_19726;}
S_19727:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,qbs_new_txt_len("%%",2))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,qbs_new_txt_len("%",1))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,qbs_new_txt_len("&",1))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,qbs_new_txt_len("&&",2))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,qbs_new_txt_len("%&",2))))||is_error_pending()){
if(qbevent){evnt(16756);if(r)goto S_19727;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(16757);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_new_txt_len("qbs_val<int64_t>",16),_FUNC_EVALUATEFUNC_STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16758);}while(r);
sc_ec_87_end:;
goto sc_2754_end;
}
S_19730:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,qbs_new_txt_len("~%%",3))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,qbs_new_txt_len("~%",2))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,qbs_new_txt_len("~&",2))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,qbs_new_txt_len("~&&",3))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,qbs_new_txt_len("~%&",3))))||is_error_pending()){
if(qbevent){evnt(16760);if(r)goto S_19730;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(16761);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_new_txt_len("qbs_val<uint64_t>",17),_FUNC_EVALUATEFUNC_STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16762);}while(r);
sc_ec_88_end:;
goto sc_2754_end;
}
S_19733:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,qbs_new_txt_len("!",1))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,qbs_new_txt_len("#",1))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,qbs_new_txt_len("##",2))))||is_error_pending()){
if(qbevent){evnt(16764);if(r)goto S_19733;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(16765);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_new_txt_len("qbs_val<long double>",20),_FUNC_EVALUATEFUNC_STRING_R));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16766);}while(r);
sc_ec_89_end:;
goto sc_2754_end;
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("VAL TYPE unsupported",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16769);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16770);}while(r);
sc_2754_end:;
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16773);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
if(!qbevent)break;evnt(16774);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(16776);}while(r);
}
}
S_19745:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CAST",5))))||is_error_pending()){
if(qbevent){evnt(16781);if(r)goto S_19745;}
S_19746:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(16782);if(r)goto S_19746;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16783);}while(r);
S_19748:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16784);if(r)goto S_19748;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16784);}while(r);
}
S_19751:;
if(qbevent){evnt(16786);if(r)goto S_19751;}
S_19752:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,qbs_new_txt_len("%%",2))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,qbs_new_txt_len("~%%",3))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,qbs_new_txt_len("%",1))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,qbs_new_txt_len("~%",2))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,qbs_new_txt_len("&",1))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,qbs_new_txt_len("~&",2))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,qbs_new_txt_len("&&",2))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,qbs_new_txt_len("~&&",3))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,qbs_new_txt_len("%&",2))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,qbs_new_txt_len("~%&",3))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,qbs_new_txt_len("!",1))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,qbs_new_txt_len("#",1))||qbs_equal(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,qbs_new_txt_len("##",2))))||is_error_pending()){
if(qbevent){evnt(16787);if(r)goto S_19752;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=FUNC_TYPNAME2TYP(_FUNC_EVALUATEFUNC_STRING_CASTTYPE)-*__LONG_ISPOINTER;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16788);}while(r);
S_19754:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16789);if(r)goto S_19754;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16789);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("(",1)),FUNC_TYP2CTYP(_FUNC_EVALUATEFUNC_LONG_TYP,_FUNC_EVALUATEFUNC_STRING_CASTTYPE)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16791);}while(r);
S_19758:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16792);if(r)goto S_19758;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16792);}while(r);
}
sc_ec_90_end:;
goto sc_2755_end;
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("_CAST TYPE unsupported",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16795);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16796);}while(r);
sc_2755_end:;
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16799);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(16800);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(16802);}while(r);
}
}
S_19770:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3))))||is_error_pending()){
if(qbevent){evnt(16807);if(r)goto S_19770;}
S_19771:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(16808);if(r)goto S_19771;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16809);}while(r);
S_19773:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16810);if(r)goto S_19773;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16810);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16811);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(16812);}while(r);
}
}
S_19780:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3))))||is_error_pending()){
if(qbevent){evnt(16818);if(r)goto S_19780;}
S_19781:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(16819);if(r)goto S_19781;}
S_19782:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(16820);if(r)goto S_19782;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16821);}while(r);
S_19784:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16822);if(r)goto S_19784;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16822);}while(r);
}
S_19787:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(16823);if(r)goto S_19787;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2756;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_MK:[",5),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]:[",3)),_FUNC_EVALUATEFUNC_STRING_MKTYPE),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip2756;
skip2756:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16823);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16824);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(16825);}while(r);
}
}
}
S_19795:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_EMBEDDED",9))))||is_error_pending()){
if(qbevent){evnt(16830);if(r)goto S_19795;}
S_19796:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(16831);if(r)goto S_19796;}
S_19797:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(16832);if(r)goto S_19797;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16834);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_RSE,qbs_new_txt_len("Embed-Handle must be a single literal string in quotes, not a variable",70));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16835);}while(r);
S_19800:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,func_chr( 13 ),0)> 0 )))||is_error_pending()){
if(qbevent){evnt(16836);if(r)goto S_19800;}
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16836);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16836);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BRA=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,func_chr( 34 ),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16837);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_KET=func_instr(*_FUNC_EVALUATEFUNC_LONG_BRA+ 1 ,_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,func_chr( 34 ),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16837);}while(r);
S_19806:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_BRA== 0 ))|(-(*_FUNC_EVALUATEFUNC_LONG_KET== 0 )))||is_error_pending()){
if(qbevent){evnt(16838);if(r)goto S_19806;}
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16838);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16838);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,func_mid(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,*_FUNC_EVALUATEFUNC_LONG_BRA+ 1 ,*_FUNC_EVALUATEFUNC_LONG_KET-*_FUNC_EVALUATEFUNC_LONG_BRA- 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16839);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_RSE,qbs_new_txt_len("Embed-Handle cannot be an empty string",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16840);}while(r);
S_19812:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(16841);if(r)goto S_19812;}
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16841);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16841);}while(r);
}
S_19816:;
sc_2758=qbs_asc(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE, 1 );
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(16843);if(r)goto S_19816;}
S_19817:;
if ((((sc_2758>=( 0 ))&&(sc_2758<=( 64 )))||((sc_2758>=( 91 ))&&(sc_2758<=( 96 )))||((sc_2758>=( 123 ))&&(sc_2758<=( 255 ))))||is_error_pending()){
if(qbevent){evnt(16844);if(r)goto S_19817;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_RSE,qbs_add(qbs_add(qbs_new_txt_len("First char of Embed-Handle '",28),_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE),qbs_new_txt_len("' must be a letter",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16845);}while(r);
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16846);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16846);}while(r);
sc_ec_91_end:;
goto sc_2758_end;
}
sc_2758_end:;
S_19822:;
fornext_value2760= 2 ;
fornext_finalvalue2760=_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE->len;
fornext_step2760= 1 ;
if (fornext_step2760<0) fornext_step_negative2760=1; else fornext_step_negative2760=0;
if (is_error_pending()) goto fornext_error2760;
goto fornext_entrylabel2760;
while(1){
fornext_value2760=fornext_step2760+(*_FUNC_EVALUATEFUNC_LONG_RSI);
fornext_entrylabel2760:
*_FUNC_EVALUATEFUNC_LONG_RSI=fornext_value2760;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative2760){
if (fornext_value2760<fornext_finalvalue2760) break;
}else{
if (fornext_value2760>fornext_finalvalue2760) break;
}
fornext_error2760:;
if(qbevent){evnt(16848);if(r)goto S_19822;}
S_19823:;
sc_2762=qbs_asc(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,*_FUNC_EVALUATEFUNC_LONG_RSI);
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(16849);if(r)goto S_19823;}
S_19824:;
if ((((sc_2762>=( 0 ))&&(sc_2762<=( 47 )))||((sc_2762>=( 58 ))&&(sc_2762<=( 64 )))||((sc_2762>=( 91 ))&&(sc_2762<=( 96 )))||((sc_2762>=( 123 ))&&(sc_2762<=( 255 ))))||is_error_pending()){
if(qbevent){evnt(16850);if(r)goto S_19824;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_RSE,qbs_add(qbs_add(qbs_new_txt_len("Embed-Handle '",14),_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE),qbs_new_txt_len("' has invalid chars, use Aa-Zz/0-9 only",39)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16851);}while(r);
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16852);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16852);}while(r);
sc_ec_92_end:;
goto sc_2762_end;
}
sc_2762_end:;
fornext_continue_2759:;
}
fornext_exit_2759:;
do{
*_FUNC_EVALUATEFUNC_LONG_EFLUB=func_ubound(__ARRAY_STRING_EMBEDFILELIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16856);}while(r);
S_19831:;
fornext_value2764= 0 ;
fornext_finalvalue2764=*_FUNC_EVALUATEFUNC_LONG_EFLUB;
fornext_step2764= 1 ;
if (fornext_step2764<0) fornext_step_negative2764=1; else fornext_step_negative2764=0;
if (is_error_pending()) goto fornext_error2764;
goto fornext_entrylabel2764;
while(1){
fornext_value2764=fornext_step2764+(*_FUNC_EVALUATEFUNC_LONG_RSI);
fornext_entrylabel2764:
*_FUNC_EVALUATEFUNC_LONG_RSI=fornext_value2764;
if (fornext_step_negative2764){
if (fornext_value2764<fornext_finalvalue2764) break;
}else{
if (fornext_value2764>fornext_finalvalue2764) break;
}
fornext_error2764:;
if(qbevent){evnt(16857);if(r)goto S_19831;}
S_19832:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[array_check(( 3ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*_FUNC_EVALUATEFUNC_LONG_RSI)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6]])),_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE)))||is_error_pending()){
if(qbevent){evnt(16858);if(r)goto S_19832;}
do{
goto fornext_exit_2763;
if(!qbevent)break;evnt(16858);}while(r);
}
fornext_continue_2763:;
}
fornext_exit_2763:;
S_19836:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_RSI>*_FUNC_EVALUATEFUNC_LONG_EFLUB))||is_error_pending()){
if(qbevent){evnt(16860);if(r)goto S_19836;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_RSE,qbs_add(qbs_add(qbs_new_txt_len("Embed-Handle '",14),_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE),qbs_new_txt_len("' is undefined (check your $EMBED lines)",40)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16861);}while(r);
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16862);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16862);}while(r);
}else{
do{
tmp_long=array_check(( 1ll )-__ARRAY_STRING_EMBEDFILELIST[8],__ARRAY_STRING_EMBEDFILELIST[9])+array_check((*_FUNC_EVALUATEFUNC_LONG_RSI)-__ARRAY_STRING_EMBEDFILELIST[4],__ARRAY_STRING_EMBEDFILELIST[5])*__ARRAY_STRING_EMBEDFILELIST[6];
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long])),qbs_new_txt_len("yes",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16864);}while(r);
}
}
}
}
S_19846:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LBOUND",6)))))||is_error_pending()){
if(qbevent){evnt(16870);if(r)goto S_19846;}
S_19847:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(16871);if(r)goto S_19847;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16873);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16874);}while(r);
S_19850:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16875);if(r)goto S_19850;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16875);}while(r);
}
S_19853:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(16876);if(r)goto S_19853;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16876);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16876);}while(r);
}
S_19857:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(16877);if(r)goto S_19857;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16877);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16877);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16879);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_ULBOUNDARRAYTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(16880);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16881);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16882);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(16883);}while(r);
}
}
S_19868:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INPUT",5))))||is_error_pending()){
if(qbevent){evnt(16889);if(r)goto S_19868;}
S_19869:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(16890);if(r)goto S_19869;}
S_19870:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(16891);if(r)goto S_19870;}
S_19871:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(qbs_new_txt_len("#",1),__STRING1_SP)))))||is_error_pending()){
if(qbevent){evnt(16892);if(r)goto S_19871;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16892);}while(r);
}
}
}
}
S_19877:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ASC",3))))||is_error_pending()){
if(qbevent){evnt(16899);if(r)goto S_19877;}
S_19878:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(16900);if(r)goto S_19878;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E,&(pass2766= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16901);}while(r);
S_19880:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16902);if(r)goto S_19880;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16902);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(16903);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16904);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(16905);}while(r);
}
}
S_19888:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEMGET",7))))||is_error_pending()){
if(qbevent){evnt(16916);if(r)goto S_19888;}
S_19889:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(16917);if(r)goto S_19889;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16918);}while(r);
}
S_19892:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(16920);if(r)goto S_19892;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16921);}while(r);
}
S_19895:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 ))||is_error_pending()){
if(qbevent){evnt(16923);if(r)goto S_19895;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_ucase(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16924);}while(r);
S_19897:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("*",1)),__STRING1_SP),0)))||is_error_pending()){
if(qbevent){evnt(16925);if(r)goto S_19897;}
S_19898:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 2 ),qbs_new_txt_len("&&",2))))||is_error_pending()){
if(qbevent){evnt(16926);if(r)goto S_19898;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_left(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16927);}while(r);
}else{
S_19901:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 1 ),qbs_new_txt_len("&",1)))|(qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 1 ),qbs_new_txt_len("%",1)))))||is_error_pending()){
if(qbevent){evnt(16929);if(r)goto S_19901;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_left(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16929);}while(r);
}
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_T=FUNC_TYPNAME2TYP(_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16932);}while(r);
S_19907:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(16933);if(r)goto S_19907;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid TYPE name",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16933);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16933);}while(r);
}
S_19911:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
if(qbevent){evnt(16934);if(r)goto S_19911;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("_BIT TYPE unsupported",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16934);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16934);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(16935);}while(r);
S_19916:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(16936);if(r)goto S_19916;}
S_19917:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(16937);if(r)goto S_19917;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * ...",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16937);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16937);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,qbs_new_txt_len("qbs*",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16938);}while(r);
}else{
S_19923:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(16940);if(r)goto S_19923;}
do{
*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_T& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/  8 ;
if(!qbevent)break;evnt(16941);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,qbs_new_txt_len("void*",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16942);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=(*_FUNC_EVALUATEFUNC_LONG_T& 511 )/  8 ;
if(!qbevent)break;evnt(16944);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,FUNC_TYP2CTYP(_FUNC_EVALUATEFUNC_LONG_T,qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16945);}while(r);
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_OFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,&(pass2769=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16954);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_BLKOFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,&(pass2770= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16955);}while(r);
S_19933:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(16956);if(r)goto S_19933;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_OFFS,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__memget((mem_block*)",25),_FUNC_EVALUATEFUNC_STRING_BLKOFFS),qbs_new_txt_len(",",1)),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16958);}while(r);
}
S_19936:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(16960);if(r)goto S_19936;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt_len((char*)",23),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16961);}while(r);
}else{
S_19939:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(16963);if(r)goto S_19939;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((void*)+",9),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16964);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_T=*__LONG_ISUDT+*__LONG_ISPOINTER+(*_FUNC_EVALUATEFUNC_LONG_T& 511 );
if(!qbevent)break;evnt(16965);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP),qbs_new_txt_len("*)(",3)),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16967);}while(r);
S_19944:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(16968);if(r)goto S_19944;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(16968);}while(r);
}
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_T;
if(!qbevent)break;evnt(16978);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(16981);}while(r);
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E2,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16986);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16987);}while(r);
S_19955:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16988);if(r)goto S_19955;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16988);}while(r);
}
S_19958:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("VAL",3))))||is_error_pending()){
if(qbevent){evnt(16992);if(r)goto S_19958;}
S_19959:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(16993);if(r)goto S_19959;}
S_19960:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||is_error_pending()){
if(qbevent){evnt(16994);if(r)goto S_19960;}
S_19961:;
if ((-((~(FUNC_TYPE_ISSTRING(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(16995);if(r)goto S_19961;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING argument",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16996);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16997);}while(r);
}
S_19965:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(17000);if(r)goto S_19965;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2771= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17000);}while(r);
}
S_19968:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17001);if(r)goto S_19968;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17001);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17003);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_val<long double>",20),_FUNC_EVALUATEFUNC_STRING_R),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17004);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17006);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(17009);}while(r);
}
}
}
S_19979:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CAST",5))))||is_error_pending()){
if(qbevent){evnt(17015);if(r)goto S_19979;}
S_19980:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(17016);if(r)goto S_19980;}
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
if(!qbevent)break;evnt(17017);}while(r);
S_19982:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(17019);if(r)goto S_19982;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17020);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17021);}while(r);
}
S_19986:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(17024);if(r)goto S_19986;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2772= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17024);}while(r);
}
S_19989:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17025);if(r)goto S_19989;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17025);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("(",1)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17027);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17029);}while(r);
}
}
S_19996:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_IIF",4))))||is_error_pending()){
if(qbevent){evnt(17034);if(r)goto S_19996;}
S_19997:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(17035);if(r)goto S_19997;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17036);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(17037);}while(r);
S_20000:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
if(qbevent){evnt(17038);if(r)goto S_20000;}
S_20001:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(17039);if(r)goto S_20001;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2773= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17039);}while(r);
}
S_20004:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17040);if(r)goto S_20004;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17040);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARG2TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(17042);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")?(",3)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("):",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17044);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17045);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(17046);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(17048);}while(r);
S_20012:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 )){
if(qbevent){evnt(17049);if(r)goto S_20012;}
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
if(!qbevent)break;evnt(17050);}while(r);
S_20014:;
if ((-(FUNC_TYPE_ISSTRING(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)!=FUNC_TYPE_ISSTRING(_FUNC_EVALUATEFUNC_LONG_ARG2TYP)))||is_error_pending()){
if(qbevent){evnt(17052);if(r)goto S_20014;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("falsePart and truePart must be of the same type",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17053);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17054);}while(r);
}
S_20018:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(17057);if(r)goto S_20018;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2774= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17057);}while(r);
}
S_20021:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17058);if(r)goto S_20021;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17058);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=((FUNC_TYPE_ISSTRING(_FUNC_EVALUATEFUNC_LONG_ARG2TYP))?(*_FUNC_EVALUATEFUNC_LONG_ARG2TYP):(FUNC_TYPE_PROMOTEARITHMETICTYPE(_FUNC_EVALUATEFUNC_LONG_ARG2TYP,_FUNC_EVALUATEFUNC_LONG_SOURCETYP)));
if(!qbevent)break;evnt(17060);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("(",1)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17061);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17063);}while(r);
}
}
}
}
S_20029:;
if ((qbs_cleanup(qbs_tmp_base,-((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MIN",4)))||(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MAX",4))))))||is_error_pending()){
if(qbevent){evnt(17068);if(r)goto S_20029;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MINMAX_N,qbs_lcase(qbs_right(_FUNC_EVALUATEFUNC_STRING_N, 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17069);}while(r);
S_20031:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(17071);if(r)goto S_20031;}
S_20032:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(17072);if(r)goto S_20032;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17073);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17074);}while(r);
}
S_20036:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(17077);if(r)goto S_20036;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2775= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17077);}while(r);
}
S_20039:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17078);if(r)goto S_20039;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17078);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARG1TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(17080);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17081);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17082);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(17084);}while(r);
S_20046:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
if(qbevent){evnt(17085);if(r)goto S_20046;}
S_20047:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(17086);if(r)goto S_20047;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17087);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17088);}while(r);
}
S_20051:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(17091);if(r)goto S_20051;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2776= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17091);}while(r);
}
S_20054:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17092);if(r)goto S_20054;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17092);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=FUNC_TYPE_PROMOTEARITHMETICTYPE(_FUNC_EVALUATEFUNC_LONG_ARG1TYP,_FUNC_EVALUATEFUNC_LONG_SOURCETYP);
if(!qbevent)break;evnt(17094);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("std::",5),_FUNC_EVALUATEFUNC_STRING_MINMAX_N),qbs_new_txt_len("<",1)),FUNC_TYPE_GETCPPARITHMETICTYPE(_FUNC_EVALUATEFUNC_LONG_TYP)),qbs_new_txt_len(">(",2)),_FUNC_EVALUATEFUNC_STRING_R),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17095);}while(r);
S_20059:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17096);if(r)goto S_20059;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17096);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17098);}while(r);
}
}
}
S_20065:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CLAMP",6))))||is_error_pending()){
if(qbevent){evnt(17103);if(r)goto S_20065;}
S_20066:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(17104);if(r)goto S_20066;}
S_20067:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(17105);if(r)goto S_20067;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17106);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17107);}while(r);
}
S_20071:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(17110);if(r)goto S_20071;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2777= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17110);}while(r);
}
S_20074:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17111);if(r)goto S_20074;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17111);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARG1TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(17113);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17114);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17115);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(17117);}while(r);
S_20081:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
if(qbevent){evnt(17118);if(r)goto S_20081;}
S_20082:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(17119);if(r)goto S_20082;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17120);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17121);}while(r);
}
S_20086:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(17124);if(r)goto S_20086;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2778= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17124);}while(r);
}
S_20089:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17125);if(r)goto S_20089;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17125);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARG2TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(17127);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17128);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17129);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(17131);}while(r);
S_20096:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 )){
if(qbevent){evnt(17132);if(r)goto S_20096;}
S_20097:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(17133);if(r)goto S_20097;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17134);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17135);}while(r);
}
S_20101:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(17138);if(r)goto S_20101;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2779= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17138);}while(r);
}
S_20104:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17139);if(r)goto S_20104;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17139);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=FUNC_TYPE_PROMOTEARITHMETICTYPE(&(pass2780=FUNC_TYPE_PROMOTEARITHMETICTYPE(_FUNC_EVALUATEFUNC_LONG_ARG1TYP,_FUNC_EVALUATEFUNC_LONG_ARG2TYP)),_FUNC_EVALUATEFUNC_LONG_SOURCETYP);
if(!qbevent)break;evnt(17141);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_clamp<",11),FUNC_TYPE_GETCPPARITHMETICTYPE(_FUNC_EVALUATEFUNC_LONG_TYP)),qbs_new_txt_len(">(",2)),_FUNC_EVALUATEFUNC_STRING_R),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17142);}while(r);
S_20109:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17143);if(r)goto S_20109;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17143);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17145);}while(r);
}
}
}
}
S_20115:;
if ((qbs_cleanup(qbs_tmp_base,-((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_ROR",4)))||(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_ROL",4))))))||is_error_pending()){
if(qbevent){evnt(17150);if(r)goto S_20115;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_ROTLR_N,qbs_lcase(qbs_right(_FUNC_EVALUATEFUNC_STRING_N, 3 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17151);}while(r);
S_20117:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(17153);if(r)goto S_20117;}
S_20118:;
if ((-((~(FUNC_TYPE_ISINTEGRAL(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(17154);if(r)goto S_20118;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected non-floating-point numeric argument",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17155);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17156);}while(r);
}
S_20122:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(17159);if(r)goto S_20122;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2781= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17159);}while(r);
}
S_20125:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17160);if(r)goto S_20125;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17160);}while(r);
}
S_20128:;
sc_2782=FUNC_TYPE_GETSIZEINBITS(_FUNC_EVALUATEFUNC_LONG_SOURCETYP);
if(qbevent){evnt(17162);if(r)goto S_20128;}
S_20129:;
if (((sc_2782==( 8 )))||is_error_pending()){
if(qbevent){evnt(17163);if(r)goto S_20129;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__",6),_FUNC_EVALUATEFUNC_STRING_ROTLR_N),qbs_new_txt_len("<uint8_t>(",10)),_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17164);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17165);}while(r);
sc_ec_93_end:;
goto sc_2782_end;
}
S_20132:;
if (((sc_2782==( 16 )))||is_error_pending()){
if(qbevent){evnt(17166);if(r)goto S_20132;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__",6),_FUNC_EVALUATEFUNC_STRING_ROTLR_N),qbs_new_txt_len("<uint16_t>(",11)),_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17167);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17168);}while(r);
sc_ec_94_end:;
goto sc_2782_end;
}
S_20135:;
if (((sc_2782==( 32 )))||is_error_pending()){
if(qbevent){evnt(17169);if(r)goto S_20135;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__",6),_FUNC_EVALUATEFUNC_STRING_ROTLR_N),qbs_new_txt_len("<uint32_t>(",11)),_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17170);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17171);}while(r);
sc_ec_95_end:;
goto sc_2782_end;
}
S_20138:;
if (((sc_2782==( 64 )))||is_error_pending()){
if(qbevent){evnt(17172);if(r)goto S_20138;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__",6),_FUNC_EVALUATEFUNC_STRING_ROTLR_N),qbs_new_txt_len("<uint64_t>(",11)),_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17173);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17174);}while(r);
sc_ec_96_end:;
goto sc_2782_end;
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Unsupported integral type size",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17176);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17177);}while(r);
sc_2782_end:;
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17180);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17181);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(17183);}while(r);
S_20148:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
if(qbevent){evnt(17184);if(r)goto S_20148;}
S_20149:;
if ((-((~(FUNC_TYPE_ISINTEGRAL(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(17185);if(r)goto S_20149;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected non-floating-point numeric argument",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17186);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17187);}while(r);
}
S_20153:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(17190);if(r)goto S_20153;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2783= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17190);}while(r);
}
S_20156:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17191);if(r)goto S_20156;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17191);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17193);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17195);}while(r);
}
}
}
S_20163:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_UCHARPOS",9))))||is_error_pending()){
if(qbevent){evnt(17200);if(r)goto S_20163;}
S_20164:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(17201);if(r)goto S_20164;}
S_20165:;
if (((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
if(qbevent){evnt(17203);if(r)goto S_20165;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected LONG array-name",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17204);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17205);}while(r);
}
S_20169:;
if ((((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))|((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))|((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))|((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT))|(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )!= 32 )))||is_error_pending()){
if(qbevent){evnt(17209);if(r)goto S_20169;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected LONG array-name",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17210);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17211);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2784= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17214);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(17216);}while(r);
}
}
S_20177:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4))))||is_error_pending()){
if(qbevent){evnt(17221);if(r)goto S_20177;}
S_20178:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(17222);if(r)goto S_20178;}
S_20179:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||is_error_pending()){
if(qbevent){evnt(17223);if(r)goto S_20179;}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP= -7 ;
if(!qbevent)break;evnt(17224);}while(r);
}
S_20182:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||is_error_pending()){
if(qbevent){evnt(17226);if(r)goto S_20182;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("_at_offset",10)),qbs_right(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_R->len-((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)))->len))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17227);}while(r);
S_20184:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)== 0 ))||is_error_pending()){
if(qbevent){evnt(17228);if(r)goto S_20184;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected _MEM(_OFFSET-value,...)",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17228);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17228);}while(r);
}
}
}
}
S_20191:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
if(qbevent){evnt(17234);if(r)goto S_20191;}
S_20192:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(17235);if(r)goto S_20192;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("_OFFSET expects the name of a variable/array",44));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17236);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17236);}while(r);
}
S_20196:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(17238);if(r)goto S_20196;}
S_20197:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(17239);if(r)goto S_20197;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("_OFFSET cannot reference _BIT type arrays",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17239);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17239);}while(r);
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((uptrszint)(",13),FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2786= -6 ))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17241);}while(r);
S_20203:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17242);if(r)goto S_20203;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17242);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17243);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17244);}while(r);
}
S_20209:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ENVIRON",7))))||is_error_pending()){
if(qbevent){evnt(17249);if(r)goto S_20209;}
S_20210:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(17250);if(r)goto S_20210;}
S_20211:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(17251);if(r)goto S_20211;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2787= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17251);}while(r);
}
S_20214:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17252);if(r)goto S_20214;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17252);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(17253);}while(r);
}
}
S_20220:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LEN",3))))||is_error_pending()){
if(qbevent){evnt(17258);if(r)goto S_20220;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17259);}while(r);
S_20222:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(17260);if(r)goto S_20222;}
S_20223:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(17262);if(r)goto S_20223;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((int32)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")->len)",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17263);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17264);}while(r);
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("String expression or variable name required in LEN statement",60));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17266);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17266);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2788= -5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17268);}while(r);
S_20231:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17269);if(r)goto S_20231;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17269);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17270);}while(r);
}
S_20236:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_BIN",4))))||is_error_pending()){
if(qbevent){evnt(17275);if(r)goto S_20236;}
S_20237:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(17276);if(r)goto S_20237;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17277);}while(r);
S_20239:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17279);if(r)goto S_20239;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17279);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17279);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ;
if(!qbevent)break;evnt(17280);}while(r);
S_20244:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(17281);if(r)goto S_20244;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2789= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17281);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ;
if(!qbevent)break;evnt(17281);}while(r);
}
S_20248:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17282);if(r)goto S_20248;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17282);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17283);}while(r);
S_20252:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(17284);if(r)goto S_20252;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__bin(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_BITS),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17285);}while(r);
}else{
S_20255:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(17287);if(r)goto S_20255;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func__bin_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17288);}while(r);
}else{
S_20258:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(17290);if(r)goto S_20258;}
S_20259:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||is_error_pending()){
if(qbevent){evnt(17291);if(r)goto S_20259;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ;
if(!qbevent)break;evnt(17291);}while(r);
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__bin(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_BITS),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17293);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17296);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17297);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17298);}while(r);
}
}
S_20271:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("OCT",3))))||is_error_pending()){
if(qbevent){evnt(17303);if(r)goto S_20271;}
S_20272:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(17304);if(r)goto S_20272;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17305);}while(r);
S_20274:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17307);if(r)goto S_20274;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17307);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17307);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ;
if(!qbevent)break;evnt(17308);}while(r);
S_20279:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(17309);if(r)goto S_20279;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2790= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17309);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ;
if(!qbevent)break;evnt(17309);}while(r);
}
S_20283:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17310);if(r)goto S_20283;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17310);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17311);}while(r);
S_20287:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(17312);if(r)goto S_20287;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_oct(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_BITS),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17313);}while(r);
}else{
S_20290:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(17315);if(r)goto S_20290;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_oct_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17316);}while(r);
}else{
S_20293:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(17318);if(r)goto S_20293;}
S_20294:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||is_error_pending()){
if(qbevent){evnt(17319);if(r)goto S_20294;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ;
if(!qbevent)break;evnt(17319);}while(r);
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_oct(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_BITS),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17321);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17324);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17325);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17326);}while(r);
}
}
S_20306:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("HEX",3))))||is_error_pending()){
if(qbevent){evnt(17331);if(r)goto S_20306;}
S_20307:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(17332);if(r)goto S_20307;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17333);}while(r);
S_20309:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17334);if(r)goto S_20309;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17334);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17334);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ;
if(!qbevent)break;evnt(17335);}while(r);
S_20314:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(17336);if(r)goto S_20314;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2791= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17336);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ;
if(!qbevent)break;evnt(17336);}while(r);
}
S_20318:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17337);if(r)goto S_20318;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17337);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17338);}while(r);
S_20322:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(17339);if(r)goto S_20322;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS=(*_FUNC_EVALUATEFUNC_LONG_BITS+ 3 )/  4 ;
if(!qbevent)break;evnt(17340);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_hex(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_CHARS),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17341);}while(r);
}else{
S_20326:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(17343);if(r)goto S_20326;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_hex_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17344);}while(r);
}else{
S_20329:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||is_error_pending()){
if(qbevent){evnt(17346);if(r)goto S_20329;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 2 ;
if(!qbevent)break;evnt(17346);}while(r);
}
S_20332:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||is_error_pending()){
if(qbevent){evnt(17347);if(r)goto S_20332;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 4 ;
if(!qbevent)break;evnt(17347);}while(r);
}
S_20335:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(17348);if(r)goto S_20335;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 8 ;
if(!qbevent)break;evnt(17348);}while(r);
}
S_20338:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(17349);if(r)goto S_20338;}
S_20339:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 1 ))||is_error_pending()){
if(qbevent){evnt(17350);if(r)goto S_20339;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 16 ;
if(!qbevent)break;evnt(17350);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 0 ;
if(!qbevent)break;evnt(17350);}while(r);
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_hex(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_CHARS),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17352);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17355);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17356);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17357);}while(r);
}
}
S_20353:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("EXP",3))))||is_error_pending()){
if(qbevent){evnt(17363);if(r)goto S_20353;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17364);}while(r);
S_20355:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17365);if(r)goto S_20355;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17365);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17365);}while(r);
}
S_20359:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(17366);if(r)goto S_20359;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2792= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17366);}while(r);
}
S_20362:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17367);if(r)goto S_20362;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17367);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17368);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17369);}while(r);
S_20367:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(17370);if(r)goto S_20367;}
S_20368:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(17371);if(r)goto S_20368;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_single(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17371);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17371);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17371);}while(r);
}
}else{
S_20375:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(17373);if(r)goto S_20375;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17374);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17374);}while(r);
}else{
S_20379:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||is_error_pending()){
if(qbevent){evnt(17376);if(r)goto S_20379;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_single(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17376);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17376);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17376);}while(r);
}
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17379);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17380);}while(r);
}
S_20390:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INT",3))))||is_error_pending()){
if(qbevent){evnt(17384);if(r)goto S_20390;}
S_20391:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17385);if(r)goto S_20391;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17385);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17385);}while(r);
}
S_20395:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(17386);if(r)goto S_20395;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2793= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17386);}while(r);
}
S_20398:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17387);if(r)goto S_20398;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17387);}while(r);
}
S_20401:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(17389);if(r)goto S_20401;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("std::floor(",11),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17389);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17389);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17390);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(17391);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17392);}while(r);
}
S_20410:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("FIX",3))))||is_error_pending()){
if(qbevent){evnt(17396);if(r)goto S_20410;}
S_20411:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17397);if(r)goto S_20411;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17397);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17397);}while(r);
}
S_20415:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(17398);if(r)goto S_20415;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2794= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17398);}while(r);
}
S_20418:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17399);if(r)goto S_20418;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17399);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17401);}while(r);
S_20422:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(17402);if(r)goto S_20422;}
S_20423:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(17403);if(r)goto S_20423;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_fix_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17403);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_fix_double(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17403);}while(r);
}
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17405);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17407);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(17408);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17409);}while(r);
}
S_20435:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_ROUND",6))))||is_error_pending()){
if(qbevent){evnt(17413);if(r)goto S_20435;}
S_20436:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17414);if(r)goto S_20436;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17414);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17414);}while(r);
}
S_20440:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(17415);if(r)goto S_20440;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2795= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17415);}while(r);
}
S_20443:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17416);if(r)goto S_20443;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17416);}while(r);
}
S_20446:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(17418);if(r)goto S_20446;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17419);}while(r);
S_20448:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(17420);if(r)goto S_20448;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_round_float(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17420);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_round_double(",18),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17420);}while(r);
}
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17422);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17424);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(17425);}while(r);
S_20458:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||is_error_pending()){
if(qbevent){evnt(17426);if(r)goto S_20458;}
S_20459:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(17427);if(r)goto S_20459;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17427);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17427);}while(r);
}
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17429);}while(r);
}
S_20467:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CDBL",4))))||is_error_pending()){
if(qbevent){evnt(17434);if(r)goto S_20467;}
S_20468:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17435);if(r)goto S_20468;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17435);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17435);}while(r);
}
S_20472:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(17436);if(r)goto S_20472;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2796= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17436);}while(r);
}
S_20475:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17437);if(r)goto S_20475;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17437);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17439);}while(r);
S_20479:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(17440);if(r)goto S_20479;}
S_20480:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(17441);if(r)goto S_20480;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cdbl_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17441);}while(r);
}
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17443);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17445);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17446);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17447);}while(r);
}
S_20490:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CSNG",4))))||is_error_pending()){
if(qbevent){evnt(17451);if(r)goto S_20490;}
S_20491:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17452);if(r)goto S_20491;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17452);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17452);}while(r);
}
S_20495:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(17453);if(r)goto S_20495;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2797= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17453);}while(r);
}
S_20498:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17454);if(r)goto S_20498;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17454);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17456);}while(r);
S_20502:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(17457);if(r)goto S_20502;}
S_20503:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(17458);if(r)goto S_20503;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_csng_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17458);}while(r);
}
S_20506:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(17459);if(r)goto S_20506;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_csng_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17459);}while(r);
}
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17461);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17463);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17464);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17465);}while(r);
}
S_20516:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CLNG",4))))||is_error_pending()){
if(qbevent){evnt(17470);if(r)goto S_20516;}
S_20517:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17471);if(r)goto S_20517;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17471);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17471);}while(r);
}
S_20521:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(17472);if(r)goto S_20521;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2798= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17472);}while(r);
}
S_20524:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17473);if(r)goto S_20524;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17473);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17475);}while(r);
S_20528:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(17476);if(r)goto S_20528;}
S_20529:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(17477);if(r)goto S_20529;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17477);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17477);}while(r);
}
}else{
S_20535:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(17479);if(r)goto S_20535;}
S_20536:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(17480);if(r)goto S_20536;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_ulong(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17480);}while(r);
}
S_20539:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
if(qbevent){evnt(17481);if(r)goto S_20539;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_uint64(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17481);}while(r);
}
}else{
S_20543:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
if(qbevent){evnt(17483);if(r)goto S_20543;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_int64(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17483);}while(r);
}
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17486);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 32 ;
if(!qbevent)break;evnt(17487);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17488);}while(r);
}
S_20552:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CINT",4))))||is_error_pending()){
if(qbevent){evnt(17492);if(r)goto S_20552;}
S_20553:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17493);if(r)goto S_20553;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17493);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17493);}while(r);
}
S_20557:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(17494);if(r)goto S_20557;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2799= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17494);}while(r);
}
S_20560:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17495);if(r)goto S_20560;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17495);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17497);}while(r);
S_20564:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(17498);if(r)goto S_20564;}
S_20565:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(17499);if(r)goto S_20565;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17499);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17499);}while(r);
}
}else{
S_20571:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(17501);if(r)goto S_20571;}
S_20572:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 15 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||is_error_pending()){
if(qbevent){evnt(17502);if(r)goto S_20572;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_ulong(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17502);}while(r);
}
S_20575:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
if(qbevent){evnt(17503);if(r)goto S_20575;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_uint64(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17503);}while(r);
}
}else{
S_20579:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||is_error_pending()){
if(qbevent){evnt(17505);if(r)goto S_20579;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_long(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17505);}while(r);
}
S_20582:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
if(qbevent){evnt(17506);if(r)goto S_20582;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_int64(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17506);}while(r);
}
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17509);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 16 ;
if(!qbevent)break;evnt(17510);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17511);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 0 ;
if(!qbevent)break;evnt(17515);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SIZE= 0 ;
if(!qbevent)break;evnt(17516);}while(r);
S_20593:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKI",3))))||is_error_pending()){
if(qbevent){evnt(17517);if(r)goto S_20593;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 1 ;
if(!qbevent)break;evnt(17517);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17517);}while(r);
}
S_20597:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKL",3))))||is_error_pending()){
if(qbevent){evnt(17518);if(r)goto S_20597;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 2 ;
if(!qbevent)break;evnt(17518);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17518);}while(r);
}
S_20601:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKS",3))))||is_error_pending()){
if(qbevent){evnt(17519);if(r)goto S_20601;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 3 ;
if(!qbevent)break;evnt(17519);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17519);}while(r);
}
S_20605:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKD",3))))||is_error_pending()){
if(qbevent){evnt(17520);if(r)goto S_20605;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 4 ;
if(!qbevent)break;evnt(17520);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17520);}while(r);
}
S_20609:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3))))||is_error_pending()){
if(qbevent){evnt(17521);if(r)goto S_20609;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= -1 ;
if(!qbevent)break;evnt(17521);}while(r);
}
S_20612:;
if ((*_FUNC_EVALUATEFUNC_LONG_MKTYPE)||is_error_pending()){
if(qbevent){evnt(17522);if(r)goto S_20612;}
S_20613:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_MKTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||is_error_pending()){
if(qbevent){evnt(17523);if(r)goto S_20613;}
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP= 0 ;
if(!qbevent)break;evnt(17525);}while(r);
S_20615:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%%",2))))||is_error_pending()){
if(qbevent){evnt(17526);if(r)goto S_20615;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17526);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17526);}while(r);
}
S_20619:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%%",3))))||is_error_pending()){
if(qbevent){evnt(17527);if(r)goto S_20619;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17527);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17527);}while(r);
}
S_20623:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1))))||is_error_pending()){
if(qbevent){evnt(17528);if(r)goto S_20623;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17528);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17528);}while(r);
}
S_20627:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%",2))))||is_error_pending()){
if(qbevent){evnt(17529);if(r)goto S_20627;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17529);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17529);}while(r);
}
S_20631:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1))))||is_error_pending()){
if(qbevent){evnt(17530);if(r)goto S_20631;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17530);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17530);}while(r);
}
S_20635:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&",2))))||is_error_pending()){
if(qbevent){evnt(17531);if(r)goto S_20635;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17531);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17531);}while(r);
}
S_20639:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&&",2))))||is_error_pending()){
if(qbevent){evnt(17532);if(r)goto S_20639;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17532);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17532);}while(r);
}
S_20643:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&&",3))))||is_error_pending()){
if(qbevent){evnt(17533);if(r)goto S_20643;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17533);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17533);}while(r);
}
S_20647:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1))))||is_error_pending()){
if(qbevent){evnt(17534);if(r)goto S_20647;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17534);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17534);}while(r);
}
S_20651:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(17535);if(r)goto S_20651;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17535);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17535);}while(r);
}
S_20655:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("##",2))))||is_error_pending()){
if(qbevent){evnt(17536);if(r)goto S_20655;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17536);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17536);}while(r);
}
S_20659:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%&",2))))||is_error_pending()){
if(qbevent){evnt(17537);if(r)goto S_20659;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("o",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17537);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17537);}while(r);
}
S_20663:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%&",3))))||is_error_pending()){
if(qbevent){evnt(17538);if(r)goto S_20663;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("uo",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17538);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17538);}while(r);
}
S_20667:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_MKTYPE, 2 ),qbs_new_txt_len("~`",2))))||is_error_pending()){
if(qbevent){evnt(17539);if(r)goto S_20667;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17539);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17539);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(qbs_val<long double>(qbs_right(_FUNC_EVALUATEFUNC_STRING_MKTYPE,_FUNC_EVALUATEFUNC_STRING_MKTYPE->len- 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17539);}while(r);
}
S_20672:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_MKTYPE, 1 ),qbs_new_txt_len("`",1))))||is_error_pending()){
if(qbevent){evnt(17540);if(r)goto S_20672;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17540);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17540);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(qbs_val<long double>(qbs_right(_FUNC_EVALUATEFUNC_STRING_MKTYPE,_FUNC_EVALUATEFUNC_STRING_MKTYPE->len- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17540);}while(r);
}
S_20677:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_QTYP== 0 ))||is_error_pending()){
if(qbevent){evnt(17541);if(r)goto S_20677;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("_MK only accepts numeric types",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17541);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17541);}while(r);
}
S_20681:;
if ((*_FUNC_EVALUATEFUNC_LONG_SIZE)||is_error_pending()){
if(qbevent){evnt(17542);if(r)goto S_20681;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("2string(",8)),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_SIZE),NULL,0)),qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17543);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("2string(",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17545);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(17547);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_QTYP;
if(!qbevent)break;evnt(17548);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 0 ;
if(!qbevent)break;evnt(17553);}while(r);
S_20691:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVI",3))))||is_error_pending()){
if(qbevent){evnt(17554);if(r)goto S_20691;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 1 ;
if(!qbevent)break;evnt(17554);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17554);}while(r);
}
S_20695:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVL",3))))||is_error_pending()){
if(qbevent){evnt(17555);if(r)goto S_20695;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 2 ;
if(!qbevent)break;evnt(17555);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17555);}while(r);
}
S_20699:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVS",3))))||is_error_pending()){
if(qbevent){evnt(17556);if(r)goto S_20699;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 3 ;
if(!qbevent)break;evnt(17556);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17556);}while(r);
}
S_20703:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVD",3))))||is_error_pending()){
if(qbevent){evnt(17557);if(r)goto S_20703;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 4 ;
if(!qbevent)break;evnt(17557);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17557);}while(r);
}
S_20707:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3))))||is_error_pending()){
if(qbevent){evnt(17558);if(r)goto S_20707;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= -1 ;
if(!qbevent)break;evnt(17558);}while(r);
}
S_20710:;
if ((*_FUNC_EVALUATEFUNC_LONG_CVTYPE)||is_error_pending()){
if(qbevent){evnt(17559);if(r)goto S_20710;}
S_20711:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_CVTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||is_error_pending()){
if(qbevent){evnt(17560);if(r)goto S_20711;}
S_20712:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(17561);if(r)goto S_20712;}
do{
SUB_GIVE_ERROR(qbs_add(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len(" requires a STRING argument",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17561);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17561);}while(r);
}
S_20716:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(17562);if(r)goto S_20716;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2802= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17562);}while(r);
}
S_20719:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17563);if(r)goto S_20719;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17563);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 0 ;
if(!qbevent)break;evnt(17564);}while(r);
S_20723:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%%",2))))||is_error_pending()){
if(qbevent){evnt(17565);if(r)goto S_20723;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17565);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17565);}while(r);
}
S_20727:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%%",3))))||is_error_pending()){
if(qbevent){evnt(17566);if(r)goto S_20727;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17566);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17566);}while(r);
}
S_20731:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1))))||is_error_pending()){
if(qbevent){evnt(17567);if(r)goto S_20731;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17567);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17567);}while(r);
}
S_20735:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%",2))))||is_error_pending()){
if(qbevent){evnt(17568);if(r)goto S_20735;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17568);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17568);}while(r);
}
S_20739:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1))))||is_error_pending()){
if(qbevent){evnt(17569);if(r)goto S_20739;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17569);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17569);}while(r);
}
S_20743:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&",2))))||is_error_pending()){
if(qbevent){evnt(17570);if(r)goto S_20743;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17570);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17570);}while(r);
}
S_20747:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&&",2))))||is_error_pending()){
if(qbevent){evnt(17571);if(r)goto S_20747;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17571);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17571);}while(r);
}
S_20751:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&&",3))))||is_error_pending()){
if(qbevent){evnt(17572);if(r)goto S_20751;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17572);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17572);}while(r);
}
S_20755:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1))))||is_error_pending()){
if(qbevent){evnt(17573);if(r)goto S_20755;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17573);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17573);}while(r);
}
S_20759:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(17574);if(r)goto S_20759;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17574);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17574);}while(r);
}
S_20763:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("##",2))))||is_error_pending()){
if(qbevent){evnt(17575);if(r)goto S_20763;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17575);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17575);}while(r);
}
S_20767:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%&",2))))||is_error_pending()){
if(qbevent){evnt(17576);if(r)goto S_20767;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("o",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17576);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17576);}while(r);
}
S_20771:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%&",3))))||is_error_pending()){
if(qbevent){evnt(17577);if(r)goto S_20771;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("uo",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17577);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17577);}while(r);
}
S_20775:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_CVTYPE, 2 ),qbs_new_txt_len("~`",2))))||is_error_pending()){
if(qbevent){evnt(17578);if(r)goto S_20775;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17578);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17578);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(qbs_val<long double>(qbs_right(_FUNC_EVALUATEFUNC_STRING_CVTYPE,_FUNC_EVALUATEFUNC_STRING_CVTYPE->len- 2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17578);}while(r);
}
S_20780:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_CVTYPE, 1 ),qbs_new_txt_len("`",1))))||is_error_pending()){
if(qbevent){evnt(17579);if(r)goto S_20780;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17579);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17579);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(qbs_val<long double>(qbs_right(_FUNC_EVALUATEFUNC_STRING_CVTYPE,_FUNC_EVALUATEFUNC_STRING_CVTYPE->len- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17579);}while(r);
}
S_20785:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TYP== 0 ))||is_error_pending()){
if(qbevent){evnt(17580);if(r)goto S_20785;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("_CV cannot return STRING type!",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17580);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17580);}while(r);
}
S_20789:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)))))||is_error_pending()){
if(qbevent){evnt(17581);if(r)goto S_20789;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("string2",7),_FUNC_EVALUATEFUNC_STRING_CTYPE),qbs_new_txt_len("(",1)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_SIZE),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17582);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("string2",7),_FUNC_EVALUATEFUNC_STRING_CTYPE),qbs_new_txt_len("(",1)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17584);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17586);}while(r);
}
}
S_20797:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("STRING",6))))||is_error_pending()){
if(qbevent){evnt(17591);if(r)goto S_20797;}
S_20798:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(17592);if(r)goto S_20798;}
S_20799:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17593);if(r)goto S_20799;}
S_20800:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(17594);if(r)goto S_20800;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2805= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17594);}while(r);
}
S_20803:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17595);if(r)goto S_20803;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17595);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP= 64 ;
if(!qbevent)break;evnt(17596);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("->chr[0])",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17597);}while(r);
}
}
}
S_20811:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("SADD",4))))||is_error_pending()){
if(qbevent){evnt(17603);if(r)goto S_20811;}
S_20812:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(17604);if(r)goto S_20812;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("SADD only accepts variable-length string variables",50));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17605);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17605);}while(r);
}
S_20816:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(17607);if(r)goto S_20816;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("SADD only accepts variable-length string variables",50));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17608);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17608);}while(r);
}
S_20820:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
if(qbevent){evnt(17610);if(r)goto S_20820;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(17611);}while(r);
do{
tmp_long=array_check((qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(17612);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17613);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(17614);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17615);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2806= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17617);}while(r);
S_20828:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17618);if(r)goto S_20828;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17618);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(",18),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr-&cmem[1280]))",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17619);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(17620);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17621);}while(r);
}
S_20835:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("VARPTR",6))))||is_error_pending()){
if(qbevent){evnt(17625);if(r)goto S_20835;}
S_20836:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(17626);if(r)goto S_20836;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected reference to a variable/array",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17627);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17627);}while(r);
}
S_20840:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(17630);if(r)goto S_20840;}
S_20841:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
if(qbevent){evnt(17631);if(r)goto S_20841;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(17632);}while(r);
do{
tmp_long=array_check((qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(17633);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17634);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING;
if(!qbevent)break;evnt(17635);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17636);}while(r);
}
S_20848:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(17639);if(r)goto S_20848;}
S_20849:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(17640);if(r)goto S_20849;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR$ only accepts variable-length string arrays",50));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17640);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17640);}while(r);
}
S_20853:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(17641);if(r)goto S_20853;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR$ only accepts variable-length string arrays",50));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17641);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17641);}while(r);
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2807= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17646);}while(r);
S_20859:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17647);if(r)goto S_20859;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17647);}while(r);
}
S_20862:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17648);if(r)goto S_20862;}
S_20863:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(17649);if(r)goto S_20863;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2808= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17649);}while(r);
}
S_20866:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17650);if(r)goto S_20866;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17650);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17651);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_T= 3 ;
if(!qbevent)break;evnt(17652);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")-&cmem[1280]))",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17654);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_T= 0 ;
if(!qbevent)break;evnt(17666);}while(r);
S_20874:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(17667);if(r)goto S_20874;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 128 ;
if(!qbevent)break;evnt(17667);}while(r);
}
S_20877:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(17668);if(r)goto S_20877;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 64 ;
if(!qbevent)break;evnt(17669);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 63 );
if(!qbevent)break;evnt(17670);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(17672);}while(r);
S_20882:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(17673);if(r)goto S_20882;}
S_20883:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(17674);if(r)goto S_20883;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 4 ;
if(!qbevent)break;evnt(17674);}while(r);
}
S_20886:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(17675);if(r)goto S_20886;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 8 ;
if(!qbevent)break;evnt(17675);}while(r);
}
S_20889:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 256 ))||is_error_pending()){
if(qbevent){evnt(17676);if(r)goto S_20889;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 6 ;
if(!qbevent)break;evnt(17676);}while(r);
}
}else{
S_20893:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||is_error_pending()){
if(qbevent){evnt(17678);if(r)goto S_20893;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 1 ;
if(!qbevent)break;evnt(17678);}while(r);
}
S_20896:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||is_error_pending()){
if(qbevent){evnt(17679);if(r)goto S_20896;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 2 ;
if(!qbevent)break;evnt(17679);}while(r);
}
S_20899:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(17680);if(r)goto S_20899;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 20 ;
if(!qbevent)break;evnt(17680);}while(r);
}
S_20902:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(17681);if(r)goto S_20902;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 5 ;
if(!qbevent)break;evnt(17681);}while(r);
}
}
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_varptr_helper(",19),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17685);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING;
if(!qbevent)break;evnt(17686);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17687);}while(r);
}
S_20912:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
if(qbevent){evnt(17701);if(r)goto S_20912;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(17702);}while(r);
do{
tmp_long=array_check((qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(17703);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17704);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(17705);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17706);}while(r);
}
S_20919:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(17709);if(r)goto S_20919;}
S_20920:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(17710);if(r)goto S_20920;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR cannot reference _BIT type arrays",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17710);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17710);}while(r);
}
S_20924:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17713);if(r)goto S_20924;}
S_20925:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(17714);if(r)goto S_20925;}
do{
SUB_GETID(&(pass2809=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17715);}while(r);
S_20927:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17716);if(r)goto S_20927;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17716);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_M=*(int32*)(((char*)__UDT_ID)+(540));
if(!qbevent)break;evnt(17717);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_INDEX,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17718);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(17719);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATEFUNC_STRING_INDEX),qbs_new_txt_len(")*",2)),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_M),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17720);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17721);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2811= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17724);}while(r);
S_20937:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17725);if(r)goto S_20937;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17725);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17726);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(17727);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17728);}while(r);
}
}
S_20945:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(17732);if(r)goto S_20945;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17733);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17734);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17735);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(17736);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17737);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17738);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_M=(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )/  8 ;
if(!qbevent)break;evnt(17742);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_INDEX,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17743);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(17744);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATEFUNC_STRING_INDEX),qbs_new_txt_len(")*",2)),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_M),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17745);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17746);}while(r);
}
S_20959:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(17752);if(r)goto S_20959;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2816= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17753);}while(r);
S_20961:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17754);if(r)goto S_20961;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17754);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17755);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17756);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17757);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(17758);}while(r);
do{
SUB_GETID(&(pass2820=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17761);}while(r);
S_20969:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17762);if(r)goto S_20969;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17762);}while(r);
}
S_20972:;
if ((*(int16*)(((char*)__UDT_ID)+(2859)))||is_error_pending()){
if(qbevent){evnt(17763);if(r)goto S_20972;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check(((uint8*)",29),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17765);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(") - &cmem[1280] + (",19)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(") ))",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17768);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17771);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(17774);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2821= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17775);}while(r);
S_20981:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17776);if(r)goto S_20981;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17776);}while(r);
}
S_20984:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17777);if(r)goto S_20984;}
S_20985:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(17778);if(r)goto S_20985;}
do{
SUB_GETID(&(pass2822=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17781);}while(r);
S_20987:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17782);if(r)goto S_20987;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17782);}while(r);
}
S_20990:;
if ((*(int16*)(((char*)__UDT_ID)+(2859)))||is_error_pending()){
if(qbevent){evnt(17783);if(r)goto S_20990;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check(",20),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr)",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17784);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(",18),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr-&cmem[1280]))",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17786);}while(r);
}
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17790);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17792);}while(r);
}
do{
SUB_GETID(&(pass2823=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17797);}while(r);
S_21001:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17798);if(r)goto S_21001;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17798);}while(r);
}
S_21004:;
if ((*(int16*)(((char*)__UDT_ID)+(2859)))||is_error_pending()){
if(qbevent){evnt(17799);if(r)goto S_21004;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check((uint8*)",28),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17800);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")-&cmem[1280]))",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17802);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17805);}while(r);
}
S_21011:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("VARSEG",6))))||is_error_pending()){
if(qbevent){evnt(17809);if(r)goto S_21011;}
S_21012:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(17810);if(r)goto S_21012;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected reference to a variable/array",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17811);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17811);}while(r);
}
S_21016:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
if(qbevent){evnt(17813);if(r)goto S_21016;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(17814);}while(r);
do{
tmp_long=array_check((qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(17815);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17816);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(17817);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17818);}while(r);
}
S_21023:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(17821);if(r)goto S_21023;}
S_21024:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(17822);if(r)goto S_21024;}
S_21025:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17823);if(r)goto S_21025;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17824);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(17825);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17826);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(17829);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("( ( ((ptrszint)(",16),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2824= 1 ))),qbs_new_txt_len("[0])) - ((ptrszint)(&cmem[0])) ) /16)",37)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17830);}while(r);
S_21033:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17831);if(r)goto S_21033;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17831);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17832);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(17836);}while(r);
do{
SUB_GETID(&(pass2825=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17838);}while(r);
S_21040:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17839);if(r)goto S_21040;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17839);}while(r);
}
S_21043:;
if (((-(*(int16*)(((char*)__UDT_ID)+(2859))!= 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
if(qbevent){evnt(17840);if(r)goto S_21043;}
S_21044:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(17841);if(r)goto S_21044;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2826= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17842);}while(r);
S_21046:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17843);if(r)goto S_21046;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17843);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17844);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17845);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17846);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("varseg_dblock_check(((uint8*)",29),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17847);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varseg_dblock_check((uint8*)",28),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2830= 1 ))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17849);}while(r);
S_21055:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17850);if(r)goto S_21055;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17850);}while(r);
}
}
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17854);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17856);}while(r);
}
S_21064:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -2 ))||is_error_pending()){
if(qbevent){evnt(17882);if(r)goto S_21064;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2831= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17883);}while(r);
S_21066:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17884);if(r)goto S_21066;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17884);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(17885);}while(r);
}
S_21071:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -7 ))||is_error_pending()){
if(qbevent){evnt(17888);if(r)goto S_21071;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2832= -7 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17889);}while(r);
S_21073:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17890);if(r)goto S_21073;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17890);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(17891);}while(r);
}
S_21078:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -8 ))||is_error_pending()){
if(qbevent){evnt(17894);if(r)goto S_21078;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2833= -8 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17895);}while(r);
S_21080:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17896);if(r)goto S_21080;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17896);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(17897);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 0 ;
if(!qbevent)break;evnt(17901);}while(r);
S_21086:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -1 ))||is_error_pending()){
if(qbevent){evnt(17902);if(r)goto S_21086;}
do{
*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 1 ;
if(!qbevent)break;evnt(17903);}while(r);
S_21088:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(17904);if(r)goto S_21088;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17904);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17904);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(17905);}while(r);
S_21093:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(17906);if(r)goto S_21093;}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17906);}while(r);
}
}
S_21097:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(17910);if(r)goto S_21097;}
S_21098:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE== 0 ))||is_error_pending()){
if(qbevent){evnt(17911);if(r)goto S_21098;}
S_21099:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(17916);if(r)goto S_21099;}
S_21100:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(17917);if(r)goto S_21100;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17917);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17917);}while(r);
}
S_21104:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(17918);if(r)goto S_21104;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17918);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17918);}while(r);
}
S_21108:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(17919);if(r)goto S_21108;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2834;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluatefunc:array reference:[",30),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip2834;
skip2834:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(17919);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP;
if(!qbevent)break;evnt(17922);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(17922);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT);
if(!qbevent)break;evnt(17923);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT);
if(!qbevent)break;evnt(17924);}while(r);
S_21115:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||is_error_pending()){
if(qbevent){evnt(17925);if(r)goto S_21115;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect array type passed to function",39));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17925);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17925);}while(r);
}
S_21119:;
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(17928);if(r)goto S_21119;}
S_21120:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(17929);if(r)goto S_21120;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2835;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluatefunc:array reference:udt reference:[",44),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip2835;
skip2835:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(17929);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17931);}while(r);
do{
SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID);
if(!qbevent)break;evnt(17932);}while(r);
S_21125:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17933);if(r)goto S_21125;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17933);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_UDTREFI=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17934);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_UDTREFI2=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17935);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_UDTREFU=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2-*_FUNC_EVALUATEFUNC_LONG_UDTREFI- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17936);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_UDTREFI3=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17937);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_UDTREFE=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI3-*_FUNC_EVALUATEFUNC_LONG_UDTREFI2- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17938);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-*_FUNC_EVALUATEFUNC_LONG_UDTREFI3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17939);}while(r);
S_21134:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_EVALUATEFUNC_STRING_O, 4 ),qbs_new_txt_len("(0)*",4))))||is_error_pending()){
if(qbevent){evnt(17941);if(r)goto S_21134;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17941);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17941);}while(r);
}
}else{
S_21139:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal((qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||is_error_pending()){
if(qbevent){evnt(17943);if(r)goto S_21139;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17943);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17943);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17947);}while(r);
do{
SUB_GETID(_FUNC_EVALUATEFUNC_LONG_IDNUM);
if(!qbevent)break;evnt(17948);}while(r);
S_21146:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17949);if(r)goto S_21146;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17949);}while(r);
}
S_21149:;
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(17951);if(r)goto S_21149;}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(1213)),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17952);}while(r);
S_21151:;
if ((-(*(int32*)(((char*)__UDT_ID)+(540))!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE))||is_error_pending()){
if(qbevent){evnt(17953);if(r)goto S_21151;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect array type passed to function",39));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17953);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17953);}while(r);
}
}
S_21156:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1),func_chr( 1 ))))||is_error_pending()){
if(qbevent){evnt(17956);if(r)goto S_21156;}
S_21157:;
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(17957);if(r)goto S_21157;}
do{
tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(17958);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(17960);}while(r);
}
}
S_21162:;
if ((-(*(int32*)(((char*)__UDT_ID)+(2847))== 0 ))||is_error_pending()){
if(qbevent){evnt(17966);if(r)goto S_21162;}
S_21163:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_NELEREQ== 0 ))||is_error_pending()){
if(qbevent){evnt(17971);if(r)goto S_21163;}
S_21164:;
if ((-(*(int16*)(((char*)__UDT_ID)+(516))!= -1 ))||is_error_pending()){
if(qbevent){evnt(17975);if(r)goto S_21164;}
do{
*_FUNC_EVALUATEFUNC_LONG_NELEREQ=*(int16*)(((char*)__UDT_ID)+(516));
if(!qbevent)break;evnt(17976);}while(r);
do{
sub_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2747)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,func_chr(*_FUNC_EVALUATEFUNC_LONG_NELEREQ),1);
if(!qbevent)break;evnt(17977);}while(r);
}
do{
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 0), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 256), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 512), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 516), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 518), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 520), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 528), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 536), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 540), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 544), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 546), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 548), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 550), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 806), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 808), 1);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 809), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 811), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 813), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1213), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1613), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1869), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2125), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2381), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2385), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2641), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2645), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2647), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2747), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2847), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2851), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2853), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2855), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2859), 2);
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861), *(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2861));
if(!qbevent)break;evnt(17980);}while(r);
}else{
S_21170:;
if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*_FUNC_EVALUATEFUNC_LONG_NELEREQ))||is_error_pending()){
if(qbevent){evnt(17993);if(r)goto S_21170;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported",85));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17993);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17993);}while(r);
}
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2837= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18001);}while(r);
S_21177:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18002);if(r)goto S_21177;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18002);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(18003);}while(r);
}
S_21182:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(18021);if(r)goto S_21182;}
S_21183:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18022);if(r)goto S_21183;}
do{
*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18023);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP;
if(!qbevent)break;evnt(18025);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(18025);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_ARR= 0 ;
if(!qbevent)break;evnt(18028);}while(r);
S_21188:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(18028);if(r)goto S_21188;}
do{
*_FUNC_EVALUATEFUNC_LONG_ARR= 1 ;
if(!qbevent)break;evnt(18028);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 0 ;
if(!qbevent)break;evnt(18029);}while(r);
S_21192:;
if (((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(18029);if(r)goto S_21192;}
do{
*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 1 ;
if(!qbevent)break;evnt(18029);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2-*__LONG_ISUDT;
if(!qbevent)break;evnt(18029);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
if(!qbevent)break;evnt(18032);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
if(!qbevent)break;evnt(18033);}while(r);
S_21198:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2==*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||is_error_pending()){
if(qbevent){evnt(18036);if(r)goto S_21198;}
S_21199:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(18038);if(r)goto S_21199;}
do{
*_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18042);}while(r);
do{
SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID);
if(!qbevent)break;evnt(18043);}while(r);
S_21202:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18044);if(r)goto S_21202;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18044);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_UDTREFI=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18045);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_UDTREFI2=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18046);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_UDTREFU=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2-*_FUNC_EVALUATEFUNC_LONG_UDTREFI- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18047);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_UDTREFI3=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18048);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_UDTREFE=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI3-*_FUNC_EVALUATEFUNC_LONG_UDTREFI2- 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18049);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-*_FUNC_EVALUATEFUNC_LONG_UDTREFI3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18050);}while(r);
S_21211:;
if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||is_error_pending()){
if(qbevent){evnt(18053);if(r)goto S_21211;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_N2,qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("ARRAY_UDT_",10)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len("[0]",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18054);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_N2,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("UDT_",4)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18056);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(void*)( ((char*)(",18),_FUNC_EVALUATEFUNC_STRING_N2),qbs_new_txt_len(")) + (",6)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(") )",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18059);}while(r);
S_21217:;
if ((*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT)||is_error_pending()){
if(qbevent){evnt(18062);if(r)goto S_21217;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2839=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2+(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18062);}while(r);
}
S_21220:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18063);if(r)goto S_21220;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18063);}while(r);
}
}else{
S_21224:;
if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||is_error_pending()){
if(qbevent){evnt(18067);if(r)goto S_21224;}
S_21225:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(18068);if(r)goto S_21225;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass _BIT array offsets",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18068);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18068);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2840= 0 ))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18069);}while(r);
S_21230:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18070);if(r)goto S_21230;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18070);}while(r);
}
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2841= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18072);}while(r);
S_21235:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18073);if(r)goto S_21235;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18073);}while(r);
}
}
S_21239:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||is_error_pending()){
if(qbevent){evnt(18077);if(r)goto S_21239;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2842=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2+(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18078);}while(r);
S_21241:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18079);if(r)goto S_21241;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18079);}while(r);
}
}
}
S_21246:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1),func_chr( 1 ))))||is_error_pending()){
if(qbevent){evnt(18085);if(r)goto S_21246;}
S_21247:;
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(18086);if(r)goto S_21247;}
do{
tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(18087);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(18088);}while(r);
}
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(18092);}while(r);
}
}
}else{
S_21256:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18110);if(r)goto S_21256;}
do{
*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18111);}while(r);
S_21258:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1),func_chr( 1 ))))||is_error_pending()){
if(qbevent){evnt(18112);if(r)goto S_21258;}
S_21259:;
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(18113);if(r)goto S_21259;}
do{
tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(18114);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(18115);}while(r);
}
}
}
}
}
}
S_21268:;
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(18138);if(r)goto S_21268;}
S_21269:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(18139);if(r)goto S_21269;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG;
if(!qbevent)break;evnt(18140);}while(r);
S_21271:;
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
if(qbevent){evnt(18141);if(r)goto S_21271;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ;
if(!qbevent)break;evnt(18141);}while(r);
}
S_21274:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||is_error_pending()){
if(qbevent){evnt(18142);if(r)goto S_21274;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("String required for function",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18142);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18142);}while(r);
}
do{
SUB_GIVE_ERROR(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires a string",36)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18143);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18143);}while(r);
}
}
S_21282:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(18146);if(r)goto S_21282;}
S_21283:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(18147);if(r)goto S_21283;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG;
if(!qbevent)break;evnt(18148);}while(r);
S_21285:;
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
if(qbevent){evnt(18149);if(r)goto S_21285;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ;
if(!qbevent)break;evnt(18149);}while(r);
}
S_21288:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||is_error_pending()){
if(qbevent){evnt(18150);if(r)goto S_21288;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18150);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18150);}while(r);
}
do{
SUB_GIVE_ERROR(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires a number",36)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18151);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18151);}while(r);
}
}
S_21296:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18156);if(r)goto S_21296;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2843= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18157);}while(r);
S_21298:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18158);if(r)goto S_21298;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18158);}while(r);
}
}
S_21302:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE== 0 ))||is_error_pending()){
if(qbevent){evnt(18161);if(r)goto S_21302;}
S_21303:;
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(18162);if(r)goto S_21303;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG;
if(!qbevent)break;evnt(18163);}while(r);
S_21305:;
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
if(qbevent){evnt(18164);if(r)goto S_21305;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ;
if(!qbevent)break;evnt(18164);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18165);}while(r);
S_21309:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||is_error_pending()){
if(qbevent){evnt(18166);if(r)goto S_21309;}
do{
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("TYPE ",5),_FUNC_EVALUATEFUNC_STRING_X),qbs_new_txt_len(" required for function",22)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18166);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18166);}while(r);
}
do{
SUB_GIVE_ERROR(qbs_add(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires TYPE ",33)),_FUNC_EVALUATEFUNC_STRING_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18167);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18167);}while(r);
}
}else{
S_21317:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(18170);if(r)goto S_21317;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18170);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18170);}while(r);
}
}
S_21322:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(18174);if(r)goto S_21322;}
S_21323:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(18175);if(r)goto S_21323;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 ;
if(!qbevent)break;evnt(18177);}while(r);
S_21325:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||is_error_pending()){
if(qbevent){evnt(18178);if(r)goto S_21325;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18178);}while(r);
}
S_21328:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS< 32 )))||is_error_pending()){
if(qbevent){evnt(18179);if(r)goto S_21328;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18179);}while(r);
}
S_21331:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS>= 32 ))||is_error_pending()){
if(qbevent){evnt(18180);if(r)goto S_21331;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18180);}while(r);
}
}
}
S_21336:;
if ((*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE)||is_error_pending()){
if(qbevent){evnt(18184);if(r)goto S_21336;}
S_21337:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(18185);if(r)goto S_21337;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int64)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18187);}while(r);
}else{
S_21340:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(18189);if(r)goto S_21340;}
S_21341:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||is_error_pending()){
if(qbevent){evnt(18190);if(r)goto S_21341;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(float)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18190);}while(r);
}
S_21344:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||is_error_pending()){
if(qbevent){evnt(18191);if(r)goto S_21344;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(double)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18191);}while(r);
}
S_21347:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 256 ))||is_error_pending()){
if(qbevent){evnt(18192);if(r)goto S_21347;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(long double)(",14),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18192);}while(r);
}
}else{
S_21351:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(18194);if(r)goto S_21351;}
S_21352:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 8 ))||is_error_pending()){
if(qbevent){evnt(18195);if(r)goto S_21352;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint8)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18195);}while(r);
}
S_21355:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 16 ))||is_error_pending()){
if(qbevent){evnt(18196);if(r)goto S_21355;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint16)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18196);}while(r);
}
S_21358:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||is_error_pending()){
if(qbevent){evnt(18197);if(r)goto S_21358;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint32)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18197);}while(r);
}
S_21361:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||is_error_pending()){
if(qbevent){evnt(18198);if(r)goto S_21361;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint64)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18198);}while(r);
}
}else{
S_21365:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 8 ))||is_error_pending()){
if(qbevent){evnt(18200);if(r)goto S_21365;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int8)(",7),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18200);}while(r);
}
S_21368:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 16 ))||is_error_pending()){
if(qbevent){evnt(18201);if(r)goto S_21368;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int16)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18201);}while(r);
}
S_21371:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||is_error_pending()){
if(qbevent){evnt(18202);if(r)goto S_21371;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int32)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18202);}while(r);
}
S_21374:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||is_error_pending()){
if(qbevent){evnt(18203);if(r)goto S_21374;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int64)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18203);}while(r);
}
}
}
}
}
S_21381:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(18210);if(r)goto S_21381;}
S_21382:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18211);if(r)goto S_21382;}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(18211);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_T,FUNC_TYP2CTYP(_FUNC_EVALUATEFUNC_LONG_TARGETTYP,qbs_new_txt_len("",0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18213);}while(r);
S_21386:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18214);if(r)goto S_21386;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18214);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_V,qbs_add(qbs_new_txt_len("pass",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18215);}while(r);
S_21390:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1),func_chr( 1 ))))||is_error_pending()){
if(qbevent){evnt(18217);if(r)goto S_21390;}
do{
*_FUNC_EVALUATEFUNC_LONG_BYTESREQ=((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )+ 7 )/  8 ;
if(!qbevent)break;evnt(18218);}while(r);
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_T,qbs_new_txt_len(" *",2)),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18219);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2844=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("==NULL){",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18220);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2845=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_BYTESREQ),NULL,0)),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18221);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2846=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_V,qbs_new_txt_len("=(",2)),_FUNC_EVALUATEFUNC_STRING_T),qbs_new_txt_len("*)(dblock+cmem_sp);",19)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18222);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2847=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18223);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2848=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18224);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&(*",3),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("=",1)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18225);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass2849=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_T,qbs_new_txt_len(" ",1)),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18227);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&(",2),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("=",1)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18228);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(18230);}while(r);
}
LABEL_DONTEVALUATE:;
if(qbevent){evnt(18233);r=0;}
S_21405:;
if ((*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(806)))||is_error_pending()){
if(qbevent){evnt(18235);if(r)goto S_21405;}
S_21406:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_E, 3 ),qbs_new_txt_len("(  ",3))))||is_error_pending()){
if(qbevent){evnt(18238);if(r)goto S_21406;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REMOVECAST(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18239);}while(r);
}
S_21409:;
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(18242);if(r)goto S_21409;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(char*)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")->chr",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18243);}while(r);
}
S_21412:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALUATEFUNC_STRING_E)),qbs_new_txt_len("0",1))))||is_error_pending()){
if(qbevent){evnt(18246);if(r)goto S_21412;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("NULL",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18246);}while(r);
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18250);}while(r);
S_21417:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4))))||is_error_pending()){
if(qbevent){evnt(18253);if(r)goto S_21417;}
S_21418:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||is_error_pending()){
if(qbevent){evnt(18254);if(r)goto S_21418;}
S_21419:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(18255);if(r)goto S_21419;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18255);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18255);}while(r);
}
}
S_21424:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||is_error_pending()){
if(qbevent){evnt(18257);if(r)goto S_21424;}
S_21425:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(18258);if(r)goto S_21425;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18258);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18258);}while(r);
}
}
}
S_21431:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_I!=*_FUNC_EVALUATEFUNC_LONG_N))&(-(*_FUNC_EVALUATEFUNC_LONG_NOCOMMA== 0 )))||is_error_pending()){
if(qbevent){evnt(18262);if(r)goto S_21431;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18262);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
if(!qbevent)break;evnt(18263);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ;
if(!qbevent)break;evnt(18264);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ;
if(!qbevent)break;evnt(18265);}while(r);
}
fornext_continue_2751:;
}
fornext_exit_2751:;
S_21439:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_CURARG<=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))))&(~(*(int8*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(808)))))||is_error_pending()){
if(qbevent){evnt(18272);if(r)goto S_21439;}
S_21440:;
fornext_value2851=*_FUNC_EVALUATEFUNC_LONG_CURARG;
fornext_finalvalue2851=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809));
fornext_step2851= 1 ;
if (fornext_step2851<0) fornext_step_negative2851=1; else fornext_step_negative2851=0;
if (is_error_pending()) goto fornext_error2851;
goto fornext_entrylabel2851;
while(1){
fornext_value2851=fornext_step2851+(*_FUNC_EVALUATEFUNC_LONG_I);
fornext_entrylabel2851:
*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2851;
if (fornext_step_negative2851){
if (fornext_value2851<fornext_finalvalue2851) break;
}else{
if (fornext_value2851>fornext_finalvalue2851) break;
}
fornext_error2851:;
if(qbevent){evnt(18273);if(r)goto S_21440;}
S_21441:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(18274);if(r)goto S_21441;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18274);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18274);}while(r);
}
fornext_continue_2850:;
}
fornext_exit_2850:;
}
}
S_21449:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LBOUND",6)))))||is_error_pending()){
if(qbevent){evnt(18279);if(r)goto S_21449;}
S_21450:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5))))||is_error_pending()){
if(qbevent){evnt(18280);if(r)goto S_21450;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18280);}while(r);
}
S_21453:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6))))||is_error_pending()){
if(qbevent){evnt(18281);if(r)goto S_21453;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_ubound(",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18281);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_lbound(",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18281);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2852= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18282);}while(r);
S_21459:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18283);if(r)goto S_21459;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18283);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516));
if(!qbevent)break;evnt(18286);}while(r);
S_21463:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS== -1 ))||is_error_pending()){
if(qbevent){evnt(18287);if(r)goto S_21463;}
do{
*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS= 1 ;
if(!qbevent)break;evnt(18287);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R2,_FUNC_EVALUATEFUNC_STRING_E),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS),NULL,0)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18289);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18290);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18291);}while(r);
}
S_21470:;
if ((*_FUNC_EVALUATEFUNC_LONG_PASSOMIT)||is_error_pending()){
if(qbevent){evnt(18294);if(r)goto S_21470;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",0",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18295);}while(r);
S_21472:;
if ((*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG)||is_error_pending()){
if(qbevent){evnt(18297);if(r)goto S_21472;}
S_21473:;
if ((((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check(( 1 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])])||is_error_pending()){
if(qbevent){evnt(18298);if(r)goto S_21473;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("|1",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18298);}while(r);
}
}else{
S_21477:;
fornext_value2854=*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT;
fornext_finalvalue2854=func_ubound(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,1,1);
fornext_step2854= 1 ;
if (fornext_step2854<0) fornext_step_negative2854=1; else fornext_step_negative2854=0;
if (is_error_pending()) goto fornext_error2854;
goto fornext_entrylabel2854;
while(1){
fornext_value2854=fornext_step2854+(*_FUNC_EVALUATEFUNC_LONG_I);
fornext_entrylabel2854:
*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2854;
if (fornext_step_negative2854){
if (fornext_value2854<fornext_finalvalue2854) break;
}else{
if (fornext_value2854>fornext_finalvalue2854) break;
}
fornext_error2854:;
if(qbevent){evnt(18300);if(r)goto S_21477;}
S_21478:;
if ((((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_I)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])])||is_error_pending()){
if(qbevent){evnt(18301);if(r)goto S_21478;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("|",1)),qbs__tostr((uint64)(func__shl( 1 ,*_FUNC_EVALUATEFUNC_LONG_I-*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT)),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18301);}while(r);
}
fornext_continue_2853:;
}
fornext_exit_2853:;
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18305);}while(r);
LABEL_EVALFUNCSPECIAL:;
if(qbevent){evnt(18307);r=0;}
S_21485:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ABS",3))))||is_error_pending()){
if(qbevent){evnt(18309);if(r)goto S_21485;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(18309);}while(r);
}
S_21488:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("SIN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("COS",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("TAN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ATN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("SQR",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LOG",3)))))||is_error_pending()){
if(qbevent){evnt(18312);if(r)goto S_21488;}
do{
*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18313);}while(r);
S_21490:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(18314);if(r)goto S_21490;}
S_21491:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 64 ))||is_error_pending()){
if(qbevent){evnt(18316);if(r)goto S_21491;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18316);}while(r);
}
S_21494:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 32 ))||is_error_pending()){
if(qbevent){evnt(18317);if(r)goto S_21494;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18317);}while(r);
}
}else{
S_21498:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 32 ))||is_error_pending()){
if(qbevent){evnt(18320);if(r)goto S_21498;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18320);}while(r);
}
S_21501:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 16 ))||is_error_pending()){
if(qbevent){evnt(18321);if(r)goto S_21501;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18321);}while(r);
}
}
}
S_21506:;
if ((-(*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2381))==(*__LONG_ISUDT+( 1 ))))||is_error_pending()){
if(qbevent){evnt(18325);if(r)goto S_21506;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_V,qbs_add(qbs_new_txt_len("func",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18327);}while(r);
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("mem_block ",10),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18328);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("=",1)),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18329);}while(r);
}
S_21511:;
if ((*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(806)))||is_error_pending()){
if(qbevent){evnt(18332);if(r)goto S_21511;}
S_21512:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_R, 11 ),qbs_new_txt_len("(  char*  )",11))))||is_error_pending()){
if(qbevent){evnt(18333);if(r)goto S_21512;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt(",12),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18334);}while(r);
}
}
S_21516:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(18338);if(r)goto S_21516;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2855;
sub_file_print(tmp_fileno,qbs_new_txt_len("evaluatefunc:out:",17), 0, 0, 0);
if (is_error_pending()) goto skip2855;
sub_file_print(tmp_fileno,_FUNC_EVALUATEFUNC_STRING_R, 0, 0, 1);
if (is_error_pending()) goto skip2855;
skip2855:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(18338);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC,_FUNC_EVALUATEFUNC_STRING_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18339);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free21.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;
qbs_maketmp(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC);return _FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC;
}
