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 "data55.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19706);}while(r);
do{
if(!qbevent)break;evnt(19708);}while(r);
do{
if(!qbevent)break;evnt(19709);}while(r);
do{
if(!qbevent)break;evnt(19710);}while(r);
do{
if(!qbevent)break;evnt(19711);}while(r);
do{
if(!qbevent)break;evnt(19712);}while(r);
do{
if(!qbevent)break;evnt(19713);}while(r);
do{
if(!qbevent)break;evnt(19714);}while(r);
do{
if(!qbevent)break;evnt(19715);}while(r);
do{
if(!qbevent)break;evnt(19716);}while(r);
S_22775:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19719);if(r)goto S_22775;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3294;
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 skip3294;
skip3294:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19719);}while(r);
}
do{
if(!qbevent)break;evnt(19721);}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), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 522),(((char*)__UDT_ID)+((0+0))+ 522), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 524),(((char*)__UDT_ID)+((0+0))+ 524), 8);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 532),(((char*)__UDT_ID)+((0+0))+ 532), 8);
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), 4);
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), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 552),(((char*)__UDT_ID)+((0+0))+ 552), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 554),(((char*)__UDT_ID)+((0+0))+ 554), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 810),(((char*)__UDT_ID)+((0+0))+ 810), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 812),(((char*)__UDT_ID)+((0+0))+ 812), 1);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 813),(((char*)__UDT_ID)+((0+0))+ 813), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 815),(((char*)__UDT_ID)+((0+0))+ 815), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 817),(((char*)__UDT_ID)+((0+0))+ 817), 400);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 1217),(((char*)__UDT_ID)+((0+0))+ 1217), 400);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 1617),(((char*)__UDT_ID)+((0+0))+ 1617), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 1873),(((char*)__UDT_ID)+((0+0))+ 1873), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2129),(((char*)__UDT_ID)+((0+0))+ 2129), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2385),(((char*)__UDT_ID)+((0+0))+ 2385), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2389),(((char*)__UDT_ID)+((0+0))+ 2389), 256);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2645),(((char*)__UDT_ID)+((0+0))+ 2645), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2649),(((char*)__UDT_ID)+((0+0))+ 2649), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2651),(((char*)__UDT_ID)+((0+0))+ 2651), 100);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2751),(((char*)__UDT_ID)+((0+0))+ 2751), 100);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2851),(((char*)__UDT_ID)+((0+0))+ 2851), 100);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2951),(((char*)__UDT_ID)+((0+0))+ 2951), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2955),(((char*)__UDT_ID)+((0+0))+ 2955), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2957),(((char*)__UDT_ID)+((0+0))+ 2957), 2);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2959),(((char*)__UDT_ID)+((0+0))+ 2959), 4);
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2963),(((char*)__UDT_ID)+((0+0))+ 2963), 2);
qbs_set(*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2965), *(qbs**)(((char*)__UDT_ID)+((0+0))+ 2965));
if(!qbevent)break;evnt(19723);}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(19724);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2385)));
if(!qbevent)break;evnt(19725);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETID=*__LONG_CURRENTID;
if(!qbevent)break;evnt(19726);}while(r);
S_22783:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+554))),256,1)),qbs_new_txt_len("func_stub",9))))||is_error_pending()){
if(qbevent){evnt(19728);if(r)goto S_22783;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Command not implemented",23));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19728);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19728);}while(r);
}
S_22787:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+554))),256,1)),qbs_new_txt_len("func_input",10)))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))&(-(*__BYTE_INPUTFUNCTIONCALLED== 0 ))))||is_error_pending()){
if(qbevent){evnt(19729);if(r)goto S_22787;}
do{
*__BYTE_INPUTFUNCTIONCALLED= -1 ;
if(!qbevent)break;evnt(19730);}while(r);
S_22789:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(19731);if(r)goto S_22789;}
do{
SUB_WRITEBUFLINE(&(pass3295=*__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(19732);}while(r);
}
}
do{
SUB_SETDEPENDENCY(&(pass3296=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+550)))));
if(!qbevent)break;evnt(19736);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT=FUNC_COUNTFUNCTIONELEMENTS(_FUNC_EVALUATEFUNC_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19738);}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(19739);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 0 ;
if(!qbevent)break;evnt(19741);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG= 0 ;
if(!qbevent)break;evnt(19742);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT= 0 ;
if(!qbevent)break;evnt(19743);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_F,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+1617))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19745);}while(r);
S_22800:;
if ((qbs_cleanup(qbs_tmp_base,_FUNC_EVALUATEFUNC_STRING_F->len))||is_error_pending()){
if(qbevent){evnt(19746);if(r)goto S_22800;}
S_22801:;
fornext_value3299= 1 ;
fornext_finalvalue3299=*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT;
fornext_step3299= 1 ;
if (fornext_step3299<0) fornext_step_negative3299=1; else fornext_step_negative3299=0;
if (is_error_pending()) goto fornext_error3299;
goto fornext_entrylabel3299;
while(1){
fornext_value3299=fornext_step3299+(*_FUNC_EVALUATEFUNC_LONG_FI);
fornext_entrylabel3299:
*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value3299;
if (fornext_step_negative3299){
if (fornext_value3299<fornext_finalvalue3299) break;
}else{
if (fornext_value3299>fornext_finalvalue3299) break;
}
fornext_error3299:;
if(qbevent){evnt(19748);if(r)goto S_22801;}
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(19749);}while(r);
fornext_continue_3298:;
}
fornext_exit_3298:;
S_22804:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_F,qbs_new_txt_len("[?],?,?",7))))||is_error_pending()){
if(qbevent){evnt(19753);if(r)goto S_22804;}
do{
*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG= -1 ;
if(!qbevent)break;evnt(19754);}while(r);
S_22806:;
if ((-(func_ubound(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,1,1)== 2 ))||is_error_pending()){
if(qbevent){evnt(19756);if(r)goto S_22806;}
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(19757);}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(19759);}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(19760);}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(19761);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG= -1 ;
if(!qbevent)break;evnt(19763);}while(r);
}
}
S_22814:;
if ((qbs_cleanup(qbs_tmp_base,~(FUNC_ISVALIDARGSET(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+1617))),256,1),_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT))))||is_error_pending()){
if(qbevent){evnt(19767);if(r)goto S_22814;}
S_22815:;
if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2965))))->len> 0 )))||is_error_pending()){
if(qbevent){evnt(19768);if(r)goto S_22815;}
do{
SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Incorrect number of arguments - Reference: ",43),*((qbs**)((char*)_FUNC_EVALUATEFUNC_UDT_ID2+((0+2965))))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19769);}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(19771);}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19773);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 1 ;
if(!qbevent)break;evnt(19776);}while(r);
}else{
S_22824:;
fornext_value3301= 1 ;
fornext_finalvalue3301=*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT;
fornext_step3301= 1 ;
if (fornext_step3301<0) fornext_step_negative3301=1; else fornext_step_negative3301=0;
if (is_error_pending()) goto fornext_error3301;
goto fornext_entrylabel3301;
while(1){
fornext_value3301=fornext_step3301+(*_FUNC_EVALUATEFUNC_LONG_FI);
fornext_entrylabel3301:
*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value3301;
if (fornext_step_negative3301){
if (fornext_value3301<fornext_finalvalue3301) break;
}else{
if (fornext_value3301>fornext_finalvalue3301) break;
}
fornext_error3301:;
if(qbevent){evnt(19780);if(r)goto S_22824;}
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(19781);}while(r);
fornext_continue_3300:;
}
fornext_exit_3300:;
S_22827:;
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(19784);if(r)goto S_22827;}
do{
goto LABEL_SKIPARGNUMCHK;
if(!qbevent)break;evnt(19784);}while(r);
}
S_22830:;
if (((-(*(int8*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+812)))== -1 ))&(((-(*_FUNC_EVALUATEFUNC_LONG_ARGS>=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+815)))))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS<=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+813))))))))||is_error_pending()){
if(qbevent){evnt(19785);if(r)goto S_22830;}
do{
goto LABEL_SKIPARGNUMCHK;
if(!qbevent)break;evnt(19785);}while(r);
}
S_22833:;
if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+813)))!=*_FUNC_EVALUATEFUNC_LONG_ARGS))||is_error_pending()){
if(qbevent){evnt(19787);if(r)goto S_22833;}
S_22834:;
if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2965))))->len> 0 )))||is_error_pending()){
if(qbevent){evnt(19788);if(r)goto S_22834;}
do{
SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Incorrect number of arguments - Reference: ",43),*((qbs**)((char*)_FUNC_EVALUATEFUNC_UDT_ID2+((0+2965))))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19789);}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(19791);}while(r);
}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19793);}while(r);
}
}
LABEL_SKIPARGNUMCHK:;
if(qbevent){evnt(19798);r=0;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+554))),256,1)),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19800);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_FUNCARGPREP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19801);}while(r);
S_22844:;
if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+813)))!= 0 ))||is_error_pending()){
if(qbevent){evnt(19804);if(r)goto S_22844;}
do{
*_FUNC_EVALUATEFUNC_LONG_CURARG= 1 ;
if(!qbevent)break;evnt(19806);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_FIRSTI= 1 ;
if(!qbevent)break;evnt(19807);}while(r);
S_22847:;
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
if(qbevent){evnt(19811);if(r)goto S_22847;}
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(19812);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_CURARG= 2 ;
if(!qbevent)break;evnt(19813);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATEFUNC_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19816);}while(r);
S_22852:;
fornext_value3303= 1 ;
fornext_finalvalue3303=*_FUNC_EVALUATEFUNC_LONG_N;
fornext_step3303= 1 ;
if (fornext_step3303<0) fornext_step_negative3303=1; else fornext_step_negative3303=0;
if (is_error_pending()) goto fornext_error3303;
goto fornext_entrylabel3303;
while(1){
fornext_value3303=fornext_step3303+(*_FUNC_EVALUATEFUNC_LONG_I);
fornext_entrylabel3303:
*_FUNC_EVALUATEFUNC_LONG_I=fornext_value3303;
if (fornext_step_negative3303){
if (fornext_value3303<fornext_finalvalue3303) break;
}else{
if (fornext_value3303>fornext_finalvalue3303) break;
}
fornext_error3303:;
if(qbevent){evnt(19818);if(r)goto S_22852;}
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(19819);}while(r);
S_22854:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(19820);if(r)goto S_22854;}
do{
*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B+ 1 ;
if(!qbevent)break;evnt(19820);}while(r);
}
S_22857:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(19821);if(r)goto S_22857;}
do{
*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B- 1 ;
if(!qbevent)break;evnt(19821);}while(r);
}
S_22860:;
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(19822);if(r)goto S_22860;}
S_22861:;
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(19823);if(r)goto S_22861;}
S_22862:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||is_error_pending()){
if(qbevent){evnt(19824);if(r)goto S_22862;}
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(19824);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19824);}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(19826);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ;
if(!qbevent)break;evnt(19827);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ;
if(!qbevent)break;evnt(19828);}while(r);
do{
goto fornext_continue_3302;
if(!qbevent)break;evnt(19829);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+817))),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19832);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2651))),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19833);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2751))),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19834);}while(r);
S_22874:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||is_error_pending()){
if(qbevent){evnt(19836);if(r)goto S_22874;}
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(19837);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,&(pass3304=*_FUNC_EVALUATEFUNC_LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19839);}while(r);
}
S_22879:;
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(19842);if(r)goto S_22879;}
do{
*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 1 ;
if(!qbevent)break;evnt(19842);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 0 ;
if(!qbevent)break;evnt(19842);}while(r);
}
S_22884:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("VAL",3))))||is_error_pending()){
if(qbevent){evnt(19846);if(r)goto S_22884;}
S_22885:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(19847);if(r)goto S_22885;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19848);}while(r);
S_22887:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19849);if(r)goto S_22887;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19849);}while(r);
}
S_22890:;
if(qbevent){evnt(19851);if(r)goto S_22890;}
S_22891:;
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(19852);if(r)goto S_22891;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19853);}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(19854);}while(r);
sc_ec_93_end:;
goto sc_3305_end;
}
S_22894:;
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(19856);if(r)goto S_22894;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19857);}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(19858);}while(r);
sc_ec_94_end:;
goto sc_3305_end;
}
S_22897:;
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(19860);if(r)goto S_22897;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19861);}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(19862);}while(r);
sc_ec_95_end:;
goto sc_3305_end;
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("VAL TYPE unsupported",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19865);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19866);}while(r);
sc_3305_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(19869);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
if(!qbevent)break;evnt(19870);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(19872);}while(r);
}
}
S_22909:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CAST",5))))||is_error_pending()){
if(qbevent){evnt(19877);if(r)goto S_22909;}
S_22910:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(19878);if(r)goto S_22910;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19879);}while(r);
S_22912:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19880);if(r)goto S_22912;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19880);}while(r);
}
S_22915:;
if(qbevent){evnt(19882);if(r)goto S_22915;}
S_22916:;
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(19883);if(r)goto S_22916;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=FUNC_TYPNAME2TYP(_FUNC_EVALUATEFUNC_STRING_CASTTYPE)-*__LONG_ISPOINTER;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19884);}while(r);
S_22918:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19885);if(r)goto S_22918;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19885);}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(19887);}while(r);
S_22922:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19888);if(r)goto S_22922;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19888);}while(r);
}
sc_ec_96_end:;
goto sc_3306_end;
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("_CAST TYPE unsupported",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19891);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19892);}while(r);
sc_3306_end:;
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19895);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(19896);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(19898);}while(r);
}
}
S_22934:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3))))||is_error_pending()){
if(qbevent){evnt(19903);if(r)goto S_22934;}
S_22935:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(19904);if(r)goto S_22935;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19905);}while(r);
S_22937:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19906);if(r)goto S_22937;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19906);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19907);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(19908);}while(r);
}
}
S_22944:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3))))||is_error_pending()){
if(qbevent){evnt(19914);if(r)goto S_22944;}
S_22945:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+532))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(19915);if(r)goto S_22945;}
S_22946:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(19916);if(r)goto S_22946;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19917);}while(r);
S_22948:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19918);if(r)goto S_22948;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19918);}while(r);
}
S_22951:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19919);if(r)goto S_22951;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3307;
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 skip3307;
skip3307:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19919);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19920);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(19921);}while(r);
}
}
}
S_22959:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_EMBEDDED",9))))||is_error_pending()){
if(qbevent){evnt(19926);if(r)goto S_22959;}
S_22960:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+532))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(19927);if(r)goto S_22960;}
S_22961:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(19928);if(r)goto S_22961;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19930);}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(19931);}while(r);
S_22964:;
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,func_chr( 13 ),0)> 0 )))||is_error_pending()){
if(qbevent){evnt(19932);if(r)goto S_22964;}
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19932);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19932);}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(19933);}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(19933);}while(r);
S_22970:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_BRA== 0 ))|(-(*_FUNC_EVALUATEFUNC_LONG_KET== 0 )))||is_error_pending()){
if(qbevent){evnt(19934);if(r)goto S_22970;}
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19934);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19934);}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(19935);}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(19936);}while(r);
S_22976:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(19937);if(r)goto S_22976;}
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19937);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19937);}while(r);
}
S_22980:;
sc_3309=qbs_asc(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE, 1 );
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(19939);if(r)goto S_22980;}
S_22981:;
if ((((sc_3309>=( 0 ))&&(sc_3309<=( 64 )))||((sc_3309>=( 91 ))&&(sc_3309<=( 96 )))||((sc_3309>=( 123 ))&&(sc_3309<=( 255 ))))||is_error_pending()){
if(qbevent){evnt(19940);if(r)goto S_22981;}
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(19941);}while(r);
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19942);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19942);}while(r);
sc_ec_97_end:;
goto sc_3309_end;
}
sc_3309_end:;
S_22986:;
fornext_value3311= 2 ;
fornext_finalvalue3311=_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE->len;
fornext_step3311= 1 ;
if (fornext_step3311<0) fornext_step_negative3311=1; else fornext_step_negative3311=0;
if (is_error_pending()) goto fornext_error3311;
goto fornext_entrylabel3311;
while(1){
fornext_value3311=fornext_step3311+(*_FUNC_EVALUATEFUNC_LONG_RSI);
fornext_entrylabel3311:
*_FUNC_EVALUATEFUNC_LONG_RSI=fornext_value3311;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative3311){
if (fornext_value3311<fornext_finalvalue3311) break;
}else{
if (fornext_value3311>fornext_finalvalue3311) break;
}
fornext_error3311:;
if(qbevent){evnt(19944);if(r)goto S_22986;}
S_22987:;
sc_3313=qbs_asc(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,*_FUNC_EVALUATEFUNC_LONG_RSI);
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(19945);if(r)goto S_22987;}
S_22988:;
if ((((sc_3313>=( 0 ))&&(sc_3313<=( 47 )))||((sc_3313>=( 58 ))&&(sc_3313<=( 64 )))||((sc_3313>=( 91 ))&&(sc_3313<=( 96 )))||((sc_3313>=( 123 ))&&(sc_3313<=( 255 ))))||is_error_pending()){
if(qbevent){evnt(19946);if(r)goto S_22988;}
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(19947);}while(r);
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19948);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19948);}while(r);
sc_ec_98_end:;
goto sc_3313_end;
}
sc_3313_end:;
fornext_continue_3310:;
}
fornext_exit_3310:;
do{
*_FUNC_EVALUATEFUNC_LONG_EFLUB=func_ubound(__ARRAY_STRING_EMBEDFILELIST, 2 ,2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19952);}while(r);
S_22995:;
fornext_value3315= 0 ;
fornext_finalvalue3315=*_FUNC_EVALUATEFUNC_LONG_EFLUB;
fornext_step3315= 1 ;
if (fornext_step3315<0) fornext_step_negative3315=1; else fornext_step_negative3315=0;
if (is_error_pending()) goto fornext_error3315;
goto fornext_entrylabel3315;
while(1){
fornext_value3315=fornext_step3315+(*_FUNC_EVALUATEFUNC_LONG_RSI);
fornext_entrylabel3315:
*_FUNC_EVALUATEFUNC_LONG_RSI=fornext_value3315;
if (fornext_step_negative3315){
if (fornext_value3315<fornext_finalvalue3315) break;
}else{
if (fornext_value3315>fornext_finalvalue3315) break;
}
fornext_error3315:;
if(qbevent){evnt(19953);if(r)goto S_22995;}
S_22996:;
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(19954);if(r)goto S_22996;}
do{
goto fornext_exit_3314;
if(!qbevent)break;evnt(19954);}while(r);
}
fornext_continue_3314:;
}
fornext_exit_3314:;
S_23000:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_RSI>*_FUNC_EVALUATEFUNC_LONG_EFLUB))||is_error_pending()){
if(qbevent){evnt(19956);if(r)goto S_23000;}
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(19957);}while(r);
do{
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19958);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19958);}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(19960);}while(r);
}
}
}
}
S_23010:;
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(19966);if(r)goto S_23010;}
S_23011:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(19968);if(r)goto S_23011;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_ORIGINAL_E,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19969);}while(r);
do{
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED= 0 ;
if(!qbevent)break;evnt(19970);}while(r);
do{
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISDYN= 0 ;
if(!qbevent)break;evnt(19971);}while(r);
S_23015:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_HASINDEXEDFINALMEMBERARRAY(_FUNC_EVALUATEFUNC_STRING_ORIGINAL_E)))||is_error_pending()){
if(qbevent){evnt(19973);if(r)goto S_23015;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19974);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19974);}while(r);
}
S_23019:;
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(19994);if(r)goto S_23019;}
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
if(!qbevent)break;evnt(19995);}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(19996);}while(r);
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
if(!qbevent)break;evnt(19997);}while(r);
S_23023:;
if ((-(*__LONG_ERROR_HAPPENED== 0 ))||is_error_pending()){
if(qbevent){evnt(19999);if(r)goto S_23023;}
S_23024:;
if (((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)!= 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)!= 0 )))||is_error_pending()){
if(qbevent){evnt(20000);if(r)goto S_23024;}
do{
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED= -1 ;
if(!qbevent)break;evnt(20001);}while(r);
}
}
}
S_23029:;
if ((*__LONG_ERROR_HAPPENED|(-(*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED== 0 )))||is_error_pending()){
if(qbevent){evnt(20008);if(r)goto S_23029;}
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(20009);}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(20010);}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(20011);}while(r);
S_23033:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20012);if(r)goto S_23033;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20012);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED= 0 ;
if(!qbevent)break;evnt(20013);}while(r);
}
S_23038:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(20016);if(r)goto S_23038;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20016);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20016);}while(r);
}
S_23042:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(20017);if(r)goto S_23042;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20017);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20017);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20019);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_ULBOUNDARRAYTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(20020);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20021);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20022);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(20023);}while(r);
}
}
S_23053:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INPUT",5))))||is_error_pending()){
if(qbevent){evnt(20029);if(r)goto S_23053;}
S_23054:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+532))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(20030);if(r)goto S_23054;}
S_23055:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(20031);if(r)goto S_23055;}
S_23056:;
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(20032);if(r)goto S_23056;}
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(20032);}while(r);
}
}
}
}
S_23062:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ASC",3))))||is_error_pending()){
if(qbevent){evnt(20039);if(r)goto S_23062;}
S_23063:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(20040);if(r)goto S_23063;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E,&(pass3317= 32 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20041);}while(r);
S_23065:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20042);if(r)goto S_23065;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20042);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20043);}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(20044);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20045);}while(r);
}
}
S_23073:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEMGET",7))))||is_error_pending()){
if(qbevent){evnt(20056);if(r)goto S_23073;}
S_23074:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(20057);if(r)goto S_23074;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20058);}while(r);
}
S_23077:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(20060);if(r)goto S_23077;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20061);}while(r);
}
S_23080:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 ))||is_error_pending()){
if(qbevent){evnt(20063);if(r)goto S_23080;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_ucase(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20064);}while(r);
S_23082:;
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(20065);if(r)goto S_23082;}
S_23083:;
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(20066);if(r)goto S_23083;}
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(20067);}while(r);
}else{
S_23086:;
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(20069);if(r)goto S_23086;}
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(20069);}while(r);
}
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_T=FUNC_TYPNAME2TYP(_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20072);}while(r);
S_23092:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_T== 0 ))||is_error_pending()){
if(qbevent){evnt(20073);if(r)goto S_23092;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid TYPE name",17));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20073);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20073);}while(r);
}
S_23096:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
if(qbevent){evnt(20074);if(r)goto S_23096;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("_BIT TYPE unsupported",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20074);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20074);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=*__LONG_TYPNAME2TYPSIZE;
if(!qbevent)break;evnt(20075);}while(r);
S_23101:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(20076);if(r)goto S_23101;}
S_23102:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(20077);if(r)goto S_23102;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * ...",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20077);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20077);}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(20078);}while(r);
}else{
S_23108:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(20080);if(r)goto S_23108;}
do{
*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_T& 4095ll )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])], 8 );
if(!qbevent)break;evnt(20081);}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(20082);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=qb_safe_idiv((*_FUNC_EVALUATEFUNC_LONG_T& 4095ll ), 8 );
if(!qbevent)break;evnt(20084);}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(20085);}while(r);
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_OFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,&(pass3320=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20094);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_BLKOFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,&(pass3321= -6 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20095);}while(r);
S_23118:;
if ((*__LONG_CHECKINGON)||is_error_pending()){
if(qbevent){evnt(20096);if(r)goto S_23118;}
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(20098);}while(r);
}
S_23121:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(20100);if(r)goto S_23121;}
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(20101);}while(r);
}else{
S_23124:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(20103);if(r)goto S_23124;}
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(20104);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_T=*__LONG_ISUDT+*__LONG_ISPOINTER+(*_FUNC_EVALUATEFUNC_LONG_T& 4095ll );
if(!qbevent)break;evnt(20105);}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(20107);}while(r);
S_23129:;
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(20108);if(r)goto S_23129;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20108);}while(r);
}
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_T;
if(!qbevent)break;evnt(20118);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20121);}while(r);
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E2,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20126);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY= 0 ;
if(!qbevent)break;evnt(20128);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMBER_ARRAY_ARG_SOURCE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20129);}while(r);
S_23141:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
if(qbevent){evnt(20133);if(r)goto S_23141;}
do{
*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY= -1 ;
if(!qbevent)break;evnt(20133);}while(r);
}
S_23144:;
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(20134);if(r)goto S_23144;}
do{
*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY= -1 ;
if(!qbevent)break;evnt(20134);}while(r);
}
S_23147:;
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(20135);if(r)goto S_23147;}
do{
*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY= -1 ;
if(!qbevent)break;evnt(20135);}while(r);
}
S_23150:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP>= 0 ))||is_error_pending()){
if(qbevent){evnt(20139);if(r)goto S_23150;}
S_23151:;
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISARRAY)||is_error_pending()){
if(qbevent){evnt(20140);if(r)goto S_23151;}
do{
*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY= -1 ;
if(!qbevent)break;evnt(20141);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMBER_ARRAY_ARG_SOURCE,_FUNC_EVALUATEFUNC_STRING_E2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20142);}while(r);
}
}
S_23156:;
if ((*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY)||is_error_pending()){
if(qbevent){evnt(20146);if(r)goto S_23156;}
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
if(!qbevent)break;evnt(20146);}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(20147);}while(r);
S_23160:;
if ((*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY)||is_error_pending()){
if(qbevent){evnt(20148);if(r)goto S_23160;}
do{
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
if(!qbevent)break;evnt(20148);}while(r);
}
S_23163:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20149);if(r)goto S_23163;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20149);}while(r);
}
S_23166:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALUATEFUNC_STRING_MEMBER_ARRAY_ARG_SOURCE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(20154);if(r)goto S_23166;}
S_23167:;
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_MEMBER_ARRAY_ARG_SOURCE,qbs_new_txt_len(".",1),0)))||is_error_pending()){
if(qbevent){evnt(20155);if(r)goto S_23167;}
S_23168:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISWHOLEMEMBERARRAYREF(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||is_error_pending()){
if(qbevent){evnt(20156);if(r)goto S_23168;}
S_23169:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_HASFINALEMPTYARRAYBRACKETS(_FUNC_EVALUATEFUNC_STRING_MEMBER_ARRAY_ARG_SOURCE)== 0 )))||is_error_pending()){
if(qbevent){evnt(20157);if(r)goto S_23169;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected: Array Name()",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20157);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20157);}while(r);
}
}
}
}
S_23176:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("VAL",3))))||is_error_pending()){
if(qbevent){evnt(20164);if(r)goto S_23176;}
S_23177:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(20165);if(r)goto S_23177;}
S_23178:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||is_error_pending()){
if(qbevent){evnt(20166);if(r)goto S_23178;}
S_23179:;
if ((-((~(FUNC_TYPE_ISSTRING(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(20167);if(r)goto S_23179;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING argument",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20168);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20169);}while(r);
}
S_23183:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(20172);if(r)goto S_23183;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3322= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20172);}while(r);
}
S_23186:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20173);if(r)goto S_23186;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20173);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20175);}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(20176);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20178);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(20181);}while(r);
}
}
}
S_23197:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CAST",5))))||is_error_pending()){
if(qbevent){evnt(20187);if(r)goto S_23197;}
S_23198:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(20188);if(r)goto S_23198;}
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
if(!qbevent)break;evnt(20189);}while(r);
S_23200:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(20191);if(r)goto S_23200;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20192);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20193);}while(r);
}
S_23204:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(20196);if(r)goto S_23204;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3323= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20196);}while(r);
}
S_23207:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20197);if(r)goto S_23207;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20197);}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(20199);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20201);}while(r);
}
}
S_23214:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_IIF",4))))||is_error_pending()){
if(qbevent){evnt(20206);if(r)goto S_23214;}
S_23215:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(20207);if(r)goto S_23215;}
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(20208);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(20209);}while(r);
S_23218:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
if(qbevent){evnt(20210);if(r)goto S_23218;}
S_23219:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(20211);if(r)goto S_23219;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3324= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20211);}while(r);
}
S_23222:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20212);if(r)goto S_23222;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20212);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARG2TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(20214);}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(20216);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20217);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(20218);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(20220);}while(r);
S_23230:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 )){
if(qbevent){evnt(20221);if(r)goto S_23230;}
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
if(!qbevent)break;evnt(20222);}while(r);
S_23232:;
if ((-(FUNC_TYPE_ISSTRING(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)!=FUNC_TYPE_ISSTRING(_FUNC_EVALUATEFUNC_LONG_ARG2TYP)))||is_error_pending()){
if(qbevent){evnt(20224);if(r)goto S_23232;}
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(20225);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20226);}while(r);
}
S_23236:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(20229);if(r)goto S_23236;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3325= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20229);}while(r);
}
S_23239:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20230);if(r)goto S_23239;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20230);}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(20232);}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(20233);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20235);}while(r);
}
}
}
}
S_23247:;
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(20240);if(r)goto S_23247;}
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(20241);}while(r);
S_23249:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(20243);if(r)goto S_23249;}
S_23250:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(20244);if(r)goto S_23250;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20245);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20246);}while(r);
}
S_23254:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(20249);if(r)goto S_23254;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3326= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20249);}while(r);
}
S_23257:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20250);if(r)goto S_23257;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20250);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARG1TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(20252);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20253);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20254);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(20256);}while(r);
S_23264:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
if(qbevent){evnt(20257);if(r)goto S_23264;}
S_23265:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(20258);if(r)goto S_23265;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20259);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20260);}while(r);
}
S_23269:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(20263);if(r)goto S_23269;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3327= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20263);}while(r);
}
S_23272:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20264);if(r)goto S_23272;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20264);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=FUNC_TYPE_PROMOTEARITHMETICTYPE(_FUNC_EVALUATEFUNC_LONG_ARG1TYP,_FUNC_EVALUATEFUNC_LONG_SOURCETYP);
if(!qbevent)break;evnt(20266);}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(20267);}while(r);
S_23277:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20268);if(r)goto S_23277;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20268);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20270);}while(r);
}
}
}
S_23283:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CLAMP",6))))||is_error_pending()){
if(qbevent){evnt(20275);if(r)goto S_23283;}
S_23284:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(20276);if(r)goto S_23284;}
S_23285:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(20277);if(r)goto S_23285;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20278);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20279);}while(r);
}
S_23289:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(20282);if(r)goto S_23289;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3328= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20282);}while(r);
}
S_23292:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20283);if(r)goto S_23292;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20283);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARG1TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(20285);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20286);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20287);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(20289);}while(r);
S_23299:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
if(qbevent){evnt(20290);if(r)goto S_23299;}
S_23300:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(20291);if(r)goto S_23300;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20292);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20293);}while(r);
}
S_23304:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(20296);if(r)goto S_23304;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3329= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20296);}while(r);
}
S_23307:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20297);if(r)goto S_23307;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20297);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARG2TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(20299);}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(20300);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20301);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(20303);}while(r);
S_23314:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 )){
if(qbevent){evnt(20304);if(r)goto S_23314;}
S_23315:;
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(20305);if(r)goto S_23315;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20306);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20307);}while(r);
}
S_23319:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(20310);if(r)goto S_23319;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3330= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20310);}while(r);
}
S_23322:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20311);if(r)goto S_23322;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20311);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=FUNC_TYPE_PROMOTEARITHMETICTYPE(&(pass3331=FUNC_TYPE_PROMOTEARITHMETICTYPE(_FUNC_EVALUATEFUNC_LONG_ARG1TYP,_FUNC_EVALUATEFUNC_LONG_ARG2TYP)),_FUNC_EVALUATEFUNC_LONG_SOURCETYP);
if(!qbevent)break;evnt(20313);}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(20314);}while(r);
S_23327:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20315);if(r)goto S_23327;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20315);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20317);}while(r);
}
}
}
}
S_23333:;
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(20322);if(r)goto S_23333;}
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(20323);}while(r);
S_23335:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(20325);if(r)goto S_23335;}
S_23336:;
if ((-((~(FUNC_TYPE_ISINTEGRAL(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(20326);if(r)goto S_23336;}
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(20327);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20328);}while(r);
}
S_23340:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(20331);if(r)goto S_23340;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3332= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20331);}while(r);
}
S_23343:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20332);if(r)goto S_23343;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20332);}while(r);
}
S_23346:;
sc_3333=FUNC_TYPE_GETSIZEINBITS(_FUNC_EVALUATEFUNC_LONG_SOURCETYP);
if(qbevent){evnt(20334);if(r)goto S_23346;}
S_23347:;
if (((sc_3333==( 8 )))||is_error_pending()){
if(qbevent){evnt(20335);if(r)goto S_23347;}
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(20336);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20337);}while(r);
sc_ec_99_end:;
goto sc_3333_end;
}
S_23350:;
if (((sc_3333==( 16 )))||is_error_pending()){
if(qbevent){evnt(20338);if(r)goto S_23350;}
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(20339);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20340);}while(r);
sc_ec_100_end:;
goto sc_3333_end;
}
S_23353:;
if (((sc_3333==( 32 )))||is_error_pending()){
if(qbevent){evnt(20341);if(r)goto S_23353;}
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(20342);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20343);}while(r);
sc_ec_101_end:;
goto sc_3333_end;
}
S_23356:;
if (((sc_3333==( 64 )))||is_error_pending()){
if(qbevent){evnt(20344);if(r)goto S_23356;}
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(20345);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20346);}while(r);
sc_ec_102_end:;
goto sc_3333_end;
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Unsupported integral type size",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20348);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20349);}while(r);
sc_3333_end:;
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20352);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20353);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(20355);}while(r);
S_23366:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
if(qbevent){evnt(20356);if(r)goto S_23366;}
S_23367:;
if ((-((~(FUNC_TYPE_ISINTEGRAL(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
if(qbevent){evnt(20357);if(r)goto S_23367;}
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(20358);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20359);}while(r);
}
S_23371:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(20362);if(r)goto S_23371;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3334= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20362);}while(r);
}
S_23374:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20363);if(r)goto S_23374;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20363);}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(20365);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20367);}while(r);
}
}
}
S_23381:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_UCHARPOS",9))))||is_error_pending()){
if(qbevent){evnt(20372);if(r)goto S_23381;}
S_23382:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(20373);if(r)goto S_23382;}
S_23383:;
if (((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
if(qbevent){evnt(20375);if(r)goto S_23383;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected LONG array-name",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20376);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20377);}while(r);
}
S_23387:;
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& 4095ll )!= 32 )))||is_error_pending()){
if(qbevent){evnt(20381);if(r)goto S_23387;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected LONG array-name",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20382);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20383);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass3335= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20386);}while(r);
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(20388);}while(r);
}
}
S_23395:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4))))||is_error_pending()){
if(qbevent){evnt(20393);if(r)goto S_23395;}
S_23396:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(20394);if(r)goto S_23396;}
S_23397:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||is_error_pending()){
if(qbevent){evnt(20395);if(r)goto S_23397;}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP= -7 ;
if(!qbevent)break;evnt(20396);}while(r);
}
S_23400:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||is_error_pending()){
if(qbevent){evnt(20398);if(r)goto S_23400;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+554))),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+554))),256,1)))->len))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20399);}while(r);
S_23402:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)== 0 ))||is_error_pending()){
if(qbevent){evnt(20400);if(r)goto S_23402;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected _MEM(_OFFSET-value,...)",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20400);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20400);}while(r);
}
}
}
}
S_23409:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
if(qbevent){evnt(20406);if(r)goto S_23409;}
S_23410:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(20407);if(r)goto S_23410;}
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(20408);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20408);}while(r);
}
S_23414:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(20410);if(r)goto S_23414;}
S_23415:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(20411);if(r)goto S_23415;}
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(20411);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20411);}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,&(pass3337= -6 ))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20413);}while(r);
S_23421:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20414);if(r)goto S_23421;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20414);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20415);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20416);}while(r);
}
S_23427:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ENVIRON",7))))||is_error_pending()){
if(qbevent){evnt(20421);if(r)goto S_23427;}
S_23428:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(20422);if(r)goto S_23428;}
S_23429:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
if(qbevent){evnt(20423);if(r)goto S_23429;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3338= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20423);}while(r);
}
S_23432:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20424);if(r)goto S_23432;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20424);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(20425);}while(r);
}
}
S_23438:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LEN",3))))||is_error_pending()){
if(qbevent){evnt(20430);if(r)goto S_23438;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20431);}while(r);
S_23440:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(20432);if(r)goto S_23440;}
S_23441:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(20434);if(r)goto S_23441;}
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(20435);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20436);}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(20438);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20438);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass3339= -5 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20440);}while(r);
S_23449:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20441);if(r)goto S_23449;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20441);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20442);}while(r);
}
S_23454:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_BIN",4))))||is_error_pending()){
if(qbevent){evnt(20447);if(r)goto S_23454;}
S_23455:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+532))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(20448);if(r)goto S_23455;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20449);}while(r);
S_23457:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20451);if(r)goto S_23457;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20451);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20451);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ;
if(!qbevent)break;evnt(20452);}while(r);
S_23462:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(20453);if(r)goto S_23462;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3340= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20453);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ;
if(!qbevent)break;evnt(20453);}while(r);
}
S_23466:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20454);if(r)goto S_23466;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20454);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20455);}while(r);
S_23470:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(20456);if(r)goto S_23470;}
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(20457);}while(r);
}else{
S_23473:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(20459);if(r)goto S_23473;}
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(20460);}while(r);
}else{
S_23476:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(20462);if(r)goto S_23476;}
S_23477:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||is_error_pending()){
if(qbevent){evnt(20463);if(r)goto S_23477;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ;
if(!qbevent)break;evnt(20463);}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(20465);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20468);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20469);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20470);}while(r);
}
}
S_23489:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("OCT",3))))||is_error_pending()){
if(qbevent){evnt(20475);if(r)goto S_23489;}
S_23490:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+532))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(20476);if(r)goto S_23490;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20477);}while(r);
S_23492:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20479);if(r)goto S_23492;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20479);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20479);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ;
if(!qbevent)break;evnt(20480);}while(r);
S_23497:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(20481);if(r)goto S_23497;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3341= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20481);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ;
if(!qbevent)break;evnt(20481);}while(r);
}
S_23501:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20482);if(r)goto S_23501;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20482);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20483);}while(r);
S_23505:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(20484);if(r)goto S_23505;}
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(20485);}while(r);
}else{
S_23508:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(20487);if(r)goto S_23508;}
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(20488);}while(r);
}else{
S_23511:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(20490);if(r)goto S_23511;}
S_23512:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||is_error_pending()){
if(qbevent){evnt(20491);if(r)goto S_23512;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ;
if(!qbevent)break;evnt(20491);}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(20493);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20496);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20497);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20498);}while(r);
}
}
S_23524:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("HEX",3))))||is_error_pending()){
if(qbevent){evnt(20503);if(r)goto S_23524;}
S_23525:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+532))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(20504);if(r)goto S_23525;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20505);}while(r);
S_23527:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20506);if(r)goto S_23527;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20506);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20506);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ;
if(!qbevent)break;evnt(20507);}while(r);
S_23532:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(20508);if(r)goto S_23532;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3342= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20508);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ;
if(!qbevent)break;evnt(20508);}while(r);
}
S_23536:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20509);if(r)goto S_23536;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20509);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20510);}while(r);
S_23540:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(20511);if(r)goto S_23540;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS=qb_safe_idiv((*_FUNC_EVALUATEFUNC_LONG_BITS+ 3 ), 4 );
if(!qbevent)break;evnt(20512);}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(20513);}while(r);
}else{
S_23544:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(20515);if(r)goto S_23544;}
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(20516);}while(r);
}else{
S_23547:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||is_error_pending()){
if(qbevent){evnt(20518);if(r)goto S_23547;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 2 ;
if(!qbevent)break;evnt(20518);}while(r);
}
S_23550:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||is_error_pending()){
if(qbevent){evnt(20519);if(r)goto S_23550;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 4 ;
if(!qbevent)break;evnt(20519);}while(r);
}
S_23553:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(20520);if(r)goto S_23553;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 8 ;
if(!qbevent)break;evnt(20520);}while(r);
}
S_23556:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(20521);if(r)goto S_23556;}
S_23557:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 1 ))||is_error_pending()){
if(qbevent){evnt(20522);if(r)goto S_23557;}
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 16 ;
if(!qbevent)break;evnt(20522);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_CHARS= 0 ;
if(!qbevent)break;evnt(20522);}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(20524);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20527);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20528);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20529);}while(r);
}
}
S_23571:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("EXP",3))))||is_error_pending()){
if(qbevent){evnt(20535);if(r)goto S_23571;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20536);}while(r);
S_23573:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20537);if(r)goto S_23573;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20537);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20537);}while(r);
}
S_23577:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(20538);if(r)goto S_23577;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3343= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20538);}while(r);
}
S_23580:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20539);if(r)goto S_23580;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20539);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20540);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20541);}while(r);
S_23585:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(20542);if(r)goto S_23585;}
S_23586:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(20543);if(r)goto S_23586;}
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(20543);}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(20543);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20543);}while(r);
}
}else{
S_23593:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(20545);if(r)goto S_23593;}
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(20546);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20546);}while(r);
}else{
S_23597:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||is_error_pending()){
if(qbevent){evnt(20548);if(r)goto S_23597;}
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(20548);}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(20548);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20548);}while(r);
}
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20551);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20552);}while(r);
}
S_23608:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INT",3))))||is_error_pending()){
if(qbevent){evnt(20556);if(r)goto S_23608;}
S_23609:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20557);if(r)goto S_23609;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20557);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20557);}while(r);
}
S_23613:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(20558);if(r)goto S_23613;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3344= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20558);}while(r);
}
S_23616:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20559);if(r)goto S_23616;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20559);}while(r);
}
S_23619:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(20561);if(r)goto S_23619;}
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(20561);}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(20561);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20562);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(20563);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20564);}while(r);
}
S_23628:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("FIX",3))))||is_error_pending()){
if(qbevent){evnt(20568);if(r)goto S_23628;}
S_23629:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20569);if(r)goto S_23629;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20569);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20569);}while(r);
}
S_23633:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(20570);if(r)goto S_23633;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3345= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20570);}while(r);
}
S_23636:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20571);if(r)goto S_23636;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20571);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20573);}while(r);
S_23640:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(20574);if(r)goto S_23640;}
S_23641:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(20575);if(r)goto S_23641;}
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(20575);}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(20575);}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(20577);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20579);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(20580);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20581);}while(r);
}
S_23653:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_ROUND",6))))||is_error_pending()){
if(qbevent){evnt(20585);if(r)goto S_23653;}
S_23654:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20586);if(r)goto S_23654;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20586);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20586);}while(r);
}
S_23658:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(20587);if(r)goto S_23658;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3346= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20587);}while(r);
}
S_23661:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20588);if(r)goto S_23661;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20588);}while(r);
}
S_23664:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(20590);if(r)goto S_23664;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20591);}while(r);
S_23666:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(20592);if(r)goto S_23666;}
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(20592);}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(20592);}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(20594);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20596);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(20597);}while(r);
S_23676:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||is_error_pending()){
if(qbevent){evnt(20598);if(r)goto S_23676;}
S_23677:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(20599);if(r)goto S_23677;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20599);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20599);}while(r);
}
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20601);}while(r);
}
S_23685:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CDBL",4))))||is_error_pending()){
if(qbevent){evnt(20606);if(r)goto S_23685;}
S_23686:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20607);if(r)goto S_23686;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20607);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20607);}while(r);
}
S_23690:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(20608);if(r)goto S_23690;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3347= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20608);}while(r);
}
S_23693:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20609);if(r)goto S_23693;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20609);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20611);}while(r);
S_23697:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(20612);if(r)goto S_23697;}
S_23698:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(20613);if(r)goto S_23698;}
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(20613);}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(20615);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20617);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20618);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20619);}while(r);
}
S_23708:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CSNG",4))))||is_error_pending()){
if(qbevent){evnt(20623);if(r)goto S_23708;}
S_23709:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20624);if(r)goto S_23709;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20624);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20624);}while(r);
}
S_23713:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(20625);if(r)goto S_23713;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3348= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20625);}while(r);
}
S_23716:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20626);if(r)goto S_23716;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20626);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20628);}while(r);
S_23720:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(20629);if(r)goto S_23720;}
S_23721:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(20630);if(r)goto S_23721;}
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(20630);}while(r);
}
S_23724:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(20631);if(r)goto S_23724;}
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(20631);}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(20633);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20635);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20636);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20637);}while(r);
}
S_23734:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CLNG",4))))||is_error_pending()){
if(qbevent){evnt(20642);if(r)goto S_23734;}
S_23735:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20643);if(r)goto S_23735;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20643);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20643);}while(r);
}
S_23739:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(20644);if(r)goto S_23739;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3349= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20644);}while(r);
}
S_23742:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20645);if(r)goto S_23742;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20645);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20647);}while(r);
S_23746:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(20648);if(r)goto S_23746;}
S_23747:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(20649);if(r)goto S_23747;}
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(20649);}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(20649);}while(r);
}
}else{
S_23753:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(20651);if(r)goto S_23753;}
S_23754:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(20652);if(r)goto S_23754;}
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(20652);}while(r);
}
S_23757:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
if(qbevent){evnt(20653);if(r)goto S_23757;}
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(20653);}while(r);
}
}else{
S_23761:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
if(qbevent){evnt(20655);if(r)goto S_23761;}
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(20655);}while(r);
}
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20658);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 32 ;
if(!qbevent)break;evnt(20659);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20660);}while(r);
}
S_23770:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CINT",4))))||is_error_pending()){
if(qbevent){evnt(20664);if(r)goto S_23770;}
S_23771:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20665);if(r)goto S_23771;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20665);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20665);}while(r);
}
S_23775:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(20666);if(r)goto S_23775;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3350= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20666);}while(r);
}
S_23778:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20667);if(r)goto S_23778;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20667);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20669);}while(r);
S_23782:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(20670);if(r)goto S_23782;}
S_23783:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
if(qbevent){evnt(20671);if(r)goto S_23783;}
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(20671);}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(20671);}while(r);
}
}else{
S_23789:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(20673);if(r)goto S_23789;}
S_23790:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 15 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||is_error_pending()){
if(qbevent){evnt(20674);if(r)goto S_23790;}
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(20674);}while(r);
}
S_23793:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
if(qbevent){evnt(20675);if(r)goto S_23793;}
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(20675);}while(r);
}
}else{
S_23797:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||is_error_pending()){
if(qbevent){evnt(20677);if(r)goto S_23797;}
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(20677);}while(r);
}
S_23800:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
if(qbevent){evnt(20678);if(r)goto S_23800;}
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(20678);}while(r);
}
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20681);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 16 ;
if(!qbevent)break;evnt(20682);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20683);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 0 ;
if(!qbevent)break;evnt(20687);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SIZE= 0 ;
if(!qbevent)break;evnt(20688);}while(r);
S_23811:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKI",3))))||is_error_pending()){
if(qbevent){evnt(20689);if(r)goto S_23811;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 1 ;
if(!qbevent)break;evnt(20689);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20689);}while(r);
}
S_23815:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKL",3))))||is_error_pending()){
if(qbevent){evnt(20690);if(r)goto S_23815;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 2 ;
if(!qbevent)break;evnt(20690);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20690);}while(r);
}
S_23819:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKS",3))))||is_error_pending()){
if(qbevent){evnt(20691);if(r)goto S_23819;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 3 ;
if(!qbevent)break;evnt(20691);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20691);}while(r);
}
S_23823:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKD",3))))||is_error_pending()){
if(qbevent){evnt(20692);if(r)goto S_23823;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 4 ;
if(!qbevent)break;evnt(20692);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20692);}while(r);
}
S_23827:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3))))||is_error_pending()){
if(qbevent){evnt(20693);if(r)goto S_23827;}
do{
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= -1 ;
if(!qbevent)break;evnt(20693);}while(r);
}
S_23830:;
if ((*_FUNC_EVALUATEFUNC_LONG_MKTYPE)||is_error_pending()){
if(qbevent){evnt(20694);if(r)goto S_23830;}
S_23831:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_MKTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||is_error_pending()){
if(qbevent){evnt(20695);if(r)goto S_23831;}
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP= 0 ;
if(!qbevent)break;evnt(20697);}while(r);
S_23833:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%%",2))))||is_error_pending()){
if(qbevent){evnt(20698);if(r)goto S_23833;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20698);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20698);}while(r);
}
S_23837:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%%",3))))||is_error_pending()){
if(qbevent){evnt(20699);if(r)goto S_23837;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20699);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20699);}while(r);
}
S_23841:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1))))||is_error_pending()){
if(qbevent){evnt(20700);if(r)goto S_23841;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20700);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20700);}while(r);
}
S_23845:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%",2))))||is_error_pending()){
if(qbevent){evnt(20701);if(r)goto S_23845;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20701);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20701);}while(r);
}
S_23849:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1))))||is_error_pending()){
if(qbevent){evnt(20702);if(r)goto S_23849;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20702);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20702);}while(r);
}
S_23853:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&",2))))||is_error_pending()){
if(qbevent){evnt(20703);if(r)goto S_23853;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20703);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20703);}while(r);
}
S_23857:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&&",2))))||is_error_pending()){
if(qbevent){evnt(20704);if(r)goto S_23857;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20704);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20704);}while(r);
}
S_23861:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&&",3))))||is_error_pending()){
if(qbevent){evnt(20705);if(r)goto S_23861;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20705);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20705);}while(r);
}
S_23865:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1))))||is_error_pending()){
if(qbevent){evnt(20706);if(r)goto S_23865;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20706);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20706);}while(r);
}
S_23869:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(20707);if(r)goto S_23869;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20707);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20707);}while(r);
}
S_23873:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("##",2))))||is_error_pending()){
if(qbevent){evnt(20708);if(r)goto S_23873;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20708);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20708);}while(r);
}
S_23877:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%&",2))))||is_error_pending()){
if(qbevent){evnt(20709);if(r)goto S_23877;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("o",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20709);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20709);}while(r);
}
S_23881:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%&",3))))||is_error_pending()){
if(qbevent){evnt(20710);if(r)goto S_23881;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("uo",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20710);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20710);}while(r);
}
S_23885:;
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(20711);if(r)goto S_23885;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20711);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20711);}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(20711);}while(r);
}
S_23890:;
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(20712);if(r)goto S_23890;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20712);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20712);}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(20712);}while(r);
}
S_23895:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_QTYP== 0 ))||is_error_pending()){
if(qbevent){evnt(20713);if(r)goto S_23895;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("_MK only accepts numeric types",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20713);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20713);}while(r);
}
S_23899:;
if ((*_FUNC_EVALUATEFUNC_LONG_SIZE)||is_error_pending()){
if(qbevent){evnt(20714);if(r)goto S_23899;}
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(20715);}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(20717);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
if(!qbevent)break;evnt(20719);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_QTYP;
if(!qbevent)break;evnt(20720);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 0 ;
if(!qbevent)break;evnt(20725);}while(r);
S_23909:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVI",3))))||is_error_pending()){
if(qbevent){evnt(20726);if(r)goto S_23909;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 1 ;
if(!qbevent)break;evnt(20726);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20726);}while(r);
}
S_23913:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVL",3))))||is_error_pending()){
if(qbevent){evnt(20727);if(r)goto S_23913;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 2 ;
if(!qbevent)break;evnt(20727);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20727);}while(r);
}
S_23917:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVS",3))))||is_error_pending()){
if(qbevent){evnt(20728);if(r)goto S_23917;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 3 ;
if(!qbevent)break;evnt(20728);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20728);}while(r);
}
S_23921:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVD",3))))||is_error_pending()){
if(qbevent){evnt(20729);if(r)goto S_23921;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 4 ;
if(!qbevent)break;evnt(20729);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20729);}while(r);
}
S_23925:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3))))||is_error_pending()){
if(qbevent){evnt(20730);if(r)goto S_23925;}
do{
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= -1 ;
if(!qbevent)break;evnt(20730);}while(r);
}
S_23928:;
if ((*_FUNC_EVALUATEFUNC_LONG_CVTYPE)||is_error_pending()){
if(qbevent){evnt(20731);if(r)goto S_23928;}
S_23929:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_CVTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||is_error_pending()){
if(qbevent){evnt(20732);if(r)goto S_23929;}
S_23930:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(20733);if(r)goto S_23930;}
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(20733);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20733);}while(r);
}
S_23934:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(20734);if(r)goto S_23934;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3353= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20734);}while(r);
}
S_23937:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20735);if(r)goto S_23937;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20735);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 0 ;
if(!qbevent)break;evnt(20736);}while(r);
S_23941:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%%",2))))||is_error_pending()){
if(qbevent){evnt(20737);if(r)goto S_23941;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20737);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20737);}while(r);
}
S_23945:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%%",3))))||is_error_pending()){
if(qbevent){evnt(20738);if(r)goto S_23945;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20738);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20738);}while(r);
}
S_23949:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1))))||is_error_pending()){
if(qbevent){evnt(20739);if(r)goto S_23949;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20739);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20739);}while(r);
}
S_23953:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%",2))))||is_error_pending()){
if(qbevent){evnt(20740);if(r)goto S_23953;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20740);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20740);}while(r);
}
S_23957:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1))))||is_error_pending()){
if(qbevent){evnt(20741);if(r)goto S_23957;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20741);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20741);}while(r);
}
S_23961:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&",2))))||is_error_pending()){
if(qbevent){evnt(20742);if(r)goto S_23961;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20742);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20742);}while(r);
}
S_23965:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&&",2))))||is_error_pending()){
if(qbevent){evnt(20743);if(r)goto S_23965;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20743);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20743);}while(r);
}
S_23969:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&&",3))))||is_error_pending()){
if(qbevent){evnt(20744);if(r)goto S_23969;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20744);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20744);}while(r);
}
S_23973:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1))))||is_error_pending()){
if(qbevent){evnt(20745);if(r)goto S_23973;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20745);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20745);}while(r);
}
S_23977:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1))))||is_error_pending()){
if(qbevent){evnt(20746);if(r)goto S_23977;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20746);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20746);}while(r);
}
S_23981:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("##",2))))||is_error_pending()){
if(qbevent){evnt(20747);if(r)goto S_23981;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20747);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20747);}while(r);
}
S_23985:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%&",2))))||is_error_pending()){
if(qbevent){evnt(20748);if(r)goto S_23985;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("o",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20748);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20748);}while(r);
}
S_23989:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%&",3))))||is_error_pending()){
if(qbevent){evnt(20749);if(r)goto S_23989;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("uo",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20749);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20749);}while(r);
}
S_23993:;
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(20750);if(r)goto S_23993;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20750);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20750);}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(20750);}while(r);
}
S_23998:;
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(20751);if(r)goto S_23998;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20751);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(20751);}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(20751);}while(r);
}
S_24003:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TYP== 0 ))||is_error_pending()){
if(qbevent){evnt(20752);if(r)goto S_24003;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("_CV cannot return STRING type!",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20752);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20752);}while(r);
}
S_24007:;
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(20753);if(r)goto S_24007;}
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(20754);}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(20756);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20758);}while(r);
}
}
S_24015:;
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(20763);if(r)goto S_24015;}
S_24016:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(20764);if(r)goto S_24016;}
S_24017:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20765);if(r)goto S_24017;}
S_24018:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(20766);if(r)goto S_24018;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3356= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20766);}while(r);
}
S_24021:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20767);if(r)goto S_24021;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20767);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP= 64 ;
if(!qbevent)break;evnt(20768);}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(20769);}while(r);
}
}
}
S_24029:;
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(20775);if(r)goto S_24029;}
S_24030:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(20776);if(r)goto S_24030;}
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(20777);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20777);}while(r);
}
S_24034:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(20779);if(r)goto S_24034;}
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(20780);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20780);}while(r);
}
S_24038:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
if(qbevent){evnt(20782);if(r)goto S_24038;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(20783);}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(20784);}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(20785);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(20786);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20787);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3357= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20789);}while(r);
S_24046:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20790);if(r)goto S_24046;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20790);}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(20791);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(20792);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20793);}while(r);
}
S_24053:;
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(20797);if(r)goto S_24053;}
S_24054:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(20798);if(r)goto S_24054;}
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(20799);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20799);}while(r);
}
S_24058:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+532))),8,1)),qbs_new_txt_len("$",1))))||is_error_pending()){
if(qbevent){evnt(20802);if(r)goto S_24058;}
S_24059:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
if(qbevent){evnt(20803);if(r)goto S_24059;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(20804);}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(20805);}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(20806);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING;
if(!qbevent)break;evnt(20807);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20808);}while(r);
}
S_24066:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(20811);if(r)goto S_24066;}
S_24067:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(20812);if(r)goto S_24067;}
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(20812);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20812);}while(r);
}
S_24071:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(20813);if(r)goto S_24071;}
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(20813);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20813);}while(r);
}
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3358= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20818);}while(r);
S_24077:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20819);if(r)goto S_24077;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20819);}while(r);
}
S_24080:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20820);if(r)goto S_24080;}
S_24081:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(20821);if(r)goto S_24081;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3359= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20821);}while(r);
}
S_24084:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20822);if(r)goto S_24084;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20822);}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(20823);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_T= 3 ;
if(!qbevent)break;evnt(20824);}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(20826);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_T= 0 ;
if(!qbevent)break;evnt(20838);}while(r);
S_24092:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(20839);if(r)goto S_24092;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 128 ;
if(!qbevent)break;evnt(20839);}while(r);
}
S_24095:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(20840);if(r)goto S_24095;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 64 ;
if(!qbevent)break;evnt(20841);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 63 );
if(!qbevent)break;evnt(20842);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(20844);}while(r);
S_24100:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(20845);if(r)goto S_24100;}
S_24101:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(20846);if(r)goto S_24101;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 4 ;
if(!qbevent)break;evnt(20846);}while(r);
}
S_24104:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(20847);if(r)goto S_24104;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 8 ;
if(!qbevent)break;evnt(20847);}while(r);
}
S_24107:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 256 ))||is_error_pending()){
if(qbevent){evnt(20848);if(r)goto S_24107;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 6 ;
if(!qbevent)break;evnt(20848);}while(r);
}
}else{
S_24111:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||is_error_pending()){
if(qbevent){evnt(20850);if(r)goto S_24111;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 1 ;
if(!qbevent)break;evnt(20850);}while(r);
}
S_24114:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||is_error_pending()){
if(qbevent){evnt(20851);if(r)goto S_24114;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 2 ;
if(!qbevent)break;evnt(20851);}while(r);
}
S_24117:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
if(qbevent){evnt(20852);if(r)goto S_24117;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 20 ;
if(!qbevent)break;evnt(20852);}while(r);
}
S_24120:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
if(qbevent){evnt(20853);if(r)goto S_24120;}
do{
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 5 ;
if(!qbevent)break;evnt(20853);}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(20857);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING;
if(!qbevent)break;evnt(20858);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20859);}while(r);
}
S_24130:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
if(qbevent){evnt(20873);if(r)goto S_24130;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(20874);}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(20875);}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(20876);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(20877);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20878);}while(r);
}
S_24137:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(20881);if(r)goto S_24137;}
S_24138:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(20882);if(r)goto S_24138;}
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(20882);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20882);}while(r);
}
S_24142:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20885);if(r)goto S_24142;}
S_24143:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(20886);if(r)goto S_24143;}
do{
SUB_GETID(&(pass3360=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20887);}while(r);
S_24145:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20888);if(r)goto S_24145;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20888);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_M=*(int32*)(((char*)__UDT_ID)+((0+544)));
if(!qbevent)break;evnt(20889);}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(20890);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(20891);}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(20892);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20893);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3362= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20896);}while(r);
S_24155:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20897);if(r)goto S_24155;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20897);}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(20898);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(20899);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20900);}while(r);
}
}
S_24163:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(20904);if(r)goto S_24163;}
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(20905);}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(20906);}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(20907);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(20908);}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(20909);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20910);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_M=qb_safe_idiv((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ), 8 );
if(!qbevent)break;evnt(20914);}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(20915);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(20916);}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(20917);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20918);}while(r);
}
S_24177:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(20924);if(r)goto S_24177;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3367= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20925);}while(r);
S_24179:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20926);if(r)goto S_24179;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20926);}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(20927);}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(20928);}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(20929);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(20930);}while(r);
do{
SUB_GETID(&(pass3371=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20933);}while(r);
S_24187:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20934);if(r)goto S_24187;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20934);}while(r);
}
S_24190:;
if ((*(int16*)(((char*)__UDT_ID)+((0+2963))))||is_error_pending()){
if(qbevent){evnt(20935);if(r)goto S_24190;}
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(20937);}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(20940);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20943);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(20946);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3372= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20947);}while(r);
S_24199:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20948);if(r)goto S_24199;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20948);}while(r);
}
S_24202:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20949);if(r)goto S_24202;}
S_24203:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(20950);if(r)goto S_24203;}
do{
SUB_GETID(&(pass3373=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20953);}while(r);
S_24205:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20954);if(r)goto S_24205;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20954);}while(r);
}
S_24208:;
if ((*(int16*)(((char*)__UDT_ID)+((0+2963))))||is_error_pending()){
if(qbevent){evnt(20955);if(r)goto S_24208;}
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(20956);}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(20958);}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(20962);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20964);}while(r);
}
do{
SUB_GETID(&(pass3374=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20969);}while(r);
S_24219:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(20970);if(r)goto S_24219;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20970);}while(r);
}
S_24222:;
if ((*(int16*)(((char*)__UDT_ID)+((0+2963))))||is_error_pending()){
if(qbevent){evnt(20971);if(r)goto S_24222;}
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(20972);}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(20974);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20977);}while(r);
}
S_24229:;
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(20981);if(r)goto S_24229;}
S_24230:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(20982);if(r)goto S_24230;}
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(20983);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(20983);}while(r);
}
S_24234:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
if(qbevent){evnt(20985);if(r)goto S_24234;}
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(20986);}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(20987);}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(20988);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(20989);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20990);}while(r);
}
S_24241:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(20993);if(r)goto S_24241;}
S_24242:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
if(qbevent){evnt(20994);if(r)goto S_24242;}
S_24243:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(20995);if(r)goto S_24243;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(20996);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(20997);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(20998);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(21001);}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,&(pass3375= 1 ))),qbs_new_txt_len("[0])) - ((ptrszint)(&cmem[0])) ) /16)",37)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21002);}while(r);
S_24251:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21003);if(r)goto S_24251;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21003);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(21004);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
if(!qbevent)break;evnt(21008);}while(r);
do{
SUB_GETID(&(pass3376=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21010);}while(r);
S_24258:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21011);if(r)goto S_24258;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21011);}while(r);
}
S_24261:;
if (((-(*(int16*)(((char*)__UDT_ID)+((0+2963)))!= 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
if(qbevent){evnt(21012);if(r)goto S_24261;}
S_24262:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(21013);if(r)goto S_24262;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3377= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21014);}while(r);
S_24264:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21015);if(r)goto S_24264;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21015);}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(21016);}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(21017);}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(21018);}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(21019);}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,&(pass3381= 1 ))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21021);}while(r);
S_24273:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21022);if(r)goto S_24273;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21022);}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(21026);}while(r);
}
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(21028);}while(r);
}
S_24282:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -2 ))||is_error_pending()){
if(qbevent){evnt(21054);if(r)goto S_24282;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass3382= -2 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21055);}while(r);
S_24284:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21056);if(r)goto S_24284;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21056);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(21057);}while(r);
}
S_24289:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -7 ))||is_error_pending()){
if(qbevent){evnt(21060);if(r)goto S_24289;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass3383= -7 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21061);}while(r);
S_24291:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21062);if(r)goto S_24291;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21062);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(21063);}while(r);
}
S_24296:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -8 ))||is_error_pending()){
if(qbevent){evnt(21066);if(r)goto S_24296;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass3384= -8 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21067);}while(r);
S_24298:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21068);if(r)goto S_24298;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21068);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(21069);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 0 ;
if(!qbevent)break;evnt(21073);}while(r);
S_24304:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -1 ))||is_error_pending()){
if(qbevent){evnt(21074);if(r)goto S_24304;}
do{
*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 1 ;
if(!qbevent)break;evnt(21075);}while(r);
S_24306:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(21076);if(r)goto S_24306;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21076);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21076);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(21077);}while(r);
S_24311:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(21078);if(r)goto S_24311;}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(21078);}while(r);
}
}
S_24315:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(21082);if(r)goto S_24315;}
S_24316:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE== 0 ))||is_error_pending()){
if(qbevent){evnt(21083);if(r)goto S_24316;}
S_24317:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(21086);if(r)goto S_24317;}
S_24318:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
if(qbevent){evnt(21087);if(r)goto S_24318;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21087);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21087);}while(r);
}
S_24322:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
if(qbevent){evnt(21088);if(r)goto S_24322;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21088);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21088);}while(r);
}
S_24326:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(21089);if(r)goto S_24326;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3385;
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 skip3385;
skip3385:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(21089);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP;
if(!qbevent)break;evnt(21092);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(21092);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT);
if(!qbevent)break;evnt(21093);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT);
if(!qbevent)break;evnt(21094);}while(r);
S_24333:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||is_error_pending()){
if(qbevent){evnt(21095);if(r)goto S_24333;}
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(21095);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21095);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID= 0 ;
if(!qbevent)break;evnt(21097);}while(r);
S_24338:;
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(21100);if(r)goto S_24338;}
}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(21103);}while(r);
S_24341:;
if ((*_FUNC_EVALUATEFUNC_LONG_S1)||is_error_pending()){
if(qbevent){evnt(21104);if(r)goto S_24341;}
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(21105);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_S2= 0 ;
if(!qbevent)break;evnt(21107);}while(r);
}
S_24346:;
if ((*_FUNC_EVALUATEFUNC_LONG_S2)||is_error_pending()){
if(qbevent){evnt(21110);if(r)goto S_24346;}
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(21111);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_S3= 0 ;
if(!qbevent)break;evnt(21113);}while(r);
}
S_24351:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_S3== 0 ))||is_error_pending()){
if(qbevent){evnt(21116);if(r)goto S_24351;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21116);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21116);}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(21118);}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(21119);}while(r);
S_24357:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
if(qbevent){evnt(21121);if(r)goto S_24357;}
S_24358:;
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(21122);if(r)goto S_24358;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21122);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21122);}while(r);
}
S_24362:;
}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(21124);if(r)goto S_24362;}
}else{
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21127);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21127);}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(21132);}while(r);
do{
SUB_GETID(_FUNC_EVALUATEFUNC_LONG_IDNUM);
if(!qbevent)break;evnt(21133);}while(r);
S_24370:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21134);if(r)goto S_24370;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21134);}while(r);
}
S_24373:;
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
if(qbevent){evnt(21136);if(r)goto S_24373;}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+1217))),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21137);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCE_FIXED_SIZE=*(int32*)(((char*)__UDT_ID)+((0+544)));
if(!qbevent)break;evnt(21138);}while(r);
S_24376:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
if(qbevent){evnt(21139);if(r)goto S_24376;}
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCE_FIXED_SIZE=((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])];
if(!qbevent)break;evnt(21139);}while(r);
}
S_24379:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCE_FIXED_SIZE!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE))||is_error_pending()){
if(qbevent){evnt(21140);if(r)goto S_24379;}
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(21140);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21140);}while(r);
}
}
S_24384:;
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(21143);if(r)goto S_24384;}
S_24385:;
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(21144);if(r)goto S_24385;}
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(21145);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(21147);}while(r);
}
}
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCE_DIMS= 0 ;
if(!qbevent)break;evnt(21153);}while(r);
S_24391:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
if(qbevent){evnt(21154);if(r)goto S_24391;}
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCE_DIMS=((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])];
if(!qbevent)break;evnt(21155);}while(r);
S_24393:;
}else{
if (-(*(int32*)(((char*)__UDT_ID)+((0+2951)))== 0 )){
if(qbevent){evnt(21156);if(r)goto S_24393;}
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCE_DIMS=*(int16*)(((char*)__UDT_ID)+((0+516)));
if(!qbevent)break;evnt(21157);}while(r);
}
}
S_24396:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCE_DIMS> 0 ))||is_error_pending()){
if(qbevent){evnt(21160);if(r)goto S_24396;}
S_24397:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_NELEREQ== 0 ))||is_error_pending()){
if(qbevent){evnt(21161);if(r)goto S_24397;}
do{
*_FUNC_EVALUATEFUNC_LONG_NELEREQ=*_FUNC_EVALUATEFUNC_LONG_SOURCE_DIMS;
if(!qbevent)break;evnt(21162);}while(r);
do{
sub_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2751))),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,func_chr(*_FUNC_EVALUATEFUNC_LONG_NELEREQ),1);
if(!qbevent)break;evnt(21163);}while(r);
do{
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+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]))*2973+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]))*2973+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]))*2973+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]))*2973+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]))*2973+0))+ 520),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 520), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 522),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 522), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 524),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 524), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 532),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 532), 8);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+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]))*2973+0))+ 544),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 544), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+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]))*2973+0))+ 550),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 550), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 552),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 552), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 554),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 554), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 810),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 810), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 812),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 812), 1);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 813),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 813), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 815),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 815), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 817),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 817), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 1217),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 1217), 400);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 1617),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 1617), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 1873),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 1873), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2129),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2129), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2385),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2385), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2389),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2389), 256);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2645),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2645), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2649),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2649), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2651),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2651), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2751),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2751), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2851),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2851), 100);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2951),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2951), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2955),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2955), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2957),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2957), 2);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2959),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2959), 4);
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2963),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2963), 2);
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+ 2965), *(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+ 2965));
if(!qbevent)break;evnt(21164);}while(r);
S_24401:;
}else{
if (-(*_FUNC_EVALUATEFUNC_LONG_SOURCE_DIMS!=*_FUNC_EVALUATEFUNC_LONG_NELEREQ)){
if(qbevent){evnt(21165);if(r)goto S_24401;}
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(21166);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21166);}while(r);
}
}
}
S_24406:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
if(qbevent){evnt(21170);if(r)goto S_24406;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMBER_ARG,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21171);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMBER_PREP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21171);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_MEMBER_DIMS= 0 ;
if(!qbevent)break;evnt(21171);}while(r);
do{
SUB_BUILDUDTMEMBERARG(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_MEMBER_ARG,_FUNC_EVALUATEFUNC_STRING_MEMBER_PREP,_FUNC_EVALUATEFUNC_LONG_MEMBER_DIMS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21172);}while(r);
S_24411:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21173);if(r)goto S_24411;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21173);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_MEMBER_ARG);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21174);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_FUNCARGPREP,qbs_add(_FUNC_EVALUATEFUNC_STRING_FUNCARGPREP,_FUNC_EVALUATEFUNC_STRING_MEMBER_PREP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21175);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3391= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21177);}while(r);
S_24418:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21178);if(r)goto S_24418;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21178);}while(r);
}
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(21180);}while(r);
}
S_24424:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(21198);if(r)goto S_24424;}
S_24425:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(21199);if(r)goto S_24425;}
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(21200);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP;
if(!qbevent)break;evnt(21202);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(21202);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_ARR= 0 ;
if(!qbevent)break;evnt(21205);}while(r);
S_24430:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISARRAY))||is_error_pending()){
if(qbevent){evnt(21205);if(r)goto S_24430;}
do{
*_FUNC_EVALUATEFUNC_LONG_ARR= 1 ;
if(!qbevent)break;evnt(21205);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 0 ;
if(!qbevent)break;evnt(21206);}while(r);
S_24434:;
if (((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(21206);if(r)goto S_24434;}
do{
*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 1 ;
if(!qbevent)break;evnt(21206);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2-*__LONG_ISUDT;
if(!qbevent)break;evnt(21206);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
if(!qbevent)break;evnt(21209);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
if(!qbevent)break;evnt(21210);}while(r);
S_24440:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2==*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||is_error_pending()){
if(qbevent){evnt(21213);if(r)goto S_24440;}
S_24441:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(21215);if(r)goto S_24441;}
do{
*_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21219);}while(r);
do{
SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID);
if(!qbevent)break;evnt(21220);}while(r);
S_24444:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21221);if(r)goto S_24444;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21221);}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(21222);}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(21223);}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(21224);}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(21225);}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(21226);}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(21227);}while(r);
S_24453:;
if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||is_error_pending()){
if(qbevent){evnt(21230);if(r)goto S_24453;}
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(21231);}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(21233);}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(21236);}while(r);
S_24459:;
if ((*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT)||is_error_pending()){
if(qbevent){evnt(21239);if(r)goto S_24459;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass3393=*_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(21239);}while(r);
}
S_24462:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21240);if(r)goto S_24462;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21240);}while(r);
}
}else{
S_24466:;
if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||is_error_pending()){
if(qbevent){evnt(21244);if(r)goto S_24466;}
S_24467:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(21245);if(r)goto S_24467;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass _BIT array offsets",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21245);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21245);}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,&(pass3394= 0 ))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21246);}while(r);
S_24472:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21247);if(r)goto S_24472;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21247);}while(r);
}
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3395= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21249);}while(r);
S_24477:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21250);if(r)goto S_24477;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21250);}while(r);
}
}
S_24481:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||is_error_pending()){
if(qbevent){evnt(21254);if(r)goto S_24481;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass3396=*_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(21255);}while(r);
S_24483:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21256);if(r)goto S_24483;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21256);}while(r);
}
}
}
S_24488:;
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(21262);if(r)goto S_24488;}
S_24489:;
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(21263);if(r)goto S_24489;}
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(21264);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(21265);}while(r);
}
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(21269);}while(r);
}
}
}else{
S_24498:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(21287);if(r)goto S_24498;}
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(21288);}while(r);
S_24500:;
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(21289);if(r)goto S_24500;}
S_24501:;
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(21290);if(r)goto S_24501;}
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(21291);}while(r);
do{
*__INTEGER_RECOMPILE= 1 ;
if(!qbevent)break;evnt(21292);}while(r);
}
}
}
}
}
}
S_24510:;
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(21315);if(r)goto S_24510;}
S_24511:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(21316);if(r)goto S_24511;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG;
if(!qbevent)break;evnt(21317);}while(r);
S_24513:;
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
if(qbevent){evnt(21318);if(r)goto S_24513;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ;
if(!qbevent)break;evnt(21318);}while(r);
}
S_24516:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+813)))== 1 ))||is_error_pending()){
if(qbevent){evnt(21319);if(r)goto S_24516;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("String required for function",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21319);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21319);}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(21320);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21320);}while(r);
}
}
S_24524:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
if(qbevent){evnt(21323);if(r)goto S_24524;}
S_24525:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(21324);if(r)goto S_24525;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG;
if(!qbevent)break;evnt(21325);}while(r);
S_24527:;
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
if(qbevent){evnt(21326);if(r)goto S_24527;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ;
if(!qbevent)break;evnt(21326);}while(r);
}
S_24530:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+813)))== 1 ))||is_error_pending()){
if(qbevent){evnt(21327);if(r)goto S_24530;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21327);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21327);}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(21328);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21328);}while(r);
}
}
S_24538:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(21333);if(r)goto S_24538;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3397= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21334);}while(r);
S_24540:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21335);if(r)goto S_24540;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21335);}while(r);
}
}
S_24544:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE== 0 ))||is_error_pending()){
if(qbevent){evnt(21338);if(r)goto S_24544;}
S_24545:;
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(21339);if(r)goto S_24545;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG;
if(!qbevent)break;evnt(21340);}while(r);
S_24547:;
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
if(qbevent){evnt(21341);if(r)goto S_24547;}
do{
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ;
if(!qbevent)break;evnt(21341);}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& 4095ll )-__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(21342);}while(r);
S_24551:;
if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+813)))== 1 ))||is_error_pending()){
if(qbevent){evnt(21343);if(r)goto S_24551;}
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(21343);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21343);}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(21344);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21344);}while(r);
}
}else{
S_24559:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(21347);if(r)goto S_24559;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21347);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21347);}while(r);
}
}
S_24564:;
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(21351);if(r)goto S_24564;}
S_24565:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(21352);if(r)goto S_24565;}
do{
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll ;
if(!qbevent)break;evnt(21354);}while(r);
S_24567:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||is_error_pending()){
if(qbevent){evnt(21355);if(r)goto S_24567;}
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(21355);}while(r);
}
S_24570:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS< 32 )))||is_error_pending()){
if(qbevent){evnt(21356);if(r)goto S_24570;}
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(21356);}while(r);
}
S_24573:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS>= 32 ))||is_error_pending()){
if(qbevent){evnt(21357);if(r)goto S_24573;}
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(21357);}while(r);
}
}
}
S_24578:;
if ((*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE)||is_error_pending()){
if(qbevent){evnt(21361);if(r)goto S_24578;}
S_24579:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
if(qbevent){evnt(21362);if(r)goto S_24579;}
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(21364);}while(r);
}else{
S_24582:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(21366);if(r)goto S_24582;}
S_24583:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 32 ))||is_error_pending()){
if(qbevent){evnt(21367);if(r)goto S_24583;}
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(21367);}while(r);
}
S_24586:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 64 ))||is_error_pending()){
if(qbevent){evnt(21368);if(r)goto S_24586;}
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(21368);}while(r);
}
S_24589:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 256 ))||is_error_pending()){
if(qbevent){evnt(21369);if(r)goto S_24589;}
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(21369);}while(r);
}
}else{
S_24593:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(21371);if(r)goto S_24593;}
S_24594:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 8 ))||is_error_pending()){
if(qbevent){evnt(21372);if(r)goto S_24594;}
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(21372);}while(r);
}
S_24597:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 16 ))||is_error_pending()){
if(qbevent){evnt(21373);if(r)goto S_24597;}
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(21373);}while(r);
}
S_24600:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 32 ))||is_error_pending()){
if(qbevent){evnt(21374);if(r)goto S_24600;}
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(21374);}while(r);
}
S_24603:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 64 ))||is_error_pending()){
if(qbevent){evnt(21375);if(r)goto S_24603;}
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(21375);}while(r);
}
}else{
S_24607:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 8 ))||is_error_pending()){
if(qbevent){evnt(21377);if(r)goto S_24607;}
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(21377);}while(r);
}
S_24610:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 16 ))||is_error_pending()){
if(qbevent){evnt(21378);if(r)goto S_24610;}
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(21378);}while(r);
}
S_24613:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 32 ))||is_error_pending()){
if(qbevent){evnt(21379);if(r)goto S_24613;}
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(21379);}while(r);
}
S_24616:;
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 64 ))||is_error_pending()){
if(qbevent){evnt(21380);if(r)goto S_24616;}
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(21380);}while(r);
}
}
}
}
}
S_24623:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(21387);if(r)goto S_24623;}
S_24624:;
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(21388);if(r)goto S_24624;}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(21388);}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(21390);}while(r);
S_24628:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21391);if(r)goto S_24628;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21391);}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(21392);}while(r);
S_24632:;
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(21394);if(r)goto S_24632;}
do{
*_FUNC_EVALUATEFUNC_LONG_BYTESREQ=qb_safe_idiv(((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )+ 7 ), 8 );
if(!qbevent)break;evnt(21395);}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(21396);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3398=*__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(21397);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3399=*__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(21398);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3400=*__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(21399);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3401=*__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(21400);}while(r);
do{
SUB_WRITEBUFLINE(&(pass3402=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21401);}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(21402);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass3403=*__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(21404);}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(21405);}while(r);
}
do{
goto LABEL_DONTEVALUATE;
if(!qbevent)break;evnt(21407);}while(r);
}
LABEL_DONTEVALUATE:;
if(qbevent){evnt(21410);r=0;}
S_24647:;
if ((*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+810))))||is_error_pending()){
if(qbevent){evnt(21412);if(r)goto S_24647;}
S_24648:;
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(21415);if(r)goto S_24648;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REMOVECAST(_FUNC_EVALUATEFUNC_STRING_E));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21416);}while(r);
}
S_24651:;
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(21419);if(r)goto S_24651;}
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(21420);}while(r);
}
S_24654:;
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(21423);if(r)goto S_24654;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("NULL",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21423);}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(21427);}while(r);
S_24659:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4))))||is_error_pending()){
if(qbevent){evnt(21430);if(r)goto S_24659;}
S_24660:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||is_error_pending()){
if(qbevent){evnt(21431);if(r)goto S_24660;}
S_24661:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
if(qbevent){evnt(21432);if(r)goto S_24661;}
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(21432);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(21432);}while(r);
}
}
S_24666:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||is_error_pending()){
if(qbevent){evnt(21434);if(r)goto S_24666;}
S_24667:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
if(qbevent){evnt(21435);if(r)goto S_24667;}
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(21435);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(21435);}while(r);
}
}
}
S_24673:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_I!=*_FUNC_EVALUATEFUNC_LONG_N))&(-(*_FUNC_EVALUATEFUNC_LONG_NOCOMMA== 0 )))||is_error_pending()){
if(qbevent){evnt(21439);if(r)goto S_24673;}
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(21439);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
if(!qbevent)break;evnt(21440);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ;
if(!qbevent)break;evnt(21441);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ;
if(!qbevent)break;evnt(21442);}while(r);
}
fornext_continue_3302:;
}
fornext_exit_3302:;
S_24681:;
if (((-(*_FUNC_EVALUATEFUNC_LONG_CURARG<=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+813)))))&(~(*(int8*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+812))))))||is_error_pending()){
if(qbevent){evnt(21449);if(r)goto S_24681;}
S_24682:;
fornext_value3405=*_FUNC_EVALUATEFUNC_LONG_CURARG;
fornext_finalvalue3405=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+813)));
fornext_step3405= 1 ;
if (fornext_step3405<0) fornext_step_negative3405=1; else fornext_step_negative3405=0;
if (is_error_pending()) goto fornext_error3405;
goto fornext_entrylabel3405;
while(1){
fornext_value3405=fornext_step3405+(*_FUNC_EVALUATEFUNC_LONG_I);
fornext_entrylabel3405:
*_FUNC_EVALUATEFUNC_LONG_I=fornext_value3405;
if (fornext_step_negative3405){
if (fornext_value3405<fornext_finalvalue3405) break;
}else{
if (fornext_value3405>fornext_finalvalue3405) break;
}
fornext_error3405:;
if(qbevent){evnt(21450);if(r)goto S_24682;}
S_24683:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_I== 1 ))||is_error_pending()){
if(qbevent){evnt(21451);if(r)goto S_24683;}
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(21451);}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(21451);}while(r);
}
fornext_continue_3404:;
}
fornext_exit_3404:;
}
}
S_24691:;
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(21456);if(r)goto S_24691;}
S_24692:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5))))||is_error_pending()){
if(qbevent){evnt(21457);if(r)goto S_24692;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",1",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21457);}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(21458);}while(r);
S_24696:;
if ((*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED)||is_error_pending()){
if(qbevent){evnt(21463);if(r)goto S_24696;}
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(21464);}while(r);
S_24698:;
if ((*_FUNC_EVALUATEFUNC_LONG_S1)||is_error_pending()){
if(qbevent){evnt(21465);if(r)goto S_24698;}
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(21465);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_S2= 0 ;
if(!qbevent)break;evnt(21465);}while(r);
}
S_24703:;
if ((*_FUNC_EVALUATEFUNC_LONG_S2)||is_error_pending()){
if(qbevent){evnt(21466);if(r)goto S_24703;}
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(21467);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_LONG_S3= 0 ;
if(!qbevent)break;evnt(21469);}while(r);
}
S_24708:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_S3== 0 ))||is_error_pending()){
if(qbevent){evnt(21472);if(r)goto S_24708;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21472);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21472);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ULBOUNDID=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,*_FUNC_EVALUATEFUNC_LONG_S1- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21474);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_EPOS1=*_FUNC_EVALUATEFUNC_LONG_S2+1;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21475);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_EPOS2=*_FUNC_EVALUATEFUNC_LONG_S3- 1 ;
if(!qbevent)break;evnt(21476);}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(21477);}while(r);
S_24716:;
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(21478);if(r)goto S_24716;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21478);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21478);}while(r);
}
do{
SUB_GETID(_FUNC_EVALUATEFUNC_LONG_ULBOUNDID);
if(!qbevent)break;evnt(21480);}while(r);
S_24721:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21481);if(r)goto S_24721;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21481);}while(r);
}
S_24724:;
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
if(qbevent){evnt(21482);if(r)goto S_24724;}
do{
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISDYN= -1 ;
if(!qbevent)break;evnt(21482);}while(r);
}else{
do{
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISDYN= 0 ;
if(!qbevent)break;evnt(21482);}while(r);
}
S_24729:;
if ((*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISDYN)||is_error_pending()){
if(qbevent){evnt(21484);if(r)goto S_24729;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDOFFSET,func_mid(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,*_FUNC_EVALUATEFUNC_LONG_S3+1,NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21485);}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDBASE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21486);}while(r);
S_24732:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(21487);if(r)goto S_24732;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDBASE,qbs_add(_FUNC_EVALUATEFUNC_STRING_ULBOUNDBASE,qbs_new_txt_len("[0]",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21487);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDDESC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((ptrszint**)(((char*)",24),_FUNC_EVALUATEFUNC_STRING_ULBOUNDBASE),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATEFUNC_STRING_ULBOUNDOFFSET),qbs_new_txt_len("))))",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21488);}while(r);
S_24736:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6))))||is_error_pending()){
if(qbevent){evnt(21489);if(r)goto S_24736;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_UDTDYNARRAYBOUNDEXPR(_FUNC_EVALUATEFUNC_STRING_ULBOUNDDESC,_FUNC_EVALUATEFUNC_STRING_DIM_EXPR,&(pass3410= -1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21490);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_UDTDYNARRAYBOUNDEXPR(_FUNC_EVALUATEFUNC_STRING_ULBOUNDDESC,_FUNC_EVALUATEFUNC_STRING_DIM_EXPR,&(pass3411= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21492);}while(r);
}
}else{
S_24742:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6))))||is_error_pending()){
if(qbevent){evnt(21495);if(r)goto S_24742;}
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,&(pass3412= -1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21496);}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,&(pass3413= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21498);}while(r);
}
}
S_24748:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21501);if(r)goto S_24748;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21501);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(21503);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(21504);}while(r);
}
S_24754:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6))))||is_error_pending()){
if(qbevent){evnt(21507);if(r)goto S_24754;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_ubound(",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21507);}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(21507);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass3414= 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21508);}while(r);
S_24760:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(21509);if(r)goto S_24760;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(21509);}while(r);
}
do{
*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+((0+516)));
if(!qbevent)break;evnt(21512);}while(r);
S_24764:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS== -1 ))||is_error_pending()){
if(qbevent){evnt(21513);if(r)goto S_24764;}
do{
*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS= 1 ;
if(!qbevent)break;evnt(21513);}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(21516);}while(r);
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(21517);}while(r);
do{
goto LABEL_EVALFUNCSPECIAL;
if(!qbevent)break;evnt(21518);}while(r);
}
S_24771:;
if ((*_FUNC_EVALUATEFUNC_LONG_PASSOMIT)||is_error_pending()){
if(qbevent){evnt(21521);if(r)goto S_24771;}
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(21522);}while(r);
S_24773:;
if ((*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG)||is_error_pending()){
if(qbevent){evnt(21524);if(r)goto S_24773;}
S_24774:;
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(21525);if(r)goto S_24774;}
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(21525);}while(r);
}
}else{
S_24778:;
fornext_value3416=*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT;
fornext_finalvalue3416=func_ubound(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,1,1);
fornext_step3416= 1 ;
if (fornext_step3416<0) fornext_step_negative3416=1; else fornext_step_negative3416=0;
if (is_error_pending()) goto fornext_error3416;
goto fornext_entrylabel3416;
while(1){
fornext_value3416=fornext_step3416+(*_FUNC_EVALUATEFUNC_LONG_I);
fornext_entrylabel3416:
*_FUNC_EVALUATEFUNC_LONG_I=fornext_value3416;
if (fornext_step_negative3416){
if (fornext_value3416<fornext_finalvalue3416) break;
}else{
if (fornext_value3416>fornext_finalvalue3416) break;
}
fornext_error3416:;
if(qbevent){evnt(21527);if(r)goto S_24778;}
S_24779:;
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(21528);if(r)goto S_24779;}
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(21528);}while(r);
}
fornext_continue_3415:;
}
fornext_exit_3415:;
}
}
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(21532);}while(r);
S_24786:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALUATEFUNC_STRING_FUNCARGPREP,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(21533);if(r)goto S_24786;}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("([&](){",7),_FUNC_EVALUATEFUNC_STRING_FUNCARGPREP),qbs_new_txt_len("return ",7)),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(";})()",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21533);}while(r);
}
LABEL_EVALFUNCSPECIAL:;
if(qbevent){evnt(21535);r=0;}
S_24789:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ABS",3))))||is_error_pending()){
if(qbevent){evnt(21537);if(r)goto S_24789;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
if(!qbevent)break;evnt(21537);}while(r);
}
S_24792:;
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(21540);if(r)goto S_24792;}
do{
*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
if(!qbevent)break;evnt(21541);}while(r);
S_24794:;
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(21542);if(r)goto S_24794;}
S_24795:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 64 ))||is_error_pending()){
if(qbevent){evnt(21544);if(r)goto S_24795;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(21544);}while(r);
}
S_24798:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 32 ))||is_error_pending()){
if(qbevent){evnt(21545);if(r)goto S_24798;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(21545);}while(r);
}
}else{
S_24802:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 32 ))||is_error_pending()){
if(qbevent){evnt(21548);if(r)goto S_24802;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(21548);}while(r);
}
S_24805:;
if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 16 ))||is_error_pending()){
if(qbevent){evnt(21549);if(r)goto S_24805;}
do{
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(21549);}while(r);
}
}
}
S_24810:;
if ((-(*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2385)))==(*__LONG_ISUDT+( 1 ))))||is_error_pending()){
if(qbevent){evnt(21553);if(r)goto S_24810;}
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(21555);}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(21556);}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(21557);}while(r);
}
S_24815:;
if ((*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+810))))||is_error_pending()){
if(qbevent){evnt(21560);if(r)goto S_24815;}
S_24816:;
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(21561);if(r)goto S_24816;}
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(21562);}while(r);
}
}
S_24820:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(21566);if(r)goto S_24820;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3417;
sub_file_print(tmp_fileno,qbs_new_txt_len("evaluatefunc:out:",17), 0, 0, 0);
if (is_error_pending()) goto skip3417;
sub_file_print(tmp_fileno,_FUNC_EVALUATEFUNC_STRING_R, 0, 0, 1);
if (is_error_pending()) goto skip3417;
skip3417:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(21566);}while(r);
}
do{
qbs_set(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC,_FUNC_EVALUATEFUNC_STRING_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(21567);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free55.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;
}
