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 "data28.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(17696);}while(r);
do{
if(!qbevent)break;evnt(17698);}while(r);
do{
if(!qbevent)break;evnt(17699);}while(r);
do{
if(!qbevent)break;evnt(17700);}while(r);
do{
if(!qbevent)break;evnt(17701);}while(r);
S_20625:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(17704);if(r)goto S_20625;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2898;
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+0))),256,1))),qbs_new_txt_len(":",1)),_FUNC_EVALUATEFUNC_STRING_A), 0, 0, 1);
if (is_error_pending()) goto skip2898;
skip2898:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(17704);}while(r);
}
do{
if(!qbevent)break;evnt(17706);}while(r);
do{
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 0),(((char*)__UDT_ID)+((0+0))+ 0), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 256),(((char*)__UDT_ID)+((0+0))+ 256), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 512),(((char*)__UDT_ID)+((0+0))+ 512), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 516),(((char*)__UDT_ID)+((0+0))+ 516), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 518),(((char*)__UDT_ID)+((0+0))+ 518), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 520),(((char*)__UDT_ID)+((0+0))+ 520), 8);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 528),(((char*)__UDT_ID)+((0+0))+ 528), 8);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 536),(((char*)__UDT_ID)+((0+0))+ 536), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 540),(((char*)__UDT_ID)+((0+0))+ 540), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 544),(((char*)__UDT_ID)+((0+0))+ 544), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 546),(((char*)__UDT_ID)+((0+0))+ 546), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 548),(((char*)__UDT_ID)+((0+0))+ 548), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 550),(((char*)__UDT_ID)+((0+0))+ 550), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 806),(((char*)__UDT_ID)+((0+0))+ 806), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 808),(((char*)__UDT_ID)+((0+0))+ 808), 1);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 809),(((char*)__UDT_ID)+((0+0))+ 809), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 811),(((char*)__UDT_ID)+((0+0))+ 811), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 813),(((char*)__UDT_ID)+((0+0))+ 813), 400);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 1213),(((char*)__UDT_ID)+((0+0))+ 1213), 400);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 1613),(((char*)__UDT_ID)+((0+0))+ 1613), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 1869),(((char*)__UDT_ID)+((0+0))+ 1869), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2125),(((char*)__UDT_ID)+((0+0))+ 2125), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2381),(((char*)__UDT_ID)+((0+0))+ 2381), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2385),(((char*)__UDT_ID)+((0+0))+ 2385), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2641),(((char*)__UDT_ID)+((0+0))+ 2641), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2645),(((char*)__UDT_ID)+((0+0))+ 2645), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2647),(((char*)__UDT_ID)+((0+0))+ 2647), 100);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2747),(((char*)__UDT_ID)+((0+0))+ 2747), 100);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2847),(((char*)__UDT_ID)+((0+0))+ 2847), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2851),(((char*)__UDT_ID)+((0+0))+ 2851), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2853),(((char*)__UDT_ID)+((0+0))+ 2853), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2855),(((char*)__UDT_ID)+((0+0))+ 2855), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2859),(((char*)__UDT_ID)+((0+0))+ 2859), 2);
qbs_set(*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2861), *(qbs**)(((char*)__UDT_ID)+((0+0))+ 2861));
if(!qbevent)break;evnt(17708);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17709);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2381)));
if(!qbevent)break;evnt(17710);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETID=*__LONG_CURRENTID;
if(!qbevent)break;evnt(17711);}while(r);
S_20633:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+550))),256,1)),qbs_new_txt_len("func_stub",9))))||is_error_pending()){
if(qbevent){evnt(17713);if(r)goto S_20633;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Command not implemented",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17713);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17713);}while(r);
}
S_20637:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+550))),256,1)),qbs_new_txt_len("func_input",10)))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))&(-(*__BYTE_INPUTFUNCTIONCALLED== 0 ))))||is_error_pending()){
if(qbevent){evnt(17714);if(r)goto S_20637;}
do{
*__BYTE_INPUTFUNCTIONCALLED= -1 ;
if(!qbevent)break;evnt(17715);}while(r);
S_20639:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(17716);if(r)goto S_20639;}
do{
SUB_WRITEBUFLINE(&(pass2899=*__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(17717);}while(r);
}
}
do{
SUB_SETDEPENDENCY(&(pass2900=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+546)))));
if(!qbevent)break;evnt(17721);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT=FUNC_COUNTFUNCTIONELEMENTS(_FUNC_EVALUATEFUNC_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17723);}while(r);
do{
if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&1){
preserve_old_ptr=_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0];
preserve_old_flags=_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2];
preserve_old_total=_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=preserve_new_ptr;
}else{
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]) error(257);
memset((void*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=preserve_new_ptr;
}else{
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]) error(257);
}
}
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]|=1;
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4]=alloc_new_desc[4];
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]=alloc_new_desc[5];
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[6]=alloc_new_desc[6];
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(17724);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 0 ;
if(!qbevent)break;evnt(17726);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG= 0 ;
if(!qbevent)break;evnt(17727);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT= 0 ;
if(!qbevent)break;evnt(17728);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_F,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+1613))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17730);}while(r);
S_20650:;
if ((qbs_cleanup(qbs_tmp_base,_FUNC_EVALUATEFUNC_STRING_F->len))||is_error_pending()){
if(qbevent){evnt(17731);if(r)goto S_20650;}
S_20651:;
fornext_value2903= 1 ;
fornext_finalvalue2903=*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT;
fornext_step2903= 1 ;
if (fornext_step2903<0) fornext_step_negative2903=1; else fornext_step_negative2903=0;
if (is_error_pending()) goto fornext_error2903;
goto fornext_entrylabel2903;
while(1){
fornext_value2903=fornext_step2903+(*_FUNC_EVALUATEFUNC_LONG_FI);
fornext_entrylabel2903:
*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2903;
if (fornext_step_negative2903){
if (fornext_value2903<fornext_finalvalue2903) break;
}else{
if (fornext_value2903>fornext_finalvalue2903) break;
}
fornext_error2903:;
if(qbevent){evnt(17733);if(r)goto S_20651;}
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(17734);}while(r);
fornext_continue_2902:;
}
fornext_exit_2902:;
S_20654:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_F,qbs_new_txt_len("[?],?,?",7))))||is_error_pending()){
if(qbevent){evnt(17738);if(r)goto S_20654;}
do{
*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG= -1 ;
if(!qbevent)break;evnt(17739);}while(r);
S_20656:;
if ((-(func_ubound(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,1,1)== 2 ))||is_error_pending()){
if(qbevent){evnt(17741);if(r)goto S_20656;}
do{
if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&1){
preserve_old_ptr=_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0];
preserve_old_flags=_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2];
preserve_old_total=_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 3 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=preserve_new_ptr;
}else{
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]) error(257);
memset((void*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=preserve_new_ptr;
}else{
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]) error(257);
}
}
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]|=1;
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4]=alloc_new_desc[4];
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]=alloc_new_desc[5];
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[6]=alloc_new_desc[6];
_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(17742);}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(17744);}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(17745);}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(17746);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG= -1 ;
if(!qbevent)break;evnt(17748);}while(r);
}
}
S_20664:;
if ((qbs_cleanup(qbs_tmp_base,~(FUNC_ISVALIDARGSET(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+1613))),256,1),_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT))))||is_error_pending()){
if(qbevent){evnt(17752);if(r)goto S_20664;}
S_20665:;
if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2861))))->len> 0 )))||is_error_pending()){
if(qbevent){evnt(17753);if(r)goto S_20665;}
do{
SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Incorrect number of arguments - Reference: ",43),*((qbs**)((char*)_FUNC_EVALUATEFUNC_UDT_ID2+((0+2861))))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17754);}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(17756);}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17758);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 1 ;
if(!qbevent)break;evnt(17761);}while(r);
}else{
S_20674:;
fornext_value2905= 1 ;
fornext_finalvalue2905=*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT;
fornext_step2905= 1 ;
if (fornext_step2905<0) fornext_step_negative2905=1; else fornext_step_negative2905=0;
if (is_error_pending()) goto fornext_error2905;
goto fornext_entrylabel2905;
while(1){
fornext_value2905=fornext_step2905+(*_FUNC_EVALUATEFUNC_LONG_FI);
fornext_entrylabel2905:
*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2905;
if (fornext_step_negative2905){
if (fornext_value2905<fornext_finalvalue2905) break;
}else{
if (fornext_value2905>fornext_finalvalue2905) break;
}
fornext_error2905:;
if(qbevent){evnt(17765);if(r)goto S_20674;}
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(17766);}while(r);
fornext_continue_2904:;
}
fornext_exit_2904:;
S_20677:;
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(17769);if(r)goto S_20677;}
do{
goto LABEL_SKIPARGNUMCHK;
if(!qbevent)break;evnt(17769);}while(r);
}
S_20680:;
if (((-(*(int8*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+808)))== -1 ))&(((-(*_FUNC_EVALUATEFUNC_LONG_ARGS>=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+811)))))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS<=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+809))))))))||is_error_pending()){
if(qbevent){evnt(17770);if(r)goto S_20680;}
do{
goto LABEL_SKIPARGNUMCHK;
if(!qbevent)break;evnt(17770);}while(r);
}
S_20683:;
if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+809)))!=*_FUNC_EVALUATEFUNC_LONG_ARGS))||is_error_pending()){
if(qbevent){evnt(17772);if(r)goto S_20683;}
S_20684:;
if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2861))))->len> 0 )))||is_error_pending()){
if(qbevent){evnt(17773);if(r)goto S_20684;}
do{
SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Incorrect number of arguments - Reference: ",43),*((qbs**)((char*)_FUNC_EVALUATEFUNC_UDT_ID2+((0+2861))))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17774);}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(17776);}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17778);}while(r);
}
}
LABEL_SKIPARGNUMCHK:;
if(qbevent){evnt(17783);r=0;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+550))),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17785);}while(r);
S_20693:;
if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+809)))!= 0 ))||is_error_pending()){
if(qbevent){evnt(17788);if(r)goto S_20693;}
do{
*_FUNC_EVALUATEFUNC_LONG_CURARG= 1 ;
if(!qbevent)break;evnt(17790);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_FIRSTI= 1 ;
if(!qbevent)break;evnt(17791);}while(r);
S_20696:;
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
if(qbevent){evnt(17795);if(r)goto S_20696;}
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(17796);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_CURARG= 2 ;
if(!qbevent)break;evnt(17797);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATEFUNC_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17800);}while(r);
S_20701:;
fornext_value2907= 1 ;
fornext_finalvalue2907=*_FUNC_EVALUATEFUNC_LONG_N;
fornext_step2907= 1 ;
if (fornext_step2907<0) fornext_step_negative2907=1; else fornext_step_negative2907=0;
if (is_error_pending()) goto fornext_error2907;
goto fornext_entrylabel2907;
while(1){
fornext_value2907=fornext_step2907+(*_FUNC_EVALUATEFUNC_LONG_I);
fornext_entrylabel2907:
*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2907;
if (fornext_step_negative2907){
if (fornext_value2907<fornext_finalvalue2907) break;
}else{
if (fornext_value2907>fornext_finalvalue2907) break;
}
fornext_error2907:;
if(qbevent){evnt(17802);if(r)goto S_20701;}
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(17803);}while(r);
S_20703:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(17804);if(r)goto S_20703;}
do{
*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B+ 1 ;
if(!qbevent)break;evnt(17804);}while(r);
}
S_20706:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(17805);if(r)goto S_20706;}
do{
*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B- 1 ;
if(!qbevent)break;evnt(17805);}while(r);
}
S_20709:;
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(17806);if(r)goto S_20709;}
S_20710:;
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(17807);if(r)goto S_20710;}
S_20711:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||is_error_pending()){
if(qbevent){evnt(17808);if(r)goto S_20711;}
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(17808);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17808);}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(17810);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ;
if(!qbevent)break;evnt(17811);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ;
if(!qbevent)break;evnt(17812);}while(r);
do{
goto fornext_continue_2906;
if(!qbevent)break;evnt(17813);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+813))),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17816);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2647))),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17817);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2747))),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17818);}while(r);
S_20723:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||is_error_pending()){
if(qbevent){evnt(17820);if(r)goto S_20723;}
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(17821);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,&(pass2908=*_FUNC_EVALUATEFUNC_LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17823);}while(r);
}
S_20728:;
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(17826);if(r)goto S_20728;}
do{
*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 1 ;
if(!qbevent)break;evnt(17826);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 0 ;
if(!qbevent)break;evnt(17826);}while(r);
}
S_20733:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("VAL",3))))||is_error_pending()){
if(qbevent){evnt(17830);if(r)goto S_20733;}
S_20734:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(17831);if(r)goto S_20734;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17832);}while(r);
S_20736:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17833);if(r)goto S_20736;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17833);}while(r);
}
S_20739:;
if(qbevent){evnt(17835);if(r)goto S_20739;}
S_20740:;
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(17836);if(r)goto S_20740;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17837);}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(17838);}while(r);
sc_ec_87_end:;
goto sc_2909_end;
}
S_20743:;
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(17840);if(r)goto S_20743;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17841);}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(17842);}while(r);
sc_ec_88_end:;
goto sc_2909_end;
}
S_20746:;
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(17844);if(r)goto S_20746;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(17845);}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(17846);}while(r);
sc_ec_89_end:;
goto sc_2909_end;
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("VAL TYPE unsupported",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17849);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17850);}while(r);
sc_2909_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(17853);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
if(!qbevent)break;evnt(17854);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(17856);}while(r);
}
}
S_20758:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CAST",5))))||is_error_pending()){
if(qbevent){evnt(17861);if(r)goto S_20758;}
S_20759:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(17862);if(r)goto S_20759;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17863);}while(r);
S_20761:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17864);if(r)goto S_20761;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17864);}while(r);
}
S_20764:;
if(qbevent){evnt(17866);if(r)goto S_20764;}
S_20765:;
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(17867);if(r)goto S_20765;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=FUNC_TYPNAME2TYP(_FUNC_EVALUATEFUNC_STRING_CASTTYPE)-*__LONG_ISPOINTER;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17868);}while(r);
S_20767:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17869);if(r)goto S_20767;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17869);}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(17871);}while(r);
S_20771:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17872);if(r)goto S_20771;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17872);}while(r);
}
sc_ec_90_end:;
goto sc_2910_end;
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("_CAST TYPE unsupported",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17875);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17876);}while(r);
sc_2910_end:;
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17879);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(17880);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(17882);}while(r);
}
}
S_20783:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3))))||is_error_pending()){
if(qbevent){evnt(17887);if(r)goto S_20783;}
S_20784:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(17888);if(r)goto S_20784;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17889);}while(r);
S_20786:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17890);if(r)goto S_20786;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17890);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17891);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(17892);}while(r);
}
}
S_20793:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3))))||is_error_pending()){
if(qbevent){evnt(17898);if(r)goto S_20793;}
S_20794:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+528))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(17899);if(r)goto S_20794;}
S_20795:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(17900);if(r)goto S_20795;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17901);}while(r);
S_20797:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17902);if(r)goto S_20797;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17902);}while(r);
}
S_20800:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(17903);if(r)goto S_20800;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2911;
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 skip2911;
skip2911:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(17903);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17904);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(17905);}while(r);
}
}
}
S_20808:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_EMBEDDED",9))))||is_error_pending()){
if(qbevent){evnt(17910);if(r)goto S_20808;}
S_20809:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+528))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(17911);if(r)goto S_20809;}
S_20810:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(17912);if(r)goto S_20810;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17914);}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(17915);}while(r);
S_20813:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,func_chr( 13 ),0)> 0 )))||is_error_pending()){
if(qbevent){evnt(17916);if(r)goto S_20813;}
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17916);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17916);}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(17917);}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(17917);}while(r);
S_20819:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_BRA== 0 ))|(-(*_FUNC_EVALUATEFUNC_LONG_KET== 0 )))||is_error_pending()){
if(qbevent){evnt(17918);if(r)goto S_20819;}
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17918);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17918);}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(17919);}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(17920);}while(r);
S_20825:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(17921);if(r)goto S_20825;}
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17921);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17921);}while(r);
}
S_20829:;
sc_2913=qbs_asc(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE, 1 );
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(17923);if(r)goto S_20829;}
S_20830:;
if ((((sc_2913>=( 0 ))&&(sc_2913<=( 64 )))||((sc_2913>=( 91 ))&&(sc_2913<=( 96 )))||((sc_2913>=( 123 ))&&(sc_2913<=( 255 ))))||is_error_pending()){
if(qbevent){evnt(17924);if(r)goto S_20830;}
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(17925);}while(r);
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17926);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17926);}while(r);
sc_ec_91_end:;
goto sc_2913_end;
}
sc_2913_end:;
S_20835:;
fornext_value2915= 2 ;
fornext_finalvalue2915=_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE->len;
fornext_step2915= 1 ;
if (fornext_step2915<0) fornext_step_negative2915=1; else fornext_step_negative2915=0;
if (is_error_pending()) goto fornext_error2915;
goto fornext_entrylabel2915;
while(1){
fornext_value2915=fornext_step2915+(*_FUNC_EVALUATEFUNC_LONG_RSI);
fornext_entrylabel2915:
*_FUNC_EVALUATEFUNC_LONG_RSI=fornext_value2915;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative2915){
if (fornext_value2915<fornext_finalvalue2915) break;
}else{
if (fornext_value2915>fornext_finalvalue2915) break;
}
fornext_error2915:;
if(qbevent){evnt(17928);if(r)goto S_20835;}
S_20836:;
sc_2917=qbs_asc(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,*_FUNC_EVALUATEFUNC_LONG_RSI);
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(17929);if(r)goto S_20836;}
S_20837:;
if ((((sc_2917>=( 0 ))&&(sc_2917<=( 47 )))||((sc_2917>=( 58 ))&&(sc_2917<=( 64 )))||((sc_2917>=( 91 ))&&(sc_2917<=( 96 )))||((sc_2917>=( 123 ))&&(sc_2917<=( 255 ))))||is_error_pending()){
if(qbevent){evnt(17930);if(r)goto S_20837;}
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(17931);}while(r);
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17932);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17932);}while(r);
sc_ec_92_end:;
goto sc_2917_end;
}
sc_2917_end:;
fornext_continue_2914:;
}
fornext_exit_2914:;
do{
*_FUNC_EVALUATEFUNC_LONG_EFLUB=func_ubound(__ARRAY_STRING_EMBEDFILELIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17936);}while(r);
S_20844:;
fornext_value2919= 0 ;
fornext_finalvalue2919=*_FUNC_EVALUATEFUNC_LONG_EFLUB;
fornext_step2919= 1 ;
if (fornext_step2919<0) fornext_step_negative2919=1; else fornext_step_negative2919=0;
if (is_error_pending()) goto fornext_error2919;
goto fornext_entrylabel2919;
while(1){
fornext_value2919=fornext_step2919+(*_FUNC_EVALUATEFUNC_LONG_RSI);
fornext_entrylabel2919:
*_FUNC_EVALUATEFUNC_LONG_RSI=fornext_value2919;
if (fornext_step_negative2919){
if (fornext_value2919<fornext_finalvalue2919) break;
}else{
if (fornext_value2919>fornext_finalvalue2919) break;
}
fornext_error2919:;
if(qbevent){evnt(17937);if(r)goto S_20844;}
S_20845:;
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(17938);if(r)goto S_20845;}
do{
goto fornext_exit_2918;
if(!qbevent)break;evnt(17938);}while(r);
}
fornext_continue_2918:;
}
fornext_exit_2918:;
S_20849:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_RSI>*_FUNC_EVALUATEFUNC_LONG_EFLUB))||is_error_pending()){
if(qbevent){evnt(17940);if(r)goto S_20849;}
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(17941);}while(r);
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17942);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17942);}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(17944);}while(r);
}
}
}
}
S_20859:;
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(17950);if(r)goto S_20859;}
S_20860:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(17952);if(r)goto S_20860;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_ORIGINAL_E,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17953);}while(r);
do{
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED= 0 ;
if(!qbevent)break;evnt(17954);}while(r);
S_20863:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_HASINDEXEDFINALMEMBERARRAY(_FUNC_EVALUATEFUNC_STRING_ORIGINAL_E)))||is_error_pending()){
if(qbevent){evnt(17956);if(r)goto S_20863;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17957);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17957);}while(r);
}
S_20867:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_ORIGINAL_E,qbs_new_txt_len(".",1),0)))||is_error_pending()){
if(qbevent){evnt(17977);if(r)goto S_20867;}
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
if(!qbevent)break;evnt(17978);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATEFUNC_STRING_ORIGINAL_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17979);}while(r);
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
if(!qbevent)break;evnt(17980);}while(r);
S_20871:;
if ((-(*__LONG_ERROR_HAPPENED== 0 ))||is_error_pending()){
if(qbevent){evnt(17982);if(r)goto S_20871;}
S_20872:;
if (((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)!= 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)!= 0 )))||is_error_pending()){
if(qbevent){evnt(17983);if(r)goto S_20872;}
do{
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED= -1 ;
if(!qbevent)break;evnt(17984);}while(r);
}
}
}
S_20877:;
if ((*__LONG_ERROR_HAPPENED|(-(*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED== 0 )))||is_error_pending()){
if(qbevent){evnt(17991);if(r)goto S_20877;}
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(17992);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_ORIGINAL_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(17993);}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(17994);}while(r);
S_20881:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(17995);if(r)goto S_20881;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17995);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED= 0 ;
if(!qbevent)break;evnt(17996);}while(r);
}
S_20886:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(17999);if(r)goto S_20886;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(17999);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(17999);}while(r);
}
S_20890:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(18000);if(r)goto S_20890;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18000);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18000);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18002);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_ULBOUNDARRAYTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(18003);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18004);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18005);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(18006);}while(r);
}
}
S_20901:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INPUT",5))))||is_error_pending()){
if(qbevent){evnt(18012);if(r)goto S_20901;}
S_20902:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+528))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(18013);if(r)goto S_20902;}
S_20903:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(18014);if(r)goto S_20903;}
S_20904:;
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(18015);if(r)goto S_20904;}
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(18015);}while(r);
}
}
}
}
S_20910:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ASC",3))))||is_error_pending()){
if(qbevent){evnt(18022);if(r)goto S_20910;}
S_20911:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(18023);if(r)goto S_20911;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E,&(pass2921= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18024);}while(r);
S_20913:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18025);if(r)goto S_20913;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18025);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18026);}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(18027);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18028);}while(r);
}
}
S_20921:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEMGET",7))))||is_error_pending()){
if(qbevent){evnt(18039);if(r)goto S_20921;}
S_20922:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(18040);if(r)goto S_20922;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18041);}while(r);
}
S_20925:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(18043);if(r)goto S_20925;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18044);}while(r);
}
S_20928:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 ))||is_error_pending()){
if(qbevent){evnt(18046);if(r)goto S_20928;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_ucase(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18047);}while(r);
S_20930:;
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(18048);if(r)goto S_20930;}
S_20931:;
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(18049);if(r)goto S_20931;}
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(18050);}while(r);
}else{
S_20934:;
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(18052);if(r)goto S_20934;}
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(18052);}while(r);
}
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_T=FUNC_TYPNAME2TYP(_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18055);}while(r);
S_20940:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(18056);if(r)goto S_20940;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid TYPE name",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18056);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18056);}while(r);
}
S_20944:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
if(qbevent){evnt(18057);if(r)goto S_20944;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("_BIT TYPE unsupported",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18057);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18057);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(18058);}while(r);
S_20949:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(18059);if(r)goto S_20949;}
S_20950:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(18060);if(r)goto S_20950;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * ...",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18060);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18060);}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(18061);}while(r);
}else{
S_20956:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(18063);if(r)goto S_20956;}
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(18064);}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(18065);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=(*_FUNC_EVALUATEFUNC_LONG_T& 511 )/  8 ;
if(!qbevent)break;evnt(18067);}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(18068);}while(r);
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_OFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,&(pass2924=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18077);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_BLKOFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,&(pass2925= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18078);}while(r);
S_20966:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(18079);if(r)goto S_20966;}
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(18081);}while(r);
}
S_20969:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(18083);if(r)goto S_20969;}
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(18084);}while(r);
}else{
S_20972:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(18086);if(r)goto S_20972;}
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(18087);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_T=*__LONG_ISUDT+*__LONG_ISPOINTER+(*_FUNC_EVALUATEFUNC_LONG_T& 511 );
if(!qbevent)break;evnt(18088);}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(18090);}while(r);
S_20977:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(18091);if(r)goto S_20977;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18091);}while(r);
}
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_T;
if(!qbevent)break;evnt(18101);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18104);}while(r);
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E2,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18109);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY= 0 ;
if(!qbevent)break;evnt(18111);}while(r);
S_20988:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
if(qbevent){evnt(18114);if(r)goto S_20988;}
do{
*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY= -1 ;
if(!qbevent)break;evnt(18114);}while(r);
}
S_20991:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4)))&(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))))||is_error_pending()){
if(qbevent){evnt(18115);if(r)goto S_20991;}
do{
*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY= -1 ;
if(!qbevent)break;evnt(18115);}while(r);
}
S_20994:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LEN",3)))&(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))))||is_error_pending()){
if(qbevent){evnt(18116);if(r)goto S_20994;}
do{
*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY= -1 ;
if(!qbevent)break;evnt(18116);}while(r);
}
S_20997:;
if ((*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY)||is_error_pending()){
if(qbevent){evnt(18118);if(r)goto S_20997;}
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
if(!qbevent)break;evnt(18118);}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(18119);}while(r);
S_21001:;
if ((*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY)||is_error_pending()){
if(qbevent){evnt(18120);if(r)goto S_21001;}
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
if(!qbevent)break;evnt(18120);}while(r);
}
S_21004:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18121);if(r)goto S_21004;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18121);}while(r);
}
S_21007:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("VAL",3))))||is_error_pending()){
if(qbevent){evnt(18125);if(r)goto S_21007;}
S_21008:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(18126);if(r)goto S_21008;}
S_21009:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||is_error_pending()){
if(qbevent){evnt(18127);if(r)goto S_21009;}
S_21010:;
if ((-((~(FUNC_TYPE_ISSTRING(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(18128);if(r)goto S_21010;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING argument",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18129);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18130);}while(r);
}
S_21014:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18133);if(r)goto S_21014;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2926= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18133);}while(r);
}
S_21017:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18134);if(r)goto S_21017;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18134);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18136);}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(18137);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18139);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(18142);}while(r);
}
}
}
S_21028:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CAST",5))))||is_error_pending()){
if(qbevent){evnt(18148);if(r)goto S_21028;}
S_21029:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(18149);if(r)goto S_21029;}
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
if(!qbevent)break;evnt(18150);}while(r);
S_21031:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(18152);if(r)goto S_21031;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18153);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18154);}while(r);
}
S_21035:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(18157);if(r)goto S_21035;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2927= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18157);}while(r);
}
S_21038:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18158);if(r)goto S_21038;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18158);}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(18160);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18162);}while(r);
}
}
S_21045:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_IIF",4))))||is_error_pending()){
if(qbevent){evnt(18167);if(r)goto S_21045;}
S_21046:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(18168);if(r)goto S_21046;}
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(18169);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(18170);}while(r);
S_21049:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
if(qbevent){evnt(18171);if(r)goto S_21049;}
S_21050:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(18172);if(r)goto S_21050;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2928= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18172);}while(r);
}
S_21053:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18173);if(r)goto S_21053;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18173);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARG2TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(18175);}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(18177);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18178);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(18179);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(18181);}while(r);
S_21061:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 )){
if(qbevent){evnt(18182);if(r)goto S_21061;}
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
if(!qbevent)break;evnt(18183);}while(r);
S_21063:;
if ((-(FUNC_TYPE_ISSTRING(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)!=FUNC_TYPE_ISSTRING(_FUNC_EVALUATEFUNC_LONG_ARG2TYP)))||is_error_pending()){
if(qbevent){evnt(18185);if(r)goto S_21063;}
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(18186);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18187);}while(r);
}
S_21067:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(18190);if(r)goto S_21067;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2929= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18190);}while(r);
}
S_21070:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18191);if(r)goto S_21070;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18191);}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(18193);}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(18194);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18196);}while(r);
}
}
}
}
S_21078:;
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(18201);if(r)goto S_21078;}
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(18202);}while(r);
S_21080:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(18204);if(r)goto S_21080;}
S_21081:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(18205);if(r)goto S_21081;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18206);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18207);}while(r);
}
S_21085:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(18210);if(r)goto S_21085;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2930= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18210);}while(r);
}
S_21088:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18211);if(r)goto S_21088;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18211);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARG1TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(18213);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18214);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18215);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(18217);}while(r);
S_21095:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
if(qbevent){evnt(18218);if(r)goto S_21095;}
S_21096:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(18219);if(r)goto S_21096;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18220);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18221);}while(r);
}
S_21100:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(18224);if(r)goto S_21100;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2931= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18224);}while(r);
}
S_21103:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18225);if(r)goto S_21103;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18225);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=FUNC_TYPE_PROMOTEARITHMETICTYPE(_FUNC_EVALUATEFUNC_LONG_ARG1TYP,_FUNC_EVALUATEFUNC_LONG_SOURCETYP);
if(!qbevent)break;evnt(18227);}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(18228);}while(r);
S_21108:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18229);if(r)goto S_21108;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18229);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18231);}while(r);
}
}
}
S_21114:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CLAMP",6))))||is_error_pending()){
if(qbevent){evnt(18236);if(r)goto S_21114;}
S_21115:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(18237);if(r)goto S_21115;}
S_21116:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(18238);if(r)goto S_21116;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18239);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18240);}while(r);
}
S_21120:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(18243);if(r)goto S_21120;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2932= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18243);}while(r);
}
S_21123:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18244);if(r)goto S_21123;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18244);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARG1TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(18246);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18247);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18248);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(18250);}while(r);
S_21130:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
if(qbevent){evnt(18251);if(r)goto S_21130;}
S_21131:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(18252);if(r)goto S_21131;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18253);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18254);}while(r);
}
S_21135:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(18257);if(r)goto S_21135;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2933= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18257);}while(r);
}
S_21138:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18258);if(r)goto S_21138;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18258);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARG2TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(18260);}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(18261);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18262);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(18264);}while(r);
S_21145:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 )){
if(qbevent){evnt(18265);if(r)goto S_21145;}
S_21146:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(18266);if(r)goto S_21146;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18267);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18268);}while(r);
}
S_21150:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(18271);if(r)goto S_21150;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2934= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18271);}while(r);
}
S_21153:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18272);if(r)goto S_21153;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18272);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=FUNC_TYPE_PROMOTEARITHMETICTYPE(&(pass2935=FUNC_TYPE_PROMOTEARITHMETICTYPE(_FUNC_EVALUATEFUNC_LONG_ARG1TYP,_FUNC_EVALUATEFUNC_LONG_ARG2TYP)),_FUNC_EVALUATEFUNC_LONG_SOURCETYP);
if(!qbevent)break;evnt(18274);}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(18275);}while(r);
S_21158:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18276);if(r)goto S_21158;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18276);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18278);}while(r);
}
}
}
}
S_21164:;
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(18283);if(r)goto S_21164;}
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(18284);}while(r);
S_21166:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(18286);if(r)goto S_21166;}
S_21167:;
if ((-((~(FUNC_TYPE_ISINTEGRAL(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(18287);if(r)goto S_21167;}
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(18288);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18289);}while(r);
}
S_21171:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(18292);if(r)goto S_21171;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2936= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18292);}while(r);
}
S_21174:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18293);if(r)goto S_21174;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18293);}while(r);
}
S_21177:;
sc_2937=FUNC_TYPE_GETSIZEINBITS(_FUNC_EVALUATEFUNC_LONG_SOURCETYP);
if(qbevent){evnt(18295);if(r)goto S_21177;}
S_21178:;
if (((sc_2937==( 8 )))||is_error_pending()){
if(qbevent){evnt(18296);if(r)goto S_21178;}
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(18297);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18298);}while(r);
sc_ec_93_end:;
goto sc_2937_end;
}
S_21181:;
if (((sc_2937==( 16 )))||is_error_pending()){
if(qbevent){evnt(18299);if(r)goto S_21181;}
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(18300);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18301);}while(r);
sc_ec_94_end:;
goto sc_2937_end;
}
S_21184:;
if (((sc_2937==( 32 )))||is_error_pending()){
if(qbevent){evnt(18302);if(r)goto S_21184;}
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(18303);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18304);}while(r);
sc_ec_95_end:;
goto sc_2937_end;
}
S_21187:;
if (((sc_2937==( 64 )))||is_error_pending()){
if(qbevent){evnt(18305);if(r)goto S_21187;}
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(18306);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18307);}while(r);
sc_ec_96_end:;
goto sc_2937_end;
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Unsupported integral type size",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18309);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18310);}while(r);
sc_2937_end:;
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18313);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18314);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(18316);}while(r);
S_21197:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
if(qbevent){evnt(18317);if(r)goto S_21197;}
S_21198:;
if ((-((~(FUNC_TYPE_ISINTEGRAL(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(18318);if(r)goto S_21198;}
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(18319);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18320);}while(r);
}
S_21202:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(18323);if(r)goto S_21202;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2938= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18323);}while(r);
}
S_21205:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18324);if(r)goto S_21205;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18324);}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(18326);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18328);}while(r);
}
}
}
S_21212:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_UCHARPOS",9))))||is_error_pending()){
if(qbevent){evnt(18333);if(r)goto S_21212;}
S_21213:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(18334);if(r)goto S_21213;}
S_21214:;
if (((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
if(qbevent){evnt(18336);if(r)goto S_21214;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected LONG array-name",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18337);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18338);}while(r);
}
S_21218:;
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(18342);if(r)goto S_21218;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected LONG array-name",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18343);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18344);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2939= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18347);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(18349);}while(r);
}
}
S_21226:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4))))||is_error_pending()){
if(qbevent){evnt(18354);if(r)goto S_21226;}
S_21227:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(18355);if(r)goto S_21227;}
S_21228:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||is_error_pending()){
if(qbevent){evnt(18356);if(r)goto S_21228;}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP= -7 ;
if(!qbevent)break;evnt(18357);}while(r);
}
S_21231:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||is_error_pending()){
if(qbevent){evnt(18359);if(r)goto S_21231;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+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)+((0+550))),256,1)))->len))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18360);}while(r);
S_21233:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)== 0 ))||is_error_pending()){
if(qbevent){evnt(18361);if(r)goto S_21233;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected _MEM(_OFFSET-value,...)",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18361);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18361);}while(r);
}
}
}
}
S_21240:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
if(qbevent){evnt(18367);if(r)goto S_21240;}
S_21241:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(18368);if(r)goto S_21241;}
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(18369);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18369);}while(r);
}
S_21245:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(18371);if(r)goto S_21245;}
S_21246:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(18372);if(r)goto S_21246;}
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(18372);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18372);}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,&(pass2941= -6 ))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18374);}while(r);
S_21252:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18375);if(r)goto S_21252;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18375);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18376);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18377);}while(r);
}
S_21258:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ENVIRON",7))))||is_error_pending()){
if(qbevent){evnt(18382);if(r)goto S_21258;}
S_21259:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(18383);if(r)goto S_21259;}
S_21260:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(18384);if(r)goto S_21260;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2942= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18384);}while(r);
}
S_21263:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18385);if(r)goto S_21263;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18385);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(18386);}while(r);
}
}
S_21269:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LEN",3))))||is_error_pending()){
if(qbevent){evnt(18391);if(r)goto S_21269;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18392);}while(r);
S_21271:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(18393);if(r)goto S_21271;}
S_21272:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(18395);if(r)goto S_21272;}
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(18396);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18397);}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(18399);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18399);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2943= -5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18401);}while(r);
S_21280:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18402);if(r)goto S_21280;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18402);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18403);}while(r);
}
S_21285:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_BIN",4))))||is_error_pending()){
if(qbevent){evnt(18408);if(r)goto S_21285;}
S_21286:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+528))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(18409);if(r)goto S_21286;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18410);}while(r);
S_21288:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18412);if(r)goto S_21288;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18412);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18412);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ;
if(!qbevent)break;evnt(18413);}while(r);
S_21293:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18414);if(r)goto S_21293;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2944= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18414);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ;
if(!qbevent)break;evnt(18414);}while(r);
}
S_21297:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18415);if(r)goto S_21297;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18415);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18416);}while(r);
S_21301:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(18417);if(r)goto S_21301;}
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(18418);}while(r);
}else{
S_21304:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(18420);if(r)goto S_21304;}
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(18421);}while(r);
}else{
S_21307:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(18423);if(r)goto S_21307;}
S_21308:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||is_error_pending()){
if(qbevent){evnt(18424);if(r)goto S_21308;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ;
if(!qbevent)break;evnt(18424);}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(18426);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18429);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18430);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18431);}while(r);
}
}
S_21320:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("OCT",3))))||is_error_pending()){
if(qbevent){evnt(18436);if(r)goto S_21320;}
S_21321:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+528))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(18437);if(r)goto S_21321;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18438);}while(r);
S_21323:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18440);if(r)goto S_21323;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18440);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18440);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ;
if(!qbevent)break;evnt(18441);}while(r);
S_21328:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18442);if(r)goto S_21328;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2945= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18442);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ;
if(!qbevent)break;evnt(18442);}while(r);
}
S_21332:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18443);if(r)goto S_21332;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18443);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18444);}while(r);
S_21336:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(18445);if(r)goto S_21336;}
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(18446);}while(r);
}else{
S_21339:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(18448);if(r)goto S_21339;}
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(18449);}while(r);
}else{
S_21342:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(18451);if(r)goto S_21342;}
S_21343:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||is_error_pending()){
if(qbevent){evnt(18452);if(r)goto S_21343;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ;
if(!qbevent)break;evnt(18452);}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(18454);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18457);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18458);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18459);}while(r);
}
}
S_21355:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("HEX",3))))||is_error_pending()){
if(qbevent){evnt(18464);if(r)goto S_21355;}
S_21356:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+528))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(18465);if(r)goto S_21356;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18466);}while(r);
S_21358:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18467);if(r)goto S_21358;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18467);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18467);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ;
if(!qbevent)break;evnt(18468);}while(r);
S_21363:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18469);if(r)goto S_21363;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2946= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18469);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ;
if(!qbevent)break;evnt(18469);}while(r);
}
S_21367:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18470);if(r)goto S_21367;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18470);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18471);}while(r);
S_21371:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(18472);if(r)goto S_21371;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS=(*_FUNC_EVALUATEFUNC_LONG_BITS+ 3 )/  4 ;
if(!qbevent)break;evnt(18473);}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(18474);}while(r);
}else{
S_21375:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(18476);if(r)goto S_21375;}
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(18477);}while(r);
}else{
S_21378:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||is_error_pending()){
if(qbevent){evnt(18479);if(r)goto S_21378;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 2 ;
if(!qbevent)break;evnt(18479);}while(r);
}
S_21381:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||is_error_pending()){
if(qbevent){evnt(18480);if(r)goto S_21381;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 4 ;
if(!qbevent)break;evnt(18480);}while(r);
}
S_21384:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(18481);if(r)goto S_21384;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 8 ;
if(!qbevent)break;evnt(18481);}while(r);
}
S_21387:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(18482);if(r)goto S_21387;}
S_21388:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 1 ))||is_error_pending()){
if(qbevent){evnt(18483);if(r)goto S_21388;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 16 ;
if(!qbevent)break;evnt(18483);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 0 ;
if(!qbevent)break;evnt(18483);}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(18485);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18488);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18489);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18490);}while(r);
}
}
S_21402:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("EXP",3))))||is_error_pending()){
if(qbevent){evnt(18496);if(r)goto S_21402;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18497);}while(r);
S_21404:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18498);if(r)goto S_21404;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18498);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18498);}while(r);
}
S_21408:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18499);if(r)goto S_21408;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2947= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18499);}while(r);
}
S_21411:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18500);if(r)goto S_21411;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18500);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18501);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18502);}while(r);
S_21416:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(18503);if(r)goto S_21416;}
S_21417:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(18504);if(r)goto S_21417;}
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(18504);}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(18504);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18504);}while(r);
}
}else{
S_21424:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(18506);if(r)goto S_21424;}
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(18507);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18507);}while(r);
}else{
S_21428:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||is_error_pending()){
if(qbevent){evnt(18509);if(r)goto S_21428;}
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(18509);}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(18509);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18509);}while(r);
}
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18512);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18513);}while(r);
}
S_21439:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INT",3))))||is_error_pending()){
if(qbevent){evnt(18517);if(r)goto S_21439;}
S_21440:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18518);if(r)goto S_21440;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18518);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18518);}while(r);
}
S_21444:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18519);if(r)goto S_21444;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2948= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18519);}while(r);
}
S_21447:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18520);if(r)goto S_21447;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18520);}while(r);
}
S_21450:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(18522);if(r)goto S_21450;}
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(18522);}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(18522);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18523);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(18524);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18525);}while(r);
}
S_21459:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("FIX",3))))||is_error_pending()){
if(qbevent){evnt(18529);if(r)goto S_21459;}
S_21460:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18530);if(r)goto S_21460;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18530);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18530);}while(r);
}
S_21464:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18531);if(r)goto S_21464;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2949= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18531);}while(r);
}
S_21467:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18532);if(r)goto S_21467;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18532);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18534);}while(r);
S_21471:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(18535);if(r)goto S_21471;}
S_21472:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(18536);if(r)goto S_21472;}
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(18536);}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(18536);}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(18538);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18540);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(18541);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18542);}while(r);
}
S_21484:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_ROUND",6))))||is_error_pending()){
if(qbevent){evnt(18546);if(r)goto S_21484;}
S_21485:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18547);if(r)goto S_21485;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18547);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18547);}while(r);
}
S_21489:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18548);if(r)goto S_21489;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2950= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18548);}while(r);
}
S_21492:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18549);if(r)goto S_21492;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18549);}while(r);
}
S_21495:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(18551);if(r)goto S_21495;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18552);}while(r);
S_21497:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(18553);if(r)goto S_21497;}
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(18553);}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(18553);}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(18555);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18557);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(18558);}while(r);
S_21507:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||is_error_pending()){
if(qbevent){evnt(18559);if(r)goto S_21507;}
S_21508:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(18560);if(r)goto S_21508;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18560);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18560);}while(r);
}
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18562);}while(r);
}
S_21516:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CDBL",4))))||is_error_pending()){
if(qbevent){evnt(18567);if(r)goto S_21516;}
S_21517:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18568);if(r)goto S_21517;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18568);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18568);}while(r);
}
S_21521:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18569);if(r)goto S_21521;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2951= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18569);}while(r);
}
S_21524:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18570);if(r)goto S_21524;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18570);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18572);}while(r);
S_21528:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(18573);if(r)goto S_21528;}
S_21529:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(18574);if(r)goto S_21529;}
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(18574);}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(18576);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18578);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18579);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18580);}while(r);
}
S_21539:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CSNG",4))))||is_error_pending()){
if(qbevent){evnt(18584);if(r)goto S_21539;}
S_21540:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18585);if(r)goto S_21540;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18585);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18585);}while(r);
}
S_21544:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18586);if(r)goto S_21544;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2952= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18586);}while(r);
}
S_21547:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18587);if(r)goto S_21547;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18587);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18589);}while(r);
S_21551:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(18590);if(r)goto S_21551;}
S_21552:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(18591);if(r)goto S_21552;}
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(18591);}while(r);
}
S_21555:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(18592);if(r)goto S_21555;}
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(18592);}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(18594);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18596);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18597);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18598);}while(r);
}
S_21565:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CLNG",4))))||is_error_pending()){
if(qbevent){evnt(18603);if(r)goto S_21565;}
S_21566:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18604);if(r)goto S_21566;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18604);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18604);}while(r);
}
S_21570:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18605);if(r)goto S_21570;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2953= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18605);}while(r);
}
S_21573:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18606);if(r)goto S_21573;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18606);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18608);}while(r);
S_21577:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(18609);if(r)goto S_21577;}
S_21578:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(18610);if(r)goto S_21578;}
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(18610);}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(18610);}while(r);
}
}else{
S_21584:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(18612);if(r)goto S_21584;}
S_21585:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(18613);if(r)goto S_21585;}
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(18613);}while(r);
}
S_21588:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
if(qbevent){evnt(18614);if(r)goto S_21588;}
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(18614);}while(r);
}
}else{
S_21592:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
if(qbevent){evnt(18616);if(r)goto S_21592;}
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(18616);}while(r);
}
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18619);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 32 ;
if(!qbevent)break;evnt(18620);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18621);}while(r);
}
S_21601:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CINT",4))))||is_error_pending()){
if(qbevent){evnt(18625);if(r)goto S_21601;}
S_21602:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18626);if(r)goto S_21602;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18626);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18626);}while(r);
}
S_21606:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18627);if(r)goto S_21606;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2954= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18627);}while(r);
}
S_21609:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18628);if(r)goto S_21609;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18628);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18630);}while(r);
S_21613:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(18631);if(r)goto S_21613;}
S_21614:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(18632);if(r)goto S_21614;}
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(18632);}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(18632);}while(r);
}
}else{
S_21620:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(18634);if(r)goto S_21620;}
S_21621:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 15 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||is_error_pending()){
if(qbevent){evnt(18635);if(r)goto S_21621;}
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(18635);}while(r);
}
S_21624:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
if(qbevent){evnt(18636);if(r)goto S_21624;}
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(18636);}while(r);
}
}else{
S_21628:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||is_error_pending()){
if(qbevent){evnt(18638);if(r)goto S_21628;}
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(18638);}while(r);
}
S_21631:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
if(qbevent){evnt(18639);if(r)goto S_21631;}
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(18639);}while(r);
}
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18642);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 16 ;
if(!qbevent)break;evnt(18643);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18644);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 0 ;
if(!qbevent)break;evnt(18648);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SIZE= 0 ;
if(!qbevent)break;evnt(18649);}while(r);
S_21642:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKI",3))))||is_error_pending()){
if(qbevent){evnt(18650);if(r)goto S_21642;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 1 ;
if(!qbevent)break;evnt(18650);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18650);}while(r);
}
S_21646:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKL",3))))||is_error_pending()){
if(qbevent){evnt(18651);if(r)goto S_21646;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 2 ;
if(!qbevent)break;evnt(18651);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18651);}while(r);
}
S_21650:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKS",3))))||is_error_pending()){
if(qbevent){evnt(18652);if(r)goto S_21650;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 3 ;
if(!qbevent)break;evnt(18652);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18652);}while(r);
}
S_21654:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKD",3))))||is_error_pending()){
if(qbevent){evnt(18653);if(r)goto S_21654;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 4 ;
if(!qbevent)break;evnt(18653);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18653);}while(r);
}
S_21658:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3))))||is_error_pending()){
if(qbevent){evnt(18654);if(r)goto S_21658;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= -1 ;
if(!qbevent)break;evnt(18654);}while(r);
}
S_21661:;
if ((*_FUNC_EVALUATEFUNC_LONG_MKTYPE)||is_error_pending()){
if(qbevent){evnt(18655);if(r)goto S_21661;}
S_21662:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_MKTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||is_error_pending()){
if(qbevent){evnt(18656);if(r)goto S_21662;}
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP= 0 ;
if(!qbevent)break;evnt(18658);}while(r);
S_21664:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%%",2))))||is_error_pending()){
if(qbevent){evnt(18659);if(r)goto S_21664;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18659);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18659);}while(r);
}
S_21668:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%%",3))))||is_error_pending()){
if(qbevent){evnt(18660);if(r)goto S_21668;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18660);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18660);}while(r);
}
S_21672:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1))))||is_error_pending()){
if(qbevent){evnt(18661);if(r)goto S_21672;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18661);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18661);}while(r);
}
S_21676:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%",2))))||is_error_pending()){
if(qbevent){evnt(18662);if(r)goto S_21676;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18662);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18662);}while(r);
}
S_21680:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1))))||is_error_pending()){
if(qbevent){evnt(18663);if(r)goto S_21680;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18663);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18663);}while(r);
}
S_21684:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&",2))))||is_error_pending()){
if(qbevent){evnt(18664);if(r)goto S_21684;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18664);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18664);}while(r);
}
S_21688:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&&",2))))||is_error_pending()){
if(qbevent){evnt(18665);if(r)goto S_21688;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18665);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18665);}while(r);
}
S_21692:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&&",3))))||is_error_pending()){
if(qbevent){evnt(18666);if(r)goto S_21692;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18666);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18666);}while(r);
}
S_21696:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1))))||is_error_pending()){
if(qbevent){evnt(18667);if(r)goto S_21696;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18667);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18667);}while(r);
}
S_21700:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(18668);if(r)goto S_21700;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18668);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18668);}while(r);
}
S_21704:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("##",2))))||is_error_pending()){
if(qbevent){evnt(18669);if(r)goto S_21704;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18669);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18669);}while(r);
}
S_21708:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%&",2))))||is_error_pending()){
if(qbevent){evnt(18670);if(r)goto S_21708;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("o",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18670);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18670);}while(r);
}
S_21712:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%&",3))))||is_error_pending()){
if(qbevent){evnt(18671);if(r)goto S_21712;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("uo",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18671);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18671);}while(r);
}
S_21716:;
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(18672);if(r)goto S_21716;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18672);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18672);}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(18672);}while(r);
}
S_21721:;
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(18673);if(r)goto S_21721;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18673);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18673);}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(18673);}while(r);
}
S_21726:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_QTYP== 0 ))||is_error_pending()){
if(qbevent){evnt(18674);if(r)goto S_21726;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("_MK only accepts numeric types",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18674);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18674);}while(r);
}
S_21730:;
if ((*_FUNC_EVALUATEFUNC_LONG_SIZE)||is_error_pending()){
if(qbevent){evnt(18675);if(r)goto S_21730;}
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(18676);}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(18678);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(18680);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_QTYP;
if(!qbevent)break;evnt(18681);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 0 ;
if(!qbevent)break;evnt(18686);}while(r);
S_21740:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVI",3))))||is_error_pending()){
if(qbevent){evnt(18687);if(r)goto S_21740;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 1 ;
if(!qbevent)break;evnt(18687);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18687);}while(r);
}
S_21744:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVL",3))))||is_error_pending()){
if(qbevent){evnt(18688);if(r)goto S_21744;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 2 ;
if(!qbevent)break;evnt(18688);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18688);}while(r);
}
S_21748:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVS",3))))||is_error_pending()){
if(qbevent){evnt(18689);if(r)goto S_21748;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 3 ;
if(!qbevent)break;evnt(18689);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18689);}while(r);
}
S_21752:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVD",3))))||is_error_pending()){
if(qbevent){evnt(18690);if(r)goto S_21752;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 4 ;
if(!qbevent)break;evnt(18690);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18690);}while(r);
}
S_21756:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3))))||is_error_pending()){
if(qbevent){evnt(18691);if(r)goto S_21756;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= -1 ;
if(!qbevent)break;evnt(18691);}while(r);
}
S_21759:;
if ((*_FUNC_EVALUATEFUNC_LONG_CVTYPE)||is_error_pending()){
if(qbevent){evnt(18692);if(r)goto S_21759;}
S_21760:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_CVTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||is_error_pending()){
if(qbevent){evnt(18693);if(r)goto S_21760;}
S_21761:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(18694);if(r)goto S_21761;}
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(18694);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18694);}while(r);
}
S_21765:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18695);if(r)goto S_21765;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2957= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18695);}while(r);
}
S_21768:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18696);if(r)goto S_21768;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18696);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 0 ;
if(!qbevent)break;evnt(18697);}while(r);
S_21772:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%%",2))))||is_error_pending()){
if(qbevent){evnt(18698);if(r)goto S_21772;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18698);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18698);}while(r);
}
S_21776:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%%",3))))||is_error_pending()){
if(qbevent){evnt(18699);if(r)goto S_21776;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18699);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18699);}while(r);
}
S_21780:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1))))||is_error_pending()){
if(qbevent){evnt(18700);if(r)goto S_21780;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18700);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18700);}while(r);
}
S_21784:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%",2))))||is_error_pending()){
if(qbevent){evnt(18701);if(r)goto S_21784;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18701);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18701);}while(r);
}
S_21788:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1))))||is_error_pending()){
if(qbevent){evnt(18702);if(r)goto S_21788;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18702);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18702);}while(r);
}
S_21792:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&",2))))||is_error_pending()){
if(qbevent){evnt(18703);if(r)goto S_21792;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18703);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18703);}while(r);
}
S_21796:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&&",2))))||is_error_pending()){
if(qbevent){evnt(18704);if(r)goto S_21796;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18704);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18704);}while(r);
}
S_21800:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&&",3))))||is_error_pending()){
if(qbevent){evnt(18705);if(r)goto S_21800;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18705);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18705);}while(r);
}
S_21804:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1))))||is_error_pending()){
if(qbevent){evnt(18706);if(r)goto S_21804;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18706);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18706);}while(r);
}
S_21808:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(18707);if(r)goto S_21808;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18707);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18707);}while(r);
}
S_21812:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("##",2))))||is_error_pending()){
if(qbevent){evnt(18708);if(r)goto S_21812;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18708);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18708);}while(r);
}
S_21816:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%&",2))))||is_error_pending()){
if(qbevent){evnt(18709);if(r)goto S_21816;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("o",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18709);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18709);}while(r);
}
S_21820:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%&",3))))||is_error_pending()){
if(qbevent){evnt(18710);if(r)goto S_21820;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("uo",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18710);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18710);}while(r);
}
S_21824:;
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(18711);if(r)goto S_21824;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18711);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18711);}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(18711);}while(r);
}
S_21829:;
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(18712);if(r)goto S_21829;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18712);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(18712);}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(18712);}while(r);
}
S_21834:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TYP== 0 ))||is_error_pending()){
if(qbevent){evnt(18713);if(r)goto S_21834;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("_CV cannot return STRING type!",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18713);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18713);}while(r);
}
S_21838:;
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(18714);if(r)goto S_21838;}
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(18715);}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(18717);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18719);}while(r);
}
}
S_21846:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))),256,1)),qbs_new_txt_len("STRING",6))))||is_error_pending()){
if(qbevent){evnt(18724);if(r)goto S_21846;}
S_21847:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(18725);if(r)goto S_21847;}
S_21848:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18726);if(r)goto S_21848;}
S_21849:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(18727);if(r)goto S_21849;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2960= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18727);}while(r);
}
S_21852:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18728);if(r)goto S_21852;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18728);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP= 64 ;
if(!qbevent)break;evnt(18729);}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(18730);}while(r);
}
}
}
S_21860:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))),256,1)),qbs_new_txt_len("SADD",4))))||is_error_pending()){
if(qbevent){evnt(18736);if(r)goto S_21860;}
S_21861:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(18737);if(r)goto S_21861;}
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(18738);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18738);}while(r);
}
S_21865:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(18740);if(r)goto S_21865;}
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(18741);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18741);}while(r);
}
S_21869:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
if(qbevent){evnt(18743);if(r)goto S_21869;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(18744);}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(18745);}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(18746);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(18747);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18748);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2961= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18750);}while(r);
S_21877:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18751);if(r)goto S_21877;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18751);}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(18752);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(18753);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18754);}while(r);
}
S_21884:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))),256,1)),qbs_new_txt_len("VARPTR",6))))||is_error_pending()){
if(qbevent){evnt(18758);if(r)goto S_21884;}
S_21885:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(18759);if(r)goto S_21885;}
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(18760);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18760);}while(r);
}
S_21889:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+528))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(18763);if(r)goto S_21889;}
S_21890:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
if(qbevent){evnt(18764);if(r)goto S_21890;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(18765);}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(18766);}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(18767);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING;
if(!qbevent)break;evnt(18768);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18769);}while(r);
}
S_21897:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(18772);if(r)goto S_21897;}
S_21898:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(18773);if(r)goto S_21898;}
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(18773);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18773);}while(r);
}
S_21902:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(18774);if(r)goto S_21902;}
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(18774);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18774);}while(r);
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2962= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18779);}while(r);
S_21908:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18780);if(r)goto S_21908;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18780);}while(r);
}
S_21911:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18781);if(r)goto S_21911;}
S_21912:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(18782);if(r)goto S_21912;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2963= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18782);}while(r);
}
S_21915:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18783);if(r)goto S_21915;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18783);}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(18784);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_T= 3 ;
if(!qbevent)break;evnt(18785);}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(18787);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_T= 0 ;
if(!qbevent)break;evnt(18799);}while(r);
S_21923:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(18800);if(r)goto S_21923;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 128 ;
if(!qbevent)break;evnt(18800);}while(r);
}
S_21926:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(18801);if(r)goto S_21926;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 64 ;
if(!qbevent)break;evnt(18802);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 63 );
if(!qbevent)break;evnt(18803);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(18805);}while(r);
S_21931:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(18806);if(r)goto S_21931;}
S_21932:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(18807);if(r)goto S_21932;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 4 ;
if(!qbevent)break;evnt(18807);}while(r);
}
S_21935:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(18808);if(r)goto S_21935;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 8 ;
if(!qbevent)break;evnt(18808);}while(r);
}
S_21938:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 256 ))||is_error_pending()){
if(qbevent){evnt(18809);if(r)goto S_21938;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 6 ;
if(!qbevent)break;evnt(18809);}while(r);
}
}else{
S_21942:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||is_error_pending()){
if(qbevent){evnt(18811);if(r)goto S_21942;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 1 ;
if(!qbevent)break;evnt(18811);}while(r);
}
S_21945:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||is_error_pending()){
if(qbevent){evnt(18812);if(r)goto S_21945;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 2 ;
if(!qbevent)break;evnt(18812);}while(r);
}
S_21948:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(18813);if(r)goto S_21948;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 20 ;
if(!qbevent)break;evnt(18813);}while(r);
}
S_21951:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(18814);if(r)goto S_21951;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 5 ;
if(!qbevent)break;evnt(18814);}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(18818);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING;
if(!qbevent)break;evnt(18819);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18820);}while(r);
}
S_21961:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
if(qbevent){evnt(18834);if(r)goto S_21961;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(18835);}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(18836);}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(18837);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(18838);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18839);}while(r);
}
S_21968:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(18842);if(r)goto S_21968;}
S_21969:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(18843);if(r)goto S_21969;}
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(18843);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18843);}while(r);
}
S_21973:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18846);if(r)goto S_21973;}
S_21974:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(18847);if(r)goto S_21974;}
do{
SUB_GETID(&(pass2964=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18848);}while(r);
S_21976:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18849);if(r)goto S_21976;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18849);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_M=*(int32*)(((char*)__UDT_ID)+((0+540)));
if(!qbevent)break;evnt(18850);}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(18851);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(18852);}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(18853);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18854);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2966= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18857);}while(r);
S_21986:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18858);if(r)goto S_21986;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18858);}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(18859);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(18860);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18861);}while(r);
}
}
S_21994:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(18865);if(r)goto S_21994;}
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(18866);}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(18867);}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(18868);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(18869);}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(18870);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18871);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_M=(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )/  8 ;
if(!qbevent)break;evnt(18875);}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(18876);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(18877);}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(18878);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18879);}while(r);
}
S_22008:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(18885);if(r)goto S_22008;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2971= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18886);}while(r);
S_22010:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18887);if(r)goto S_22010;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18887);}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(18888);}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(18889);}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(18890);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(18891);}while(r);
do{
SUB_GETID(&(pass2975=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18894);}while(r);
S_22018:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18895);if(r)goto S_22018;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18895);}while(r);
}
S_22021:;
if ((*(int16*)(((char*)__UDT_ID)+((0+2859))))||is_error_pending()){
if(qbevent){evnt(18896);if(r)goto S_22021;}
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(18898);}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(18901);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18904);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(18907);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2976= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18908);}while(r);
S_22030:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18909);if(r)goto S_22030;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18909);}while(r);
}
S_22033:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18910);if(r)goto S_22033;}
S_22034:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(18911);if(r)goto S_22034;}
do{
SUB_GETID(&(pass2977=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18914);}while(r);
S_22036:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18915);if(r)goto S_22036;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18915);}while(r);
}
S_22039:;
if ((*(int16*)(((char*)__UDT_ID)+((0+2859))))||is_error_pending()){
if(qbevent){evnt(18916);if(r)goto S_22039;}
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(18917);}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(18919);}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(18923);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18925);}while(r);
}
do{
SUB_GETID(&(pass2978=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18930);}while(r);
S_22050:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18931);if(r)goto S_22050;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18931);}while(r);
}
S_22053:;
if ((*(int16*)(((char*)__UDT_ID)+((0+2859))))||is_error_pending()){
if(qbevent){evnt(18932);if(r)goto S_22053;}
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(18933);}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(18935);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18938);}while(r);
}
S_22060:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))),256,1)),qbs_new_txt_len("VARSEG",6))))||is_error_pending()){
if(qbevent){evnt(18942);if(r)goto S_22060;}
S_22061:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(18943);if(r)goto S_22061;}
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(18944);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18944);}while(r);
}
S_22065:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
if(qbevent){evnt(18946);if(r)goto S_22065;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(18947);}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(18948);}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(18949);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(18950);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18951);}while(r);
}
S_22072:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(18954);if(r)goto S_22072;}
S_22073:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(18955);if(r)goto S_22073;}
S_22074:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18956);if(r)goto S_22074;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18957);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(18958);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18959);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(18962);}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,&(pass2979= 1 ))),qbs_new_txt_len("[0])) - ((ptrszint)(&cmem[0])) ) /16)",37)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18963);}while(r);
S_22082:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18964);if(r)goto S_22082;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18964);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18965);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(18969);}while(r);
do{
SUB_GETID(&(pass2980=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18971);}while(r);
S_22089:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18972);if(r)goto S_22089;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18972);}while(r);
}
S_22092:;
if (((-(*(int16*)(((char*)__UDT_ID)+((0+2859)))!= 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
if(qbevent){evnt(18973);if(r)goto S_22092;}
S_22093:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(18974);if(r)goto S_22093;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2981= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18975);}while(r);
S_22095:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18976);if(r)goto S_22095;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18976);}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(18977);}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(18978);}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(18979);}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(18980);}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,&(pass2985= 1 ))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18982);}while(r);
S_22104:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18983);if(r)goto S_22104;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18983);}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(18987);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(18989);}while(r);
}
S_22113:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -2 ))||is_error_pending()){
if(qbevent){evnt(19015);if(r)goto S_22113;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2986= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19016);}while(r);
S_22115:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19017);if(r)goto S_22115;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19017);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(19018);}while(r);
}
S_22120:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -7 ))||is_error_pending()){
if(qbevent){evnt(19021);if(r)goto S_22120;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2987= -7 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19022);}while(r);
S_22122:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19023);if(r)goto S_22122;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19023);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(19024);}while(r);
}
S_22127:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -8 ))||is_error_pending()){
if(qbevent){evnt(19027);if(r)goto S_22127;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2988= -8 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19028);}while(r);
S_22129:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19029);if(r)goto S_22129;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19029);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(19030);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 0 ;
if(!qbevent)break;evnt(19034);}while(r);
S_22135:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -1 ))||is_error_pending()){
if(qbevent){evnt(19035);if(r)goto S_22135;}
do{
*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 1 ;
if(!qbevent)break;evnt(19036);}while(r);
S_22137:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(19037);if(r)goto S_22137;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19037);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19037);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(19038);}while(r);
S_22142:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(19039);if(r)goto S_22142;}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19039);}while(r);
}
}
S_22146:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(19043);if(r)goto S_22146;}
S_22147:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE== 0 ))||is_error_pending()){
if(qbevent){evnt(19044);if(r)goto S_22147;}
S_22148:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(19047);if(r)goto S_22148;}
S_22149:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(19048);if(r)goto S_22149;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19048);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19048);}while(r);
}
S_22153:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(19049);if(r)goto S_22153;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19049);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19049);}while(r);
}
S_22157:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19050);if(r)goto S_22157;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2989;
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 skip2989;
skip2989:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19050);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP;
if(!qbevent)break;evnt(19053);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(19053);}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(19054);}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(19055);}while(r);
S_22164:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||is_error_pending()){
if(qbevent){evnt(19056);if(r)goto S_22164;}
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(19056);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19056);}while(r);
}
S_22168:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||is_error_pending()){
if(qbevent){evnt(19059);if(r)goto S_22168;}
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_S1=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19062);}while(r);
S_22171:;
if ((*_FUNC_EVALUATEFUNC_LONG_S1)||is_error_pending()){
if(qbevent){evnt(19063);if(r)goto S_22171;}
do{
*_FUNC_EVALUATEFUNC_LONG_S2=func_instr(*_FUNC_EVALUATEFUNC_LONG_S1+1,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19064);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_S2= 0 ;
if(!qbevent)break;evnt(19066);}while(r);
}
S_22176:;
if ((*_FUNC_EVALUATEFUNC_LONG_S2)||is_error_pending()){
if(qbevent){evnt(19069);if(r)goto S_22176;}
do{
*_FUNC_EVALUATEFUNC_LONG_S3=func_instr(*_FUNC_EVALUATEFUNC_LONG_S2+1,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19070);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_S3= 0 ;
if(!qbevent)break;evnt(19072);}while(r);
}
S_22181:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_S3== 0 ))||is_error_pending()){
if(qbevent){evnt(19075);if(r)goto S_22181;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19075);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19075);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_S2+1,*_FUNC_EVALUATEFUNC_LONG_S3-*_FUNC_EVALUATEFUNC_LONG_S2-1,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19077);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_O,func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_S3+1,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19078);}while(r);
S_22187:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
if(qbevent){evnt(19080);if(r)goto S_22187;}
S_22188:;
if ((-(((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(19081);if(r)goto S_22188;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19081);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19081);}while(r);
}
S_22192:;
}else{
if (qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_O, 4 ),qbs_new_txt_len("(0)*",4)))|(qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_O, 5 ),qbs_new_txt_len("((0)*",5))))){
if(qbevent){evnt(19083);if(r)goto S_22192;}
}else{
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19086);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19086);}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(19091);}while(r);
do{
SUB_GETID(_FUNC_EVALUATEFUNC_LONG_IDNUM);
if(!qbevent)break;evnt(19092);}while(r);
S_22200:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19093);if(r)goto S_22200;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19093);}while(r);
}
S_22203:;
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(19095);if(r)goto S_22203;}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+1213))),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19096);}while(r);
S_22205:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+540)))!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE))||is_error_pending()){
if(qbevent){evnt(19097);if(r)goto S_22205;}
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(19097);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19097);}while(r);
}
}
S_22210:;
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(19100);if(r)goto S_22210;}
S_22211:;
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(19101);if(r)goto S_22211;}
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(19102);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(19104);}while(r);
}
}
S_22216:;
if ((-(*(int32*)(((char*)__UDT_ID)+((0+2847)))== 0 ))||is_error_pending()){
if(qbevent){evnt(19110);if(r)goto S_22216;}
S_22217:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_NELEREQ== 0 ))||is_error_pending()){
if(qbevent){evnt(19115);if(r)goto S_22217;}
S_22218:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))!= -1 ))||is_error_pending()){
if(qbevent){evnt(19119);if(r)goto S_22218;}
do{
*_FUNC_EVALUATEFUNC_LONG_NELEREQ=*(int16*)(((char*)__UDT_ID)+((0+516)));
if(!qbevent)break;evnt(19120);}while(r);
do{
sub_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2747))),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,func_chr(*_FUNC_EVALUATEFUNC_LONG_NELEREQ),1);
if(!qbevent)break;evnt(19121);}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))+ 0),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 0), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 256),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 256), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 512),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 512), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 516),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 516), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 518),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 518), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 520),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 520), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 528),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 528), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 536),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 536), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 540),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 540), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 544),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 544), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 546),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 546), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 548),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 548), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 550),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 550), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 806),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 806), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 808),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 808), 1);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 809),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 809), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 811),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 811), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 813),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 813), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 1213),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 1213), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 1613),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 1613), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 1869),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 1869), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2125),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2125), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2381),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2381), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2385),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2385), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2641),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2641), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2645),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2645), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2647),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2647), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2747),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2747), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2847),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2847), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2851),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2851), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2853),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2853), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2855),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2855), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+0))+ 2859),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+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+0))+ 2861), *(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2861));
if(!qbevent)break;evnt(19124);}while(r);
}else{
S_22224:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))!=*_FUNC_EVALUATEFUNC_LONG_NELEREQ))||is_error_pending()){
if(qbevent){evnt(19137);if(r)goto S_22224;}
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(19137);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19137);}while(r);
}
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2995= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19145);}while(r);
S_22231:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19146);if(r)goto S_22231;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19146);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(19147);}while(r);
}
S_22236:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(19165);if(r)goto S_22236;}
S_22237:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(19166);if(r)goto S_22237;}
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(19167);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP;
if(!qbevent)break;evnt(19169);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(19169);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_ARR= 0 ;
if(!qbevent)break;evnt(19172);}while(r);
S_22242:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(19172);if(r)goto S_22242;}
do{
*_FUNC_EVALUATEFUNC_LONG_ARR= 1 ;
if(!qbevent)break;evnt(19172);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 0 ;
if(!qbevent)break;evnt(19173);}while(r);
S_22246:;
if (((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(19173);if(r)goto S_22246;}
do{
*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 1 ;
if(!qbevent)break;evnt(19173);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2-*__LONG_ISUDT;
if(!qbevent)break;evnt(19173);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
if(!qbevent)break;evnt(19176);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
if(!qbevent)break;evnt(19177);}while(r);
S_22252:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2==*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||is_error_pending()){
if(qbevent){evnt(19180);if(r)goto S_22252;}
S_22253:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(19182);if(r)goto S_22253;}
do{
*_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19186);}while(r);
do{
SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID);
if(!qbevent)break;evnt(19187);}while(r);
S_22256:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19188);if(r)goto S_22256;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19188);}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(19189);}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(19190);}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(19191);}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(19192);}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(19193);}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(19194);}while(r);
S_22265:;
if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||is_error_pending()){
if(qbevent){evnt(19197);if(r)goto S_22265;}
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+0))),256,1))),qbs_new_txt_len("[0]",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19198);}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+0))),256,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19200);}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(19203);}while(r);
S_22271:;
if ((*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT)||is_error_pending()){
if(qbevent){evnt(19206);if(r)goto S_22271;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2997=*_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(19206);}while(r);
}
S_22274:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19207);if(r)goto S_22274;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19207);}while(r);
}
}else{
S_22278:;
if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||is_error_pending()){
if(qbevent){evnt(19211);if(r)goto S_22278;}
S_22279:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(19212);if(r)goto S_22279;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass _BIT array offsets",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19212);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19212);}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,&(pass2998= 0 ))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19213);}while(r);
S_22284:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19214);if(r)goto S_22284;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19214);}while(r);
}
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2999= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19216);}while(r);
S_22289:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19217);if(r)goto S_22289;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19217);}while(r);
}
}
S_22293:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||is_error_pending()){
if(qbevent){evnt(19221);if(r)goto S_22293;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass3000=*_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(19222);}while(r);
S_22295:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19223);if(r)goto S_22295;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19223);}while(r);
}
}
}
S_22300:;
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(19229);if(r)goto S_22300;}
S_22301:;
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(19230);if(r)goto S_22301;}
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(19231);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(19232);}while(r);
}
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(19236);}while(r);
}
}
}else{
S_22310:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(19254);if(r)goto S_22310;}
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(19255);}while(r);
S_22312:;
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(19256);if(r)goto S_22312;}
S_22313:;
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(19257);if(r)goto S_22313;}
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(19258);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(19259);}while(r);
}
}
}
}
}
}
S_22322:;
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(19282);if(r)goto S_22322;}
S_22323:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(19283);if(r)goto S_22323;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG;
if(!qbevent)break;evnt(19284);}while(r);
S_22325:;
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
if(qbevent){evnt(19285);if(r)goto S_22325;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ;
if(!qbevent)break;evnt(19285);}while(r);
}
S_22328:;
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(19286);if(r)goto S_22328;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("String required for function",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19286);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19286);}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(19287);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19287);}while(r);
}
}
S_22336:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(19290);if(r)goto S_22336;}
S_22337:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(19291);if(r)goto S_22337;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG;
if(!qbevent)break;evnt(19292);}while(r);
S_22339:;
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
if(qbevent){evnt(19293);if(r)goto S_22339;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ;
if(!qbevent)break;evnt(19293);}while(r);
}
S_22342:;
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(19294);if(r)goto S_22342;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19294);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19294);}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(19295);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19295);}while(r);
}
}
S_22350:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(19300);if(r)goto S_22350;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3001= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19301);}while(r);
S_22352:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19302);if(r)goto S_22352;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19302);}while(r);
}
}
S_22356:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE== 0 ))||is_error_pending()){
if(qbevent){evnt(19305);if(r)goto S_22356;}
S_22357:;
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(19306);if(r)goto S_22357;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG;
if(!qbevent)break;evnt(19307);}while(r);
S_22359:;
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
if(qbevent){evnt(19308);if(r)goto S_22359;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ;
if(!qbevent)break;evnt(19308);}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(19309);}while(r);
S_22363:;
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(19310);if(r)goto S_22363;}
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(19310);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19310);}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(19311);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19311);}while(r);
}
}else{
S_22371:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(19314);if(r)goto S_22371;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19314);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19314);}while(r);
}
}
S_22376:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(19318);if(r)goto S_22376;}
S_22377:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(19319);if(r)goto S_22377;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 ;
if(!qbevent)break;evnt(19321);}while(r);
S_22379:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||is_error_pending()){
if(qbevent){evnt(19322);if(r)goto S_22379;}
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(19322);}while(r);
}
S_22382:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS< 32 )))||is_error_pending()){
if(qbevent){evnt(19323);if(r)goto S_22382;}
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(19323);}while(r);
}
S_22385:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS>= 32 ))||is_error_pending()){
if(qbevent){evnt(19324);if(r)goto S_22385;}
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(19324);}while(r);
}
}
}
S_22390:;
if ((*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE)||is_error_pending()){
if(qbevent){evnt(19328);if(r)goto S_22390;}
S_22391:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(19329);if(r)goto S_22391;}
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(19331);}while(r);
}else{
S_22394:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(19333);if(r)goto S_22394;}
S_22395:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||is_error_pending()){
if(qbevent){evnt(19334);if(r)goto S_22395;}
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(19334);}while(r);
}
S_22398:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||is_error_pending()){
if(qbevent){evnt(19335);if(r)goto S_22398;}
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(19335);}while(r);
}
S_22401:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 256 ))||is_error_pending()){
if(qbevent){evnt(19336);if(r)goto S_22401;}
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(19336);}while(r);
}
}else{
S_22405:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(19338);if(r)goto S_22405;}
S_22406:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 8 ))||is_error_pending()){
if(qbevent){evnt(19339);if(r)goto S_22406;}
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(19339);}while(r);
}
S_22409:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 16 ))||is_error_pending()){
if(qbevent){evnt(19340);if(r)goto S_22409;}
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(19340);}while(r);
}
S_22412:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||is_error_pending()){
if(qbevent){evnt(19341);if(r)goto S_22412;}
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(19341);}while(r);
}
S_22415:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||is_error_pending()){
if(qbevent){evnt(19342);if(r)goto S_22415;}
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(19342);}while(r);
}
}else{
S_22419:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 8 ))||is_error_pending()){
if(qbevent){evnt(19344);if(r)goto S_22419;}
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(19344);}while(r);
}
S_22422:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 16 ))||is_error_pending()){
if(qbevent){evnt(19345);if(r)goto S_22422;}
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(19345);}while(r);
}
S_22425:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||is_error_pending()){
if(qbevent){evnt(19346);if(r)goto S_22425;}
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(19346);}while(r);
}
S_22428:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||is_error_pending()){
if(qbevent){evnt(19347);if(r)goto S_22428;}
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(19347);}while(r);
}
}
}
}
}
S_22435:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(19354);if(r)goto S_22435;}
S_22436:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(19355);if(r)goto S_22436;}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(19355);}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(19357);}while(r);
S_22440:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19358);if(r)goto S_22440;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19358);}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(19359);}while(r);
S_22444:;
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(19361);if(r)goto S_22444;}
do{
*_FUNC_EVALUATEFUNC_LONG_BYTESREQ=((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )+ 7 )/  8 ;
if(!qbevent)break;evnt(19362);}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(19363);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3002=*__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(19364);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3003=*__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(19365);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3004=*__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(19366);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3005=*__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(19367);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3006=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19368);}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(19369);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass3007=*__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(19371);}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(19372);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(19374);}while(r);
}
LABEL_DONTEVALUATE:;
if(qbevent){evnt(19377);r=0;}
S_22459:;
if ((*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+806))))||is_error_pending()){
if(qbevent){evnt(19379);if(r)goto S_22459;}
S_22460:;
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(19382);if(r)goto S_22460;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REMOVECAST(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19383);}while(r);
}
S_22463:;
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(19386);if(r)goto S_22463;}
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(19387);}while(r);
}
S_22466:;
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(19390);if(r)goto S_22466;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("NULL",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19390);}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(19394);}while(r);
S_22471:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4))))||is_error_pending()){
if(qbevent){evnt(19397);if(r)goto S_22471;}
S_22472:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||is_error_pending()){
if(qbevent){evnt(19398);if(r)goto S_22472;}
S_22473:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(19399);if(r)goto S_22473;}
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(19399);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(19399);}while(r);
}
}
S_22478:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||is_error_pending()){
if(qbevent){evnt(19401);if(r)goto S_22478;}
S_22479:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(19402);if(r)goto S_22479;}
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(19402);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(19402);}while(r);
}
}
}
S_22485:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_I!=*_FUNC_EVALUATEFUNC_LONG_N))&(-(*_FUNC_EVALUATEFUNC_LONG_NOCOMMA== 0 )))||is_error_pending()){
if(qbevent){evnt(19406);if(r)goto S_22485;}
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(19406);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
if(!qbevent)break;evnt(19407);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ;
if(!qbevent)break;evnt(19408);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ;
if(!qbevent)break;evnt(19409);}while(r);
}
fornext_continue_2906:;
}
fornext_exit_2906:;
S_22493:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_CURARG<=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+809)))))&(~(*(int8*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+808))))))||is_error_pending()){
if(qbevent){evnt(19416);if(r)goto S_22493;}
S_22494:;
fornext_value3009=*_FUNC_EVALUATEFUNC_LONG_CURARG;
fornext_finalvalue3009=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+809)));
fornext_step3009= 1 ;
if (fornext_step3009<0) fornext_step_negative3009=1; else fornext_step_negative3009=0;
if (is_error_pending()) goto fornext_error3009;
goto fornext_entrylabel3009;
while(1){
fornext_value3009=fornext_step3009+(*_FUNC_EVALUATEFUNC_LONG_I);
fornext_entrylabel3009:
*_FUNC_EVALUATEFUNC_LONG_I=fornext_value3009;
if (fornext_step_negative3009){
if (fornext_value3009<fornext_finalvalue3009) break;
}else{
if (fornext_value3009>fornext_finalvalue3009) break;
}
fornext_error3009:;
if(qbevent){evnt(19417);if(r)goto S_22494;}
S_22495:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(19418);if(r)goto S_22495;}
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(19418);}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(19418);}while(r);
}
fornext_continue_3008:;
}
fornext_exit_3008:;
}
}
S_22503:;
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(19423);if(r)goto S_22503;}
S_22504:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5))))||is_error_pending()){
if(qbevent){evnt(19424);if(r)goto S_22504;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19424);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_DIM_EXPR,func_mid(_FUNC_EVALUATEFUNC_STRING_R, 2 ,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19425);}while(r);
S_22508:;
if ((*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED)||is_error_pending()){
if(qbevent){evnt(19430);if(r)goto S_22508;}
do{
*_FUNC_EVALUATEFUNC_LONG_S1=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,__STRING1_SP3,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19431);}while(r);
S_22510:;
if ((*_FUNC_EVALUATEFUNC_LONG_S1)||is_error_pending()){
if(qbevent){evnt(19432);if(r)goto S_22510;}
do{
*_FUNC_EVALUATEFUNC_LONG_S2=func_instr(*_FUNC_EVALUATEFUNC_LONG_S1+1,_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19432);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_S2= 0 ;
if(!qbevent)break;evnt(19432);}while(r);
}
S_22515:;
if ((*_FUNC_EVALUATEFUNC_LONG_S2)||is_error_pending()){
if(qbevent){evnt(19433);if(r)goto S_22515;}
do{
*_FUNC_EVALUATEFUNC_LONG_S3=func_instr(*_FUNC_EVALUATEFUNC_LONG_S2+1,_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,__STRING1_SP3,0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19434);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_S3= 0 ;
if(!qbevent)break;evnt(19436);}while(r);
}
S_22520:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_S3== 0 ))||is_error_pending()){
if(qbevent){evnt(19439);if(r)goto S_22520;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19439);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19439);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_EPOS1=*_FUNC_EVALUATEFUNC_LONG_S2+1;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19441);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_EPOS2=*_FUNC_EVALUATEFUNC_LONG_S3- 1 ;
if(!qbevent)break;evnt(19442);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,*_FUNC_EVALUATEFUNC_LONG_EPOS1,*_FUNC_EVALUATEFUNC_LONG_EPOS2-*_FUNC_EVALUATEFUNC_LONG_EPOS1+ 1 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19443);}while(r);
S_22527:;
if ((-(((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(19444);if(r)goto S_22527;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19444);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19444);}while(r);
}
S_22531:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6))))||is_error_pending()){
if(qbevent){evnt(19446);if(r)goto S_22531;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_UDTARRAYBOUNDEXPR(((qbs*)(((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5])])),(&(((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])])),_FUNC_EVALUATEFUNC_STRING_DIM_EXPR,&(pass3013= -1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19447);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_UDTARRAYBOUNDEXPR(((qbs*)(((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5])])),(&(((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])])),_FUNC_EVALUATEFUNC_STRING_DIM_EXPR,&(pass3014= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19449);}while(r);
}
S_22536:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19451);if(r)goto S_22536;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19451);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19453);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(19454);}while(r);
}
S_22542:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6))))||is_error_pending()){
if(qbevent){evnt(19457);if(r)goto S_22542;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_ubound(",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19457);}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(19457);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3015= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19458);}while(r);
S_22548:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19459);if(r)goto S_22548;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19459);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+((0+516)));
if(!qbevent)break;evnt(19462);}while(r);
S_22552:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS== -1 ))||is_error_pending()){
if(qbevent){evnt(19463);if(r)goto S_22552;}
do{
*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS= 1 ;
if(!qbevent)break;evnt(19463);}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(19466);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19467);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(19468);}while(r);
}
S_22559:;
if ((*_FUNC_EVALUATEFUNC_LONG_PASSOMIT)||is_error_pending()){
if(qbevent){evnt(19471);if(r)goto S_22559;}
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(19472);}while(r);
S_22561:;
if ((*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG)||is_error_pending()){
if(qbevent){evnt(19474);if(r)goto S_22561;}
S_22562:;
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(19475);if(r)goto S_22562;}
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(19475);}while(r);
}
}else{
S_22566:;
fornext_value3017=*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT;
fornext_finalvalue3017=func_ubound(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,1,1);
fornext_step3017= 1 ;
if (fornext_step3017<0) fornext_step_negative3017=1; else fornext_step_negative3017=0;
if (is_error_pending()) goto fornext_error3017;
goto fornext_entrylabel3017;
while(1){
fornext_value3017=fornext_step3017+(*_FUNC_EVALUATEFUNC_LONG_I);
fornext_entrylabel3017:
*_FUNC_EVALUATEFUNC_LONG_I=fornext_value3017;
if (fornext_step_negative3017){
if (fornext_value3017<fornext_finalvalue3017) break;
}else{
if (fornext_value3017>fornext_finalvalue3017) break;
}
fornext_error3017:;
if(qbevent){evnt(19477);if(r)goto S_22566;}
S_22567:;
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(19478);if(r)goto S_22567;}
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(19478);}while(r);
}
fornext_continue_3016:;
}
fornext_exit_3016:;
}
}
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(19482);}while(r);
LABEL_EVALFUNCSPECIAL:;
if(qbevent){evnt(19484);r=0;}
S_22574:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ABS",3))))||is_error_pending()){
if(qbevent){evnt(19486);if(r)goto S_22574;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(19486);}while(r);
}
S_22577:;
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(19489);if(r)goto S_22577;}
do{
*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ;
if(!qbevent)break;evnt(19490);}while(r);
S_22579:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(19491);if(r)goto S_22579;}
S_22580:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 64 ))||is_error_pending()){
if(qbevent){evnt(19493);if(r)goto S_22580;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19493);}while(r);
}
S_22583:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 32 ))||is_error_pending()){
if(qbevent){evnt(19494);if(r)goto S_22583;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19494);}while(r);
}
}else{
S_22587:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 32 ))||is_error_pending()){
if(qbevent){evnt(19497);if(r)goto S_22587;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19497);}while(r);
}
S_22590:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 16 ))||is_error_pending()){
if(qbevent){evnt(19498);if(r)goto S_22590;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19498);}while(r);
}
}
}
S_22595:;
if ((-(*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2381)))==(*__LONG_ISUDT+( 1 ))))||is_error_pending()){
if(qbevent){evnt(19502);if(r)goto S_22595;}
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(19504);}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(19505);}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(19506);}while(r);
}
S_22600:;
if ((*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+806))))||is_error_pending()){
if(qbevent){evnt(19509);if(r)goto S_22600;}
S_22601:;
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(19510);if(r)goto S_22601;}
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(19511);}while(r);
}
}
S_22605:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19515);if(r)goto S_22605;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3018;
sub_file_print(tmp_fileno,qbs_new_txt_len("evaluatefunc:out:",17), 0, 0, 0);
if (is_error_pending()) goto skip3018;
sub_file_print(tmp_fileno,_FUNC_EVALUATEFUNC_STRING_R, 0, 0, 1);
if (is_error_pending()) goto skip3018;
skip3018:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19515);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC,_FUNC_EVALUATEFUNC_STRING_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19516);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free28.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;
}
