#line 20214 "qb64pe.bas"
qbs* FUNC_EVALUATEFUNC(qbs*_FUNC_EVALUATEFUNC_STRING_A2,int32*_FUNC_EVALUATEFUNC_LONG_ARGS,int32*_FUNC_EVALUATEFUNC_LONG_TYP){
#line 20214 "qb64pe.bas"
qbs *tqbs;
#line 20214 "qb64pe.bas"
ptrszint tmp_long;
#line 20214 "qb64pe.bas"
int32 tmp_fileno;
#line 20214 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 20214 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 20214 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 20214 "qb64pe.bas"
#include "data65.txt"
#line 20214 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 20214 "qb64pe.bas"
new_mem_lock();
#line 20214 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 20214 "qb64pe.bas"
sf_mem_lock->type=3;
#line 20214 "qb64pe.bas"
libqb_check_stack();
#line 20214 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 20215 "qb64pe.bas"
do{
#line 20215 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_STRING_A2);
#line 20215 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20215 "qb64pe.bas"
if(!qbevent)break;evnt(20215);}while(r);
#line 20217 "qb64pe.bas"
do{
#line 20217 "qb64pe.bas"
if(!qbevent)break;evnt(20217);}while(r);
#line 20218 "qb64pe.bas"
do{
#line 20218 "qb64pe.bas"
if(!qbevent)break;evnt(20218);}while(r);
#line 20219 "qb64pe.bas"
do{
#line 20219 "qb64pe.bas"
if(!qbevent)break;evnt(20219);}while(r);
#line 20220 "qb64pe.bas"
do{
#line 20220 "qb64pe.bas"
if(!qbevent)break;evnt(20220);}while(r);
#line 20221 "qb64pe.bas"
do{
#line 20221 "qb64pe.bas"
if(!qbevent)break;evnt(20221);}while(r);
#line 20222 "qb64pe.bas"
do{
#line 20222 "qb64pe.bas"
if(!qbevent)break;evnt(20222);}while(r);
#line 20223 "qb64pe.bas"
do{
#line 20223 "qb64pe.bas"
if(!qbevent)break;evnt(20223);}while(r);
#line 20224 "qb64pe.bas"
do{
#line 20224 "qb64pe.bas"
if(!qbevent)break;evnt(20224);}while(r);
#line 20225 "qb64pe.bas"
do{
#line 20225 "qb64pe.bas"
if(!qbevent)break;evnt(20225);}while(r);
#line 20228 "qb64pe.bas"
S_23263:;
#line 20228 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 20228 "qb64pe.bas"
if(qbevent){evnt(20228);if(r)goto S_23263;}
#line 20228 "qb64pe.bas"
do{
#line 20228 "qb64pe.bas"
tab_spc_cr_size=2;
#line 20228 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 20228 "qb64pe.bas"
if (is_error_pending()) goto skip2650;
#line 20228 "qb64pe.bas"
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);
#line 20228 "qb64pe.bas"
if (is_error_pending()) goto skip2650;
#line 20228 "qb64pe.bas"
skip2650:
#line 20228 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20228 "qb64pe.bas"
tab_spc_cr_size=1;
#line 20228 "qb64pe.bas"
if(!qbevent)break;evnt(20228);}while(r);
#line 20228 "qb64pe.bas"
}
#line 20230 "qb64pe.bas"
do{
#line 20230 "qb64pe.bas"
if(!qbevent)break;evnt(20230);}while(r);
#line 20232 "qb64pe.bas"
do{
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+0))),(((char*)__UDT_ID)+((0+0))+((0+0))),256);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+256))),(((char*)__UDT_ID)+((0+0))+((0+256))),256);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+512))),(((char*)__UDT_ID)+((0+0))+((0+512))),4);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+516))),(((char*)__UDT_ID)+((0+0))+((0+516))),2);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+518))),(((char*)__UDT_ID)+((0+0))+((0+518))),2);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+520))),(((char*)__UDT_ID)+((0+0))+((0+520))),2);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+522))),(((char*)__UDT_ID)+((0+0))+((0+522))),2);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+524))),(((char*)__UDT_ID)+((0+0))+((0+524))),8);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+532))),(((char*)__UDT_ID)+((0+0))+((0+532))),8);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+540))),(((char*)__UDT_ID)+((0+0))+((0+540))),4);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+544))),(((char*)__UDT_ID)+((0+0))+((0+544))),4);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+548))),(((char*)__UDT_ID)+((0+0))+((0+548))),2);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+550))),(((char*)__UDT_ID)+((0+0))+((0+550))),2);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+552))),(((char*)__UDT_ID)+((0+0))+((0+552))),2);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+554))),(((char*)__UDT_ID)+((0+0))+((0+554))),256);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+810))),(((char*)__UDT_ID)+((0+0))+((0+810))),2);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+812))),(((char*)__UDT_ID)+((0+0))+((0+812))),1);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+813))),(((char*)__UDT_ID)+((0+0))+((0+813))),2);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+815))),(((char*)__UDT_ID)+((0+0))+((0+815))),2);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+817))),(((char*)__UDT_ID)+((0+0))+((0+817))),400);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+1217))),(((char*)__UDT_ID)+((0+0))+((0+1217))),400);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+1617))),(((char*)__UDT_ID)+((0+0))+((0+1617))),256);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+1873))),(((char*)__UDT_ID)+((0+0))+((0+1873))),256);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2129))),(((char*)__UDT_ID)+((0+0))+((0+2129))),256);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2385))),(((char*)__UDT_ID)+((0+0))+((0+2385))),4);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2389))),(((char*)__UDT_ID)+((0+0))+((0+2389))),256);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2645))),(((char*)__UDT_ID)+((0+0))+((0+2645))),4);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2649))),(((char*)__UDT_ID)+((0+0))+((0+2649))),2);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2651))),(((char*)__UDT_ID)+((0+0))+((0+2651))),100);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2751))),(((char*)__UDT_ID)+((0+0))+((0+2751))),100);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2851))),(((char*)__UDT_ID)+((0+0))+((0+2851))),100);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2951))),(((char*)__UDT_ID)+((0+0))+((0+2951))),4);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2955))),(((char*)__UDT_ID)+((0+0))+((0+2955))),2);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2957))),(((char*)__UDT_ID)+((0+0))+((0+2957))),2);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2959))),(((char*)__UDT_ID)+((0+0))+((0+2959))),4);
#line 20232 "qb64pe.bas"
memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2963))),(((char*)__UDT_ID)+((0+0))+((0+2963))),2);
#line 20232 "qb64pe.bas"
qbs_set(*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2965))),*(qbs**)(((char*)__UDT_ID)+((0+0))+((0+2965))));
#line 20232 "qb64pe.bas"
if(!qbevent)break;evnt(20232);}while(r);
#line 20233 "qb64pe.bas"
do{
#line 20233 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))),256,1)));
#line 20233 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20233 "qb64pe.bas"
if(!qbevent)break;evnt(20233);}while(r);
#line 20234 "qb64pe.bas"
do{
#line 20234 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2385)));
#line 20234 "qb64pe.bas"
if(!qbevent)break;evnt(20234);}while(r);
#line 20235 "qb64pe.bas"
do{
#line 20235 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TARGETID=*__LONG_CURRENTID;
#line 20235 "qb64pe.bas"
if(!qbevent)break;evnt(20235);}while(r);
#line 20237 "qb64pe.bas"
S_23271:;
#line 20237 "qb64pe.bas"
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()){
#line 20237 "qb64pe.bas"
if(qbevent){evnt(20237);if(r)goto S_23271;}
#line 20237 "qb64pe.bas"
do{
#line 20237 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Command not implemented",23));
#line 20237 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20237 "qb64pe.bas"
if(!qbevent)break;evnt(20237);}while(r);
#line 20237 "qb64pe.bas"
do{
#line 20237 "qb64pe.bas"
goto exit_subfunc;
#line 20237 "qb64pe.bas"
if(!qbevent)break;evnt(20237);}while(r);
#line 20237 "qb64pe.bas"
}
#line 20238 "qb64pe.bas"
S_23275:;
#line 20238 "qb64pe.bas"
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()){
#line 20238 "qb64pe.bas"
if(qbevent){evnt(20238);if(r)goto S_23275;}
#line 20239 "qb64pe.bas"
do{
#line 20239 "qb64pe.bas"
*__BYTE_INPUTFUNCTIONCALLED= -1 ;
#line 20239 "qb64pe.bas"
if(!qbevent)break;evnt(20239);}while(r);
#line 20240 "qb64pe.bas"
S_23277:;
#line 20240 "qb64pe.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 20240 "qb64pe.bas"
if(qbevent){evnt(20240);if(r)goto S_23277;}
#line 20241 "qb64pe.bas"
do{
#line 20241 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102));
#line 20241 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20241 "qb64pe.bas"
if(!qbevent)break;evnt(20241);}while(r);
#line 20242 "qb64pe.bas"
}
#line 20243 "qb64pe.bas"
}
#line 20245 "qb64pe.bas"
do{
#line 20245 "qb64pe.bas"
SUB_SETDEPENDENCY(&(pass2651=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+550)))));
#line 20245 "qb64pe.bas"
if(!qbevent)break;evnt(20245);}while(r);
#line 20247 "qb64pe.bas"
do{
#line 20247 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT=FUNC_COUNTFUNCTIONELEMENTS(_FUNC_EVALUATEFUNC_STRING_A);
#line 20247 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20247 "qb64pe.bas"
if(!qbevent)break;evnt(20247);}while(r);
#line 20248 "qb64pe.bas"
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];
}
#line 20248 "qb64pe.bas"
if(!qbevent)break;evnt(20248);}while(r);
#line 20250 "qb64pe.bas"
do{
#line 20250 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 0 ;
#line 20250 "qb64pe.bas"
if(!qbevent)break;evnt(20250);}while(r);
#line 20251 "qb64pe.bas"
do{
#line 20251 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG= 0 ;
#line 20251 "qb64pe.bas"
if(!qbevent)break;evnt(20251);}while(r);
#line 20252 "qb64pe.bas"
do{
#line 20252 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT= 0 ;
#line 20252 "qb64pe.bas"
if(!qbevent)break;evnt(20252);}while(r);
#line 20254 "qb64pe.bas"
do{
#line 20254 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_F,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+1617))),256,1)));
#line 20254 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20254 "qb64pe.bas"
if(!qbevent)break;evnt(20254);}while(r);
#line 20255 "qb64pe.bas"
S_23288:;
#line 20255 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_EVALUATEFUNC_STRING_F->len))||is_error_pending()){
#line 20255 "qb64pe.bas"
if(qbevent){evnt(20255);if(r)goto S_23288;}
#line 20257 "qb64pe.bas"
S_23289:;
#line 20257 "qb64pe.bas"
fornext_value2654= 1 ;
#line 20257 "qb64pe.bas"
fornext_finalvalue2654=*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT;
#line 20257 "qb64pe.bas"
fornext_step2654= 1 ;
#line 20257 "qb64pe.bas"
if (fornext_step2654<0) fornext_step_negative2654=1; else fornext_step_negative2654=0;
#line 20257 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2654;
#line 20257 "qb64pe.bas"
goto fornext_entrylabel2654;
#line 20257 "qb64pe.bas"
while(1){
#line 20257 "qb64pe.bas"
fornext_value2654=fornext_step2654+(*_FUNC_EVALUATEFUNC_LONG_FI);
#line 20257 "qb64pe.bas"
fornext_entrylabel2654:
#line 20257 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2654;
#line 20257 "qb64pe.bas"
if (fornext_step_negative2654){
#line 20257 "qb64pe.bas"
if (fornext_value2654<fornext_finalvalue2654) break;
#line 20257 "qb64pe.bas"
}else{
#line 20257 "qb64pe.bas"
if (fornext_value2654>fornext_finalvalue2654) break;
#line 20257 "qb64pe.bas"
}
#line 20257 "qb64pe.bas"
fornext_error2654:;
#line 20257 "qb64pe.bas"
if(qbevent){evnt(20257);if(r)goto S_23289;}
#line 20258 "qb64pe.bas"
do{
#line 20258 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_FI)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]);
#line 20258 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]=FUNC_HASFUNCTIONELEMENT(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FI);
#line 20258 "qb64pe.bas"
if(!qbevent)break;evnt(20258);}while(r);
#line 20259 "qb64pe.bas"
fornext_continue_2653:;
#line 20259 "qb64pe.bas"
}
#line 20259 "qb64pe.bas"
fornext_exit_2653:;
#line 20262 "qb64pe.bas"
S_23292:;
#line 20262 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_F,qbs_new_txt_len("[?],?,?",7))))||is_error_pending()){
#line 20262 "qb64pe.bas"
if(qbevent){evnt(20262);if(r)goto S_23292;}
#line 20263 "qb64pe.bas"
do{
#line 20263 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG= -1 ;
#line 20263 "qb64pe.bas"
if(!qbevent)break;evnt(20263);}while(r);
#line 20265 "qb64pe.bas"
S_23294:;
#line 20265 "qb64pe.bas"
if ((-(func_ubound(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,1,1)== 2 ))||is_error_pending()){
#line 20265 "qb64pe.bas"
if(qbevent){evnt(20265);if(r)goto S_23294;}
#line 20266 "qb64pe.bas"
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];
}
#line 20266 "qb64pe.bas"
if(!qbevent)break;evnt(20266);}while(r);
#line 20268 "qb64pe.bas"
do{
#line 20268 "qb64pe.bas"
tmp_long=array_check(( 3 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]);
#line 20268 "qb64pe.bas"
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])];
#line 20268 "qb64pe.bas"
if(!qbevent)break;evnt(20268);}while(r);
#line 20269 "qb64pe.bas"
do{
#line 20269 "qb64pe.bas"
tmp_long=array_check(( 2 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]);
#line 20269 "qb64pe.bas"
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])];
#line 20269 "qb64pe.bas"
if(!qbevent)break;evnt(20269);}while(r);
#line 20270 "qb64pe.bas"
do{
#line 20270 "qb64pe.bas"
tmp_long=array_check(( 1 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]);
#line 20270 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]= 0 ;
#line 20270 "qb64pe.bas"
if(!qbevent)break;evnt(20270);}while(r);
#line 20272 "qb64pe.bas"
do{
#line 20272 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG= -1 ;
#line 20272 "qb64pe.bas"
if(!qbevent)break;evnt(20272);}while(r);
#line 20273 "qb64pe.bas"
}
#line 20274 "qb64pe.bas"
}
#line 20276 "qb64pe.bas"
S_23302:;
#line 20276 "qb64pe.bas"
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()){
#line 20276 "qb64pe.bas"
if(qbevent){evnt(20276);if(r)goto S_23302;}
#line 20277 "qb64pe.bas"
S_23303:;
#line 20277 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2965))))->len> 0 )))||is_error_pending()){
#line 20277 "qb64pe.bas"
if(qbevent){evnt(20277);if(r)goto S_23303;}
#line 20278 "qb64pe.bas"
do{
#line 20278 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Incorrect number of arguments - Reference: ",43),*((qbs**)((char*)_FUNC_EVALUATEFUNC_UDT_ID2+((0+2965))))));
#line 20278 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20278 "qb64pe.bas"
if(!qbevent)break;evnt(20278);}while(r);
#line 20279 "qb64pe.bas"
}else{
#line 20280 "qb64pe.bas"
do{
#line 20280 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments passed to function",48));
#line 20280 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20280 "qb64pe.bas"
if(!qbevent)break;evnt(20280);}while(r);
#line 20281 "qb64pe.bas"
}
#line 20282 "qb64pe.bas"
do{
#line 20282 "qb64pe.bas"
goto exit_subfunc;
#line 20282 "qb64pe.bas"
if(!qbevent)break;evnt(20282);}while(r);
#line 20283 "qb64pe.bas"
}
#line 20285 "qb64pe.bas"
do{
#line 20285 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 1 ;
#line 20285 "qb64pe.bas"
if(!qbevent)break;evnt(20285);}while(r);
#line 20287 "qb64pe.bas"
}else{
#line 20289 "qb64pe.bas"
S_23312:;
#line 20289 "qb64pe.bas"
fornext_value2656= 1 ;
#line 20289 "qb64pe.bas"
fornext_finalvalue2656=*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT;
#line 20289 "qb64pe.bas"
fornext_step2656= 1 ;
#line 20289 "qb64pe.bas"
if (fornext_step2656<0) fornext_step_negative2656=1; else fornext_step_negative2656=0;
#line 20289 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2656;
#line 20289 "qb64pe.bas"
goto fornext_entrylabel2656;
#line 20289 "qb64pe.bas"
while(1){
#line 20289 "qb64pe.bas"
fornext_value2656=fornext_step2656+(*_FUNC_EVALUATEFUNC_LONG_FI);
#line 20289 "qb64pe.bas"
fornext_entrylabel2656:
#line 20289 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2656;
#line 20289 "qb64pe.bas"
if (fornext_step_negative2656){
#line 20289 "qb64pe.bas"
if (fornext_value2656<fornext_finalvalue2656) break;
#line 20289 "qb64pe.bas"
}else{
#line 20289 "qb64pe.bas"
if (fornext_value2656>fornext_finalvalue2656) break;
#line 20289 "qb64pe.bas"
}
#line 20289 "qb64pe.bas"
fornext_error2656:;
#line 20289 "qb64pe.bas"
if(qbevent){evnt(20289);if(r)goto S_23312;}
#line 20290 "qb64pe.bas"
do{
#line 20290 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_FI)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]);
#line 20290 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]= -1 ;
#line 20290 "qb64pe.bas"
if(!qbevent)break;evnt(20290);}while(r);
#line 20291 "qb64pe.bas"
fornext_continue_2655:;
#line 20291 "qb64pe.bas"
}
#line 20291 "qb64pe.bas"
fornext_exit_2655:;
#line 20293 "qb64pe.bas"
S_23315:;
#line 20293 "qb64pe.bas"
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()){
#line 20293 "qb64pe.bas"
if(qbevent){evnt(20293);if(r)goto S_23315;}
#line 20293 "qb64pe.bas"
do{
#line 20293 "qb64pe.bas"
goto LABEL_SKIPARGNUMCHK;
#line 20293 "qb64pe.bas"
if(!qbevent)break;evnt(20293);}while(r);
#line 20293 "qb64pe.bas"
}
#line 20294 "qb64pe.bas"
S_23318:;
#line 20294 "qb64pe.bas"
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()){
#line 20294 "qb64pe.bas"
if(qbevent){evnt(20294);if(r)goto S_23318;}
#line 20294 "qb64pe.bas"
do{
#line 20294 "qb64pe.bas"
goto LABEL_SKIPARGNUMCHK;
#line 20294 "qb64pe.bas"
if(!qbevent)break;evnt(20294);}while(r);
#line 20294 "qb64pe.bas"
}
#line 20296 "qb64pe.bas"
S_23321:;
#line 20296 "qb64pe.bas"
if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+813)))!=*_FUNC_EVALUATEFUNC_LONG_ARGS))||is_error_pending()){
#line 20296 "qb64pe.bas"
if(qbevent){evnt(20296);if(r)goto S_23321;}
#line 20297 "qb64pe.bas"
S_23322:;
#line 20297 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2965))))->len> 0 )))||is_error_pending()){
#line 20297 "qb64pe.bas"
if(qbevent){evnt(20297);if(r)goto S_23322;}
#line 20298 "qb64pe.bas"
do{
#line 20298 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Incorrect number of arguments - Reference: ",43),*((qbs**)((char*)_FUNC_EVALUATEFUNC_UDT_ID2+((0+2965))))));
#line 20298 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20298 "qb64pe.bas"
if(!qbevent)break;evnt(20298);}while(r);
#line 20299 "qb64pe.bas"
}else{
#line 20300 "qb64pe.bas"
do{
#line 20300 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments passed to function",48));
#line 20300 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20300 "qb64pe.bas"
if(!qbevent)break;evnt(20300);}while(r);
#line 20301 "qb64pe.bas"
}
#line 20302 "qb64pe.bas"
do{
#line 20302 "qb64pe.bas"
goto exit_subfunc;
#line 20302 "qb64pe.bas"
if(!qbevent)break;evnt(20302);}while(r);
#line 20303 "qb64pe.bas"
}
#line 20305 "qb64pe.bas"
}
#line 20307 "qb64pe.bas"
LABEL_SKIPARGNUMCHK:;
#line 20307 "qb64pe.bas"
if(qbevent){evnt(20307);r=0;}
#line 20309 "qb64pe.bas"
do{
#line 20309 "qb64pe.bas"
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)));
#line 20309 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20309 "qb64pe.bas"
if(!qbevent)break;evnt(20309);}while(r);
#line 20310 "qb64pe.bas"
do{
#line 20310 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_FUNCARGPREP,qbs_new_txt_len("",0));
#line 20310 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20310 "qb64pe.bas"
if(!qbevent)break;evnt(20310);}while(r);
#line 20313 "qb64pe.bas"
S_23332:;
#line 20313 "qb64pe.bas"
if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+813)))!= 0 ))||is_error_pending()){
#line 20313 "qb64pe.bas"
if(qbevent){evnt(20313);if(r)goto S_23332;}
#line 20315 "qb64pe.bas"
do{
#line 20315 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CURARG= 1 ;
#line 20315 "qb64pe.bas"
if(!qbevent)break;evnt(20315);}while(r);
#line 20316 "qb64pe.bas"
do{
#line 20316 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_FIRSTI= 1 ;
#line 20316 "qb64pe.bas"
if(!qbevent)break;evnt(20316);}while(r);
#line 20320 "qb64pe.bas"
S_23335:;
#line 20320 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
#line 20320 "qb64pe.bas"
if(qbevent){evnt(20320);if(r)goto S_23335;}
#line 20321 "qb64pe.bas"
do{
#line 20321 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL,",5)));
#line 20321 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20321 "qb64pe.bas"
if(!qbevent)break;evnt(20321);}while(r);
#line 20322 "qb64pe.bas"
do{
#line 20322 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CURARG= 2 ;
#line 20322 "qb64pe.bas"
if(!qbevent)break;evnt(20322);}while(r);
#line 20323 "qb64pe.bas"
}
#line 20325 "qb64pe.bas"
do{
#line 20325 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATEFUNC_STRING_A);
#line 20325 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20325 "qb64pe.bas"
if(!qbevent)break;evnt(20325);}while(r);
#line 20327 "qb64pe.bas"
S_23340:;
#line 20327 "qb64pe.bas"
fornext_value2658= 1 ;
#line 20327 "qb64pe.bas"
fornext_finalvalue2658=*_FUNC_EVALUATEFUNC_LONG_N;
#line 20327 "qb64pe.bas"
fornext_step2658= 1 ;
#line 20327 "qb64pe.bas"
if (fornext_step2658<0) fornext_step_negative2658=1; else fornext_step_negative2658=0;
#line 20327 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2658;
#line 20327 "qb64pe.bas"
goto fornext_entrylabel2658;
#line 20327 "qb64pe.bas"
while(1){
#line 20327 "qb64pe.bas"
fornext_value2658=fornext_step2658+(*_FUNC_EVALUATEFUNC_LONG_I);
#line 20327 "qb64pe.bas"
fornext_entrylabel2658:
#line 20327 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2658;
#line 20327 "qb64pe.bas"
if (fornext_step_negative2658){
#line 20327 "qb64pe.bas"
if (fornext_value2658<fornext_finalvalue2658) break;
#line 20327 "qb64pe.bas"
}else{
#line 20327 "qb64pe.bas"
if (fornext_value2658>fornext_finalvalue2658) break;
#line 20327 "qb64pe.bas"
}
#line 20327 "qb64pe.bas"
fornext_error2658:;
#line 20327 "qb64pe.bas"
if(qbevent){evnt(20327);if(r)goto S_23340;}
#line 20328 "qb64pe.bas"
do{
#line 20328 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_L,FUNC_GETELEMENT(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_I));
#line 20328 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20328 "qb64pe.bas"
if(!qbevent)break;evnt(20328);}while(r);
#line 20329 "qb64pe.bas"
S_23342:;
#line 20329 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 20329 "qb64pe.bas"
if(qbevent){evnt(20329);if(r)goto S_23342;}
#line 20329 "qb64pe.bas"
do{
#line 20329 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B+ 1 ;
#line 20329 "qb64pe.bas"
if(!qbevent)break;evnt(20329);}while(r);
#line 20329 "qb64pe.bas"
}
#line 20330 "qb64pe.bas"
S_23345:;
#line 20330 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 20330 "qb64pe.bas"
if(qbevent){evnt(20330);if(r)goto S_23345;}
#line 20330 "qb64pe.bas"
do{
#line 20330 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B- 1 ;
#line 20330 "qb64pe.bas"
if(!qbevent)break;evnt(20330);}while(r);
#line 20330 "qb64pe.bas"
}
#line 20331 "qb64pe.bas"
S_23348:;
#line 20331 "qb64pe.bas"
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()){
#line 20331 "qb64pe.bas"
if(qbevent){evnt(20331);if(r)goto S_23348;}
#line 20332 "qb64pe.bas"
S_23349:;
#line 20332 "qb64pe.bas"
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()){
#line 20332 "qb64pe.bas"
if(qbevent){evnt(20332);if(r)goto S_23349;}
#line 20333 "qb64pe.bas"
S_23350:;
#line 20333 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||is_error_pending()){
#line 20333 "qb64pe.bas"
if(qbevent){evnt(20333);if(r)goto S_23350;}
#line 20333 "qb64pe.bas"
do{
#line 20333 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Last function argument cannot be empty",38));
#line 20333 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20333 "qb64pe.bas"
if(!qbevent)break;evnt(20333);}while(r);
#line 20333 "qb64pe.bas"
do{
#line 20333 "qb64pe.bas"
goto exit_subfunc;
#line 20333 "qb64pe.bas"
if(!qbevent)break;evnt(20333);}while(r);
#line 20333 "qb64pe.bas"
}
#line 20335 "qb64pe.bas"
do{
#line 20335 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL,",5)));
#line 20335 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20335 "qb64pe.bas"
if(!qbevent)break;evnt(20335);}while(r);
#line 20336 "qb64pe.bas"
do{
#line 20336 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ;
#line 20336 "qb64pe.bas"
if(!qbevent)break;evnt(20336);}while(r);
#line 20337 "qb64pe.bas"
do{
#line 20337 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ;
#line 20337 "qb64pe.bas"
if(!qbevent)break;evnt(20337);}while(r);
#line 20338 "qb64pe.bas"
do{
#line 20338 "qb64pe.bas"
goto fornext_continue_2657;
#line 20338 "qb64pe.bas"
if(!qbevent)break;evnt(20338);}while(r);
#line 20339 "qb64pe.bas"
}
#line 20341 "qb64pe.bas"
do{
#line 20341 "qb64pe.bas"
*_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));
#line 20341 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20341 "qb64pe.bas"
if(!qbevent)break;evnt(20341);}while(r);
#line 20342 "qb64pe.bas"
do{
#line 20342 "qb64pe.bas"
*_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));
#line 20342 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20342 "qb64pe.bas"
if(!qbevent)break;evnt(20342);}while(r);
#line 20343 "qb64pe.bas"
do{
#line 20343 "qb64pe.bas"
*_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));
#line 20343 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20343 "qb64pe.bas"
if(!qbevent)break;evnt(20343);}while(r);
#line 20345 "qb64pe.bas"
S_23362:;
#line 20345 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||is_error_pending()){
#line 20345 "qb64pe.bas"
if(qbevent){evnt(20345);if(r)goto S_23362;}
#line 20346 "qb64pe.bas"
do{
#line 20346 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,_FUNC_EVALUATEFUNC_LONG_I));
#line 20346 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20346 "qb64pe.bas"
if(!qbevent)break;evnt(20346);}while(r);
#line 20347 "qb64pe.bas"
}else{
#line 20348 "qb64pe.bas"
do{
#line 20348 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,&(pass2659=*_FUNC_EVALUATEFUNC_LONG_I- 1 )));
#line 20348 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20348 "qb64pe.bas"
if(!qbevent)break;evnt(20348);}while(r);
#line 20349 "qb64pe.bas"
}
#line 20351 "qb64pe.bas"
S_23367:;
#line 20351 "qb64pe.bas"
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()){
#line 20351 "qb64pe.bas"
if(qbevent){evnt(20351);if(r)goto S_23367;}
#line 20351 "qb64pe.bas"
do{
#line 20351 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 1 ;
#line 20351 "qb64pe.bas"
if(!qbevent)break;evnt(20351);}while(r);
#line 20351 "qb64pe.bas"
}else{
#line 20351 "qb64pe.bas"
do{
#line 20351 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 0 ;
#line 20351 "qb64pe.bas"
if(!qbevent)break;evnt(20351);}while(r);
#line 20351 "qb64pe.bas"
}
#line 20355 "qb64pe.bas"
S_23372:;
#line 20355 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("VAL",3))))||is_error_pending()){
#line 20355 "qb64pe.bas"
if(qbevent){evnt(20355);if(r)goto S_23372;}
#line 20356 "qb64pe.bas"
S_23373:;
#line 20356 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
#line 20356 "qb64pe.bas"
if(qbevent){evnt(20356);if(r)goto S_23373;}
#line 20357 "qb64pe.bas"
do{
#line 20357 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_VALRETURNTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
#line 20357 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20357 "qb64pe.bas"
if(!qbevent)break;evnt(20357);}while(r);
#line 20358 "qb64pe.bas"
S_23375:;
#line 20358 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20358 "qb64pe.bas"
if(qbevent){evnt(20358);if(r)goto S_23375;}
#line 20358 "qb64pe.bas"
do{
#line 20358 "qb64pe.bas"
goto exit_subfunc;
#line 20358 "qb64pe.bas"
if(!qbevent)break;evnt(20358);}while(r);
#line 20358 "qb64pe.bas"
}
#line 20360 "qb64pe.bas"
S_23378:;
#line 20360 "qb64pe.bas"
if(qbevent){evnt(20360);if(r)goto S_23378;}
#line 20361 "qb64pe.bas"
S_23379:;
#line 20361 "qb64pe.bas"
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()){
#line 20361 "qb64pe.bas"
if(qbevent){evnt(20361);if(r)goto S_23379;}
#line 20362 "qb64pe.bas"
do{
#line 20362 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 20362 "qb64pe.bas"
if(!qbevent)break;evnt(20362);}while(r);
#line 20363 "qb64pe.bas"
do{
#line 20363 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_new_txt_len("qbs_val<int64_t>",16),_FUNC_EVALUATEFUNC_STRING_R));
#line 20363 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20363 "qb64pe.bas"
if(!qbevent)break;evnt(20363);}while(r);
#line 20365 "qb64pe.bas"
sc_ec_95_end:;
#line 20365 "qb64pe.bas"
goto sc_2660_end;
#line 20365 "qb64pe.bas"
}
#line 20365 "qb64pe.bas"
S_23382:;
#line 20365 "qb64pe.bas"
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()){
#line 20365 "qb64pe.bas"
if(qbevent){evnt(20365);if(r)goto S_23382;}
#line 20366 "qb64pe.bas"
do{
#line 20366 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
#line 20366 "qb64pe.bas"
if(!qbevent)break;evnt(20366);}while(r);
#line 20367 "qb64pe.bas"
do{
#line 20367 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_new_txt_len("qbs_val<uint64_t>",17),_FUNC_EVALUATEFUNC_STRING_R));
#line 20367 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20367 "qb64pe.bas"
if(!qbevent)break;evnt(20367);}while(r);
#line 20369 "qb64pe.bas"
sc_ec_96_end:;
#line 20369 "qb64pe.bas"
goto sc_2660_end;
#line 20369 "qb64pe.bas"
}
#line 20369 "qb64pe.bas"
S_23385:;
#line 20369 "qb64pe.bas"
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()){
#line 20369 "qb64pe.bas"
if(qbevent){evnt(20369);if(r)goto S_23385;}
#line 20370 "qb64pe.bas"
do{
#line 20370 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
#line 20370 "qb64pe.bas"
if(!qbevent)break;evnt(20370);}while(r);
#line 20371 "qb64pe.bas"
do{
#line 20371 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_new_txt_len("qbs_val<long double>",20),_FUNC_EVALUATEFUNC_STRING_R));
#line 20371 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20371 "qb64pe.bas"
if(!qbevent)break;evnt(20371);}while(r);
#line 20373 "qb64pe.bas"
sc_ec_97_end:;
#line 20373 "qb64pe.bas"
goto sc_2660_end;
#line 20373 "qb64pe.bas"
}
#line 20374 "qb64pe.bas"
do{
#line 20374 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("VAL TYPE unsupported",20));
#line 20374 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20374 "qb64pe.bas"
if(!qbevent)break;evnt(20374);}while(r);
#line 20375 "qb64pe.bas"
do{
#line 20375 "qb64pe.bas"
goto exit_subfunc;
#line 20375 "qb64pe.bas"
if(!qbevent)break;evnt(20375);}while(r);
#line 20376 "qb64pe.bas"
sc_2660_end:;
#line 20378 "qb64pe.bas"
do{
#line 20378 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1)));
#line 20378 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20378 "qb64pe.bas"
if(!qbevent)break;evnt(20378);}while(r);
#line 20379 "qb64pe.bas"
do{
#line 20379 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
#line 20379 "qb64pe.bas"
if(!qbevent)break;evnt(20379);}while(r);
#line 20381 "qb64pe.bas"
do{
#line 20381 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 20381 "qb64pe.bas"
if(!qbevent)break;evnt(20381);}while(r);
#line 20382 "qb64pe.bas"
}
#line 20383 "qb64pe.bas"
}
#line 20386 "qb64pe.bas"
S_23397:;
#line 20386 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CAST",5))))||is_error_pending()){
#line 20386 "qb64pe.bas"
if(qbevent){evnt(20386);if(r)goto S_23397;}
#line 20387 "qb64pe.bas"
S_23398:;
#line 20387 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
#line 20387 "qb64pe.bas"
if(qbevent){evnt(20387);if(r)goto S_23398;}
#line 20388 "qb64pe.bas"
do{
#line 20388 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CASTTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
#line 20388 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20388 "qb64pe.bas"
if(!qbevent)break;evnt(20388);}while(r);
#line 20389 "qb64pe.bas"
S_23400:;
#line 20389 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20389 "qb64pe.bas"
if(qbevent){evnt(20389);if(r)goto S_23400;}
#line 20389 "qb64pe.bas"
do{
#line 20389 "qb64pe.bas"
goto exit_subfunc;
#line 20389 "qb64pe.bas"
if(!qbevent)break;evnt(20389);}while(r);
#line 20389 "qb64pe.bas"
}
#line 20391 "qb64pe.bas"
S_23403:;
#line 20391 "qb64pe.bas"
if(qbevent){evnt(20391);if(r)goto S_23403;}
#line 20392 "qb64pe.bas"
S_23404:;
#line 20392 "qb64pe.bas"
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()){
#line 20392 "qb64pe.bas"
if(qbevent){evnt(20392);if(r)goto S_23404;}
#line 20393 "qb64pe.bas"
do{
#line 20393 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=FUNC_TYPNAME2TYP(_FUNC_EVALUATEFUNC_STRING_CASTTYPE)-*__LONG_ISPOINTER;
#line 20393 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20393 "qb64pe.bas"
if(!qbevent)break;evnt(20393);}while(r);
#line 20394 "qb64pe.bas"
S_23406:;
#line 20394 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20394 "qb64pe.bas"
if(qbevent){evnt(20394);if(r)goto S_23406;}
#line 20394 "qb64pe.bas"
do{
#line 20394 "qb64pe.bas"
goto exit_subfunc;
#line 20394 "qb64pe.bas"
if(!qbevent)break;evnt(20394);}while(r);
#line 20394 "qb64pe.bas"
}
#line 20396 "qb64pe.bas"
do{
#line 20396 "qb64pe.bas"
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)));
#line 20396 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20396 "qb64pe.bas"
if(!qbevent)break;evnt(20396);}while(r);
#line 20397 "qb64pe.bas"
S_23410:;
#line 20397 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20397 "qb64pe.bas"
if(qbevent){evnt(20397);if(r)goto S_23410;}
#line 20397 "qb64pe.bas"
do{
#line 20397 "qb64pe.bas"
goto exit_subfunc;
#line 20397 "qb64pe.bas"
if(!qbevent)break;evnt(20397);}while(r);
#line 20397 "qb64pe.bas"
}
#line 20399 "qb64pe.bas"
sc_ec_98_end:;
#line 20399 "qb64pe.bas"
goto sc_2661_end;
#line 20399 "qb64pe.bas"
}
#line 20400 "qb64pe.bas"
do{
#line 20400 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_CAST TYPE unsupported",22));
#line 20400 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20400 "qb64pe.bas"
if(!qbevent)break;evnt(20400);}while(r);
#line 20401 "qb64pe.bas"
do{
#line 20401 "qb64pe.bas"
goto exit_subfunc;
#line 20401 "qb64pe.bas"
if(!qbevent)break;evnt(20401);}while(r);
#line 20402 "qb64pe.bas"
sc_2661_end:;
#line 20404 "qb64pe.bas"
do{
#line 20404 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
#line 20404 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20404 "qb64pe.bas"
if(!qbevent)break;evnt(20404);}while(r);
#line 20405 "qb64pe.bas"
do{
#line 20405 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
#line 20405 "qb64pe.bas"
if(!qbevent)break;evnt(20405);}while(r);
#line 20407 "qb64pe.bas"
do{
#line 20407 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 20407 "qb64pe.bas"
if(!qbevent)break;evnt(20407);}while(r);
#line 20408 "qb64pe.bas"
}
#line 20409 "qb64pe.bas"
}
#line 20412 "qb64pe.bas"
S_23422:;
#line 20412 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3))))||is_error_pending()){
#line 20412 "qb64pe.bas"
if(qbevent){evnt(20412);if(r)goto S_23422;}
#line 20413 "qb64pe.bas"
S_23423:;
#line 20413 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
#line 20413 "qb64pe.bas"
if(qbevent){evnt(20413);if(r)goto S_23423;}
#line 20414 "qb64pe.bas"
do{
#line 20414 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
#line 20414 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20414 "qb64pe.bas"
if(!qbevent)break;evnt(20414);}while(r);
#line 20415 "qb64pe.bas"
S_23425:;
#line 20415 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20415 "qb64pe.bas"
if(qbevent){evnt(20415);if(r)goto S_23425;}
#line 20415 "qb64pe.bas"
do{
#line 20415 "qb64pe.bas"
goto exit_subfunc;
#line 20415 "qb64pe.bas"
if(!qbevent)break;evnt(20415);}while(r);
#line 20415 "qb64pe.bas"
}
#line 20416 "qb64pe.bas"
do{
#line 20416 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
#line 20416 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20416 "qb64pe.bas"
if(!qbevent)break;evnt(20416);}while(r);
#line 20417 "qb64pe.bas"
do{
#line 20417 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 20417 "qb64pe.bas"
if(!qbevent)break;evnt(20417);}while(r);
#line 20418 "qb64pe.bas"
}
#line 20419 "qb64pe.bas"
}
#line 20423 "qb64pe.bas"
S_23432:;
#line 20423 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3))))||is_error_pending()){
#line 20423 "qb64pe.bas"
if(qbevent){evnt(20423);if(r)goto S_23432;}
#line 20424 "qb64pe.bas"
S_23433:;
#line 20424 "qb64pe.bas"
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()){
#line 20424 "qb64pe.bas"
if(qbevent){evnt(20424);if(r)goto S_23433;}
#line 20425 "qb64pe.bas"
S_23434:;
#line 20425 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
#line 20425 "qb64pe.bas"
if(qbevent){evnt(20425);if(r)goto S_23434;}
#line 20426 "qb64pe.bas"
do{
#line 20426 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E));
#line 20426 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20426 "qb64pe.bas"
if(!qbevent)break;evnt(20426);}while(r);
#line 20427 "qb64pe.bas"
S_23436:;
#line 20427 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20427 "qb64pe.bas"
if(qbevent){evnt(20427);if(r)goto S_23436;}
#line 20427 "qb64pe.bas"
do{
#line 20427 "qb64pe.bas"
goto exit_subfunc;
#line 20427 "qb64pe.bas"
if(!qbevent)break;evnt(20427);}while(r);
#line 20427 "qb64pe.bas"
}
#line 20428 "qb64pe.bas"
S_23439:;
#line 20428 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 20428 "qb64pe.bas"
if(qbevent){evnt(20428);if(r)goto S_23439;}
#line 20428 "qb64pe.bas"
do{
#line 20428 "qb64pe.bas"
tab_spc_cr_size=2;
#line 20428 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 20428 "qb64pe.bas"
if (is_error_pending()) goto skip2662;
#line 20428 "qb64pe.bas"
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);
#line 20428 "qb64pe.bas"
if (is_error_pending()) goto skip2662;
#line 20428 "qb64pe.bas"
skip2662:
#line 20428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20428 "qb64pe.bas"
tab_spc_cr_size=1;
#line 20428 "qb64pe.bas"
if(!qbevent)break;evnt(20428);}while(r);
#line 20428 "qb64pe.bas"
}
#line 20429 "qb64pe.bas"
do{
#line 20429 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
#line 20429 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20429 "qb64pe.bas"
if(!qbevent)break;evnt(20429);}while(r);
#line 20430 "qb64pe.bas"
do{
#line 20430 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 20430 "qb64pe.bas"
if(!qbevent)break;evnt(20430);}while(r);
#line 20431 "qb64pe.bas"
}
#line 20432 "qb64pe.bas"
}
#line 20433 "qb64pe.bas"
}
#line 20435 "qb64pe.bas"
S_23447:;
#line 20435 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_EMBEDDED",9))))||is_error_pending()){
#line 20435 "qb64pe.bas"
if(qbevent){evnt(20435);if(r)goto S_23447;}
#line 20436 "qb64pe.bas"
S_23448:;
#line 20436 "qb64pe.bas"
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()){
#line 20436 "qb64pe.bas"
if(qbevent){evnt(20436);if(r)goto S_23448;}
#line 20437 "qb64pe.bas"
S_23449:;
#line 20437 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
#line 20437 "qb64pe.bas"
if(qbevent){evnt(20437);if(r)goto S_23449;}
#line 20439 "qb64pe.bas"
do{
#line 20439 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,_FUNC_EVALUATEFUNC_STRING_E);
#line 20439 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20439 "qb64pe.bas"
if(!qbevent)break;evnt(20439);}while(r);
#line 20440 "qb64pe.bas"
do{
#line 20440 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_RSE,qbs_new_txt_len("Embed-Handle must be a single literal string in quotes, not a variable",70));
#line 20440 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20440 "qb64pe.bas"
if(!qbevent)break;evnt(20440);}while(r);
#line 20441 "qb64pe.bas"
S_23452:;
#line 20441 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,func_chr( 13 ),0)> 0 )))||is_error_pending()){
#line 20441 "qb64pe.bas"
if(qbevent){evnt(20441);if(r)goto S_23452;}
#line 20441 "qb64pe.bas"
do{
#line 20441 "qb64pe.bas"
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
#line 20441 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20441 "qb64pe.bas"
if(!qbevent)break;evnt(20441);}while(r);
#line 20441 "qb64pe.bas"
do{
#line 20441 "qb64pe.bas"
goto exit_subfunc;
#line 20441 "qb64pe.bas"
if(!qbevent)break;evnt(20441);}while(r);
#line 20441 "qb64pe.bas"
}
#line 20442 "qb64pe.bas"
do{
#line 20442 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BRA=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,func_chr( 34 ),0);
#line 20442 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20442 "qb64pe.bas"
if(!qbevent)break;evnt(20442);}while(r);
#line 20442 "qb64pe.bas"
do{
#line 20442 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_KET=func_instr(*_FUNC_EVALUATEFUNC_LONG_BRA+ 1 ,_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,func_chr( 34 ),0|1);
#line 20442 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20442 "qb64pe.bas"
if(!qbevent)break;evnt(20442);}while(r);
#line 20443 "qb64pe.bas"
S_23458:;
#line 20443 "qb64pe.bas"
if (((-(*_FUNC_EVALUATEFUNC_LONG_BRA== 0 ))|(-(*_FUNC_EVALUATEFUNC_LONG_KET== 0 )))||is_error_pending()){
#line 20443 "qb64pe.bas"
if(qbevent){evnt(20443);if(r)goto S_23458;}
#line 20443 "qb64pe.bas"
do{
#line 20443 "qb64pe.bas"
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
#line 20443 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20443 "qb64pe.bas"
if(!qbevent)break;evnt(20443);}while(r);
#line 20443 "qb64pe.bas"
do{
#line 20443 "qb64pe.bas"
goto exit_subfunc;
#line 20443 "qb64pe.bas"
if(!qbevent)break;evnt(20443);}while(r);
#line 20443 "qb64pe.bas"
}
#line 20444 "qb64pe.bas"
do{
#line 20444 "qb64pe.bas"
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));
#line 20444 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20444 "qb64pe.bas"
if(!qbevent)break;evnt(20444);}while(r);
#line 20445 "qb64pe.bas"
do{
#line 20445 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_RSE,qbs_new_txt_len("Embed-Handle cannot be an empty string",38));
#line 20445 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20445 "qb64pe.bas"
if(!qbevent)break;evnt(20445);}while(r);
#line 20446 "qb64pe.bas"
S_23464:;
#line 20446 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE->len== 0 )))||is_error_pending()){
#line 20446 "qb64pe.bas"
if(qbevent){evnt(20446);if(r)goto S_23464;}
#line 20446 "qb64pe.bas"
do{
#line 20446 "qb64pe.bas"
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
#line 20446 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20446 "qb64pe.bas"
if(!qbevent)break;evnt(20446);}while(r);
#line 20446 "qb64pe.bas"
do{
#line 20446 "qb64pe.bas"
goto exit_subfunc;
#line 20446 "qb64pe.bas"
if(!qbevent)break;evnt(20446);}while(r);
#line 20446 "qb64pe.bas"
}
#line 20448 "qb64pe.bas"
S_23468:;
#line 20448 "qb64pe.bas"
sc_2664=qbs_asc(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE, 1 );
#line 20448 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20448 "qb64pe.bas"
if(qbevent){evnt(20448);if(r)goto S_23468;}
#line 20449 "qb64pe.bas"
S_23469:;
#line 20449 "qb64pe.bas"
if ((((sc_2664>=( 0 ))&&(sc_2664<=( 64 )))||((sc_2664>=( 91 ))&&(sc_2664<=( 96 )))||((sc_2664>=( 123 ))&&(sc_2664<=( 255 ))))||is_error_pending()){
#line 20449 "qb64pe.bas"
if(qbevent){evnt(20449);if(r)goto S_23469;}
#line 20450 "qb64pe.bas"
do{
#line 20450 "qb64pe.bas"
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)));
#line 20450 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20450 "qb64pe.bas"
if(!qbevent)break;evnt(20450);}while(r);
#line 20451 "qb64pe.bas"
do{
#line 20451 "qb64pe.bas"
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
#line 20451 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20451 "qb64pe.bas"
if(!qbevent)break;evnt(20451);}while(r);
#line 20451 "qb64pe.bas"
do{
#line 20451 "qb64pe.bas"
goto exit_subfunc;
#line 20451 "qb64pe.bas"
if(!qbevent)break;evnt(20451);}while(r);
#line 20452 "qb64pe.bas"
sc_ec_99_end:;
#line 20452 "qb64pe.bas"
goto sc_2664_end;
#line 20452 "qb64pe.bas"
}
#line 20452 "qb64pe.bas"
sc_2664_end:;
#line 20453 "qb64pe.bas"
S_23474:;
#line 20453 "qb64pe.bas"
fornext_value2666= 2 ;
#line 20453 "qb64pe.bas"
fornext_finalvalue2666=_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE->len;
#line 20453 "qb64pe.bas"
fornext_step2666= 1 ;
#line 20453 "qb64pe.bas"
if (fornext_step2666<0) fornext_step_negative2666=1; else fornext_step_negative2666=0;
#line 20453 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2666;
#line 20453 "qb64pe.bas"
goto fornext_entrylabel2666;
#line 20453 "qb64pe.bas"
while(1){
#line 20453 "qb64pe.bas"
fornext_value2666=fornext_step2666+(*_FUNC_EVALUATEFUNC_LONG_RSI);
#line 20453 "qb64pe.bas"
fornext_entrylabel2666:
#line 20453 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_RSI=fornext_value2666;
#line 20453 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20453 "qb64pe.bas"
if (fornext_step_negative2666){
#line 20453 "qb64pe.bas"
if (fornext_value2666<fornext_finalvalue2666) break;
#line 20453 "qb64pe.bas"
}else{
#line 20453 "qb64pe.bas"
if (fornext_value2666>fornext_finalvalue2666) break;
#line 20453 "qb64pe.bas"
}
#line 20453 "qb64pe.bas"
fornext_error2666:;
#line 20453 "qb64pe.bas"
if(qbevent){evnt(20453);if(r)goto S_23474;}
#line 20454 "qb64pe.bas"
S_23475:;
#line 20454 "qb64pe.bas"
sc_2668=qbs_asc(_FUNC_EVALUATEFUNC_STRING_EMBEDHANDLE,*_FUNC_EVALUATEFUNC_LONG_RSI);
#line 20454 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20454 "qb64pe.bas"
if(qbevent){evnt(20454);if(r)goto S_23475;}
#line 20455 "qb64pe.bas"
S_23476:;
#line 20455 "qb64pe.bas"
if ((((sc_2668>=( 0 ))&&(sc_2668<=( 47 )))||((sc_2668>=( 58 ))&&(sc_2668<=( 64 )))||((sc_2668>=( 91 ))&&(sc_2668<=( 96 )))||((sc_2668>=( 123 ))&&(sc_2668<=( 255 ))))||is_error_pending()){
#line 20455 "qb64pe.bas"
if(qbevent){evnt(20455);if(r)goto S_23476;}
#line 20456 "qb64pe.bas"
do{
#line 20456 "qb64pe.bas"
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)));
#line 20456 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20456 "qb64pe.bas"
if(!qbevent)break;evnt(20456);}while(r);
#line 20457 "qb64pe.bas"
do{
#line 20457 "qb64pe.bas"
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
#line 20457 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20457 "qb64pe.bas"
if(!qbevent)break;evnt(20457);}while(r);
#line 20457 "qb64pe.bas"
do{
#line 20457 "qb64pe.bas"
goto exit_subfunc;
#line 20457 "qb64pe.bas"
if(!qbevent)break;evnt(20457);}while(r);
#line 20458 "qb64pe.bas"
sc_ec_100_end:;
#line 20458 "qb64pe.bas"
goto sc_2668_end;
#line 20458 "qb64pe.bas"
}
#line 20458 "qb64pe.bas"
sc_2668_end:;
#line 20459 "qb64pe.bas"
fornext_continue_2665:;
#line 20459 "qb64pe.bas"
}
#line 20459 "qb64pe.bas"
fornext_exit_2665:;
#line 20461 "qb64pe.bas"
do{
#line 20461 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_EFLUB=func_ubound(__ARRAY_STRING_EMBEDFILELIST, 2 ,2);
#line 20461 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20461 "qb64pe.bas"
if(!qbevent)break;evnt(20461);}while(r);
#line 20462 "qb64pe.bas"
S_23483:;
#line 20462 "qb64pe.bas"
fornext_value2670= 0 ;
#line 20462 "qb64pe.bas"
fornext_finalvalue2670=*_FUNC_EVALUATEFUNC_LONG_EFLUB;
#line 20462 "qb64pe.bas"
fornext_step2670= 1 ;
#line 20462 "qb64pe.bas"
if (fornext_step2670<0) fornext_step_negative2670=1; else fornext_step_negative2670=0;
#line 20462 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2670;
#line 20462 "qb64pe.bas"
goto fornext_entrylabel2670;
#line 20462 "qb64pe.bas"
while(1){
#line 20462 "qb64pe.bas"
fornext_value2670=fornext_step2670+(*_FUNC_EVALUATEFUNC_LONG_RSI);
#line 20462 "qb64pe.bas"
fornext_entrylabel2670:
#line 20462 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_RSI=fornext_value2670;
#line 20462 "qb64pe.bas"
if (fornext_step_negative2670){
#line 20462 "qb64pe.bas"
if (fornext_value2670<fornext_finalvalue2670) break;
#line 20462 "qb64pe.bas"
}else{
#line 20462 "qb64pe.bas"
if (fornext_value2670>fornext_finalvalue2670) break;
#line 20462 "qb64pe.bas"
}
#line 20462 "qb64pe.bas"
fornext_error2670:;
#line 20462 "qb64pe.bas"
if(qbevent){evnt(20462);if(r)goto S_23483;}
#line 20463 "qb64pe.bas"
S_23484:;
#line 20463 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((((qbs**)(__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()){
#line 20463 "qb64pe.bas"
if(qbevent){evnt(20463);if(r)goto S_23484;}
#line 20463 "qb64pe.bas"
do{
#line 20463 "qb64pe.bas"
goto fornext_exit_2669;
#line 20463 "qb64pe.bas"
if(!qbevent)break;evnt(20463);}while(r);
#line 20463 "qb64pe.bas"
}
#line 20464 "qb64pe.bas"
fornext_continue_2669:;
#line 20464 "qb64pe.bas"
}
#line 20464 "qb64pe.bas"
fornext_exit_2669:;
#line 20465 "qb64pe.bas"
S_23488:;
#line 20465 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_RSI>*_FUNC_EVALUATEFUNC_LONG_EFLUB))||is_error_pending()){
#line 20465 "qb64pe.bas"
if(qbevent){evnt(20465);if(r)goto S_23488;}
#line 20466 "qb64pe.bas"
do{
#line 20466 "qb64pe.bas"
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)));
#line 20466 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20466 "qb64pe.bas"
if(!qbevent)break;evnt(20466);}while(r);
#line 20467 "qb64pe.bas"
do{
#line 20467 "qb64pe.bas"
SUB_GIVE_ERROR(_FUNC_EVALUATEFUNC_STRING_RSE);
#line 20467 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20467 "qb64pe.bas"
if(!qbevent)break;evnt(20467);}while(r);
#line 20467 "qb64pe.bas"
do{
#line 20467 "qb64pe.bas"
goto exit_subfunc;
#line 20467 "qb64pe.bas"
if(!qbevent)break;evnt(20467);}while(r);
#line 20468 "qb64pe.bas"
}else{
#line 20469 "qb64pe.bas"
do{
#line 20469 "qb64pe.bas"
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];
#line 20469 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_EMBEDFILELIST[0]))[tmp_long],qbs_new_txt_len("yes",3));
#line 20469 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20469 "qb64pe.bas"
if(!qbevent)break;evnt(20469);}while(r);
#line 20470 "qb64pe.bas"
}
#line 20471 "qb64pe.bas"
}
#line 20472 "qb64pe.bas"
}
#line 20473 "qb64pe.bas"
}
#line 20475 "qb64pe.bas"
S_23498:;
#line 20475 "qb64pe.bas"
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()){
#line 20475 "qb64pe.bas"
if(qbevent){evnt(20475);if(r)goto S_23498;}
#line 20477 "qb64pe.bas"
S_23499:;
#line 20477 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
#line 20477 "qb64pe.bas"
if(qbevent){evnt(20477);if(r)goto S_23499;}
#line 20478 "qb64pe.bas"
do{
#line 20478 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_ORIGINAL_E,_FUNC_EVALUATEFUNC_STRING_E);
#line 20478 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20478 "qb64pe.bas"
if(!qbevent)break;evnt(20478);}while(r);
#line 20479 "qb64pe.bas"
do{
#line 20479 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED= 0 ;
#line 20479 "qb64pe.bas"
if(!qbevent)break;evnt(20479);}while(r);
#line 20480 "qb64pe.bas"
do{
#line 20480 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISDYN= 0 ;
#line 20480 "qb64pe.bas"
if(!qbevent)break;evnt(20480);}while(r);
#line 20482 "qb64pe.bas"
S_23503:;
#line 20482 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_HASINDEXEDFINALMEMBERARRAY(_FUNC_EVALUATEFUNC_STRING_ORIGINAL_E)))||is_error_pending()){
#line 20482 "qb64pe.bas"
if(qbevent){evnt(20482);if(r)goto S_23503;}
#line 20483 "qb64pe.bas"
do{
#line 20483 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments",29));
#line 20483 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20483 "qb64pe.bas"
if(!qbevent)break;evnt(20483);}while(r);
#line 20483 "qb64pe.bas"
do{
#line 20483 "qb64pe.bas"
goto exit_subfunc;
#line 20483 "qb64pe.bas"
if(!qbevent)break;evnt(20483);}while(r);
#line 20484 "qb64pe.bas"
}
#line 20503 "qb64pe.bas"
S_23507:;
#line 20503 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_ORIGINAL_E,qbs_new_txt_len(".",1),0)))||is_error_pending()){
#line 20503 "qb64pe.bas"
if(qbevent){evnt(20503);if(r)goto S_23507;}
#line 20504 "qb64pe.bas"
do{
#line 20504 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
#line 20504 "qb64pe.bas"
if(!qbevent)break;evnt(20504);}while(r);
#line 20505 "qb64pe.bas"
do{
#line 20505 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATEFUNC_STRING_ORIGINAL_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP));
#line 20505 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20505 "qb64pe.bas"
if(!qbevent)break;evnt(20505);}while(r);
#line 20506 "qb64pe.bas"
do{
#line 20506 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
#line 20506 "qb64pe.bas"
if(!qbevent)break;evnt(20506);}while(r);
#line 20508 "qb64pe.bas"
S_23511:;
#line 20508 "qb64pe.bas"
if ((-(*__LONG_ERROR_HAPPENED== 0 ))||is_error_pending()){
#line 20508 "qb64pe.bas"
if(qbevent){evnt(20508);if(r)goto S_23511;}
#line 20509 "qb64pe.bas"
S_23512:;
#line 20509 "qb64pe.bas"
if (((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)!= 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)!= 0 )))||is_error_pending()){
#line 20509 "qb64pe.bas"
if(qbevent){evnt(20509);if(r)goto S_23512;}
#line 20510 "qb64pe.bas"
do{
#line 20510 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED= -1 ;
#line 20510 "qb64pe.bas"
if(!qbevent)break;evnt(20510);}while(r);
#line 20511 "qb64pe.bas"
}
#line 20512 "qb64pe.bas"
}
#line 20513 "qb64pe.bas"
}
#line 20517 "qb64pe.bas"
S_23517:;
#line 20517 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED|(-(*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED== 0 )))||is_error_pending()){
#line 20517 "qb64pe.bas"
if(qbevent){evnt(20517);if(r)goto S_23517;}
#line 20518 "qb64pe.bas"
do{
#line 20518 "qb64pe.bas"
*__LONG_ERROR_HAPPENED= 0 ;
#line 20518 "qb64pe.bas"
if(!qbevent)break;evnt(20518);}while(r);
#line 20519 "qb64pe.bas"
do{
#line 20519 "qb64pe.bas"
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)));
#line 20519 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20519 "qb64pe.bas"
if(!qbevent)break;evnt(20519);}while(r);
#line 20520 "qb64pe.bas"
do{
#line 20520 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP));
#line 20520 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20520 "qb64pe.bas"
if(!qbevent)break;evnt(20520);}while(r);
#line 20521 "qb64pe.bas"
S_23521:;
#line 20521 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20521 "qb64pe.bas"
if(qbevent){evnt(20521);if(r)goto S_23521;}
#line 20521 "qb64pe.bas"
do{
#line 20521 "qb64pe.bas"
goto exit_subfunc;
#line 20521 "qb64pe.bas"
if(!qbevent)break;evnt(20521);}while(r);
#line 20521 "qb64pe.bas"
}
#line 20522 "qb64pe.bas"
do{
#line 20522 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED= 0 ;
#line 20522 "qb64pe.bas"
if(!qbevent)break;evnt(20522);}while(r);
#line 20523 "qb64pe.bas"
}
#line 20525 "qb64pe.bas"
S_23526:;
#line 20525 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 20525 "qb64pe.bas"
if(qbevent){evnt(20525);if(r)goto S_23526;}
#line 20525 "qb64pe.bas"
do{
#line 20525 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19));
#line 20525 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20525 "qb64pe.bas"
if(!qbevent)break;evnt(20525);}while(r);
#line 20525 "qb64pe.bas"
do{
#line 20525 "qb64pe.bas"
goto exit_subfunc;
#line 20525 "qb64pe.bas"
if(!qbevent)break;evnt(20525);}while(r);
#line 20525 "qb64pe.bas"
}
#line 20526 "qb64pe.bas"
S_23530:;
#line 20526 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
#line 20526 "qb64pe.bas"
if(qbevent){evnt(20526);if(r)goto S_23530;}
#line 20526 "qb64pe.bas"
do{
#line 20526 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19));
#line 20526 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20526 "qb64pe.bas"
if(!qbevent)break;evnt(20526);}while(r);
#line 20526 "qb64pe.bas"
do{
#line 20526 "qb64pe.bas"
goto exit_subfunc;
#line 20526 "qb64pe.bas"
if(!qbevent)break;evnt(20526);}while(r);
#line 20526 "qb64pe.bas"
}
#line 20528 "qb64pe.bas"
do{
#line 20528 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_STRING_E);
#line 20528 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20528 "qb64pe.bas"
if(!qbevent)break;evnt(20528);}while(r);
#line 20529 "qb64pe.bas"
do{
#line 20529 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ULBOUNDARRAYTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
#line 20529 "qb64pe.bas"
if(!qbevent)break;evnt(20529);}while(r);
#line 20530 "qb64pe.bas"
do{
#line 20530 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
#line 20530 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20530 "qb64pe.bas"
if(!qbevent)break;evnt(20530);}while(r);
#line 20531 "qb64pe.bas"
do{
#line 20531 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("",0));
#line 20531 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20531 "qb64pe.bas"
if(!qbevent)break;evnt(20531);}while(r);
#line 20532 "qb64pe.bas"
do{
#line 20532 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 20532 "qb64pe.bas"
if(!qbevent)break;evnt(20532);}while(r);
#line 20533 "qb64pe.bas"
}
#line 20534 "qb64pe.bas"
}
#line 20538 "qb64pe.bas"
S_23541:;
#line 20538 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INPUT",5))))||is_error_pending()){
#line 20538 "qb64pe.bas"
if(qbevent){evnt(20538);if(r)goto S_23541;}
#line 20539 "qb64pe.bas"
S_23542:;
#line 20539 "qb64pe.bas"
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()){
#line 20539 "qb64pe.bas"
if(qbevent){evnt(20539);if(r)goto S_23542;}
#line 20540 "qb64pe.bas"
S_23543:;
#line 20540 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
#line 20540 "qb64pe.bas"
if(qbevent){evnt(20540);if(r)goto S_23543;}
#line 20541 "qb64pe.bas"
S_23544:;
#line 20541 "qb64pe.bas"
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()){
#line 20541 "qb64pe.bas"
if(qbevent){evnt(20541);if(r)goto S_23544;}
#line 20541 "qb64pe.bas"
do{
#line 20541 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 2 ));
#line 20541 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20541 "qb64pe.bas"
if(!qbevent)break;evnt(20541);}while(r);
#line 20541 "qb64pe.bas"
}
#line 20542 "qb64pe.bas"
}
#line 20543 "qb64pe.bas"
}
#line 20544 "qb64pe.bas"
}
#line 20548 "qb64pe.bas"
S_23550:;
#line 20548 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ASC",3))))||is_error_pending()){
#line 20548 "qb64pe.bas"
if(qbevent){evnt(20548);if(r)goto S_23550;}
#line 20549 "qb64pe.bas"
S_23551:;
#line 20549 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
#line 20549 "qb64pe.bas"
if(qbevent){evnt(20549);if(r)goto S_23551;}
#line 20550 "qb64pe.bas"
do{
#line 20550 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E,&(pass2672= 32 )));
#line 20550 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20550 "qb64pe.bas"
if(!qbevent)break;evnt(20550);}while(r);
#line 20551 "qb64pe.bas"
S_23553:;
#line 20551 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20551 "qb64pe.bas"
if(qbevent){evnt(20551);if(r)goto S_23553;}
#line 20551 "qb64pe.bas"
do{
#line 20551 "qb64pe.bas"
goto exit_subfunc;
#line 20551 "qb64pe.bas"
if(!qbevent)break;evnt(20551);}while(r);
#line 20551 "qb64pe.bas"
}
#line 20552 "qb64pe.bas"
do{
#line 20552 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
#line 20552 "qb64pe.bas"
if(!qbevent)break;evnt(20552);}while(r);
#line 20553 "qb64pe.bas"
do{
#line 20553 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
#line 20553 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20553 "qb64pe.bas"
if(!qbevent)break;evnt(20553);}while(r);
#line 20554 "qb64pe.bas"
do{
#line 20554 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 20554 "qb64pe.bas"
if(!qbevent)break;evnt(20554);}while(r);
#line 20555 "qb64pe.bas"
}
#line 20556 "qb64pe.bas"
}
#line 20565 "qb64pe.bas"
S_23561:;
#line 20565 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEMGET",7))))||is_error_pending()){
#line 20565 "qb64pe.bas"
if(qbevent){evnt(20565);if(r)goto S_23561;}
#line 20566 "qb64pe.bas"
S_23562:;
#line 20566 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
#line 20566 "qb64pe.bas"
if(qbevent){evnt(20566);if(r)goto S_23562;}
#line 20567 "qb64pe.bas"
do{
#line 20567 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,_FUNC_EVALUATEFUNC_STRING_E);
#line 20567 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20567 "qb64pe.bas"
if(!qbevent)break;evnt(20567);}while(r);
#line 20568 "qb64pe.bas"
}
#line 20569 "qb64pe.bas"
S_23565:;
#line 20569 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
#line 20569 "qb64pe.bas"
if(qbevent){evnt(20569);if(r)goto S_23565;}
#line 20570 "qb64pe.bas"
do{
#line 20570 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,_FUNC_EVALUATEFUNC_STRING_E);
#line 20570 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20570 "qb64pe.bas"
if(!qbevent)break;evnt(20570);}while(r);
#line 20571 "qb64pe.bas"
}
#line 20572 "qb64pe.bas"
S_23568:;
#line 20572 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 ))||is_error_pending()){
#line 20572 "qb64pe.bas"
if(qbevent){evnt(20572);if(r)goto S_23568;}
#line 20573 "qb64pe.bas"
do{
#line 20573 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_ucase(_FUNC_EVALUATEFUNC_STRING_E));
#line 20573 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20573 "qb64pe.bas"
if(!qbevent)break;evnt(20573);}while(r);
#line 20574 "qb64pe.bas"
S_23570:;
#line 20574 "qb64pe.bas"
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()){
#line 20574 "qb64pe.bas"
if(qbevent){evnt(20574);if(r)goto S_23570;}
#line 20575 "qb64pe.bas"
S_23571:;
#line 20575 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 2 ),qbs_new_txt_len("&&",2))))||is_error_pending()){
#line 20575 "qb64pe.bas"
if(qbevent){evnt(20575);if(r)goto S_23571;}
#line 20576 "qb64pe.bas"
do{
#line 20576 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_left(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 2 ));
#line 20576 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20576 "qb64pe.bas"
if(!qbevent)break;evnt(20576);}while(r);
#line 20577 "qb64pe.bas"
}else{
#line 20578 "qb64pe.bas"
S_23574:;
#line 20578 "qb64pe.bas"
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()){
#line 20578 "qb64pe.bas"
if(qbevent){evnt(20578);if(r)goto S_23574;}
#line 20578 "qb64pe.bas"
do{
#line 20578 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_left(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 1 ));
#line 20578 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20578 "qb64pe.bas"
if(!qbevent)break;evnt(20578);}while(r);
#line 20578 "qb64pe.bas"
}
#line 20579 "qb64pe.bas"
}
#line 20580 "qb64pe.bas"
}
#line 20581 "qb64pe.bas"
do{
#line 20581 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T=FUNC_TYPNAME2TYP(_FUNC_EVALUATEFUNC_STRING_E);
#line 20581 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20581 "qb64pe.bas"
if(!qbevent)break;evnt(20581);}while(r);
#line 20582 "qb64pe.bas"
S_23580:;
#line 20582 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_T== 0 ))||is_error_pending()){
#line 20582 "qb64pe.bas"
if(qbevent){evnt(20582);if(r)goto S_23580;}
#line 20582 "qb64pe.bas"
do{
#line 20582 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid TYPE name",17));
#line 20582 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20582 "qb64pe.bas"
if(!qbevent)break;evnt(20582);}while(r);
#line 20582 "qb64pe.bas"
do{
#line 20582 "qb64pe.bas"
goto exit_subfunc;
#line 20582 "qb64pe.bas"
if(!qbevent)break;evnt(20582);}while(r);
#line 20582 "qb64pe.bas"
}
#line 20583 "qb64pe.bas"
S_23584:;
#line 20583 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISOFFSETINBITS)||is_error_pending()){
#line 20583 "qb64pe.bas"
if(qbevent){evnt(20583);if(r)goto S_23584;}
#line 20583 "qb64pe.bas"
do{
#line 20583 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_BIT TYPE unsupported",21));
#line 20583 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20583 "qb64pe.bas"
if(!qbevent)break;evnt(20583);}while(r);
#line 20583 "qb64pe.bas"
do{
#line 20583 "qb64pe.bas"
goto exit_subfunc;
#line 20583 "qb64pe.bas"
if(!qbevent)break;evnt(20583);}while(r);
#line 20583 "qb64pe.bas"
}
#line 20584 "qb64pe.bas"
do{
#line 20584 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=*__LONG_TYPNAME2TYPSIZE;
#line 20584 "qb64pe.bas"
if(!qbevent)break;evnt(20584);}while(r);
#line 20585 "qb64pe.bas"
S_23589:;
#line 20585 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 20585 "qb64pe.bas"
if(qbevent){evnt(20585);if(r)goto S_23589;}
#line 20586 "qb64pe.bas"
S_23590:;
#line 20586 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 20586 "qb64pe.bas"
if(qbevent){evnt(20586);if(r)goto S_23590;}
#line 20586 "qb64pe.bas"
do{
#line 20586 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * ...",21));
#line 20586 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20586 "qb64pe.bas"
if(!qbevent)break;evnt(20586);}while(r);
#line 20586 "qb64pe.bas"
do{
#line 20586 "qb64pe.bas"
goto exit_subfunc;
#line 20586 "qb64pe.bas"
if(!qbevent)break;evnt(20586);}while(r);
#line 20586 "qb64pe.bas"
}
#line 20587 "qb64pe.bas"
do{
#line 20587 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,qbs_new_txt_len("qbs*",4));
#line 20587 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20587 "qb64pe.bas"
if(!qbevent)break;evnt(20587);}while(r);
#line 20588 "qb64pe.bas"
}else{
#line 20589 "qb64pe.bas"
S_23596:;
#line 20589 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||is_error_pending()){
#line 20589 "qb64pe.bas"
if(qbevent){evnt(20589);if(r)goto S_23596;}
#line 20590 "qb64pe.bas"
do{
#line 20590 "qb64pe.bas"
*_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 );
#line 20590 "qb64pe.bas"
if(!qbevent)break;evnt(20590);}while(r);
#line 20591 "qb64pe.bas"
do{
#line 20591 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,qbs_new_txt_len("void*",5));
#line 20591 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20591 "qb64pe.bas"
if(!qbevent)break;evnt(20591);}while(r);
#line 20592 "qb64pe.bas"
}else{
#line 20593 "qb64pe.bas"
do{
#line 20593 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=qb_safe_idiv((*_FUNC_EVALUATEFUNC_LONG_T& 4095ll ), 8 );
#line 20593 "qb64pe.bas"
if(!qbevent)break;evnt(20593);}while(r);
#line 20594 "qb64pe.bas"
do{
#line 20594 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,FUNC_TYP2CTYP(_FUNC_EVALUATEFUNC_LONG_T,qbs_new_txt_len("",0)));
#line 20594 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20594 "qb64pe.bas"
if(!qbevent)break;evnt(20594);}while(r);
#line 20595 "qb64pe.bas"
}
#line 20596 "qb64pe.bas"
}
#line 20603 "qb64pe.bas"
do{
#line 20603 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_OFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,&(pass2675=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)));
#line 20603 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20603 "qb64pe.bas"
if(!qbevent)break;evnt(20603);}while(r);
#line 20604 "qb64pe.bas"
do{
#line 20604 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_BLKOFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,&(pass2676= -6 )));
#line 20604 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20604 "qb64pe.bas"
if(!qbevent)break;evnt(20604);}while(r);
#line 20605 "qb64pe.bas"
S_23606:;
#line 20605 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 20605 "qb64pe.bas"
if(qbevent){evnt(20605);if(r)goto S_23606;}
#line 20607 "qb64pe.bas"
do{
#line 20607 "qb64pe.bas"
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)));
#line 20607 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20607 "qb64pe.bas"
if(!qbevent)break;evnt(20607);}while(r);
#line 20608 "qb64pe.bas"
}
#line 20609 "qb64pe.bas"
S_23609:;
#line 20609 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||is_error_pending()){
#line 20609 "qb64pe.bas"
if(qbevent){evnt(20609);if(r)goto S_23609;}
#line 20610 "qb64pe.bas"
do{
#line 20610 "qb64pe.bas"
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)));
#line 20610 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20610 "qb64pe.bas"
if(!qbevent)break;evnt(20610);}while(r);
#line 20611 "qb64pe.bas"
}else{
#line 20612 "qb64pe.bas"
S_23612:;
#line 20612 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||is_error_pending()){
#line 20612 "qb64pe.bas"
if(qbevent){evnt(20612);if(r)goto S_23612;}
#line 20613 "qb64pe.bas"
do{
#line 20613 "qb64pe.bas"
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)));
#line 20613 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20613 "qb64pe.bas"
if(!qbevent)break;evnt(20613);}while(r);
#line 20614 "qb64pe.bas"
do{
#line 20614 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T=*__LONG_ISUDT+*__LONG_ISPOINTER+(*_FUNC_EVALUATEFUNC_LONG_T& 4095ll );
#line 20614 "qb64pe.bas"
if(!qbevent)break;evnt(20614);}while(r);
#line 20615 "qb64pe.bas"
}else{
#line 20616 "qb64pe.bas"
do{
#line 20616 "qb64pe.bas"
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)));
#line 20616 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20616 "qb64pe.bas"
if(!qbevent)break;evnt(20616);}while(r);
#line 20617 "qb64pe.bas"
S_23617:;
#line 20617 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISPOINTER)||is_error_pending()){
#line 20617 "qb64pe.bas"
if(qbevent){evnt(20617);if(r)goto S_23617;}
#line 20617 "qb64pe.bas"
do{
#line 20617 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T-*__LONG_ISPOINTER;
#line 20617 "qb64pe.bas"
if(!qbevent)break;evnt(20617);}while(r);
#line 20617 "qb64pe.bas"
}
#line 20618 "qb64pe.bas"
}
#line 20619 "qb64pe.bas"
}
#line 20627 "qb64pe.bas"
do{
#line 20627 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_T;
#line 20627 "qb64pe.bas"
if(!qbevent)break;evnt(20627);}while(r);
#line 20630 "qb64pe.bas"
do{
#line 20630 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 20630 "qb64pe.bas"
if(!qbevent)break;evnt(20630);}while(r);
#line 20631 "qb64pe.bas"
}
#line 20632 "qb64pe.bas"
}
#line 20635 "qb64pe.bas"
do{
#line 20635 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E2,_FUNC_EVALUATEFUNC_STRING_E);
#line 20635 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20635 "qb64pe.bas"
if(!qbevent)break;evnt(20635);}while(r);
#line 20637 "qb64pe.bas"
do{
#line 20637 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY= 0 ;
#line 20637 "qb64pe.bas"
if(!qbevent)break;evnt(20637);}while(r);
#line 20638 "qb64pe.bas"
do{
#line 20638 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMBER_ARRAY_ARG_SOURCE,qbs_new_txt_len("",0));
#line 20638 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20638 "qb64pe.bas"
if(!qbevent)break;evnt(20638);}while(r);
#line 20642 "qb64pe.bas"
S_23629:;
#line 20642 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
#line 20642 "qb64pe.bas"
if(qbevent){evnt(20642);if(r)goto S_23629;}
#line 20642 "qb64pe.bas"
do{
#line 20642 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY= -1 ;
#line 20642 "qb64pe.bas"
if(!qbevent)break;evnt(20642);}while(r);
#line 20642 "qb64pe.bas"
}
#line 20643 "qb64pe.bas"
S_23632:;
#line 20643 "qb64pe.bas"
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()){
#line 20643 "qb64pe.bas"
if(qbevent){evnt(20643);if(r)goto S_23632;}
#line 20643 "qb64pe.bas"
do{
#line 20643 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY= -1 ;
#line 20643 "qb64pe.bas"
if(!qbevent)break;evnt(20643);}while(r);
#line 20643 "qb64pe.bas"
}
#line 20644 "qb64pe.bas"
S_23635:;
#line 20644 "qb64pe.bas"
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()){
#line 20644 "qb64pe.bas"
if(qbevent){evnt(20644);if(r)goto S_23635;}
#line 20644 "qb64pe.bas"
do{
#line 20644 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY= -1 ;
#line 20644 "qb64pe.bas"
if(!qbevent)break;evnt(20644);}while(r);
#line 20644 "qb64pe.bas"
}
#line 20648 "qb64pe.bas"
S_23638:;
#line 20648 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP>= 0 ))||is_error_pending()){
#line 20648 "qb64pe.bas"
if(qbevent){evnt(20648);if(r)goto S_23638;}
#line 20649 "qb64pe.bas"
S_23639:;
#line 20649 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISARRAY)||is_error_pending()){
#line 20649 "qb64pe.bas"
if(qbevent){evnt(20649);if(r)goto S_23639;}
#line 20650 "qb64pe.bas"
do{
#line 20650 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY= -1 ;
#line 20650 "qb64pe.bas"
if(!qbevent)break;evnt(20650);}while(r);
#line 20651 "qb64pe.bas"
do{
#line 20651 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMBER_ARRAY_ARG_SOURCE,_FUNC_EVALUATEFUNC_STRING_E2);
#line 20651 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20651 "qb64pe.bas"
if(!qbevent)break;evnt(20651);}while(r);
#line 20652 "qb64pe.bas"
}
#line 20653 "qb64pe.bas"
}
#line 20655 "qb64pe.bas"
S_23644:;
#line 20655 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY)||is_error_pending()){
#line 20655 "qb64pe.bas"
if(qbevent){evnt(20655);if(r)goto S_23644;}
#line 20655 "qb64pe.bas"
do{
#line 20655 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
#line 20655 "qb64pe.bas"
if(!qbevent)break;evnt(20655);}while(r);
#line 20655 "qb64pe.bas"
}
#line 20656 "qb64pe.bas"
do{
#line 20656 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP));
#line 20656 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20656 "qb64pe.bas"
if(!qbevent)break;evnt(20656);}while(r);
#line 20657 "qb64pe.bas"
S_23648:;
#line 20657 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_ALLOW_BARE_MEMBER_ARRAY)||is_error_pending()){
#line 20657 "qb64pe.bas"
if(qbevent){evnt(20657);if(r)goto S_23648;}
#line 20657 "qb64pe.bas"
do{
#line 20657 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
#line 20657 "qb64pe.bas"
if(!qbevent)break;evnt(20657);}while(r);
#line 20657 "qb64pe.bas"
}
#line 20658 "qb64pe.bas"
S_23651:;
#line 20658 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20658 "qb64pe.bas"
if(qbevent){evnt(20658);if(r)goto S_23651;}
#line 20658 "qb64pe.bas"
do{
#line 20658 "qb64pe.bas"
goto exit_subfunc;
#line 20658 "qb64pe.bas"
if(!qbevent)break;evnt(20658);}while(r);
#line 20658 "qb64pe.bas"
}
#line 20663 "qb64pe.bas"
S_23654:;
#line 20663 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALUATEFUNC_STRING_MEMBER_ARRAY_ARG_SOURCE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 20663 "qb64pe.bas"
if(qbevent){evnt(20663);if(r)goto S_23654;}
#line 20664 "qb64pe.bas"
S_23655:;
#line 20664 "qb64pe.bas"
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()){
#line 20664 "qb64pe.bas"
if(qbevent){evnt(20664);if(r)goto S_23655;}
#line 20665 "qb64pe.bas"
S_23656:;
#line 20665 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISWHOLEMEMBERARRAYREF(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||is_error_pending()){
#line 20665 "qb64pe.bas"
if(qbevent){evnt(20665);if(r)goto S_23656;}
#line 20666 "qb64pe.bas"
S_23657:;
#line 20666 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_HASFINALEMPTYARRAYBRACKETS(_FUNC_EVALUATEFUNC_STRING_MEMBER_ARRAY_ARG_SOURCE)== 0 )))||is_error_pending()){
#line 20666 "qb64pe.bas"
if(qbevent){evnt(20666);if(r)goto S_23657;}
#line 20666 "qb64pe.bas"
do{
#line 20666 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected: Array Name()",22));
#line 20666 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20666 "qb64pe.bas"
if(!qbevent)break;evnt(20666);}while(r);
#line 20666 "qb64pe.bas"
do{
#line 20666 "qb64pe.bas"
goto exit_subfunc;
#line 20666 "qb64pe.bas"
if(!qbevent)break;evnt(20666);}while(r);
#line 20666 "qb64pe.bas"
}
#line 20667 "qb64pe.bas"
}
#line 20668 "qb64pe.bas"
}
#line 20669 "qb64pe.bas"
}
#line 20673 "qb64pe.bas"
S_23664:;
#line 20673 "qb64pe.bas"
if (((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+552)))== 0 ))&(-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+810)))== 0 )))||is_error_pending()){
#line 20673 "qb64pe.bas"
if(qbevent){evnt(20673);if(r)goto S_23664;}
#line 20674 "qb64pe.bas"
S_23665:;
#line 20674 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP>= 0 ))||is_error_pending()){
#line 20674 "qb64pe.bas"
if(qbevent){evnt(20674);if(r)goto S_23665;}
#line 20675 "qb64pe.bas"
S_23666:;
#line 20675 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
#line 20675 "qb64pe.bas"
if(qbevent){evnt(20675);if(r)goto S_23666;}
#line 20676 "qb64pe.bas"
S_23667:;
#line 20676 "qb64pe.bas"
if (((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)!= 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)!= 0 )))||is_error_pending()){
#line 20676 "qb64pe.bas"
if(qbevent){evnt(20676);if(r)goto S_23667;}
#line 20677 "qb64pe.bas"
S_23668:;
#line 20677 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_HASFINALEMPTYARRAYBRACKETS(_FUNC_EVALUATEFUNC_STRING_E2)))||is_error_pending()){
#line 20677 "qb64pe.bas"
if(qbevent){evnt(20677);if(r)goto S_23668;}
#line 20678 "qb64pe.bas"
do{
#line 20678 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Whole array cannot be passed to a scalar FUNCTION parameter",59));
#line 20678 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20678 "qb64pe.bas"
if(!qbevent)break;evnt(20678);}while(r);
#line 20678 "qb64pe.bas"
do{
#line 20678 "qb64pe.bas"
goto exit_subfunc;
#line 20678 "qb64pe.bas"
if(!qbevent)break;evnt(20678);}while(r);
#line 20679 "qb64pe.bas"
}
#line 20680 "qb64pe.bas"
}
#line 20681 "qb64pe.bas"
}
#line 20682 "qb64pe.bas"
}
#line 20683 "qb64pe.bas"
}
#line 20687 "qb64pe.bas"
S_23676:;
#line 20687 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("VAL",3))))||is_error_pending()){
#line 20687 "qb64pe.bas"
if(qbevent){evnt(20687);if(r)goto S_23676;}
#line 20688 "qb64pe.bas"
S_23677:;
#line 20688 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
#line 20688 "qb64pe.bas"
if(qbevent){evnt(20688);if(r)goto S_23677;}
#line 20689 "qb64pe.bas"
S_23678:;
#line 20689 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||is_error_pending()){
#line 20689 "qb64pe.bas"
if(qbevent){evnt(20689);if(r)goto S_23678;}
#line 20690 "qb64pe.bas"
S_23679:;
#line 20690 "qb64pe.bas"
if ((-((~(FUNC_TYPE_ISSTRING(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
#line 20690 "qb64pe.bas"
if(qbevent){evnt(20690);if(r)goto S_23679;}
#line 20691 "qb64pe.bas"
do{
#line 20691 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING argument",24));
#line 20691 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20691 "qb64pe.bas"
if(!qbevent)break;evnt(20691);}while(r);
#line 20692 "qb64pe.bas"
do{
#line 20692 "qb64pe.bas"
goto exit_subfunc;
#line 20692 "qb64pe.bas"
if(!qbevent)break;evnt(20692);}while(r);
#line 20693 "qb64pe.bas"
}
#line 20695 "qb64pe.bas"
S_23683:;
#line 20695 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 20695 "qb64pe.bas"
if(qbevent){evnt(20695);if(r)goto S_23683;}
#line 20695 "qb64pe.bas"
do{
#line 20695 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2677= 0 )));
#line 20695 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20695 "qb64pe.bas"
if(!qbevent)break;evnt(20695);}while(r);
#line 20695 "qb64pe.bas"
}
#line 20696 "qb64pe.bas"
S_23686:;
#line 20696 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20696 "qb64pe.bas"
if(qbevent){evnt(20696);if(r)goto S_23686;}
#line 20696 "qb64pe.bas"
do{
#line 20696 "qb64pe.bas"
goto exit_subfunc;
#line 20696 "qb64pe.bas"
if(!qbevent)break;evnt(20696);}while(r);
#line 20696 "qb64pe.bas"
}
#line 20698 "qb64pe.bas"
do{
#line 20698 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
#line 20698 "qb64pe.bas"
if(!qbevent)break;evnt(20698);}while(r);
#line 20699 "qb64pe.bas"
do{
#line 20699 "qb64pe.bas"
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)));
#line 20699 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20699 "qb64pe.bas"
if(!qbevent)break;evnt(20699);}while(r);
#line 20701 "qb64pe.bas"
do{
#line 20701 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 20701 "qb64pe.bas"
if(!qbevent)break;evnt(20701);}while(r);
#line 20702 "qb64pe.bas"
}else{
#line 20704 "qb64pe.bas"
do{
#line 20704 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
#line 20704 "qb64pe.bas"
if(!qbevent)break;evnt(20704);}while(r);
#line 20705 "qb64pe.bas"
}
#line 20706 "qb64pe.bas"
}
#line 20707 "qb64pe.bas"
}
#line 20710 "qb64pe.bas"
S_23697:;
#line 20710 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CAST",5))))||is_error_pending()){
#line 20710 "qb64pe.bas"
if(qbevent){evnt(20710);if(r)goto S_23697;}
#line 20711 "qb64pe.bas"
S_23698:;
#line 20711 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
#line 20711 "qb64pe.bas"
if(qbevent){evnt(20711);if(r)goto S_23698;}
#line 20712 "qb64pe.bas"
do{
#line 20712 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
#line 20712 "qb64pe.bas"
if(!qbevent)break;evnt(20712);}while(r);
#line 20714 "qb64pe.bas"
S_23700:;
#line 20714 "qb64pe.bas"
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
#line 20714 "qb64pe.bas"
if(qbevent){evnt(20714);if(r)goto S_23700;}
#line 20715 "qb64pe.bas"
do{
#line 20715 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
#line 20715 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20715 "qb64pe.bas"
if(!qbevent)break;evnt(20715);}while(r);
#line 20716 "qb64pe.bas"
do{
#line 20716 "qb64pe.bas"
goto exit_subfunc;
#line 20716 "qb64pe.bas"
if(!qbevent)break;evnt(20716);}while(r);
#line 20717 "qb64pe.bas"
}
#line 20719 "qb64pe.bas"
S_23704:;
#line 20719 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
#line 20719 "qb64pe.bas"
if(qbevent){evnt(20719);if(r)goto S_23704;}
#line 20719 "qb64pe.bas"
do{
#line 20719 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2678= 0 )));
#line 20719 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20719 "qb64pe.bas"
if(!qbevent)break;evnt(20719);}while(r);
#line 20719 "qb64pe.bas"
}
#line 20720 "qb64pe.bas"
S_23707:;
#line 20720 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20720 "qb64pe.bas"
if(qbevent){evnt(20720);if(r)goto S_23707;}
#line 20720 "qb64pe.bas"
do{
#line 20720 "qb64pe.bas"
goto exit_subfunc;
#line 20720 "qb64pe.bas"
if(!qbevent)break;evnt(20720);}while(r);
#line 20720 "qb64pe.bas"
}
#line 20722 "qb64pe.bas"
do{
#line 20722 "qb64pe.bas"
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)));
#line 20722 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20722 "qb64pe.bas"
if(!qbevent)break;evnt(20722);}while(r);
#line 20724 "qb64pe.bas"
do{
#line 20724 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 20724 "qb64pe.bas"
if(!qbevent)break;evnt(20724);}while(r);
#line 20725 "qb64pe.bas"
}
#line 20726 "qb64pe.bas"
}
#line 20729 "qb64pe.bas"
S_23714:;
#line 20729 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_IIF",4))))||is_error_pending()){
#line 20729 "qb64pe.bas"
if(qbevent){evnt(20729);if(r)goto S_23714;}
#line 20730 "qb64pe.bas"
S_23715:;
#line 20730 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
#line 20730 "qb64pe.bas"
if(qbevent){evnt(20730);if(r)goto S_23715;}
#line 20731 "qb64pe.bas"
do{
#line 20731 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("(",1)));
#line 20731 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20731 "qb64pe.bas"
if(!qbevent)break;evnt(20731);}while(r);
#line 20732 "qb64pe.bas"
do{
#line 20732 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
#line 20732 "qb64pe.bas"
if(!qbevent)break;evnt(20732);}while(r);
#line 20733 "qb64pe.bas"
S_23718:;
#line 20733 "qb64pe.bas"
}else{
#line 20733 "qb64pe.bas"
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
#line 20733 "qb64pe.bas"
if(qbevent){evnt(20733);if(r)goto S_23718;}
#line 20734 "qb64pe.bas"
S_23719:;
#line 20734 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
#line 20734 "qb64pe.bas"
if(qbevent){evnt(20734);if(r)goto S_23719;}
#line 20734 "qb64pe.bas"
do{
#line 20734 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2679= 0 )));
#line 20734 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20734 "qb64pe.bas"
if(!qbevent)break;evnt(20734);}while(r);
#line 20734 "qb64pe.bas"
}
#line 20735 "qb64pe.bas"
S_23722:;
#line 20735 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20735 "qb64pe.bas"
if(qbevent){evnt(20735);if(r)goto S_23722;}
#line 20735 "qb64pe.bas"
do{
#line 20735 "qb64pe.bas"
goto exit_subfunc;
#line 20735 "qb64pe.bas"
if(!qbevent)break;evnt(20735);}while(r);
#line 20735 "qb64pe.bas"
}
#line 20737 "qb64pe.bas"
do{
#line 20737 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ARG2TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
#line 20737 "qb64pe.bas"
if(!qbevent)break;evnt(20737);}while(r);
#line 20739 "qb64pe.bas"
do{
#line 20739 "qb64pe.bas"
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)));
#line 20739 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20739 "qb64pe.bas"
if(!qbevent)break;evnt(20739);}while(r);
#line 20740 "qb64pe.bas"
do{
#line 20740 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
#line 20740 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20740 "qb64pe.bas"
if(!qbevent)break;evnt(20740);}while(r);
#line 20741 "qb64pe.bas"
do{
#line 20741 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
#line 20741 "qb64pe.bas"
if(!qbevent)break;evnt(20741);}while(r);
#line 20743 "qb64pe.bas"
do{
#line 20743 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 20743 "qb64pe.bas"
if(!qbevent)break;evnt(20743);}while(r);
#line 20744 "qb64pe.bas"
S_23730:;
#line 20744 "qb64pe.bas"
}else{
#line 20744 "qb64pe.bas"
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 )){
#line 20744 "qb64pe.bas"
if(qbevent){evnt(20744);if(r)goto S_23730;}
#line 20745 "qb64pe.bas"
do{
#line 20745 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
#line 20745 "qb64pe.bas"
if(!qbevent)break;evnt(20745);}while(r);
#line 20747 "qb64pe.bas"
S_23732:;
#line 20747 "qb64pe.bas"
if ((-(FUNC_TYPE_ISSTRING(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)!=FUNC_TYPE_ISSTRING(_FUNC_EVALUATEFUNC_LONG_ARG2TYP)))||is_error_pending()){
#line 20747 "qb64pe.bas"
if(qbevent){evnt(20747);if(r)goto S_23732;}
#line 20748 "qb64pe.bas"
do{
#line 20748 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("falsePart and truePart must be of the same type",47));
#line 20748 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20748 "qb64pe.bas"
if(!qbevent)break;evnt(20748);}while(r);
#line 20749 "qb64pe.bas"
do{
#line 20749 "qb64pe.bas"
goto exit_subfunc;
#line 20749 "qb64pe.bas"
if(!qbevent)break;evnt(20749);}while(r);
#line 20750 "qb64pe.bas"
}
#line 20752 "qb64pe.bas"
S_23736:;
#line 20752 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
#line 20752 "qb64pe.bas"
if(qbevent){evnt(20752);if(r)goto S_23736;}
#line 20752 "qb64pe.bas"
do{
#line 20752 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2680= 0 )));
#line 20752 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20752 "qb64pe.bas"
if(!qbevent)break;evnt(20752);}while(r);
#line 20752 "qb64pe.bas"
}
#line 20753 "qb64pe.bas"
S_23739:;
#line 20753 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20753 "qb64pe.bas"
if(qbevent){evnt(20753);if(r)goto S_23739;}
#line 20753 "qb64pe.bas"
do{
#line 20753 "qb64pe.bas"
goto exit_subfunc;
#line 20753 "qb64pe.bas"
if(!qbevent)break;evnt(20753);}while(r);
#line 20753 "qb64pe.bas"
}
#line 20755 "qb64pe.bas"
do{
#line 20755 "qb64pe.bas"
*_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)));
#line 20755 "qb64pe.bas"
if(!qbevent)break;evnt(20755);}while(r);
#line 20756 "qb64pe.bas"
do{
#line 20756 "qb64pe.bas"
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)));
#line 20756 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20756 "qb64pe.bas"
if(!qbevent)break;evnt(20756);}while(r);
#line 20758 "qb64pe.bas"
do{
#line 20758 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 20758 "qb64pe.bas"
if(!qbevent)break;evnt(20758);}while(r);
#line 20759 "qb64pe.bas"
}
#line 20759 "qb64pe.bas"
}
#line 20759 "qb64pe.bas"
}
#line 20760 "qb64pe.bas"
}
#line 20763 "qb64pe.bas"
S_23747:;
#line 20763 "qb64pe.bas"
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()){
#line 20763 "qb64pe.bas"
if(qbevent){evnt(20763);if(r)goto S_23747;}
#line 20764 "qb64pe.bas"
do{
#line 20764 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MINMAX_N,qbs_lcase(qbs_right(_FUNC_EVALUATEFUNC_STRING_N, 3 )));
#line 20764 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20764 "qb64pe.bas"
if(!qbevent)break;evnt(20764);}while(r);
#line 20766 "qb64pe.bas"
S_23749:;
#line 20766 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
#line 20766 "qb64pe.bas"
if(qbevent){evnt(20766);if(r)goto S_23749;}
#line 20767 "qb64pe.bas"
S_23750:;
#line 20767 "qb64pe.bas"
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
#line 20767 "qb64pe.bas"
if(qbevent){evnt(20767);if(r)goto S_23750;}
#line 20768 "qb64pe.bas"
do{
#line 20768 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
#line 20768 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20768 "qb64pe.bas"
if(!qbevent)break;evnt(20768);}while(r);
#line 20769 "qb64pe.bas"
do{
#line 20769 "qb64pe.bas"
goto exit_subfunc;
#line 20769 "qb64pe.bas"
if(!qbevent)break;evnt(20769);}while(r);
#line 20770 "qb64pe.bas"
}
#line 20772 "qb64pe.bas"
S_23754:;
#line 20772 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
#line 20772 "qb64pe.bas"
if(qbevent){evnt(20772);if(r)goto S_23754;}
#line 20772 "qb64pe.bas"
do{
#line 20772 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2681= 0 )));
#line 20772 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20772 "qb64pe.bas"
if(!qbevent)break;evnt(20772);}while(r);
#line 20772 "qb64pe.bas"
}
#line 20773 "qb64pe.bas"
S_23757:;
#line 20773 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20773 "qb64pe.bas"
if(qbevent){evnt(20773);if(r)goto S_23757;}
#line 20773 "qb64pe.bas"
do{
#line 20773 "qb64pe.bas"
goto exit_subfunc;
#line 20773 "qb64pe.bas"
if(!qbevent)break;evnt(20773);}while(r);
#line 20773 "qb64pe.bas"
}
#line 20775 "qb64pe.bas"
do{
#line 20775 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ARG1TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
#line 20775 "qb64pe.bas"
if(!qbevent)break;evnt(20775);}while(r);
#line 20776 "qb64pe.bas"
do{
#line 20776 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
#line 20776 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20776 "qb64pe.bas"
if(!qbevent)break;evnt(20776);}while(r);
#line 20777 "qb64pe.bas"
do{
#line 20777 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
#line 20777 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20777 "qb64pe.bas"
if(!qbevent)break;evnt(20777);}while(r);
#line 20779 "qb64pe.bas"
do{
#line 20779 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 20779 "qb64pe.bas"
if(!qbevent)break;evnt(20779);}while(r);
#line 20780 "qb64pe.bas"
S_23764:;
#line 20780 "qb64pe.bas"
}else{
#line 20780 "qb64pe.bas"
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
#line 20780 "qb64pe.bas"
if(qbevent){evnt(20780);if(r)goto S_23764;}
#line 20781 "qb64pe.bas"
S_23765:;
#line 20781 "qb64pe.bas"
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
#line 20781 "qb64pe.bas"
if(qbevent){evnt(20781);if(r)goto S_23765;}
#line 20782 "qb64pe.bas"
do{
#line 20782 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
#line 20782 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20782 "qb64pe.bas"
if(!qbevent)break;evnt(20782);}while(r);
#line 20783 "qb64pe.bas"
do{
#line 20783 "qb64pe.bas"
goto exit_subfunc;
#line 20783 "qb64pe.bas"
if(!qbevent)break;evnt(20783);}while(r);
#line 20784 "qb64pe.bas"
}
#line 20786 "qb64pe.bas"
S_23769:;
#line 20786 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
#line 20786 "qb64pe.bas"
if(qbevent){evnt(20786);if(r)goto S_23769;}
#line 20786 "qb64pe.bas"
do{
#line 20786 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2682= 0 )));
#line 20786 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20786 "qb64pe.bas"
if(!qbevent)break;evnt(20786);}while(r);
#line 20786 "qb64pe.bas"
}
#line 20787 "qb64pe.bas"
S_23772:;
#line 20787 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20787 "qb64pe.bas"
if(qbevent){evnt(20787);if(r)goto S_23772;}
#line 20787 "qb64pe.bas"
do{
#line 20787 "qb64pe.bas"
goto exit_subfunc;
#line 20787 "qb64pe.bas"
if(!qbevent)break;evnt(20787);}while(r);
#line 20787 "qb64pe.bas"
}
#line 20789 "qb64pe.bas"
do{
#line 20789 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=FUNC_TYPE_PROMOTEARITHMETICTYPE(_FUNC_EVALUATEFUNC_LONG_ARG1TYP,_FUNC_EVALUATEFUNC_LONG_SOURCETYP);
#line 20789 "qb64pe.bas"
if(!qbevent)break;evnt(20789);}while(r);
#line 20790 "qb64pe.bas"
do{
#line 20790 "qb64pe.bas"
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)));
#line 20790 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20790 "qb64pe.bas"
if(!qbevent)break;evnt(20790);}while(r);
#line 20791 "qb64pe.bas"
S_23777:;
#line 20791 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20791 "qb64pe.bas"
if(qbevent){evnt(20791);if(r)goto S_23777;}
#line 20791 "qb64pe.bas"
do{
#line 20791 "qb64pe.bas"
goto exit_subfunc;
#line 20791 "qb64pe.bas"
if(!qbevent)break;evnt(20791);}while(r);
#line 20791 "qb64pe.bas"
}
#line 20793 "qb64pe.bas"
do{
#line 20793 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 20793 "qb64pe.bas"
if(!qbevent)break;evnt(20793);}while(r);
#line 20794 "qb64pe.bas"
}
#line 20794 "qb64pe.bas"
}
#line 20795 "qb64pe.bas"
}
#line 20798 "qb64pe.bas"
S_23783:;
#line 20798 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CLAMP",6))))||is_error_pending()){
#line 20798 "qb64pe.bas"
if(qbevent){evnt(20798);if(r)goto S_23783;}
#line 20799 "qb64pe.bas"
S_23784:;
#line 20799 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
#line 20799 "qb64pe.bas"
if(qbevent){evnt(20799);if(r)goto S_23784;}
#line 20800 "qb64pe.bas"
S_23785:;
#line 20800 "qb64pe.bas"
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
#line 20800 "qb64pe.bas"
if(qbevent){evnt(20800);if(r)goto S_23785;}
#line 20801 "qb64pe.bas"
do{
#line 20801 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
#line 20801 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20801 "qb64pe.bas"
if(!qbevent)break;evnt(20801);}while(r);
#line 20802 "qb64pe.bas"
do{
#line 20802 "qb64pe.bas"
goto exit_subfunc;
#line 20802 "qb64pe.bas"
if(!qbevent)break;evnt(20802);}while(r);
#line 20803 "qb64pe.bas"
}
#line 20805 "qb64pe.bas"
S_23789:;
#line 20805 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
#line 20805 "qb64pe.bas"
if(qbevent){evnt(20805);if(r)goto S_23789;}
#line 20805 "qb64pe.bas"
do{
#line 20805 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2683= 0 )));
#line 20805 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20805 "qb64pe.bas"
if(!qbevent)break;evnt(20805);}while(r);
#line 20805 "qb64pe.bas"
}
#line 20806 "qb64pe.bas"
S_23792:;
#line 20806 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20806 "qb64pe.bas"
if(qbevent){evnt(20806);if(r)goto S_23792;}
#line 20806 "qb64pe.bas"
do{
#line 20806 "qb64pe.bas"
goto exit_subfunc;
#line 20806 "qb64pe.bas"
if(!qbevent)break;evnt(20806);}while(r);
#line 20806 "qb64pe.bas"
}
#line 20808 "qb64pe.bas"
do{
#line 20808 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ARG1TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
#line 20808 "qb64pe.bas"
if(!qbevent)break;evnt(20808);}while(r);
#line 20809 "qb64pe.bas"
do{
#line 20809 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
#line 20809 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20809 "qb64pe.bas"
if(!qbevent)break;evnt(20809);}while(r);
#line 20810 "qb64pe.bas"
do{
#line 20810 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
#line 20810 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20810 "qb64pe.bas"
if(!qbevent)break;evnt(20810);}while(r);
#line 20812 "qb64pe.bas"
do{
#line 20812 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 20812 "qb64pe.bas"
if(!qbevent)break;evnt(20812);}while(r);
#line 20813 "qb64pe.bas"
S_23799:;
#line 20813 "qb64pe.bas"
}else{
#line 20813 "qb64pe.bas"
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
#line 20813 "qb64pe.bas"
if(qbevent){evnt(20813);if(r)goto S_23799;}
#line 20814 "qb64pe.bas"
S_23800:;
#line 20814 "qb64pe.bas"
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
#line 20814 "qb64pe.bas"
if(qbevent){evnt(20814);if(r)goto S_23800;}
#line 20815 "qb64pe.bas"
do{
#line 20815 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
#line 20815 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20815 "qb64pe.bas"
if(!qbevent)break;evnt(20815);}while(r);
#line 20816 "qb64pe.bas"
do{
#line 20816 "qb64pe.bas"
goto exit_subfunc;
#line 20816 "qb64pe.bas"
if(!qbevent)break;evnt(20816);}while(r);
#line 20817 "qb64pe.bas"
}
#line 20819 "qb64pe.bas"
S_23804:;
#line 20819 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
#line 20819 "qb64pe.bas"
if(qbevent){evnt(20819);if(r)goto S_23804;}
#line 20819 "qb64pe.bas"
do{
#line 20819 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2684= 0 )));
#line 20819 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20819 "qb64pe.bas"
if(!qbevent)break;evnt(20819);}while(r);
#line 20819 "qb64pe.bas"
}
#line 20820 "qb64pe.bas"
S_23807:;
#line 20820 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20820 "qb64pe.bas"
if(qbevent){evnt(20820);if(r)goto S_23807;}
#line 20820 "qb64pe.bas"
do{
#line 20820 "qb64pe.bas"
goto exit_subfunc;
#line 20820 "qb64pe.bas"
if(!qbevent)break;evnt(20820);}while(r);
#line 20820 "qb64pe.bas"
}
#line 20822 "qb64pe.bas"
do{
#line 20822 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ARG2TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
#line 20822 "qb64pe.bas"
if(!qbevent)break;evnt(20822);}while(r);
#line 20823 "qb64pe.bas"
do{
#line 20823 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E));
#line 20823 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20823 "qb64pe.bas"
if(!qbevent)break;evnt(20823);}while(r);
#line 20824 "qb64pe.bas"
do{
#line 20824 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
#line 20824 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20824 "qb64pe.bas"
if(!qbevent)break;evnt(20824);}while(r);
#line 20826 "qb64pe.bas"
do{
#line 20826 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 20826 "qb64pe.bas"
if(!qbevent)break;evnt(20826);}while(r);
#line 20827 "qb64pe.bas"
S_23814:;
#line 20827 "qb64pe.bas"
}else{
#line 20827 "qb64pe.bas"
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 )){
#line 20827 "qb64pe.bas"
if(qbevent){evnt(20827);if(r)goto S_23814;}
#line 20828 "qb64pe.bas"
S_23815:;
#line 20828 "qb64pe.bas"
if ((-((~(FUNC_TYPE_ISARITHMETIC(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
#line 20828 "qb64pe.bas"
if(qbevent){evnt(20828);if(r)goto S_23815;}
#line 20829 "qb64pe.bas"
do{
#line 20829 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric argument",25));
#line 20829 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20829 "qb64pe.bas"
if(!qbevent)break;evnt(20829);}while(r);
#line 20830 "qb64pe.bas"
do{
#line 20830 "qb64pe.bas"
goto exit_subfunc;
#line 20830 "qb64pe.bas"
if(!qbevent)break;evnt(20830);}while(r);
#line 20831 "qb64pe.bas"
}
#line 20833 "qb64pe.bas"
S_23819:;
#line 20833 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
#line 20833 "qb64pe.bas"
if(qbevent){evnt(20833);if(r)goto S_23819;}
#line 20833 "qb64pe.bas"
do{
#line 20833 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2685= 0 )));
#line 20833 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20833 "qb64pe.bas"
if(!qbevent)break;evnt(20833);}while(r);
#line 20833 "qb64pe.bas"
}
#line 20834 "qb64pe.bas"
S_23822:;
#line 20834 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20834 "qb64pe.bas"
if(qbevent){evnt(20834);if(r)goto S_23822;}
#line 20834 "qb64pe.bas"
do{
#line 20834 "qb64pe.bas"
goto exit_subfunc;
#line 20834 "qb64pe.bas"
if(!qbevent)break;evnt(20834);}while(r);
#line 20834 "qb64pe.bas"
}
#line 20836 "qb64pe.bas"
do{
#line 20836 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=FUNC_TYPE_PROMOTEARITHMETICTYPE(&(pass2686=FUNC_TYPE_PROMOTEARITHMETICTYPE(_FUNC_EVALUATEFUNC_LONG_ARG1TYP,_FUNC_EVALUATEFUNC_LONG_ARG2TYP)),_FUNC_EVALUATEFUNC_LONG_SOURCETYP);
#line 20836 "qb64pe.bas"
if(!qbevent)break;evnt(20836);}while(r);
#line 20837 "qb64pe.bas"
do{
#line 20837 "qb64pe.bas"
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)));
#line 20837 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20837 "qb64pe.bas"
if(!qbevent)break;evnt(20837);}while(r);
#line 20838 "qb64pe.bas"
S_23827:;
#line 20838 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20838 "qb64pe.bas"
if(qbevent){evnt(20838);if(r)goto S_23827;}
#line 20838 "qb64pe.bas"
do{
#line 20838 "qb64pe.bas"
goto exit_subfunc;
#line 20838 "qb64pe.bas"
if(!qbevent)break;evnt(20838);}while(r);
#line 20838 "qb64pe.bas"
}
#line 20840 "qb64pe.bas"
do{
#line 20840 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 20840 "qb64pe.bas"
if(!qbevent)break;evnt(20840);}while(r);
#line 20841 "qb64pe.bas"
}
#line 20841 "qb64pe.bas"
}
#line 20841 "qb64pe.bas"
}
#line 20842 "qb64pe.bas"
}
#line 20845 "qb64pe.bas"
S_23833:;
#line 20845 "qb64pe.bas"
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()){
#line 20845 "qb64pe.bas"
if(qbevent){evnt(20845);if(r)goto S_23833;}
#line 20846 "qb64pe.bas"
do{
#line 20846 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_ROTLR_N,qbs_lcase(qbs_right(_FUNC_EVALUATEFUNC_STRING_N, 3 )));
#line 20846 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20846 "qb64pe.bas"
if(!qbevent)break;evnt(20846);}while(r);
#line 20848 "qb64pe.bas"
S_23835:;
#line 20848 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
#line 20848 "qb64pe.bas"
if(qbevent){evnt(20848);if(r)goto S_23835;}
#line 20849 "qb64pe.bas"
S_23836:;
#line 20849 "qb64pe.bas"
if ((-((~(FUNC_TYPE_ISINTEGRAL(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
#line 20849 "qb64pe.bas"
if(qbevent){evnt(20849);if(r)goto S_23836;}
#line 20850 "qb64pe.bas"
do{
#line 20850 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected non-floating-point numeric argument",44));
#line 20850 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20850 "qb64pe.bas"
if(!qbevent)break;evnt(20850);}while(r);
#line 20851 "qb64pe.bas"
do{
#line 20851 "qb64pe.bas"
goto exit_subfunc;
#line 20851 "qb64pe.bas"
if(!qbevent)break;evnt(20851);}while(r);
#line 20852 "qb64pe.bas"
}
#line 20854 "qb64pe.bas"
S_23840:;
#line 20854 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
#line 20854 "qb64pe.bas"
if(qbevent){evnt(20854);if(r)goto S_23840;}
#line 20854 "qb64pe.bas"
do{
#line 20854 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2687= 0 )));
#line 20854 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20854 "qb64pe.bas"
if(!qbevent)break;evnt(20854);}while(r);
#line 20854 "qb64pe.bas"
}
#line 20855 "qb64pe.bas"
S_23843:;
#line 20855 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20855 "qb64pe.bas"
if(qbevent){evnt(20855);if(r)goto S_23843;}
#line 20855 "qb64pe.bas"
do{
#line 20855 "qb64pe.bas"
goto exit_subfunc;
#line 20855 "qb64pe.bas"
if(!qbevent)break;evnt(20855);}while(r);
#line 20855 "qb64pe.bas"
}
#line 20857 "qb64pe.bas"
S_23846:;
#line 20857 "qb64pe.bas"
sc_2688=FUNC_TYPE_GETSIZEINBITS(_FUNC_EVALUATEFUNC_LONG_SOURCETYP);
#line 20857 "qb64pe.bas"
if(qbevent){evnt(20857);if(r)goto S_23846;}
#line 20858 "qb64pe.bas"
S_23847:;
#line 20858 "qb64pe.bas"
if (((sc_2688==( 8 )))||is_error_pending()){
#line 20858 "qb64pe.bas"
if(qbevent){evnt(20858);if(r)goto S_23847;}
#line 20859 "qb64pe.bas"
do{
#line 20859 "qb64pe.bas"
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));
#line 20859 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20859 "qb64pe.bas"
if(!qbevent)break;evnt(20859);}while(r);
#line 20860 "qb64pe.bas"
do{
#line 20860 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
#line 20860 "qb64pe.bas"
if(!qbevent)break;evnt(20860);}while(r);
#line 20861 "qb64pe.bas"
sc_ec_101_end:;
#line 20861 "qb64pe.bas"
goto sc_2688_end;
#line 20861 "qb64pe.bas"
}
#line 20861 "qb64pe.bas"
S_23850:;
#line 20861 "qb64pe.bas"
if (((sc_2688==( 16 )))||is_error_pending()){
#line 20861 "qb64pe.bas"
if(qbevent){evnt(20861);if(r)goto S_23850;}
#line 20862 "qb64pe.bas"
do{
#line 20862 "qb64pe.bas"
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));
#line 20862 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20862 "qb64pe.bas"
if(!qbevent)break;evnt(20862);}while(r);
#line 20863 "qb64pe.bas"
do{
#line 20863 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
#line 20863 "qb64pe.bas"
if(!qbevent)break;evnt(20863);}while(r);
#line 20864 "qb64pe.bas"
sc_ec_102_end:;
#line 20864 "qb64pe.bas"
goto sc_2688_end;
#line 20864 "qb64pe.bas"
}
#line 20864 "qb64pe.bas"
S_23853:;
#line 20864 "qb64pe.bas"
if (((sc_2688==( 32 )))||is_error_pending()){
#line 20864 "qb64pe.bas"
if(qbevent){evnt(20864);if(r)goto S_23853;}
#line 20865 "qb64pe.bas"
do{
#line 20865 "qb64pe.bas"
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));
#line 20865 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20865 "qb64pe.bas"
if(!qbevent)break;evnt(20865);}while(r);
#line 20866 "qb64pe.bas"
do{
#line 20866 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
#line 20866 "qb64pe.bas"
if(!qbevent)break;evnt(20866);}while(r);
#line 20867 "qb64pe.bas"
sc_ec_103_end:;
#line 20867 "qb64pe.bas"
goto sc_2688_end;
#line 20867 "qb64pe.bas"
}
#line 20867 "qb64pe.bas"
S_23856:;
#line 20867 "qb64pe.bas"
if (((sc_2688==( 64 )))||is_error_pending()){
#line 20867 "qb64pe.bas"
if(qbevent){evnt(20867);if(r)goto S_23856;}
#line 20868 "qb64pe.bas"
do{
#line 20868 "qb64pe.bas"
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));
#line 20868 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20868 "qb64pe.bas"
if(!qbevent)break;evnt(20868);}while(r);
#line 20869 "qb64pe.bas"
do{
#line 20869 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
#line 20869 "qb64pe.bas"
if(!qbevent)break;evnt(20869);}while(r);
#line 20870 "qb64pe.bas"
sc_ec_104_end:;
#line 20870 "qb64pe.bas"
goto sc_2688_end;
#line 20870 "qb64pe.bas"
}
#line 20871 "qb64pe.bas"
do{
#line 20871 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Unsupported integral type size",30));
#line 20871 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20871 "qb64pe.bas"
if(!qbevent)break;evnt(20871);}while(r);
#line 20872 "qb64pe.bas"
do{
#line 20872 "qb64pe.bas"
goto exit_subfunc;
#line 20872 "qb64pe.bas"
if(!qbevent)break;evnt(20872);}while(r);
#line 20873 "qb64pe.bas"
sc_2688_end:;
#line 20875 "qb64pe.bas"
do{
#line 20875 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
#line 20875 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20875 "qb64pe.bas"
if(!qbevent)break;evnt(20875);}while(r);
#line 20876 "qb64pe.bas"
do{
#line 20876 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0));
#line 20876 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20876 "qb64pe.bas"
if(!qbevent)break;evnt(20876);}while(r);
#line 20878 "qb64pe.bas"
do{
#line 20878 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 20878 "qb64pe.bas"
if(!qbevent)break;evnt(20878);}while(r);
#line 20879 "qb64pe.bas"
S_23866:;
#line 20879 "qb64pe.bas"
}else{
#line 20879 "qb64pe.bas"
if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){
#line 20879 "qb64pe.bas"
if(qbevent){evnt(20879);if(r)goto S_23866;}
#line 20880 "qb64pe.bas"
S_23867:;
#line 20880 "qb64pe.bas"
if ((-((~(FUNC_TYPE_ISINTEGRAL(_FUNC_EVALUATEFUNC_LONG_SOURCETYP)))||(FUNC_TYPE_ISUDTCONTAINER(_FUNC_EVALUATEFUNC_LONG_SOURCETYP))))||is_error_pending()){
#line 20880 "qb64pe.bas"
if(qbevent){evnt(20880);if(r)goto S_23867;}
#line 20881 "qb64pe.bas"
do{
#line 20881 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected non-floating-point numeric argument",44));
#line 20881 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20881 "qb64pe.bas"
if(!qbevent)break;evnt(20881);}while(r);
#line 20882 "qb64pe.bas"
do{
#line 20882 "qb64pe.bas"
goto exit_subfunc;
#line 20882 "qb64pe.bas"
if(!qbevent)break;evnt(20882);}while(r);
#line 20883 "qb64pe.bas"
}
#line 20885 "qb64pe.bas"
S_23871:;
#line 20885 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
#line 20885 "qb64pe.bas"
if(qbevent){evnt(20885);if(r)goto S_23871;}
#line 20885 "qb64pe.bas"
do{
#line 20885 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2689= 0 )));
#line 20885 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20885 "qb64pe.bas"
if(!qbevent)break;evnt(20885);}while(r);
#line 20885 "qb64pe.bas"
}
#line 20886 "qb64pe.bas"
S_23874:;
#line 20886 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20886 "qb64pe.bas"
if(qbevent){evnt(20886);if(r)goto S_23874;}
#line 20886 "qb64pe.bas"
do{
#line 20886 "qb64pe.bas"
goto exit_subfunc;
#line 20886 "qb64pe.bas"
if(!qbevent)break;evnt(20886);}while(r);
#line 20886 "qb64pe.bas"
}
#line 20888 "qb64pe.bas"
do{
#line 20888 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
#line 20888 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20888 "qb64pe.bas"
if(!qbevent)break;evnt(20888);}while(r);
#line 20890 "qb64pe.bas"
do{
#line 20890 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 20890 "qb64pe.bas"
if(!qbevent)break;evnt(20890);}while(r);
#line 20891 "qb64pe.bas"
}
#line 20891 "qb64pe.bas"
}
#line 20892 "qb64pe.bas"
}
#line 20895 "qb64pe.bas"
S_23881:;
#line 20895 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_UCHARPOS",9))))||is_error_pending()){
#line 20895 "qb64pe.bas"
if(qbevent){evnt(20895);if(r)goto S_23881;}
#line 20896 "qb64pe.bas"
S_23882:;
#line 20896 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
#line 20896 "qb64pe.bas"
if(qbevent){evnt(20896);if(r)goto S_23882;}
#line 20898 "qb64pe.bas"
S_23883:;
#line 20898 "qb64pe.bas"
if (((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 )))||is_error_pending()){
#line 20898 "qb64pe.bas"
if(qbevent){evnt(20898);if(r)goto S_23883;}
#line 20899 "qb64pe.bas"
do{
#line 20899 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected LONG array-name",24));
#line 20899 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20899 "qb64pe.bas"
if(!qbevent)break;evnt(20899);}while(r);
#line 20900 "qb64pe.bas"
do{
#line 20900 "qb64pe.bas"
goto exit_subfunc;
#line 20900 "qb64pe.bas"
if(!qbevent)break;evnt(20900);}while(r);
#line 20901 "qb64pe.bas"
}
#line 20904 "qb64pe.bas"
S_23887:;
#line 20904 "qb64pe.bas"
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()){
#line 20904 "qb64pe.bas"
if(qbevent){evnt(20904);if(r)goto S_23887;}
#line 20905 "qb64pe.bas"
do{
#line 20905 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected LONG array-name",24));
#line 20905 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20905 "qb64pe.bas"
if(!qbevent)break;evnt(20905);}while(r);
#line 20906 "qb64pe.bas"
do{
#line 20906 "qb64pe.bas"
goto exit_subfunc;
#line 20906 "qb64pe.bas"
if(!qbevent)break;evnt(20906);}while(r);
#line 20907 "qb64pe.bas"
}
#line 20909 "qb64pe.bas"
do{
#line 20909 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2690= -2 )));
#line 20909 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20909 "qb64pe.bas"
if(!qbevent)break;evnt(20909);}while(r);
#line 20911 "qb64pe.bas"
do{
#line 20911 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 20911 "qb64pe.bas"
if(!qbevent)break;evnt(20911);}while(r);
#line 20912 "qb64pe.bas"
}
#line 20913 "qb64pe.bas"
}
#line 20916 "qb64pe.bas"
S_23895:;
#line 20916 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4))))||is_error_pending()){
#line 20916 "qb64pe.bas"
if(qbevent){evnt(20916);if(r)goto S_23895;}
#line 20917 "qb64pe.bas"
S_23896:;
#line 20917 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
#line 20917 "qb64pe.bas"
if(qbevent){evnt(20917);if(r)goto S_23896;}
#line 20918 "qb64pe.bas"
S_23897:;
#line 20918 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||is_error_pending()){
#line 20918 "qb64pe.bas"
if(qbevent){evnt(20918);if(r)goto S_23897;}
#line 20919 "qb64pe.bas"
do{
#line 20919 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP= -7 ;
#line 20919 "qb64pe.bas"
if(!qbevent)break;evnt(20919);}while(r);
#line 20920 "qb64pe.bas"
}
#line 20921 "qb64pe.bas"
S_23900:;
#line 20921 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||is_error_pending()){
#line 20921 "qb64pe.bas"
if(qbevent){evnt(20921);if(r)goto S_23900;}
#line 20922 "qb64pe.bas"
do{
#line 20922 "qb64pe.bas"
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))));
#line 20922 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20922 "qb64pe.bas"
if(!qbevent)break;evnt(20922);}while(r);
#line 20923 "qb64pe.bas"
S_23902:;
#line 20923 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)== 0 ))||is_error_pending()){
#line 20923 "qb64pe.bas"
if(qbevent){evnt(20923);if(r)goto S_23902;}
#line 20923 "qb64pe.bas"
do{
#line 20923 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected _MEM(_OFFSET-value,...)",32));
#line 20923 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20923 "qb64pe.bas"
if(!qbevent)break;evnt(20923);}while(r);
#line 20923 "qb64pe.bas"
do{
#line 20923 "qb64pe.bas"
goto exit_subfunc;
#line 20923 "qb64pe.bas"
if(!qbevent)break;evnt(20923);}while(r);
#line 20923 "qb64pe.bas"
}
#line 20924 "qb64pe.bas"
}
#line 20925 "qb64pe.bas"
}
#line 20926 "qb64pe.bas"
}
#line 20929 "qb64pe.bas"
S_23909:;
#line 20929 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_OFFSET",7))))||is_error_pending()){
#line 20929 "qb64pe.bas"
if(qbevent){evnt(20929);if(r)goto S_23909;}
#line 20930 "qb64pe.bas"
S_23910:;
#line 20930 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 20930 "qb64pe.bas"
if(qbevent){evnt(20930);if(r)goto S_23910;}
#line 20931 "qb64pe.bas"
do{
#line 20931 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_OFFSET expects the name of a variable/array",44));
#line 20931 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20931 "qb64pe.bas"
if(!qbevent)break;evnt(20931);}while(r);
#line 20931 "qb64pe.bas"
do{
#line 20931 "qb64pe.bas"
goto exit_subfunc;
#line 20931 "qb64pe.bas"
if(!qbevent)break;evnt(20931);}while(r);
#line 20932 "qb64pe.bas"
}
#line 20933 "qb64pe.bas"
S_23914:;
#line 20933 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
#line 20933 "qb64pe.bas"
if(qbevent){evnt(20933);if(r)goto S_23914;}
#line 20934 "qb64pe.bas"
S_23915:;
#line 20934 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 20934 "qb64pe.bas"
if(qbevent){evnt(20934);if(r)goto S_23915;}
#line 20934 "qb64pe.bas"
do{
#line 20934 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_OFFSET cannot reference _BIT type arrays",41));
#line 20934 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20934 "qb64pe.bas"
if(!qbevent)break;evnt(20934);}while(r);
#line 20934 "qb64pe.bas"
do{
#line 20934 "qb64pe.bas"
goto exit_subfunc;
#line 20934 "qb64pe.bas"
if(!qbevent)break;evnt(20934);}while(r);
#line 20934 "qb64pe.bas"
}
#line 20935 "qb64pe.bas"
}
#line 20936 "qb64pe.bas"
do{
#line 20936 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((uptrszint)(",13),FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2692= -6 ))),qbs_new_txt_len("))",2)));
#line 20936 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20936 "qb64pe.bas"
if(!qbevent)break;evnt(20936);}while(r);
#line 20937 "qb64pe.bas"
S_23921:;
#line 20937 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20937 "qb64pe.bas"
if(qbevent){evnt(20937);if(r)goto S_23921;}
#line 20937 "qb64pe.bas"
do{
#line 20937 "qb64pe.bas"
goto exit_subfunc;
#line 20937 "qb64pe.bas"
if(!qbevent)break;evnt(20937);}while(r);
#line 20937 "qb64pe.bas"
}
#line 20938 "qb64pe.bas"
do{
#line 20938 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
#line 20938 "qb64pe.bas"
if(!qbevent)break;evnt(20938);}while(r);
#line 20939 "qb64pe.bas"
do{
#line 20939 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 20939 "qb64pe.bas"
if(!qbevent)break;evnt(20939);}while(r);
#line 20940 "qb64pe.bas"
}
#line 20944 "qb64pe.bas"
S_23927:;
#line 20944 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ENVIRON",7))))||is_error_pending()){
#line 20944 "qb64pe.bas"
if(qbevent){evnt(20944);if(r)goto S_23927;}
#line 20945 "qb64pe.bas"
S_23928:;
#line 20945 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 20945 "qb64pe.bas"
if(qbevent){evnt(20945);if(r)goto S_23928;}
#line 20946 "qb64pe.bas"
S_23929:;
#line 20946 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||is_error_pending()){
#line 20946 "qb64pe.bas"
if(qbevent){evnt(20946);if(r)goto S_23929;}
#line 20946 "qb64pe.bas"
do{
#line 20946 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2693= 0 )));
#line 20946 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20946 "qb64pe.bas"
if(!qbevent)break;evnt(20946);}while(r);
#line 20946 "qb64pe.bas"
}
#line 20947 "qb64pe.bas"
S_23932:;
#line 20947 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20947 "qb64pe.bas"
if(qbevent){evnt(20947);if(r)goto S_23932;}
#line 20947 "qb64pe.bas"
do{
#line 20947 "qb64pe.bas"
goto exit_subfunc;
#line 20947 "qb64pe.bas"
if(!qbevent)break;evnt(20947);}while(r);
#line 20947 "qb64pe.bas"
}
#line 20948 "qb64pe.bas"
do{
#line 20948 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 20948 "qb64pe.bas"
if(!qbevent)break;evnt(20948);}while(r);
#line 20949 "qb64pe.bas"
}
#line 20950 "qb64pe.bas"
}
#line 20953 "qb64pe.bas"
S_23938:;
#line 20953 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LEN",3))))||is_error_pending()){
#line 20953 "qb64pe.bas"
if(qbevent){evnt(20953);if(r)goto S_23938;}
#line 20954 "qb64pe.bas"
do{
#line 20954 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
#line 20954 "qb64pe.bas"
if(!qbevent)break;evnt(20954);}while(r);
#line 20955 "qb64pe.bas"
S_23940:;
#line 20955 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 20955 "qb64pe.bas"
if(qbevent){evnt(20955);if(r)goto S_23940;}
#line 20957 "qb64pe.bas"
S_23941:;
#line 20957 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 20957 "qb64pe.bas"
if(qbevent){evnt(20957);if(r)goto S_23941;}
#line 20958 "qb64pe.bas"
do{
#line 20958 "qb64pe.bas"
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)));
#line 20958 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20958 "qb64pe.bas"
if(!qbevent)break;evnt(20958);}while(r);
#line 20959 "qb64pe.bas"
do{
#line 20959 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 20959 "qb64pe.bas"
if(!qbevent)break;evnt(20959);}while(r);
#line 20960 "qb64pe.bas"
}
#line 20961 "qb64pe.bas"
do{
#line 20961 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("String expression or variable name required in LEN statement",60));
#line 20961 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20961 "qb64pe.bas"
if(!qbevent)break;evnt(20961);}while(r);
#line 20961 "qb64pe.bas"
do{
#line 20961 "qb64pe.bas"
goto exit_subfunc;
#line 20961 "qb64pe.bas"
if(!qbevent)break;evnt(20961);}while(r);
#line 20962 "qb64pe.bas"
}
#line 20963 "qb64pe.bas"
do{
#line 20963 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2694= -5 )));
#line 20963 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20963 "qb64pe.bas"
if(!qbevent)break;evnt(20963);}while(r);
#line 20964 "qb64pe.bas"
S_23949:;
#line 20964 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20964 "qb64pe.bas"
if(qbevent){evnt(20964);if(r)goto S_23949;}
#line 20964 "qb64pe.bas"
do{
#line 20964 "qb64pe.bas"
goto exit_subfunc;
#line 20964 "qb64pe.bas"
if(!qbevent)break;evnt(20964);}while(r);
#line 20964 "qb64pe.bas"
}
#line 20965 "qb64pe.bas"
do{
#line 20965 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 20965 "qb64pe.bas"
if(!qbevent)break;evnt(20965);}while(r);
#line 20966 "qb64pe.bas"
}
#line 20970 "qb64pe.bas"
S_23954:;
#line 20970 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_BIN",4))))||is_error_pending()){
#line 20970 "qb64pe.bas"
if(qbevent){evnt(20970);if(r)goto S_23954;}
#line 20971 "qb64pe.bas"
S_23955:;
#line 20971 "qb64pe.bas"
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()){
#line 20971 "qb64pe.bas"
if(qbevent){evnt(20971);if(r)goto S_23955;}
#line 20972 "qb64pe.bas"
do{
#line 20972 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 20972 "qb64pe.bas"
if(!qbevent)break;evnt(20972);}while(r);
#line 20974 "qb64pe.bas"
S_23957:;
#line 20974 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 20974 "qb64pe.bas"
if(qbevent){evnt(20974);if(r)goto S_23957;}
#line 20974 "qb64pe.bas"
do{
#line 20974 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
#line 20974 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20974 "qb64pe.bas"
if(!qbevent)break;evnt(20974);}while(r);
#line 20974 "qb64pe.bas"
do{
#line 20974 "qb64pe.bas"
goto exit_subfunc;
#line 20974 "qb64pe.bas"
if(!qbevent)break;evnt(20974);}while(r);
#line 20974 "qb64pe.bas"
}
#line 20975 "qb64pe.bas"
do{
#line 20975 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ;
#line 20975 "qb64pe.bas"
if(!qbevent)break;evnt(20975);}while(r);
#line 20976 "qb64pe.bas"
S_23962:;
#line 20976 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 20976 "qb64pe.bas"
if(qbevent){evnt(20976);if(r)goto S_23962;}
#line 20976 "qb64pe.bas"
do{
#line 20976 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2695= 0 )));
#line 20976 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20976 "qb64pe.bas"
if(!qbevent)break;evnt(20976);}while(r);
#line 20976 "qb64pe.bas"
do{
#line 20976 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ;
#line 20976 "qb64pe.bas"
if(!qbevent)break;evnt(20976);}while(r);
#line 20976 "qb64pe.bas"
}
#line 20977 "qb64pe.bas"
S_23966:;
#line 20977 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 20977 "qb64pe.bas"
if(qbevent){evnt(20977);if(r)goto S_23966;}
#line 20977 "qb64pe.bas"
do{
#line 20977 "qb64pe.bas"
goto exit_subfunc;
#line 20977 "qb64pe.bas"
if(!qbevent)break;evnt(20977);}while(r);
#line 20977 "qb64pe.bas"
}
#line 20978 "qb64pe.bas"
do{
#line 20978 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 20978 "qb64pe.bas"
if(!qbevent)break;evnt(20978);}while(r);
#line 20979 "qb64pe.bas"
S_23970:;
#line 20979 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 20979 "qb64pe.bas"
if(qbevent){evnt(20979);if(r)goto S_23970;}
#line 20980 "qb64pe.bas"
do{
#line 20980 "qb64pe.bas"
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)));
#line 20980 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20980 "qb64pe.bas"
if(!qbevent)break;evnt(20980);}while(r);
#line 20981 "qb64pe.bas"
}else{
#line 20982 "qb64pe.bas"
S_23973:;
#line 20982 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 20982 "qb64pe.bas"
if(qbevent){evnt(20982);if(r)goto S_23973;}
#line 20983 "qb64pe.bas"
do{
#line 20983 "qb64pe.bas"
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)));
#line 20983 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20983 "qb64pe.bas"
if(!qbevent)break;evnt(20983);}while(r);
#line 20984 "qb64pe.bas"
}else{
#line 20985 "qb64pe.bas"
S_23976:;
#line 20985 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
#line 20985 "qb64pe.bas"
if(qbevent){evnt(20985);if(r)goto S_23976;}
#line 20986 "qb64pe.bas"
S_23977:;
#line 20986 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||is_error_pending()){
#line 20986 "qb64pe.bas"
if(qbevent){evnt(20986);if(r)goto S_23977;}
#line 20986 "qb64pe.bas"
do{
#line 20986 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ;
#line 20986 "qb64pe.bas"
if(!qbevent)break;evnt(20986);}while(r);
#line 20986 "qb64pe.bas"
}
#line 20987 "qb64pe.bas"
}
#line 20988 "qb64pe.bas"
do{
#line 20988 "qb64pe.bas"
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)));
#line 20988 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20988 "qb64pe.bas"
if(!qbevent)break;evnt(20988);}while(r);
#line 20989 "qb64pe.bas"
}
#line 20990 "qb64pe.bas"
}
#line 20991 "qb64pe.bas"
do{
#line 20991 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER;
#line 20991 "qb64pe.bas"
if(!qbevent)break;evnt(20991);}while(r);
#line 20992 "qb64pe.bas"
do{
#line 20992 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
#line 20992 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20992 "qb64pe.bas"
if(!qbevent)break;evnt(20992);}while(r);
#line 20993 "qb64pe.bas"
do{
#line 20993 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 20993 "qb64pe.bas"
if(!qbevent)break;evnt(20993);}while(r);
#line 20994 "qb64pe.bas"
}
#line 20995 "qb64pe.bas"
}
#line 20998 "qb64pe.bas"
S_23989:;
#line 20998 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("OCT",3))))||is_error_pending()){
#line 20998 "qb64pe.bas"
if(qbevent){evnt(20998);if(r)goto S_23989;}
#line 20999 "qb64pe.bas"
S_23990:;
#line 20999 "qb64pe.bas"
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()){
#line 20999 "qb64pe.bas"
if(qbevent){evnt(20999);if(r)goto S_23990;}
#line 21000 "qb64pe.bas"
do{
#line 21000 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 21000 "qb64pe.bas"
if(!qbevent)break;evnt(21000);}while(r);
#line 21002 "qb64pe.bas"
S_23992:;
#line 21002 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21002 "qb64pe.bas"
if(qbevent){evnt(21002);if(r)goto S_23992;}
#line 21002 "qb64pe.bas"
do{
#line 21002 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
#line 21002 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21002 "qb64pe.bas"
if(!qbevent)break;evnt(21002);}while(r);
#line 21002 "qb64pe.bas"
do{
#line 21002 "qb64pe.bas"
goto exit_subfunc;
#line 21002 "qb64pe.bas"
if(!qbevent)break;evnt(21002);}while(r);
#line 21002 "qb64pe.bas"
}
#line 21003 "qb64pe.bas"
do{
#line 21003 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ;
#line 21003 "qb64pe.bas"
if(!qbevent)break;evnt(21003);}while(r);
#line 21004 "qb64pe.bas"
S_23997:;
#line 21004 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21004 "qb64pe.bas"
if(qbevent){evnt(21004);if(r)goto S_23997;}
#line 21004 "qb64pe.bas"
do{
#line 21004 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2696= 0 )));
#line 21004 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21004 "qb64pe.bas"
if(!qbevent)break;evnt(21004);}while(r);
#line 21004 "qb64pe.bas"
do{
#line 21004 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ;
#line 21004 "qb64pe.bas"
if(!qbevent)break;evnt(21004);}while(r);
#line 21004 "qb64pe.bas"
}
#line 21005 "qb64pe.bas"
S_24001:;
#line 21005 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21005 "qb64pe.bas"
if(qbevent){evnt(21005);if(r)goto S_24001;}
#line 21005 "qb64pe.bas"
do{
#line 21005 "qb64pe.bas"
goto exit_subfunc;
#line 21005 "qb64pe.bas"
if(!qbevent)break;evnt(21005);}while(r);
#line 21005 "qb64pe.bas"
}
#line 21006 "qb64pe.bas"
do{
#line 21006 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 21006 "qb64pe.bas"
if(!qbevent)break;evnt(21006);}while(r);
#line 21007 "qb64pe.bas"
S_24005:;
#line 21007 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 21007 "qb64pe.bas"
if(qbevent){evnt(21007);if(r)goto S_24005;}
#line 21008 "qb64pe.bas"
do{
#line 21008 "qb64pe.bas"
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)));
#line 21008 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21008 "qb64pe.bas"
if(!qbevent)break;evnt(21008);}while(r);
#line 21009 "qb64pe.bas"
}else{
#line 21010 "qb64pe.bas"
S_24008:;
#line 21010 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 21010 "qb64pe.bas"
if(qbevent){evnt(21010);if(r)goto S_24008;}
#line 21011 "qb64pe.bas"
do{
#line 21011 "qb64pe.bas"
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)));
#line 21011 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21011 "qb64pe.bas"
if(!qbevent)break;evnt(21011);}while(r);
#line 21012 "qb64pe.bas"
}else{
#line 21013 "qb64pe.bas"
S_24011:;
#line 21013 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
#line 21013 "qb64pe.bas"
if(qbevent){evnt(21013);if(r)goto S_24011;}
#line 21014 "qb64pe.bas"
S_24012:;
#line 21014 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||is_error_pending()){
#line 21014 "qb64pe.bas"
if(qbevent){evnt(21014);if(r)goto S_24012;}
#line 21014 "qb64pe.bas"
do{
#line 21014 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ;
#line 21014 "qb64pe.bas"
if(!qbevent)break;evnt(21014);}while(r);
#line 21014 "qb64pe.bas"
}
#line 21015 "qb64pe.bas"
}
#line 21016 "qb64pe.bas"
do{
#line 21016 "qb64pe.bas"
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)));
#line 21016 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21016 "qb64pe.bas"
if(!qbevent)break;evnt(21016);}while(r);
#line 21017 "qb64pe.bas"
}
#line 21018 "qb64pe.bas"
}
#line 21019 "qb64pe.bas"
do{
#line 21019 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER;
#line 21019 "qb64pe.bas"
if(!qbevent)break;evnt(21019);}while(r);
#line 21020 "qb64pe.bas"
do{
#line 21020 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
#line 21020 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21020 "qb64pe.bas"
if(!qbevent)break;evnt(21020);}while(r);
#line 21021 "qb64pe.bas"
do{
#line 21021 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21021 "qb64pe.bas"
if(!qbevent)break;evnt(21021);}while(r);
#line 21022 "qb64pe.bas"
}
#line 21023 "qb64pe.bas"
}
#line 21026 "qb64pe.bas"
S_24024:;
#line 21026 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("HEX",3))))||is_error_pending()){
#line 21026 "qb64pe.bas"
if(qbevent){evnt(21026);if(r)goto S_24024;}
#line 21027 "qb64pe.bas"
S_24025:;
#line 21027 "qb64pe.bas"
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()){
#line 21027 "qb64pe.bas"
if(qbevent){evnt(21027);if(r)goto S_24025;}
#line 21028 "qb64pe.bas"
do{
#line 21028 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 21028 "qb64pe.bas"
if(!qbevent)break;evnt(21028);}while(r);
#line 21029 "qb64pe.bas"
S_24027:;
#line 21029 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21029 "qb64pe.bas"
if(qbevent){evnt(21029);if(r)goto S_24027;}
#line 21029 "qb64pe.bas"
do{
#line 21029 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
#line 21029 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21029 "qb64pe.bas"
if(!qbevent)break;evnt(21029);}while(r);
#line 21029 "qb64pe.bas"
do{
#line 21029 "qb64pe.bas"
goto exit_subfunc;
#line 21029 "qb64pe.bas"
if(!qbevent)break;evnt(21029);}while(r);
#line 21029 "qb64pe.bas"
}
#line 21030 "qb64pe.bas"
do{
#line 21030 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ;
#line 21030 "qb64pe.bas"
if(!qbevent)break;evnt(21030);}while(r);
#line 21031 "qb64pe.bas"
S_24032:;
#line 21031 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21031 "qb64pe.bas"
if(qbevent){evnt(21031);if(r)goto S_24032;}
#line 21031 "qb64pe.bas"
do{
#line 21031 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2697= 0 )));
#line 21031 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21031 "qb64pe.bas"
if(!qbevent)break;evnt(21031);}while(r);
#line 21031 "qb64pe.bas"
do{
#line 21031 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ;
#line 21031 "qb64pe.bas"
if(!qbevent)break;evnt(21031);}while(r);
#line 21031 "qb64pe.bas"
}
#line 21032 "qb64pe.bas"
S_24036:;
#line 21032 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21032 "qb64pe.bas"
if(qbevent){evnt(21032);if(r)goto S_24036;}
#line 21032 "qb64pe.bas"
do{
#line 21032 "qb64pe.bas"
goto exit_subfunc;
#line 21032 "qb64pe.bas"
if(!qbevent)break;evnt(21032);}while(r);
#line 21032 "qb64pe.bas"
}
#line 21033 "qb64pe.bas"
do{
#line 21033 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 21033 "qb64pe.bas"
if(!qbevent)break;evnt(21033);}while(r);
#line 21034 "qb64pe.bas"
S_24040:;
#line 21034 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 21034 "qb64pe.bas"
if(qbevent){evnt(21034);if(r)goto S_24040;}
#line 21035 "qb64pe.bas"
do{
#line 21035 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CHARS=qb_safe_idiv((*_FUNC_EVALUATEFUNC_LONG_BITS+ 3 ), 4 );
#line 21035 "qb64pe.bas"
if(!qbevent)break;evnt(21035);}while(r);
#line 21036 "qb64pe.bas"
do{
#line 21036 "qb64pe.bas"
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)));
#line 21036 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21036 "qb64pe.bas"
if(!qbevent)break;evnt(21036);}while(r);
#line 21037 "qb64pe.bas"
}else{
#line 21038 "qb64pe.bas"
S_24044:;
#line 21038 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 21038 "qb64pe.bas"
if(qbevent){evnt(21038);if(r)goto S_24044;}
#line 21039 "qb64pe.bas"
do{
#line 21039 "qb64pe.bas"
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)));
#line 21039 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21039 "qb64pe.bas"
if(!qbevent)break;evnt(21039);}while(r);
#line 21040 "qb64pe.bas"
}else{
#line 21041 "qb64pe.bas"
S_24047:;
#line 21041 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||is_error_pending()){
#line 21041 "qb64pe.bas"
if(qbevent){evnt(21041);if(r)goto S_24047;}
#line 21041 "qb64pe.bas"
do{
#line 21041 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CHARS= 2 ;
#line 21041 "qb64pe.bas"
if(!qbevent)break;evnt(21041);}while(r);
#line 21041 "qb64pe.bas"
}
#line 21042 "qb64pe.bas"
S_24050:;
#line 21042 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||is_error_pending()){
#line 21042 "qb64pe.bas"
if(qbevent){evnt(21042);if(r)goto S_24050;}
#line 21042 "qb64pe.bas"
do{
#line 21042 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CHARS= 4 ;
#line 21042 "qb64pe.bas"
if(!qbevent)break;evnt(21042);}while(r);
#line 21042 "qb64pe.bas"
}
#line 21043 "qb64pe.bas"
S_24053:;
#line 21043 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
#line 21043 "qb64pe.bas"
if(qbevent){evnt(21043);if(r)goto S_24053;}
#line 21043 "qb64pe.bas"
do{
#line 21043 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CHARS= 8 ;
#line 21043 "qb64pe.bas"
if(!qbevent)break;evnt(21043);}while(r);
#line 21043 "qb64pe.bas"
}
#line 21044 "qb64pe.bas"
S_24056:;
#line 21044 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
#line 21044 "qb64pe.bas"
if(qbevent){evnt(21044);if(r)goto S_24056;}
#line 21045 "qb64pe.bas"
S_24057:;
#line 21045 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 1 ))||is_error_pending()){
#line 21045 "qb64pe.bas"
if(qbevent){evnt(21045);if(r)goto S_24057;}
#line 21045 "qb64pe.bas"
do{
#line 21045 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CHARS= 16 ;
#line 21045 "qb64pe.bas"
if(!qbevent)break;evnt(21045);}while(r);
#line 21045 "qb64pe.bas"
}else{
#line 21045 "qb64pe.bas"
do{
#line 21045 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CHARS= 0 ;
#line 21045 "qb64pe.bas"
if(!qbevent)break;evnt(21045);}while(r);
#line 21045 "qb64pe.bas"
}
#line 21046 "qb64pe.bas"
}
#line 21047 "qb64pe.bas"
do{
#line 21047 "qb64pe.bas"
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)));
#line 21047 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21047 "qb64pe.bas"
if(!qbevent)break;evnt(21047);}while(r);
#line 21048 "qb64pe.bas"
}
#line 21049 "qb64pe.bas"
}
#line 21050 "qb64pe.bas"
do{
#line 21050 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER;
#line 21050 "qb64pe.bas"
if(!qbevent)break;evnt(21050);}while(r);
#line 21051 "qb64pe.bas"
do{
#line 21051 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
#line 21051 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21051 "qb64pe.bas"
if(!qbevent)break;evnt(21051);}while(r);
#line 21052 "qb64pe.bas"
do{
#line 21052 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21052 "qb64pe.bas"
if(!qbevent)break;evnt(21052);}while(r);
#line 21053 "qb64pe.bas"
}
#line 21054 "qb64pe.bas"
}
#line 21058 "qb64pe.bas"
S_24071:;
#line 21058 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("EXP",3))))||is_error_pending()){
#line 21058 "qb64pe.bas"
if(qbevent){evnt(21058);if(r)goto S_24071;}
#line 21059 "qb64pe.bas"
do{
#line 21059 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 21059 "qb64pe.bas"
if(!qbevent)break;evnt(21059);}while(r);
#line 21060 "qb64pe.bas"
S_24073:;
#line 21060 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21060 "qb64pe.bas"
if(qbevent){evnt(21060);if(r)goto S_24073;}
#line 21060 "qb64pe.bas"
do{
#line 21060 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
#line 21060 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21060 "qb64pe.bas"
if(!qbevent)break;evnt(21060);}while(r);
#line 21060 "qb64pe.bas"
do{
#line 21060 "qb64pe.bas"
goto exit_subfunc;
#line 21060 "qb64pe.bas"
if(!qbevent)break;evnt(21060);}while(r);
#line 21060 "qb64pe.bas"
}
#line 21061 "qb64pe.bas"
S_24077:;
#line 21061 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21061 "qb64pe.bas"
if(qbevent){evnt(21061);if(r)goto S_24077;}
#line 21061 "qb64pe.bas"
do{
#line 21061 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2698= 0 )));
#line 21061 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21061 "qb64pe.bas"
if(!qbevent)break;evnt(21061);}while(r);
#line 21061 "qb64pe.bas"
}
#line 21062 "qb64pe.bas"
S_24080:;
#line 21062 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21062 "qb64pe.bas"
if(qbevent){evnt(21062);if(r)goto S_24080;}
#line 21062 "qb64pe.bas"
do{
#line 21062 "qb64pe.bas"
goto exit_subfunc;
#line 21062 "qb64pe.bas"
if(!qbevent)break;evnt(21062);}while(r);
#line 21062 "qb64pe.bas"
}
#line 21063 "qb64pe.bas"
do{
#line 21063 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 21063 "qb64pe.bas"
if(!qbevent)break;evnt(21063);}while(r);
#line 21064 "qb64pe.bas"
do{
#line 21064 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
#line 21064 "qb64pe.bas"
if(!qbevent)break;evnt(21064);}while(r);
#line 21065 "qb64pe.bas"
S_24085:;
#line 21065 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 21065 "qb64pe.bas"
if(qbevent){evnt(21065);if(r)goto S_24085;}
#line 21066 "qb64pe.bas"
S_24086:;
#line 21066 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
#line 21066 "qb64pe.bas"
if(qbevent){evnt(21066);if(r)goto S_24086;}
#line 21066 "qb64pe.bas"
do{
#line 21066 "qb64pe.bas"
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)));
#line 21066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21066 "qb64pe.bas"
if(!qbevent)break;evnt(21066);}while(r);
#line 21066 "qb64pe.bas"
}else{
#line 21066 "qb64pe.bas"
do{
#line 21066 "qb64pe.bas"
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)));
#line 21066 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21066 "qb64pe.bas"
if(!qbevent)break;evnt(21066);}while(r);
#line 21066 "qb64pe.bas"
do{
#line 21066 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
#line 21066 "qb64pe.bas"
if(!qbevent)break;evnt(21066);}while(r);
#line 21066 "qb64pe.bas"
}
#line 21067 "qb64pe.bas"
}else{
#line 21068 "qb64pe.bas"
S_24093:;
#line 21068 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 21068 "qb64pe.bas"
if(qbevent){evnt(21068);if(r)goto S_24093;}
#line 21069 "qb64pe.bas"
do{
#line 21069 "qb64pe.bas"
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)));
#line 21069 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21069 "qb64pe.bas"
if(!qbevent)break;evnt(21069);}while(r);
#line 21069 "qb64pe.bas"
do{
#line 21069 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
#line 21069 "qb64pe.bas"
if(!qbevent)break;evnt(21069);}while(r);
#line 21070 "qb64pe.bas"
}else{
#line 21071 "qb64pe.bas"
S_24097:;
#line 21071 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||is_error_pending()){
#line 21071 "qb64pe.bas"
if(qbevent){evnt(21071);if(r)goto S_24097;}
#line 21071 "qb64pe.bas"
do{
#line 21071 "qb64pe.bas"
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)));
#line 21071 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21071 "qb64pe.bas"
if(!qbevent)break;evnt(21071);}while(r);
#line 21071 "qb64pe.bas"
}else{
#line 21071 "qb64pe.bas"
do{
#line 21071 "qb64pe.bas"
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)));
#line 21071 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21071 "qb64pe.bas"
if(!qbevent)break;evnt(21071);}while(r);
#line 21071 "qb64pe.bas"
do{
#line 21071 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
#line 21071 "qb64pe.bas"
if(!qbevent)break;evnt(21071);}while(r);
#line 21071 "qb64pe.bas"
}
#line 21072 "qb64pe.bas"
}
#line 21073 "qb64pe.bas"
}
#line 21074 "qb64pe.bas"
do{
#line 21074 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
#line 21074 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21074 "qb64pe.bas"
if(!qbevent)break;evnt(21074);}while(r);
#line 21075 "qb64pe.bas"
do{
#line 21075 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21075 "qb64pe.bas"
if(!qbevent)break;evnt(21075);}while(r);
#line 21076 "qb64pe.bas"
}
#line 21079 "qb64pe.bas"
S_24108:;
#line 21079 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INT",3))))||is_error_pending()){
#line 21079 "qb64pe.bas"
if(qbevent){evnt(21079);if(r)goto S_24108;}
#line 21080 "qb64pe.bas"
S_24109:;
#line 21080 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21080 "qb64pe.bas"
if(qbevent){evnt(21080);if(r)goto S_24109;}
#line 21080 "qb64pe.bas"
do{
#line 21080 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
#line 21080 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21080 "qb64pe.bas"
if(!qbevent)break;evnt(21080);}while(r);
#line 21080 "qb64pe.bas"
do{
#line 21080 "qb64pe.bas"
goto exit_subfunc;
#line 21080 "qb64pe.bas"
if(!qbevent)break;evnt(21080);}while(r);
#line 21080 "qb64pe.bas"
}
#line 21081 "qb64pe.bas"
S_24113:;
#line 21081 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21081 "qb64pe.bas"
if(qbevent){evnt(21081);if(r)goto S_24113;}
#line 21081 "qb64pe.bas"
do{
#line 21081 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2699= 0 )));
#line 21081 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21081 "qb64pe.bas"
if(!qbevent)break;evnt(21081);}while(r);
#line 21081 "qb64pe.bas"
}
#line 21082 "qb64pe.bas"
S_24116:;
#line 21082 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21082 "qb64pe.bas"
if(qbevent){evnt(21082);if(r)goto S_24116;}
#line 21082 "qb64pe.bas"
do{
#line 21082 "qb64pe.bas"
goto exit_subfunc;
#line 21082 "qb64pe.bas"
if(!qbevent)break;evnt(21082);}while(r);
#line 21082 "qb64pe.bas"
}
#line 21084 "qb64pe.bas"
S_24119:;
#line 21084 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 21084 "qb64pe.bas"
if(qbevent){evnt(21084);if(r)goto S_24119;}
#line 21084 "qb64pe.bas"
do{
#line 21084 "qb64pe.bas"
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)));
#line 21084 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21084 "qb64pe.bas"
if(!qbevent)break;evnt(21084);}while(r);
#line 21084 "qb64pe.bas"
}else{
#line 21084 "qb64pe.bas"
do{
#line 21084 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
#line 21084 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21084 "qb64pe.bas"
if(!qbevent)break;evnt(21084);}while(r);
#line 21084 "qb64pe.bas"
}
#line 21085 "qb64pe.bas"
do{
#line 21085 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
#line 21085 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21085 "qb64pe.bas"
if(!qbevent)break;evnt(21085);}while(r);
#line 21086 "qb64pe.bas"
do{
#line 21086 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
#line 21086 "qb64pe.bas"
if(!qbevent)break;evnt(21086);}while(r);
#line 21087 "qb64pe.bas"
do{
#line 21087 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21087 "qb64pe.bas"
if(!qbevent)break;evnt(21087);}while(r);
#line 21088 "qb64pe.bas"
}
#line 21091 "qb64pe.bas"
S_24128:;
#line 21091 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("FIX",3))))||is_error_pending()){
#line 21091 "qb64pe.bas"
if(qbevent){evnt(21091);if(r)goto S_24128;}
#line 21092 "qb64pe.bas"
S_24129:;
#line 21092 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21092 "qb64pe.bas"
if(qbevent){evnt(21092);if(r)goto S_24129;}
#line 21092 "qb64pe.bas"
do{
#line 21092 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
#line 21092 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21092 "qb64pe.bas"
if(!qbevent)break;evnt(21092);}while(r);
#line 21092 "qb64pe.bas"
do{
#line 21092 "qb64pe.bas"
goto exit_subfunc;
#line 21092 "qb64pe.bas"
if(!qbevent)break;evnt(21092);}while(r);
#line 21092 "qb64pe.bas"
}
#line 21093 "qb64pe.bas"
S_24133:;
#line 21093 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21093 "qb64pe.bas"
if(qbevent){evnt(21093);if(r)goto S_24133;}
#line 21093 "qb64pe.bas"
do{
#line 21093 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2700= 0 )));
#line 21093 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21093 "qb64pe.bas"
if(!qbevent)break;evnt(21093);}while(r);
#line 21093 "qb64pe.bas"
}
#line 21094 "qb64pe.bas"
S_24136:;
#line 21094 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21094 "qb64pe.bas"
if(qbevent){evnt(21094);if(r)goto S_24136;}
#line 21094 "qb64pe.bas"
do{
#line 21094 "qb64pe.bas"
goto exit_subfunc;
#line 21094 "qb64pe.bas"
if(!qbevent)break;evnt(21094);}while(r);
#line 21094 "qb64pe.bas"
}
#line 21096 "qb64pe.bas"
do{
#line 21096 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 21096 "qb64pe.bas"
if(!qbevent)break;evnt(21096);}while(r);
#line 21097 "qb64pe.bas"
S_24140:;
#line 21097 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 21097 "qb64pe.bas"
if(qbevent){evnt(21097);if(r)goto S_24140;}
#line 21098 "qb64pe.bas"
S_24141:;
#line 21098 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
#line 21098 "qb64pe.bas"
if(qbevent){evnt(21098);if(r)goto S_24141;}
#line 21098 "qb64pe.bas"
do{
#line 21098 "qb64pe.bas"
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)));
#line 21098 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21098 "qb64pe.bas"
if(!qbevent)break;evnt(21098);}while(r);
#line 21098 "qb64pe.bas"
}else{
#line 21098 "qb64pe.bas"
do{
#line 21098 "qb64pe.bas"
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)));
#line 21098 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21098 "qb64pe.bas"
if(!qbevent)break;evnt(21098);}while(r);
#line 21098 "qb64pe.bas"
}
#line 21099 "qb64pe.bas"
}else{
#line 21100 "qb64pe.bas"
do{
#line 21100 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
#line 21100 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21100 "qb64pe.bas"
if(!qbevent)break;evnt(21100);}while(r);
#line 21101 "qb64pe.bas"
}
#line 21102 "qb64pe.bas"
do{
#line 21102 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
#line 21102 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21102 "qb64pe.bas"
if(!qbevent)break;evnt(21102);}while(r);
#line 21103 "qb64pe.bas"
do{
#line 21103 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
#line 21103 "qb64pe.bas"
if(!qbevent)break;evnt(21103);}while(r);
#line 21104 "qb64pe.bas"
do{
#line 21104 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21104 "qb64pe.bas"
if(!qbevent)break;evnt(21104);}while(r);
#line 21105 "qb64pe.bas"
}
#line 21108 "qb64pe.bas"
S_24153:;
#line 21108 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_ROUND",6))))||is_error_pending()){
#line 21108 "qb64pe.bas"
if(qbevent){evnt(21108);if(r)goto S_24153;}
#line 21109 "qb64pe.bas"
S_24154:;
#line 21109 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21109 "qb64pe.bas"
if(qbevent){evnt(21109);if(r)goto S_24154;}
#line 21109 "qb64pe.bas"
do{
#line 21109 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
#line 21109 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21109 "qb64pe.bas"
if(!qbevent)break;evnt(21109);}while(r);
#line 21109 "qb64pe.bas"
do{
#line 21109 "qb64pe.bas"
goto exit_subfunc;
#line 21109 "qb64pe.bas"
if(!qbevent)break;evnt(21109);}while(r);
#line 21109 "qb64pe.bas"
}
#line 21110 "qb64pe.bas"
S_24158:;
#line 21110 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21110 "qb64pe.bas"
if(qbevent){evnt(21110);if(r)goto S_24158;}
#line 21110 "qb64pe.bas"
do{
#line 21110 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2701= 0 )));
#line 21110 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21110 "qb64pe.bas"
if(!qbevent)break;evnt(21110);}while(r);
#line 21110 "qb64pe.bas"
}
#line 21111 "qb64pe.bas"
S_24161:;
#line 21111 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21111 "qb64pe.bas"
if(qbevent){evnt(21111);if(r)goto S_24161;}
#line 21111 "qb64pe.bas"
do{
#line 21111 "qb64pe.bas"
goto exit_subfunc;
#line 21111 "qb64pe.bas"
if(!qbevent)break;evnt(21111);}while(r);
#line 21111 "qb64pe.bas"
}
#line 21113 "qb64pe.bas"
S_24164:;
#line 21113 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 21113 "qb64pe.bas"
if(qbevent){evnt(21113);if(r)goto S_24164;}
#line 21114 "qb64pe.bas"
do{
#line 21114 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 21114 "qb64pe.bas"
if(!qbevent)break;evnt(21114);}while(r);
#line 21115 "qb64pe.bas"
S_24166:;
#line 21115 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
#line 21115 "qb64pe.bas"
if(qbevent){evnt(21115);if(r)goto S_24166;}
#line 21115 "qb64pe.bas"
do{
#line 21115 "qb64pe.bas"
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)));
#line 21115 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21115 "qb64pe.bas"
if(!qbevent)break;evnt(21115);}while(r);
#line 21115 "qb64pe.bas"
}else{
#line 21115 "qb64pe.bas"
do{
#line 21115 "qb64pe.bas"
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)));
#line 21115 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21115 "qb64pe.bas"
if(!qbevent)break;evnt(21115);}while(r);
#line 21115 "qb64pe.bas"
}
#line 21116 "qb64pe.bas"
}else{
#line 21117 "qb64pe.bas"
do{
#line 21117 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1)));
#line 21117 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21117 "qb64pe.bas"
if(!qbevent)break;evnt(21117);}while(r);
#line 21118 "qb64pe.bas"
}
#line 21119 "qb64pe.bas"
do{
#line 21119 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
#line 21119 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21119 "qb64pe.bas"
if(!qbevent)break;evnt(21119);}while(r);
#line 21120 "qb64pe.bas"
do{
#line 21120 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
#line 21120 "qb64pe.bas"
if(!qbevent)break;evnt(21120);}while(r);
#line 21121 "qb64pe.bas"
S_24176:;
#line 21121 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||is_error_pending()){
#line 21121 "qb64pe.bas"
if(qbevent){evnt(21121);if(r)goto S_24176;}
#line 21122 "qb64pe.bas"
S_24177:;
#line 21122 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)||is_error_pending()){
#line 21122 "qb64pe.bas"
if(qbevent){evnt(21122);if(r)goto S_24177;}
#line 21122 "qb64pe.bas"
do{
#line 21122 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
#line 21122 "qb64pe.bas"
if(!qbevent)break;evnt(21122);}while(r);
#line 21122 "qb64pe.bas"
}else{
#line 21122 "qb64pe.bas"
do{
#line 21122 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
#line 21122 "qb64pe.bas"
if(!qbevent)break;evnt(21122);}while(r);
#line 21122 "qb64pe.bas"
}
#line 21123 "qb64pe.bas"
}
#line 21124 "qb64pe.bas"
do{
#line 21124 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21124 "qb64pe.bas"
if(!qbevent)break;evnt(21124);}while(r);
#line 21125 "qb64pe.bas"
}
#line 21129 "qb64pe.bas"
S_24185:;
#line 21129 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CDBL",4))))||is_error_pending()){
#line 21129 "qb64pe.bas"
if(qbevent){evnt(21129);if(r)goto S_24185;}
#line 21130 "qb64pe.bas"
S_24186:;
#line 21130 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21130 "qb64pe.bas"
if(qbevent){evnt(21130);if(r)goto S_24186;}
#line 21130 "qb64pe.bas"
do{
#line 21130 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
#line 21130 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21130 "qb64pe.bas"
if(!qbevent)break;evnt(21130);}while(r);
#line 21130 "qb64pe.bas"
do{
#line 21130 "qb64pe.bas"
goto exit_subfunc;
#line 21130 "qb64pe.bas"
if(!qbevent)break;evnt(21130);}while(r);
#line 21130 "qb64pe.bas"
}
#line 21131 "qb64pe.bas"
S_24190:;
#line 21131 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21131 "qb64pe.bas"
if(qbevent){evnt(21131);if(r)goto S_24190;}
#line 21131 "qb64pe.bas"
do{
#line 21131 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2702= 0 )));
#line 21131 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21131 "qb64pe.bas"
if(!qbevent)break;evnt(21131);}while(r);
#line 21131 "qb64pe.bas"
}
#line 21132 "qb64pe.bas"
S_24193:;
#line 21132 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21132 "qb64pe.bas"
if(qbevent){evnt(21132);if(r)goto S_24193;}
#line 21132 "qb64pe.bas"
do{
#line 21132 "qb64pe.bas"
goto exit_subfunc;
#line 21132 "qb64pe.bas"
if(!qbevent)break;evnt(21132);}while(r);
#line 21132 "qb64pe.bas"
}
#line 21134 "qb64pe.bas"
do{
#line 21134 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 21134 "qb64pe.bas"
if(!qbevent)break;evnt(21134);}while(r);
#line 21135 "qb64pe.bas"
S_24197:;
#line 21135 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 21135 "qb64pe.bas"
if(qbevent){evnt(21135);if(r)goto S_24197;}
#line 21136 "qb64pe.bas"
S_24198:;
#line 21136 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
#line 21136 "qb64pe.bas"
if(qbevent){evnt(21136);if(r)goto S_24198;}
#line 21136 "qb64pe.bas"
do{
#line 21136 "qb64pe.bas"
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)));
#line 21136 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21136 "qb64pe.bas"
if(!qbevent)break;evnt(21136);}while(r);
#line 21136 "qb64pe.bas"
}
#line 21137 "qb64pe.bas"
}else{
#line 21138 "qb64pe.bas"
do{
#line 21138 "qb64pe.bas"
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)));
#line 21138 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21138 "qb64pe.bas"
if(!qbevent)break;evnt(21138);}while(r);
#line 21139 "qb64pe.bas"
}
#line 21140 "qb64pe.bas"
do{
#line 21140 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
#line 21140 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21140 "qb64pe.bas"
if(!qbevent)break;evnt(21140);}while(r);
#line 21141 "qb64pe.bas"
do{
#line 21141 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
#line 21141 "qb64pe.bas"
if(!qbevent)break;evnt(21141);}while(r);
#line 21142 "qb64pe.bas"
do{
#line 21142 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21142 "qb64pe.bas"
if(!qbevent)break;evnt(21142);}while(r);
#line 21143 "qb64pe.bas"
}
#line 21146 "qb64pe.bas"
S_24208:;
#line 21146 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CSNG",4))))||is_error_pending()){
#line 21146 "qb64pe.bas"
if(qbevent){evnt(21146);if(r)goto S_24208;}
#line 21147 "qb64pe.bas"
S_24209:;
#line 21147 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21147 "qb64pe.bas"
if(qbevent){evnt(21147);if(r)goto S_24209;}
#line 21147 "qb64pe.bas"
do{
#line 21147 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
#line 21147 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21147 "qb64pe.bas"
if(!qbevent)break;evnt(21147);}while(r);
#line 21147 "qb64pe.bas"
do{
#line 21147 "qb64pe.bas"
goto exit_subfunc;
#line 21147 "qb64pe.bas"
if(!qbevent)break;evnt(21147);}while(r);
#line 21147 "qb64pe.bas"
}
#line 21148 "qb64pe.bas"
S_24213:;
#line 21148 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21148 "qb64pe.bas"
if(qbevent){evnt(21148);if(r)goto S_24213;}
#line 21148 "qb64pe.bas"
do{
#line 21148 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2703= 0 )));
#line 21148 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21148 "qb64pe.bas"
if(!qbevent)break;evnt(21148);}while(r);
#line 21148 "qb64pe.bas"
}
#line 21149 "qb64pe.bas"
S_24216:;
#line 21149 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21149 "qb64pe.bas"
if(qbevent){evnt(21149);if(r)goto S_24216;}
#line 21149 "qb64pe.bas"
do{
#line 21149 "qb64pe.bas"
goto exit_subfunc;
#line 21149 "qb64pe.bas"
if(!qbevent)break;evnt(21149);}while(r);
#line 21149 "qb64pe.bas"
}
#line 21151 "qb64pe.bas"
do{
#line 21151 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 21151 "qb64pe.bas"
if(!qbevent)break;evnt(21151);}while(r);
#line 21152 "qb64pe.bas"
S_24220:;
#line 21152 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 21152 "qb64pe.bas"
if(qbevent){evnt(21152);if(r)goto S_24220;}
#line 21153 "qb64pe.bas"
S_24221:;
#line 21153 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
#line 21153 "qb64pe.bas"
if(qbevent){evnt(21153);if(r)goto S_24221;}
#line 21153 "qb64pe.bas"
do{
#line 21153 "qb64pe.bas"
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)));
#line 21153 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21153 "qb64pe.bas"
if(!qbevent)break;evnt(21153);}while(r);
#line 21153 "qb64pe.bas"
}
#line 21154 "qb64pe.bas"
S_24224:;
#line 21154 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
#line 21154 "qb64pe.bas"
if(qbevent){evnt(21154);if(r)goto S_24224;}
#line 21154 "qb64pe.bas"
do{
#line 21154 "qb64pe.bas"
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)));
#line 21154 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21154 "qb64pe.bas"
if(!qbevent)break;evnt(21154);}while(r);
#line 21154 "qb64pe.bas"
}
#line 21155 "qb64pe.bas"
}else{
#line 21156 "qb64pe.bas"
do{
#line 21156 "qb64pe.bas"
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)));
#line 21156 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21156 "qb64pe.bas"
if(!qbevent)break;evnt(21156);}while(r);
#line 21157 "qb64pe.bas"
}
#line 21158 "qb64pe.bas"
do{
#line 21158 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
#line 21158 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21158 "qb64pe.bas"
if(!qbevent)break;evnt(21158);}while(r);
#line 21159 "qb64pe.bas"
do{
#line 21159 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
#line 21159 "qb64pe.bas"
if(!qbevent)break;evnt(21159);}while(r);
#line 21160 "qb64pe.bas"
do{
#line 21160 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21160 "qb64pe.bas"
if(!qbevent)break;evnt(21160);}while(r);
#line 21161 "qb64pe.bas"
}
#line 21165 "qb64pe.bas"
S_24234:;
#line 21165 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CLNG",4))))||is_error_pending()){
#line 21165 "qb64pe.bas"
if(qbevent){evnt(21165);if(r)goto S_24234;}
#line 21166 "qb64pe.bas"
S_24235:;
#line 21166 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21166 "qb64pe.bas"
if(qbevent){evnt(21166);if(r)goto S_24235;}
#line 21166 "qb64pe.bas"
do{
#line 21166 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
#line 21166 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21166 "qb64pe.bas"
if(!qbevent)break;evnt(21166);}while(r);
#line 21166 "qb64pe.bas"
do{
#line 21166 "qb64pe.bas"
goto exit_subfunc;
#line 21166 "qb64pe.bas"
if(!qbevent)break;evnt(21166);}while(r);
#line 21166 "qb64pe.bas"
}
#line 21167 "qb64pe.bas"
S_24239:;
#line 21167 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21167 "qb64pe.bas"
if(qbevent){evnt(21167);if(r)goto S_24239;}
#line 21167 "qb64pe.bas"
do{
#line 21167 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2704= 0 )));
#line 21167 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21167 "qb64pe.bas"
if(!qbevent)break;evnt(21167);}while(r);
#line 21167 "qb64pe.bas"
}
#line 21168 "qb64pe.bas"
S_24242:;
#line 21168 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21168 "qb64pe.bas"
if(qbevent){evnt(21168);if(r)goto S_24242;}
#line 21168 "qb64pe.bas"
do{
#line 21168 "qb64pe.bas"
goto exit_subfunc;
#line 21168 "qb64pe.bas"
if(!qbevent)break;evnt(21168);}while(r);
#line 21168 "qb64pe.bas"
}
#line 21170 "qb64pe.bas"
do{
#line 21170 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 21170 "qb64pe.bas"
if(!qbevent)break;evnt(21170);}while(r);
#line 21171 "qb64pe.bas"
S_24246:;
#line 21171 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 21171 "qb64pe.bas"
if(qbevent){evnt(21171);if(r)goto S_24246;}
#line 21172 "qb64pe.bas"
S_24247:;
#line 21172 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
#line 21172 "qb64pe.bas"
if(qbevent){evnt(21172);if(r)goto S_24247;}
#line 21172 "qb64pe.bas"
do{
#line 21172 "qb64pe.bas"
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)));
#line 21172 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21172 "qb64pe.bas"
if(!qbevent)break;evnt(21172);}while(r);
#line 21172 "qb64pe.bas"
}else{
#line 21172 "qb64pe.bas"
do{
#line 21172 "qb64pe.bas"
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)));
#line 21172 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21172 "qb64pe.bas"
if(!qbevent)break;evnt(21172);}while(r);
#line 21172 "qb64pe.bas"
}
#line 21173 "qb64pe.bas"
}else{
#line 21174 "qb64pe.bas"
S_24253:;
#line 21174 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||is_error_pending()){
#line 21174 "qb64pe.bas"
if(qbevent){evnt(21174);if(r)goto S_24253;}
#line 21175 "qb64pe.bas"
S_24254:;
#line 21175 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
#line 21175 "qb64pe.bas"
if(qbevent){evnt(21175);if(r)goto S_24254;}
#line 21175 "qb64pe.bas"
do{
#line 21175 "qb64pe.bas"
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)));
#line 21175 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21175 "qb64pe.bas"
if(!qbevent)break;evnt(21175);}while(r);
#line 21175 "qb64pe.bas"
}
#line 21176 "qb64pe.bas"
S_24257:;
#line 21176 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
#line 21176 "qb64pe.bas"
if(qbevent){evnt(21176);if(r)goto S_24257;}
#line 21176 "qb64pe.bas"
do{
#line 21176 "qb64pe.bas"
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)));
#line 21176 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21176 "qb64pe.bas"
if(!qbevent)break;evnt(21176);}while(r);
#line 21176 "qb64pe.bas"
}
#line 21177 "qb64pe.bas"
}else{
#line 21178 "qb64pe.bas"
S_24261:;
#line 21178 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
#line 21178 "qb64pe.bas"
if(qbevent){evnt(21178);if(r)goto S_24261;}
#line 21178 "qb64pe.bas"
do{
#line 21178 "qb64pe.bas"
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)));
#line 21178 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21178 "qb64pe.bas"
if(!qbevent)break;evnt(21178);}while(r);
#line 21178 "qb64pe.bas"
}
#line 21179 "qb64pe.bas"
}
#line 21180 "qb64pe.bas"
}
#line 21181 "qb64pe.bas"
do{
#line 21181 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
#line 21181 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21181 "qb64pe.bas"
if(!qbevent)break;evnt(21181);}while(r);
#line 21182 "qb64pe.bas"
do{
#line 21182 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 32 ;
#line 21182 "qb64pe.bas"
if(!qbevent)break;evnt(21182);}while(r);
#line 21183 "qb64pe.bas"
do{
#line 21183 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21183 "qb64pe.bas"
if(!qbevent)break;evnt(21183);}while(r);
#line 21184 "qb64pe.bas"
}
#line 21187 "qb64pe.bas"
S_24270:;
#line 21187 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CINT",4))))||is_error_pending()){
#line 21187 "qb64pe.bas"
if(qbevent){evnt(21187);if(r)goto S_24270;}
#line 21188 "qb64pe.bas"
S_24271:;
#line 21188 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21188 "qb64pe.bas"
if(qbevent){evnt(21188);if(r)goto S_24271;}
#line 21188 "qb64pe.bas"
do{
#line 21188 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22));
#line 21188 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21188 "qb64pe.bas"
if(!qbevent)break;evnt(21188);}while(r);
#line 21188 "qb64pe.bas"
do{
#line 21188 "qb64pe.bas"
goto exit_subfunc;
#line 21188 "qb64pe.bas"
if(!qbevent)break;evnt(21188);}while(r);
#line 21188 "qb64pe.bas"
}
#line 21189 "qb64pe.bas"
S_24275:;
#line 21189 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21189 "qb64pe.bas"
if(qbevent){evnt(21189);if(r)goto S_24275;}
#line 21189 "qb64pe.bas"
do{
#line 21189 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2705= 0 )));
#line 21189 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21189 "qb64pe.bas"
if(!qbevent)break;evnt(21189);}while(r);
#line 21189 "qb64pe.bas"
}
#line 21190 "qb64pe.bas"
S_24278:;
#line 21190 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21190 "qb64pe.bas"
if(qbevent){evnt(21190);if(r)goto S_24278;}
#line 21190 "qb64pe.bas"
do{
#line 21190 "qb64pe.bas"
goto exit_subfunc;
#line 21190 "qb64pe.bas"
if(!qbevent)break;evnt(21190);}while(r);
#line 21190 "qb64pe.bas"
}
#line 21192 "qb64pe.bas"
do{
#line 21192 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 21192 "qb64pe.bas"
if(!qbevent)break;evnt(21192);}while(r);
#line 21193 "qb64pe.bas"
S_24282:;
#line 21193 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 21193 "qb64pe.bas"
if(qbevent){evnt(21193);if(r)goto S_24282;}
#line 21194 "qb64pe.bas"
S_24283:;
#line 21194 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||is_error_pending()){
#line 21194 "qb64pe.bas"
if(qbevent){evnt(21194);if(r)goto S_24283;}
#line 21194 "qb64pe.bas"
do{
#line 21194 "qb64pe.bas"
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)));
#line 21194 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21194 "qb64pe.bas"
if(!qbevent)break;evnt(21194);}while(r);
#line 21194 "qb64pe.bas"
}else{
#line 21194 "qb64pe.bas"
do{
#line 21194 "qb64pe.bas"
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)));
#line 21194 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21194 "qb64pe.bas"
if(!qbevent)break;evnt(21194);}while(r);
#line 21194 "qb64pe.bas"
}
#line 21195 "qb64pe.bas"
}else{
#line 21196 "qb64pe.bas"
S_24289:;
#line 21196 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||is_error_pending()){
#line 21196 "qb64pe.bas"
if(qbevent){evnt(21196);if(r)goto S_24289;}
#line 21197 "qb64pe.bas"
S_24290:;
#line 21197 "qb64pe.bas"
if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 15 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||is_error_pending()){
#line 21197 "qb64pe.bas"
if(qbevent){evnt(21197);if(r)goto S_24290;}
#line 21197 "qb64pe.bas"
do{
#line 21197 "qb64pe.bas"
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)));
#line 21197 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21197 "qb64pe.bas"
if(!qbevent)break;evnt(21197);}while(r);
#line 21197 "qb64pe.bas"
}
#line 21198 "qb64pe.bas"
S_24293:;
#line 21198 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
#line 21198 "qb64pe.bas"
if(qbevent){evnt(21198);if(r)goto S_24293;}
#line 21198 "qb64pe.bas"
do{
#line 21198 "qb64pe.bas"
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)));
#line 21198 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21198 "qb64pe.bas"
if(!qbevent)break;evnt(21198);}while(r);
#line 21198 "qb64pe.bas"
}
#line 21199 "qb64pe.bas"
}else{
#line 21200 "qb64pe.bas"
S_24297:;
#line 21200 "qb64pe.bas"
if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||is_error_pending()){
#line 21200 "qb64pe.bas"
if(qbevent){evnt(21200);if(r)goto S_24297;}
#line 21200 "qb64pe.bas"
do{
#line 21200 "qb64pe.bas"
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)));
#line 21200 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21200 "qb64pe.bas"
if(!qbevent)break;evnt(21200);}while(r);
#line 21200 "qb64pe.bas"
}
#line 21201 "qb64pe.bas"
S_24300:;
#line 21201 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||is_error_pending()){
#line 21201 "qb64pe.bas"
if(qbevent){evnt(21201);if(r)goto S_24300;}
#line 21201 "qb64pe.bas"
do{
#line 21201 "qb64pe.bas"
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)));
#line 21201 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21201 "qb64pe.bas"
if(!qbevent)break;evnt(21201);}while(r);
#line 21201 "qb64pe.bas"
}
#line 21202 "qb64pe.bas"
}
#line 21203 "qb64pe.bas"
}
#line 21204 "qb64pe.bas"
do{
#line 21204 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E);
#line 21204 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21204 "qb64pe.bas"
if(!qbevent)break;evnt(21204);}while(r);
#line 21205 "qb64pe.bas"
do{
#line 21205 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 16 ;
#line 21205 "qb64pe.bas"
if(!qbevent)break;evnt(21205);}while(r);
#line 21206 "qb64pe.bas"
do{
#line 21206 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21206 "qb64pe.bas"
if(!qbevent)break;evnt(21206);}while(r);
#line 21207 "qb64pe.bas"
}
#line 21210 "qb64pe.bas"
do{
#line 21210 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 0 ;
#line 21210 "qb64pe.bas"
if(!qbevent)break;evnt(21210);}while(r);
#line 21211 "qb64pe.bas"
do{
#line 21211 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SIZE= 0 ;
#line 21211 "qb64pe.bas"
if(!qbevent)break;evnt(21211);}while(r);
#line 21212 "qb64pe.bas"
S_24311:;
#line 21212 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKI",3))))||is_error_pending()){
#line 21212 "qb64pe.bas"
if(qbevent){evnt(21212);if(r)goto S_24311;}
#line 21212 "qb64pe.bas"
do{
#line 21212 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 1 ;
#line 21212 "qb64pe.bas"
if(!qbevent)break;evnt(21212);}while(r);
#line 21212 "qb64pe.bas"
do{
#line 21212 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1));
#line 21212 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21212 "qb64pe.bas"
if(!qbevent)break;evnt(21212);}while(r);
#line 21212 "qb64pe.bas"
}
#line 21213 "qb64pe.bas"
S_24315:;
#line 21213 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKL",3))))||is_error_pending()){
#line 21213 "qb64pe.bas"
if(qbevent){evnt(21213);if(r)goto S_24315;}
#line 21213 "qb64pe.bas"
do{
#line 21213 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 2 ;
#line 21213 "qb64pe.bas"
if(!qbevent)break;evnt(21213);}while(r);
#line 21213 "qb64pe.bas"
do{
#line 21213 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1));
#line 21213 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21213 "qb64pe.bas"
if(!qbevent)break;evnt(21213);}while(r);
#line 21213 "qb64pe.bas"
}
#line 21214 "qb64pe.bas"
S_24319:;
#line 21214 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKS",3))))||is_error_pending()){
#line 21214 "qb64pe.bas"
if(qbevent){evnt(21214);if(r)goto S_24319;}
#line 21214 "qb64pe.bas"
do{
#line 21214 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 3 ;
#line 21214 "qb64pe.bas"
if(!qbevent)break;evnt(21214);}while(r);
#line 21214 "qb64pe.bas"
do{
#line 21214 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1));
#line 21214 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21214 "qb64pe.bas"
if(!qbevent)break;evnt(21214);}while(r);
#line 21214 "qb64pe.bas"
}
#line 21215 "qb64pe.bas"
S_24323:;
#line 21215 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKD",3))))||is_error_pending()){
#line 21215 "qb64pe.bas"
if(qbevent){evnt(21215);if(r)goto S_24323;}
#line 21215 "qb64pe.bas"
do{
#line 21215 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 4 ;
#line 21215 "qb64pe.bas"
if(!qbevent)break;evnt(21215);}while(r);
#line 21215 "qb64pe.bas"
do{
#line 21215 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1));
#line 21215 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21215 "qb64pe.bas"
if(!qbevent)break;evnt(21215);}while(r);
#line 21215 "qb64pe.bas"
}
#line 21216 "qb64pe.bas"
S_24327:;
#line 21216 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3))))||is_error_pending()){
#line 21216 "qb64pe.bas"
if(qbevent){evnt(21216);if(r)goto S_24327;}
#line 21216 "qb64pe.bas"
do{
#line 21216 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_MKTYPE= -1 ;
#line 21216 "qb64pe.bas"
if(!qbevent)break;evnt(21216);}while(r);
#line 21216 "qb64pe.bas"
}
#line 21217 "qb64pe.bas"
S_24330:;
#line 21217 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_MKTYPE)||is_error_pending()){
#line 21217 "qb64pe.bas"
if(qbevent){evnt(21217);if(r)goto S_24330;}
#line 21218 "qb64pe.bas"
S_24331:;
#line 21218 "qb64pe.bas"
if (((-(*_FUNC_EVALUATEFUNC_LONG_MKTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||is_error_pending()){
#line 21218 "qb64pe.bas"
if(qbevent){evnt(21218);if(r)goto S_24331;}
#line 21220 "qb64pe.bas"
do{
#line 21220 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP= 0 ;
#line 21220 "qb64pe.bas"
if(!qbevent)break;evnt(21220);}while(r);
#line 21221 "qb64pe.bas"
S_24333:;
#line 21221 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%%",2))))||is_error_pending()){
#line 21221 "qb64pe.bas"
if(qbevent){evnt(21221);if(r)goto S_24333;}
#line 21221 "qb64pe.bas"
do{
#line 21221 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1));
#line 21221 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21221 "qb64pe.bas"
if(!qbevent)break;evnt(21221);}while(r);
#line 21221 "qb64pe.bas"
do{
#line 21221 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER;
#line 21221 "qb64pe.bas"
if(!qbevent)break;evnt(21221);}while(r);
#line 21221 "qb64pe.bas"
}
#line 21222 "qb64pe.bas"
S_24337:;
#line 21222 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%%",3))))||is_error_pending()){
#line 21222 "qb64pe.bas"
if(qbevent){evnt(21222);if(r)goto S_24337;}
#line 21222 "qb64pe.bas"
do{
#line 21222 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2));
#line 21222 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21222 "qb64pe.bas"
if(!qbevent)break;evnt(21222);}while(r);
#line 21222 "qb64pe.bas"
do{
#line 21222 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
#line 21222 "qb64pe.bas"
if(!qbevent)break;evnt(21222);}while(r);
#line 21222 "qb64pe.bas"
}
#line 21223 "qb64pe.bas"
S_24341:;
#line 21223 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1))))||is_error_pending()){
#line 21223 "qb64pe.bas"
if(qbevent){evnt(21223);if(r)goto S_24341;}
#line 21223 "qb64pe.bas"
do{
#line 21223 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1));
#line 21223 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21223 "qb64pe.bas"
if(!qbevent)break;evnt(21223);}while(r);
#line 21223 "qb64pe.bas"
do{
#line 21223 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER;
#line 21223 "qb64pe.bas"
if(!qbevent)break;evnt(21223);}while(r);
#line 21223 "qb64pe.bas"
}
#line 21224 "qb64pe.bas"
S_24345:;
#line 21224 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%",2))))||is_error_pending()){
#line 21224 "qb64pe.bas"
if(qbevent){evnt(21224);if(r)goto S_24345;}
#line 21224 "qb64pe.bas"
do{
#line 21224 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2));
#line 21224 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21224 "qb64pe.bas"
if(!qbevent)break;evnt(21224);}while(r);
#line 21224 "qb64pe.bas"
do{
#line 21224 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
#line 21224 "qb64pe.bas"
if(!qbevent)break;evnt(21224);}while(r);
#line 21224 "qb64pe.bas"
}
#line 21225 "qb64pe.bas"
S_24349:;
#line 21225 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1))))||is_error_pending()){
#line 21225 "qb64pe.bas"
if(qbevent){evnt(21225);if(r)goto S_24349;}
#line 21225 "qb64pe.bas"
do{
#line 21225 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1));
#line 21225 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21225 "qb64pe.bas"
if(!qbevent)break;evnt(21225);}while(r);
#line 21225 "qb64pe.bas"
do{
#line 21225 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
#line 21225 "qb64pe.bas"
if(!qbevent)break;evnt(21225);}while(r);
#line 21225 "qb64pe.bas"
}
#line 21226 "qb64pe.bas"
S_24353:;
#line 21226 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&",2))))||is_error_pending()){
#line 21226 "qb64pe.bas"
if(qbevent){evnt(21226);if(r)goto S_24353;}
#line 21226 "qb64pe.bas"
do{
#line 21226 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2));
#line 21226 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21226 "qb64pe.bas"
if(!qbevent)break;evnt(21226);}while(r);
#line 21226 "qb64pe.bas"
do{
#line 21226 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
#line 21226 "qb64pe.bas"
if(!qbevent)break;evnt(21226);}while(r);
#line 21226 "qb64pe.bas"
}
#line 21227 "qb64pe.bas"
S_24357:;
#line 21227 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&&",2))))||is_error_pending()){
#line 21227 "qb64pe.bas"
if(qbevent){evnt(21227);if(r)goto S_24357;}
#line 21227 "qb64pe.bas"
do{
#line 21227 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3));
#line 21227 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21227 "qb64pe.bas"
if(!qbevent)break;evnt(21227);}while(r);
#line 21227 "qb64pe.bas"
do{
#line 21227 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 21227 "qb64pe.bas"
if(!qbevent)break;evnt(21227);}while(r);
#line 21227 "qb64pe.bas"
}
#line 21228 "qb64pe.bas"
S_24361:;
#line 21228 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&&",3))))||is_error_pending()){
#line 21228 "qb64pe.bas"
if(qbevent){evnt(21228);if(r)goto S_24361;}
#line 21228 "qb64pe.bas"
do{
#line 21228 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4));
#line 21228 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21228 "qb64pe.bas"
if(!qbevent)break;evnt(21228);}while(r);
#line 21228 "qb64pe.bas"
do{
#line 21228 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
#line 21228 "qb64pe.bas"
if(!qbevent)break;evnt(21228);}while(r);
#line 21228 "qb64pe.bas"
}
#line 21229 "qb64pe.bas"
S_24365:;
#line 21229 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1))))||is_error_pending()){
#line 21229 "qb64pe.bas"
if(qbevent){evnt(21229);if(r)goto S_24365;}
#line 21229 "qb64pe.bas"
do{
#line 21229 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1));
#line 21229 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21229 "qb64pe.bas"
if(!qbevent)break;evnt(21229);}while(r);
#line 21229 "qb64pe.bas"
do{
#line 21229 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
#line 21229 "qb64pe.bas"
if(!qbevent)break;evnt(21229);}while(r);
#line 21229 "qb64pe.bas"
}
#line 21230 "qb64pe.bas"
S_24369:;
#line 21230 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1))))||is_error_pending()){
#line 21230 "qb64pe.bas"
if(qbevent){evnt(21230);if(r)goto S_24369;}
#line 21230 "qb64pe.bas"
do{
#line 21230 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1));
#line 21230 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21230 "qb64pe.bas"
if(!qbevent)break;evnt(21230);}while(r);
#line 21230 "qb64pe.bas"
do{
#line 21230 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
#line 21230 "qb64pe.bas"
if(!qbevent)break;evnt(21230);}while(r);
#line 21230 "qb64pe.bas"
}
#line 21231 "qb64pe.bas"
S_24373:;
#line 21231 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("##",2))))||is_error_pending()){
#line 21231 "qb64pe.bas"
if(qbevent){evnt(21231);if(r)goto S_24373;}
#line 21231 "qb64pe.bas"
do{
#line 21231 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1));
#line 21231 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21231 "qb64pe.bas"
if(!qbevent)break;evnt(21231);}while(r);
#line 21231 "qb64pe.bas"
do{
#line 21231 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
#line 21231 "qb64pe.bas"
if(!qbevent)break;evnt(21231);}while(r);
#line 21231 "qb64pe.bas"
}
#line 21232 "qb64pe.bas"
S_24377:;
#line 21232 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%&",2))))||is_error_pending()){
#line 21232 "qb64pe.bas"
if(qbevent){evnt(21232);if(r)goto S_24377;}
#line 21232 "qb64pe.bas"
do{
#line 21232 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("o",1));
#line 21232 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21232 "qb64pe.bas"
if(!qbevent)break;evnt(21232);}while(r);
#line 21232 "qb64pe.bas"
do{
#line 21232 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
#line 21232 "qb64pe.bas"
if(!qbevent)break;evnt(21232);}while(r);
#line 21232 "qb64pe.bas"
}
#line 21233 "qb64pe.bas"
S_24381:;
#line 21233 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%&",3))))||is_error_pending()){
#line 21233 "qb64pe.bas"
if(qbevent){evnt(21233);if(r)goto S_24381;}
#line 21233 "qb64pe.bas"
do{
#line 21233 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("uo",2));
#line 21233 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21233 "qb64pe.bas"
if(!qbevent)break;evnt(21233);}while(r);
#line 21233 "qb64pe.bas"
do{
#line 21233 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
#line 21233 "qb64pe.bas"
if(!qbevent)break;evnt(21233);}while(r);
#line 21233 "qb64pe.bas"
}
#line 21234 "qb64pe.bas"
S_24385:;
#line 21234 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_MKTYPE, 2 ),qbs_new_txt_len("~`",2))))||is_error_pending()){
#line 21234 "qb64pe.bas"
if(qbevent){evnt(21234);if(r)goto S_24385;}
#line 21234 "qb64pe.bas"
do{
#line 21234 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4));
#line 21234 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21234 "qb64pe.bas"
if(!qbevent)break;evnt(21234);}while(r);
#line 21234 "qb64pe.bas"
do{
#line 21234 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
#line 21234 "qb64pe.bas"
if(!qbevent)break;evnt(21234);}while(r);
#line 21234 "qb64pe.bas"
do{
#line 21234 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(qbs_val<long double>(qbs_right(_FUNC_EVALUATEFUNC_STRING_MKTYPE,_FUNC_EVALUATEFUNC_STRING_MKTYPE->len- 2 )));
#line 21234 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21234 "qb64pe.bas"
if(!qbevent)break;evnt(21234);}while(r);
#line 21234 "qb64pe.bas"
}
#line 21235 "qb64pe.bas"
S_24390:;
#line 21235 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_MKTYPE, 1 ),qbs_new_txt_len("`",1))))||is_error_pending()){
#line 21235 "qb64pe.bas"
if(qbevent){evnt(21235);if(r)goto S_24390;}
#line 21235 "qb64pe.bas"
do{
#line 21235 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3));
#line 21235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21235 "qb64pe.bas"
if(!qbevent)break;evnt(21235);}while(r);
#line 21235 "qb64pe.bas"
do{
#line 21235 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 21235 "qb64pe.bas"
if(!qbevent)break;evnt(21235);}while(r);
#line 21235 "qb64pe.bas"
do{
#line 21235 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(qbs_val<long double>(qbs_right(_FUNC_EVALUATEFUNC_STRING_MKTYPE,_FUNC_EVALUATEFUNC_STRING_MKTYPE->len- 1 )));
#line 21235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21235 "qb64pe.bas"
if(!qbevent)break;evnt(21235);}while(r);
#line 21235 "qb64pe.bas"
}
#line 21236 "qb64pe.bas"
S_24395:;
#line 21236 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_QTYP== 0 ))||is_error_pending()){
#line 21236 "qb64pe.bas"
if(qbevent){evnt(21236);if(r)goto S_24395;}
#line 21236 "qb64pe.bas"
do{
#line 21236 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MK only accepts numeric types",30));
#line 21236 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21236 "qb64pe.bas"
if(!qbevent)break;evnt(21236);}while(r);
#line 21236 "qb64pe.bas"
do{
#line 21236 "qb64pe.bas"
goto exit_subfunc;
#line 21236 "qb64pe.bas"
if(!qbevent)break;evnt(21236);}while(r);
#line 21236 "qb64pe.bas"
}
#line 21237 "qb64pe.bas"
S_24399:;
#line 21237 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SIZE)||is_error_pending()){
#line 21237 "qb64pe.bas"
if(qbevent){evnt(21237);if(r)goto S_24399;}
#line 21238 "qb64pe.bas"
do{
#line 21238 "qb64pe.bas"
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)));
#line 21238 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21238 "qb64pe.bas"
if(!qbevent)break;evnt(21238);}while(r);
#line 21239 "qb64pe.bas"
}else{
#line 21240 "qb64pe.bas"
do{
#line 21240 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("2string(",8)));
#line 21240 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21240 "qb64pe.bas"
if(!qbevent)break;evnt(21240);}while(r);
#line 21241 "qb64pe.bas"
}
#line 21242 "qb64pe.bas"
do{
#line 21242 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ;
#line 21242 "qb64pe.bas"
if(!qbevent)break;evnt(21242);}while(r);
#line 21243 "qb64pe.bas"
do{
#line 21243 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_QTYP;
#line 21243 "qb64pe.bas"
if(!qbevent)break;evnt(21243);}while(r);
#line 21244 "qb64pe.bas"
}
#line 21245 "qb64pe.bas"
}
#line 21248 "qb64pe.bas"
do{
#line 21248 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 0 ;
#line 21248 "qb64pe.bas"
if(!qbevent)break;evnt(21248);}while(r);
#line 21249 "qb64pe.bas"
S_24409:;
#line 21249 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVI",3))))||is_error_pending()){
#line 21249 "qb64pe.bas"
if(qbevent){evnt(21249);if(r)goto S_24409;}
#line 21249 "qb64pe.bas"
do{
#line 21249 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 1 ;
#line 21249 "qb64pe.bas"
if(!qbevent)break;evnt(21249);}while(r);
#line 21249 "qb64pe.bas"
do{
#line 21249 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1));
#line 21249 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21249 "qb64pe.bas"
if(!qbevent)break;evnt(21249);}while(r);
#line 21249 "qb64pe.bas"
}
#line 21250 "qb64pe.bas"
S_24413:;
#line 21250 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVL",3))))||is_error_pending()){
#line 21250 "qb64pe.bas"
if(qbevent){evnt(21250);if(r)goto S_24413;}
#line 21250 "qb64pe.bas"
do{
#line 21250 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 2 ;
#line 21250 "qb64pe.bas"
if(!qbevent)break;evnt(21250);}while(r);
#line 21250 "qb64pe.bas"
do{
#line 21250 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1));
#line 21250 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21250 "qb64pe.bas"
if(!qbevent)break;evnt(21250);}while(r);
#line 21250 "qb64pe.bas"
}
#line 21251 "qb64pe.bas"
S_24417:;
#line 21251 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVS",3))))||is_error_pending()){
#line 21251 "qb64pe.bas"
if(qbevent){evnt(21251);if(r)goto S_24417;}
#line 21251 "qb64pe.bas"
do{
#line 21251 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 3 ;
#line 21251 "qb64pe.bas"
if(!qbevent)break;evnt(21251);}while(r);
#line 21251 "qb64pe.bas"
do{
#line 21251 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1));
#line 21251 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21251 "qb64pe.bas"
if(!qbevent)break;evnt(21251);}while(r);
#line 21251 "qb64pe.bas"
}
#line 21252 "qb64pe.bas"
S_24421:;
#line 21252 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVD",3))))||is_error_pending()){
#line 21252 "qb64pe.bas"
if(qbevent){evnt(21252);if(r)goto S_24421;}
#line 21252 "qb64pe.bas"
do{
#line 21252 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 4 ;
#line 21252 "qb64pe.bas"
if(!qbevent)break;evnt(21252);}while(r);
#line 21252 "qb64pe.bas"
do{
#line 21252 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1));
#line 21252 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21252 "qb64pe.bas"
if(!qbevent)break;evnt(21252);}while(r);
#line 21252 "qb64pe.bas"
}
#line 21253 "qb64pe.bas"
S_24425:;
#line 21253 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3))))||is_error_pending()){
#line 21253 "qb64pe.bas"
if(qbevent){evnt(21253);if(r)goto S_24425;}
#line 21253 "qb64pe.bas"
do{
#line 21253 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CVTYPE= -1 ;
#line 21253 "qb64pe.bas"
if(!qbevent)break;evnt(21253);}while(r);
#line 21253 "qb64pe.bas"
}
#line 21254 "qb64pe.bas"
S_24428:;
#line 21254 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_CVTYPE)||is_error_pending()){
#line 21254 "qb64pe.bas"
if(qbevent){evnt(21254);if(r)goto S_24428;}
#line 21255 "qb64pe.bas"
S_24429:;
#line 21255 "qb64pe.bas"
if (((-(*_FUNC_EVALUATEFUNC_LONG_CVTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||is_error_pending()){
#line 21255 "qb64pe.bas"
if(qbevent){evnt(21255);if(r)goto S_24429;}
#line 21256 "qb64pe.bas"
S_24430:;
#line 21256 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 21256 "qb64pe.bas"
if(qbevent){evnt(21256);if(r)goto S_24430;}
#line 21256 "qb64pe.bas"
do{
#line 21256 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len(" requires a STRING argument",27)));
#line 21256 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21256 "qb64pe.bas"
if(!qbevent)break;evnt(21256);}while(r);
#line 21256 "qb64pe.bas"
do{
#line 21256 "qb64pe.bas"
goto exit_subfunc;
#line 21256 "qb64pe.bas"
if(!qbevent)break;evnt(21256);}while(r);
#line 21256 "qb64pe.bas"
}
#line 21257 "qb64pe.bas"
S_24434:;
#line 21257 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21257 "qb64pe.bas"
if(qbevent){evnt(21257);if(r)goto S_24434;}
#line 21257 "qb64pe.bas"
do{
#line 21257 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2708= 0 )));
#line 21257 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21257 "qb64pe.bas"
if(!qbevent)break;evnt(21257);}while(r);
#line 21257 "qb64pe.bas"
}
#line 21258 "qb64pe.bas"
S_24437:;
#line 21258 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21258 "qb64pe.bas"
if(qbevent){evnt(21258);if(r)goto S_24437;}
#line 21258 "qb64pe.bas"
do{
#line 21258 "qb64pe.bas"
goto exit_subfunc;
#line 21258 "qb64pe.bas"
if(!qbevent)break;evnt(21258);}while(r);
#line 21258 "qb64pe.bas"
}
#line 21259 "qb64pe.bas"
do{
#line 21259 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 0 ;
#line 21259 "qb64pe.bas"
if(!qbevent)break;evnt(21259);}while(r);
#line 21260 "qb64pe.bas"
S_24441:;
#line 21260 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%%",2))))||is_error_pending()){
#line 21260 "qb64pe.bas"
if(qbevent){evnt(21260);if(r)goto S_24441;}
#line 21260 "qb64pe.bas"
do{
#line 21260 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1));
#line 21260 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21260 "qb64pe.bas"
if(!qbevent)break;evnt(21260);}while(r);
#line 21260 "qb64pe.bas"
do{
#line 21260 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER;
#line 21260 "qb64pe.bas"
if(!qbevent)break;evnt(21260);}while(r);
#line 21260 "qb64pe.bas"
}
#line 21261 "qb64pe.bas"
S_24445:;
#line 21261 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%%",3))))||is_error_pending()){
#line 21261 "qb64pe.bas"
if(qbevent){evnt(21261);if(r)goto S_24445;}
#line 21261 "qb64pe.bas"
do{
#line 21261 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2));
#line 21261 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21261 "qb64pe.bas"
if(!qbevent)break;evnt(21261);}while(r);
#line 21261 "qb64pe.bas"
do{
#line 21261 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER;
#line 21261 "qb64pe.bas"
if(!qbevent)break;evnt(21261);}while(r);
#line 21261 "qb64pe.bas"
}
#line 21262 "qb64pe.bas"
S_24449:;
#line 21262 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1))))||is_error_pending()){
#line 21262 "qb64pe.bas"
if(qbevent){evnt(21262);if(r)goto S_24449;}
#line 21262 "qb64pe.bas"
do{
#line 21262 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1));
#line 21262 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21262 "qb64pe.bas"
if(!qbevent)break;evnt(21262);}while(r);
#line 21262 "qb64pe.bas"
do{
#line 21262 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER;
#line 21262 "qb64pe.bas"
if(!qbevent)break;evnt(21262);}while(r);
#line 21262 "qb64pe.bas"
}
#line 21263 "qb64pe.bas"
S_24453:;
#line 21263 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%",2))))||is_error_pending()){
#line 21263 "qb64pe.bas"
if(qbevent){evnt(21263);if(r)goto S_24453;}
#line 21263 "qb64pe.bas"
do{
#line 21263 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2));
#line 21263 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21263 "qb64pe.bas"
if(!qbevent)break;evnt(21263);}while(r);
#line 21263 "qb64pe.bas"
do{
#line 21263 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER;
#line 21263 "qb64pe.bas"
if(!qbevent)break;evnt(21263);}while(r);
#line 21263 "qb64pe.bas"
}
#line 21264 "qb64pe.bas"
S_24457:;
#line 21264 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1))))||is_error_pending()){
#line 21264 "qb64pe.bas"
if(qbevent){evnt(21264);if(r)goto S_24457;}
#line 21264 "qb64pe.bas"
do{
#line 21264 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1));
#line 21264 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21264 "qb64pe.bas"
if(!qbevent)break;evnt(21264);}while(r);
#line 21264 "qb64pe.bas"
do{
#line 21264 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER;
#line 21264 "qb64pe.bas"
if(!qbevent)break;evnt(21264);}while(r);
#line 21264 "qb64pe.bas"
}
#line 21265 "qb64pe.bas"
S_24461:;
#line 21265 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&",2))))||is_error_pending()){
#line 21265 "qb64pe.bas"
if(qbevent){evnt(21265);if(r)goto S_24461;}
#line 21265 "qb64pe.bas"
do{
#line 21265 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2));
#line 21265 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21265 "qb64pe.bas"
if(!qbevent)break;evnt(21265);}while(r);
#line 21265 "qb64pe.bas"
do{
#line 21265 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER;
#line 21265 "qb64pe.bas"
if(!qbevent)break;evnt(21265);}while(r);
#line 21265 "qb64pe.bas"
}
#line 21266 "qb64pe.bas"
S_24465:;
#line 21266 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&&",2))))||is_error_pending()){
#line 21266 "qb64pe.bas"
if(qbevent){evnt(21266);if(r)goto S_24465;}
#line 21266 "qb64pe.bas"
do{
#line 21266 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3));
#line 21266 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21266 "qb64pe.bas"
if(!qbevent)break;evnt(21266);}while(r);
#line 21266 "qb64pe.bas"
do{
#line 21266 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 21266 "qb64pe.bas"
if(!qbevent)break;evnt(21266);}while(r);
#line 21266 "qb64pe.bas"
}
#line 21267 "qb64pe.bas"
S_24469:;
#line 21267 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&&",3))))||is_error_pending()){
#line 21267 "qb64pe.bas"
if(qbevent){evnt(21267);if(r)goto S_24469;}
#line 21267 "qb64pe.bas"
do{
#line 21267 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4));
#line 21267 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21267 "qb64pe.bas"
if(!qbevent)break;evnt(21267);}while(r);
#line 21267 "qb64pe.bas"
do{
#line 21267 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
#line 21267 "qb64pe.bas"
if(!qbevent)break;evnt(21267);}while(r);
#line 21267 "qb64pe.bas"
}
#line 21268 "qb64pe.bas"
S_24473:;
#line 21268 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1))))||is_error_pending()){
#line 21268 "qb64pe.bas"
if(qbevent){evnt(21268);if(r)goto S_24473;}
#line 21268 "qb64pe.bas"
do{
#line 21268 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1));
#line 21268 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21268 "qb64pe.bas"
if(!qbevent)break;evnt(21268);}while(r);
#line 21268 "qb64pe.bas"
do{
#line 21268 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
#line 21268 "qb64pe.bas"
if(!qbevent)break;evnt(21268);}while(r);
#line 21268 "qb64pe.bas"
}
#line 21269 "qb64pe.bas"
S_24477:;
#line 21269 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1))))||is_error_pending()){
#line 21269 "qb64pe.bas"
if(qbevent){evnt(21269);if(r)goto S_24477;}
#line 21269 "qb64pe.bas"
do{
#line 21269 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1));
#line 21269 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21269 "qb64pe.bas"
if(!qbevent)break;evnt(21269);}while(r);
#line 21269 "qb64pe.bas"
do{
#line 21269 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
#line 21269 "qb64pe.bas"
if(!qbevent)break;evnt(21269);}while(r);
#line 21269 "qb64pe.bas"
}
#line 21270 "qb64pe.bas"
S_24481:;
#line 21270 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("##",2))))||is_error_pending()){
#line 21270 "qb64pe.bas"
if(qbevent){evnt(21270);if(r)goto S_24481;}
#line 21270 "qb64pe.bas"
do{
#line 21270 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1));
#line 21270 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21270 "qb64pe.bas"
if(!qbevent)break;evnt(21270);}while(r);
#line 21270 "qb64pe.bas"
do{
#line 21270 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
#line 21270 "qb64pe.bas"
if(!qbevent)break;evnt(21270);}while(r);
#line 21270 "qb64pe.bas"
}
#line 21271 "qb64pe.bas"
S_24485:;
#line 21271 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%&",2))))||is_error_pending()){
#line 21271 "qb64pe.bas"
if(qbevent){evnt(21271);if(r)goto S_24485;}
#line 21271 "qb64pe.bas"
do{
#line 21271 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("o",1));
#line 21271 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21271 "qb64pe.bas"
if(!qbevent)break;evnt(21271);}while(r);
#line 21271 "qb64pe.bas"
do{
#line 21271 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
#line 21271 "qb64pe.bas"
if(!qbevent)break;evnt(21271);}while(r);
#line 21271 "qb64pe.bas"
}
#line 21272 "qb64pe.bas"
S_24489:;
#line 21272 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%&",3))))||is_error_pending()){
#line 21272 "qb64pe.bas"
if(qbevent){evnt(21272);if(r)goto S_24489;}
#line 21272 "qb64pe.bas"
do{
#line 21272 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("uo",2));
#line 21272 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21272 "qb64pe.bas"
if(!qbevent)break;evnt(21272);}while(r);
#line 21272 "qb64pe.bas"
do{
#line 21272 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER;
#line 21272 "qb64pe.bas"
if(!qbevent)break;evnt(21272);}while(r);
#line 21272 "qb64pe.bas"
}
#line 21273 "qb64pe.bas"
S_24493:;
#line 21273 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_CVTYPE, 2 ),qbs_new_txt_len("~`",2))))||is_error_pending()){
#line 21273 "qb64pe.bas"
if(qbevent){evnt(21273);if(r)goto S_24493;}
#line 21273 "qb64pe.bas"
do{
#line 21273 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4));
#line 21273 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21273 "qb64pe.bas"
if(!qbevent)break;evnt(21273);}while(r);
#line 21273 "qb64pe.bas"
do{
#line 21273 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER;
#line 21273 "qb64pe.bas"
if(!qbevent)break;evnt(21273);}while(r);
#line 21273 "qb64pe.bas"
do{
#line 21273 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(qbs_val<long double>(qbs_right(_FUNC_EVALUATEFUNC_STRING_CVTYPE,_FUNC_EVALUATEFUNC_STRING_CVTYPE->len- 2 )));
#line 21273 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21273 "qb64pe.bas"
if(!qbevent)break;evnt(21273);}while(r);
#line 21273 "qb64pe.bas"
}
#line 21274 "qb64pe.bas"
S_24498:;
#line 21274 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_CVTYPE, 1 ),qbs_new_txt_len("`",1))))||is_error_pending()){
#line 21274 "qb64pe.bas"
if(qbevent){evnt(21274);if(r)goto S_24498;}
#line 21274 "qb64pe.bas"
do{
#line 21274 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3));
#line 21274 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21274 "qb64pe.bas"
if(!qbevent)break;evnt(21274);}while(r);
#line 21274 "qb64pe.bas"
do{
#line 21274 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 21274 "qb64pe.bas"
if(!qbevent)break;evnt(21274);}while(r);
#line 21274 "qb64pe.bas"
do{
#line 21274 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(qbs_val<long double>(qbs_right(_FUNC_EVALUATEFUNC_STRING_CVTYPE,_FUNC_EVALUATEFUNC_STRING_CVTYPE->len- 1 )));
#line 21274 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21274 "qb64pe.bas"
if(!qbevent)break;evnt(21274);}while(r);
#line 21274 "qb64pe.bas"
}
#line 21275 "qb64pe.bas"
S_24503:;
#line 21275 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_TYP== 0 ))||is_error_pending()){
#line 21275 "qb64pe.bas"
if(qbevent){evnt(21275);if(r)goto S_24503;}
#line 21275 "qb64pe.bas"
do{
#line 21275 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_CV cannot return STRING type!",30));
#line 21275 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21275 "qb64pe.bas"
if(!qbevent)break;evnt(21275);}while(r);
#line 21275 "qb64pe.bas"
do{
#line 21275 "qb64pe.bas"
goto exit_subfunc;
#line 21275 "qb64pe.bas"
if(!qbevent)break;evnt(21275);}while(r);
#line 21275 "qb64pe.bas"
}
#line 21276 "qb64pe.bas"
S_24507:;
#line 21276 "qb64pe.bas"
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()){
#line 21276 "qb64pe.bas"
if(qbevent){evnt(21276);if(r)goto S_24507;}
#line 21277 "qb64pe.bas"
do{
#line 21277 "qb64pe.bas"
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)));
#line 21277 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21277 "qb64pe.bas"
if(!qbevent)break;evnt(21277);}while(r);
#line 21278 "qb64pe.bas"
}else{
#line 21279 "qb64pe.bas"
do{
#line 21279 "qb64pe.bas"
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)));
#line 21279 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21279 "qb64pe.bas"
if(!qbevent)break;evnt(21279);}while(r);
#line 21280 "qb64pe.bas"
}
#line 21281 "qb64pe.bas"
do{
#line 21281 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21281 "qb64pe.bas"
if(!qbevent)break;evnt(21281);}while(r);
#line 21282 "qb64pe.bas"
}
#line 21283 "qb64pe.bas"
}
#line 21286 "qb64pe.bas"
S_24515:;
#line 21286 "qb64pe.bas"
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()){
#line 21286 "qb64pe.bas"
if(qbevent){evnt(21286);if(r)goto S_24515;}
#line 21287 "qb64pe.bas"
S_24516:;
#line 21287 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
#line 21287 "qb64pe.bas"
if(qbevent){evnt(21287);if(r)goto S_24516;}
#line 21288 "qb64pe.bas"
S_24517:;
#line 21288 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21288 "qb64pe.bas"
if(qbevent){evnt(21288);if(r)goto S_24517;}
#line 21289 "qb64pe.bas"
S_24518:;
#line 21289 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21289 "qb64pe.bas"
if(qbevent){evnt(21289);if(r)goto S_24518;}
#line 21289 "qb64pe.bas"
do{
#line 21289 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2711= 0 )));
#line 21289 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21289 "qb64pe.bas"
if(!qbevent)break;evnt(21289);}while(r);
#line 21289 "qb64pe.bas"
}
#line 21290 "qb64pe.bas"
S_24521:;
#line 21290 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21290 "qb64pe.bas"
if(qbevent){evnt(21290);if(r)goto S_24521;}
#line 21290 "qb64pe.bas"
do{
#line 21290 "qb64pe.bas"
goto exit_subfunc;
#line 21290 "qb64pe.bas"
if(!qbevent)break;evnt(21290);}while(r);
#line 21290 "qb64pe.bas"
}
#line 21291 "qb64pe.bas"
do{
#line 21291 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP= 64 ;
#line 21291 "qb64pe.bas"
if(!qbevent)break;evnt(21291);}while(r);
#line 21292 "qb64pe.bas"
do{
#line 21292 "qb64pe.bas"
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)));
#line 21292 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21292 "qb64pe.bas"
if(!qbevent)break;evnt(21292);}while(r);
#line 21293 "qb64pe.bas"
}
#line 21294 "qb64pe.bas"
}
#line 21295 "qb64pe.bas"
}
#line 21298 "qb64pe.bas"
S_24529:;
#line 21298 "qb64pe.bas"
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()){
#line 21298 "qb64pe.bas"
if(qbevent){evnt(21298);if(r)goto S_24529;}
#line 21299 "qb64pe.bas"
S_24530:;
#line 21299 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 21299 "qb64pe.bas"
if(qbevent){evnt(21299);if(r)goto S_24530;}
#line 21300 "qb64pe.bas"
do{
#line 21300 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("SADD only accepts variable-length string variables",50));
#line 21300 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21300 "qb64pe.bas"
if(!qbevent)break;evnt(21300);}while(r);
#line 21300 "qb64pe.bas"
do{
#line 21300 "qb64pe.bas"
goto exit_subfunc;
#line 21300 "qb64pe.bas"
if(!qbevent)break;evnt(21300);}while(r);
#line 21301 "qb64pe.bas"
}
#line 21302 "qb64pe.bas"
S_24534:;
#line 21302 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
#line 21302 "qb64pe.bas"
if(qbevent){evnt(21302);if(r)goto S_24534;}
#line 21303 "qb64pe.bas"
do{
#line 21303 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("SADD only accepts variable-length string variables",50));
#line 21303 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21303 "qb64pe.bas"
if(!qbevent)break;evnt(21303);}while(r);
#line 21303 "qb64pe.bas"
do{
#line 21303 "qb64pe.bas"
goto exit_subfunc;
#line 21303 "qb64pe.bas"
if(!qbevent)break;evnt(21303);}while(r);
#line 21304 "qb64pe.bas"
}
#line 21305 "qb64pe.bas"
S_24538:;
#line 21305 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
#line 21305 "qb64pe.bas"
if(qbevent){evnt(21305);if(r)goto S_24538;}
#line 21306 "qb64pe.bas"
do{
#line 21306 "qb64pe.bas"
*__INTEGER_RECOMPILE= 1 ;
#line 21306 "qb64pe.bas"
if(!qbevent)break;evnt(21306);}while(r);
#line 21307 "qb64pe.bas"
do{
#line 21307 "qb64pe.bas"
tmp_long=array_check((qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
#line 21307 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
#line 21307 "qb64pe.bas"
if(!qbevent)break;evnt(21307);}while(r);
#line 21308 "qb64pe.bas"
do{
#line 21308 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30));
#line 21308 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21308 "qb64pe.bas"
if(!qbevent)break;evnt(21308);}while(r);
#line 21309 "qb64pe.bas"
do{
#line 21309 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
#line 21309 "qb64pe.bas"
if(!qbevent)break;evnt(21309);}while(r);
#line 21310 "qb64pe.bas"
do{
#line 21310 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21310 "qb64pe.bas"
if(!qbevent)break;evnt(21310);}while(r);
#line 21311 "qb64pe.bas"
}
#line 21312 "qb64pe.bas"
do{
#line 21312 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2712= 0 )));
#line 21312 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21312 "qb64pe.bas"
if(!qbevent)break;evnt(21312);}while(r);
#line 21313 "qb64pe.bas"
S_24546:;
#line 21313 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21313 "qb64pe.bas"
if(qbevent){evnt(21313);if(r)goto S_24546;}
#line 21313 "qb64pe.bas"
do{
#line 21313 "qb64pe.bas"
goto exit_subfunc;
#line 21313 "qb64pe.bas"
if(!qbevent)break;evnt(21313);}while(r);
#line 21313 "qb64pe.bas"
}
#line 21314 "qb64pe.bas"
do{
#line 21314 "qb64pe.bas"
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)));
#line 21314 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21314 "qb64pe.bas"
if(!qbevent)break;evnt(21314);}while(r);
#line 21315 "qb64pe.bas"
do{
#line 21315 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
#line 21315 "qb64pe.bas"
if(!qbevent)break;evnt(21315);}while(r);
#line 21316 "qb64pe.bas"
do{
#line 21316 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21316 "qb64pe.bas"
if(!qbevent)break;evnt(21316);}while(r);
#line 21317 "qb64pe.bas"
}
#line 21320 "qb64pe.bas"
S_24553:;
#line 21320 "qb64pe.bas"
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()){
#line 21320 "qb64pe.bas"
if(qbevent){evnt(21320);if(r)goto S_24553;}
#line 21321 "qb64pe.bas"
S_24554:;
#line 21321 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 21321 "qb64pe.bas"
if(qbevent){evnt(21321);if(r)goto S_24554;}
#line 21322 "qb64pe.bas"
do{
#line 21322 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected reference to a variable/array",38));
#line 21322 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21322 "qb64pe.bas"
if(!qbevent)break;evnt(21322);}while(r);
#line 21322 "qb64pe.bas"
do{
#line 21322 "qb64pe.bas"
goto exit_subfunc;
#line 21322 "qb64pe.bas"
if(!qbevent)break;evnt(21322);}while(r);
#line 21323 "qb64pe.bas"
}
#line 21325 "qb64pe.bas"
S_24558:;
#line 21325 "qb64pe.bas"
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()){
#line 21325 "qb64pe.bas"
if(qbevent){evnt(21325);if(r)goto S_24558;}
#line 21326 "qb64pe.bas"
S_24559:;
#line 21326 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
#line 21326 "qb64pe.bas"
if(qbevent){evnt(21326);if(r)goto S_24559;}
#line 21327 "qb64pe.bas"
do{
#line 21327 "qb64pe.bas"
*__INTEGER_RECOMPILE= 1 ;
#line 21327 "qb64pe.bas"
if(!qbevent)break;evnt(21327);}while(r);
#line 21328 "qb64pe.bas"
do{
#line 21328 "qb64pe.bas"
tmp_long=array_check((qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
#line 21328 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
#line 21328 "qb64pe.bas"
if(!qbevent)break;evnt(21328);}while(r);
#line 21329 "qb64pe.bas"
do{
#line 21329 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30));
#line 21329 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21329 "qb64pe.bas"
if(!qbevent)break;evnt(21329);}while(r);
#line 21330 "qb64pe.bas"
do{
#line 21330 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING;
#line 21330 "qb64pe.bas"
if(!qbevent)break;evnt(21330);}while(r);
#line 21331 "qb64pe.bas"
do{
#line 21331 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21331 "qb64pe.bas"
if(!qbevent)break;evnt(21331);}while(r);
#line 21332 "qb64pe.bas"
}
#line 21334 "qb64pe.bas"
S_24566:;
#line 21334 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
#line 21334 "qb64pe.bas"
if(qbevent){evnt(21334);if(r)goto S_24566;}
#line 21335 "qb64pe.bas"
S_24567:;
#line 21335 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 21335 "qb64pe.bas"
if(qbevent){evnt(21335);if(r)goto S_24567;}
#line 21335 "qb64pe.bas"
do{
#line 21335 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR$ only accepts variable-length string arrays",50));
#line 21335 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21335 "qb64pe.bas"
if(!qbevent)break;evnt(21335);}while(r);
#line 21335 "qb64pe.bas"
do{
#line 21335 "qb64pe.bas"
goto exit_subfunc;
#line 21335 "qb64pe.bas"
if(!qbevent)break;evnt(21335);}while(r);
#line 21335 "qb64pe.bas"
}
#line 21336 "qb64pe.bas"
S_24571:;
#line 21336 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
#line 21336 "qb64pe.bas"
if(qbevent){evnt(21336);if(r)goto S_24571;}
#line 21336 "qb64pe.bas"
do{
#line 21336 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR$ only accepts variable-length string arrays",50));
#line 21336 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21336 "qb64pe.bas"
if(!qbevent)break;evnt(21336);}while(r);
#line 21336 "qb64pe.bas"
do{
#line 21336 "qb64pe.bas"
goto exit_subfunc;
#line 21336 "qb64pe.bas"
if(!qbevent)break;evnt(21336);}while(r);
#line 21336 "qb64pe.bas"
}
#line 21337 "qb64pe.bas"
}
#line 21341 "qb64pe.bas"
do{
#line 21341 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2713= 1 )));
#line 21341 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21341 "qb64pe.bas"
if(!qbevent)break;evnt(21341);}while(r);
#line 21342 "qb64pe.bas"
S_24577:;
#line 21342 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21342 "qb64pe.bas"
if(qbevent){evnt(21342);if(r)goto S_24577;}
#line 21342 "qb64pe.bas"
do{
#line 21342 "qb64pe.bas"
goto exit_subfunc;
#line 21342 "qb64pe.bas"
if(!qbevent)break;evnt(21342);}while(r);
#line 21342 "qb64pe.bas"
}
#line 21343 "qb64pe.bas"
S_24580:;
#line 21343 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21343 "qb64pe.bas"
if(qbevent){evnt(21343);if(r)goto S_24580;}
#line 21344 "qb64pe.bas"
S_24581:;
#line 21344 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
#line 21344 "qb64pe.bas"
if(qbevent){evnt(21344);if(r)goto S_24581;}
#line 21344 "qb64pe.bas"
do{
#line 21344 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2714= 0 )));
#line 21344 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21344 "qb64pe.bas"
if(!qbevent)break;evnt(21344);}while(r);
#line 21344 "qb64pe.bas"
}
#line 21345 "qb64pe.bas"
S_24584:;
#line 21345 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21345 "qb64pe.bas"
if(qbevent){evnt(21345);if(r)goto S_24584;}
#line 21345 "qb64pe.bas"
do{
#line 21345 "qb64pe.bas"
goto exit_subfunc;
#line 21345 "qb64pe.bas"
if(!qbevent)break;evnt(21345);}while(r);
#line 21345 "qb64pe.bas"
}
#line 21346 "qb64pe.bas"
do{
#line 21346 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24)));
#line 21346 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21346 "qb64pe.bas"
if(!qbevent)break;evnt(21346);}while(r);
#line 21347 "qb64pe.bas"
do{
#line 21347 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T= 3 ;
#line 21347 "qb64pe.bas"
if(!qbevent)break;evnt(21347);}while(r);
#line 21348 "qb64pe.bas"
}else{
#line 21349 "qb64pe.bas"
do{
#line 21349 "qb64pe.bas"
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)));
#line 21349 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21349 "qb64pe.bas"
if(!qbevent)break;evnt(21349);}while(r);
#line 21361 "qb64pe.bas"
do{
#line 21361 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T= 0 ;
#line 21361 "qb64pe.bas"
if(!qbevent)break;evnt(21361);}while(r);
#line 21362 "qb64pe.bas"
S_24592:;
#line 21362 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||is_error_pending()){
#line 21362 "qb64pe.bas"
if(qbevent){evnt(21362);if(r)goto S_24592;}
#line 21362 "qb64pe.bas"
do{
#line 21362 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 128 ;
#line 21362 "qb64pe.bas"
if(!qbevent)break;evnt(21362);}while(r);
#line 21362 "qb64pe.bas"
}
#line 21363 "qb64pe.bas"
S_24595:;
#line 21363 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 21363 "qb64pe.bas"
if(qbevent){evnt(21363);if(r)goto S_24595;}
#line 21364 "qb64pe.bas"
do{
#line 21364 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 64 ;
#line 21364 "qb64pe.bas"
if(!qbevent)break;evnt(21364);}while(r);
#line 21365 "qb64pe.bas"
do{
#line 21365 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 63 );
#line 21365 "qb64pe.bas"
if(!qbevent)break;evnt(21365);}while(r);
#line 21366 "qb64pe.bas"
}else{
#line 21367 "qb64pe.bas"
do{
#line 21367 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 21367 "qb64pe.bas"
if(!qbevent)break;evnt(21367);}while(r);
#line 21368 "qb64pe.bas"
S_24600:;
#line 21368 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 21368 "qb64pe.bas"
if(qbevent){evnt(21368);if(r)goto S_24600;}
#line 21369 "qb64pe.bas"
S_24601:;
#line 21369 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
#line 21369 "qb64pe.bas"
if(qbevent){evnt(21369);if(r)goto S_24601;}
#line 21369 "qb64pe.bas"
do{
#line 21369 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 4 ;
#line 21369 "qb64pe.bas"
if(!qbevent)break;evnt(21369);}while(r);
#line 21369 "qb64pe.bas"
}
#line 21370 "qb64pe.bas"
S_24604:;
#line 21370 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
#line 21370 "qb64pe.bas"
if(qbevent){evnt(21370);if(r)goto S_24604;}
#line 21370 "qb64pe.bas"
do{
#line 21370 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 8 ;
#line 21370 "qb64pe.bas"
if(!qbevent)break;evnt(21370);}while(r);
#line 21370 "qb64pe.bas"
}
#line 21371 "qb64pe.bas"
S_24607:;
#line 21371 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 256 ))||is_error_pending()){
#line 21371 "qb64pe.bas"
if(qbevent){evnt(21371);if(r)goto S_24607;}
#line 21371 "qb64pe.bas"
do{
#line 21371 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 6 ;
#line 21371 "qb64pe.bas"
if(!qbevent)break;evnt(21371);}while(r);
#line 21371 "qb64pe.bas"
}
#line 21372 "qb64pe.bas"
}else{
#line 21373 "qb64pe.bas"
S_24611:;
#line 21373 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||is_error_pending()){
#line 21373 "qb64pe.bas"
if(qbevent){evnt(21373);if(r)goto S_24611;}
#line 21373 "qb64pe.bas"
do{
#line 21373 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 1 ;
#line 21373 "qb64pe.bas"
if(!qbevent)break;evnt(21373);}while(r);
#line 21373 "qb64pe.bas"
}
#line 21374 "qb64pe.bas"
S_24614:;
#line 21374 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||is_error_pending()){
#line 21374 "qb64pe.bas"
if(qbevent){evnt(21374);if(r)goto S_24614;}
#line 21374 "qb64pe.bas"
do{
#line 21374 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 2 ;
#line 21374 "qb64pe.bas"
if(!qbevent)break;evnt(21374);}while(r);
#line 21374 "qb64pe.bas"
}
#line 21375 "qb64pe.bas"
S_24617:;
#line 21375 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||is_error_pending()){
#line 21375 "qb64pe.bas"
if(qbevent){evnt(21375);if(r)goto S_24617;}
#line 21375 "qb64pe.bas"
do{
#line 21375 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 20 ;
#line 21375 "qb64pe.bas"
if(!qbevent)break;evnt(21375);}while(r);
#line 21375 "qb64pe.bas"
}
#line 21376 "qb64pe.bas"
S_24620:;
#line 21376 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||is_error_pending()){
#line 21376 "qb64pe.bas"
if(qbevent){evnt(21376);if(r)goto S_24620;}
#line 21376 "qb64pe.bas"
do{
#line 21376 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 5 ;
#line 21376 "qb64pe.bas"
if(!qbevent)break;evnt(21376);}while(r);
#line 21376 "qb64pe.bas"
}
#line 21377 "qb64pe.bas"
}
#line 21378 "qb64pe.bas"
}
#line 21379 "qb64pe.bas"
}
#line 21380 "qb64pe.bas"
do{
#line 21380 "qb64pe.bas"
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)));
#line 21380 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21380 "qb64pe.bas"
if(!qbevent)break;evnt(21380);}while(r);
#line 21381 "qb64pe.bas"
do{
#line 21381 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING;
#line 21381 "qb64pe.bas"
if(!qbevent)break;evnt(21381);}while(r);
#line 21382 "qb64pe.bas"
do{
#line 21382 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21382 "qb64pe.bas"
if(!qbevent)break;evnt(21382);}while(r);
#line 21383 "qb64pe.bas"
}
#line 21396 "qb64pe.bas"
S_24630:;
#line 21396 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
#line 21396 "qb64pe.bas"
if(qbevent){evnt(21396);if(r)goto S_24630;}
#line 21397 "qb64pe.bas"
do{
#line 21397 "qb64pe.bas"
*__INTEGER_RECOMPILE= 1 ;
#line 21397 "qb64pe.bas"
if(!qbevent)break;evnt(21397);}while(r);
#line 21398 "qb64pe.bas"
do{
#line 21398 "qb64pe.bas"
tmp_long=array_check((qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
#line 21398 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
#line 21398 "qb64pe.bas"
if(!qbevent)break;evnt(21398);}while(r);
#line 21399 "qb64pe.bas"
do{
#line 21399 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30));
#line 21399 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21399 "qb64pe.bas"
if(!qbevent)break;evnt(21399);}while(r);
#line 21400 "qb64pe.bas"
do{
#line 21400 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
#line 21400 "qb64pe.bas"
if(!qbevent)break;evnt(21400);}while(r);
#line 21401 "qb64pe.bas"
do{
#line 21401 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21401 "qb64pe.bas"
if(!qbevent)break;evnt(21401);}while(r);
#line 21402 "qb64pe.bas"
}
#line 21404 "qb64pe.bas"
S_24637:;
#line 21404 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
#line 21404 "qb64pe.bas"
if(qbevent){evnt(21404);if(r)goto S_24637;}
#line 21405 "qb64pe.bas"
S_24638:;
#line 21405 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 21405 "qb64pe.bas"
if(qbevent){evnt(21405);if(r)goto S_24638;}
#line 21405 "qb64pe.bas"
do{
#line 21405 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR cannot reference _BIT type arrays",40));
#line 21405 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21405 "qb64pe.bas"
if(!qbevent)break;evnt(21405);}while(r);
#line 21405 "qb64pe.bas"
do{
#line 21405 "qb64pe.bas"
goto exit_subfunc;
#line 21405 "qb64pe.bas"
if(!qbevent)break;evnt(21405);}while(r);
#line 21405 "qb64pe.bas"
}
#line 21408 "qb64pe.bas"
S_24642:;
#line 21408 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21408 "qb64pe.bas"
if(qbevent){evnt(21408);if(r)goto S_24642;}
#line 21409 "qb64pe.bas"
S_24643:;
#line 21409 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
#line 21409 "qb64pe.bas"
if(qbevent){evnt(21409);if(r)goto S_24643;}
#line 21410 "qb64pe.bas"
do{
#line 21410 "qb64pe.bas"
SUB_GETID(&(pass2715=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
#line 21410 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21410 "qb64pe.bas"
if(!qbevent)break;evnt(21410);}while(r);
#line 21411 "qb64pe.bas"
S_24645:;
#line 21411 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21411 "qb64pe.bas"
if(qbevent){evnt(21411);if(r)goto S_24645;}
#line 21411 "qb64pe.bas"
do{
#line 21411 "qb64pe.bas"
goto exit_subfunc;
#line 21411 "qb64pe.bas"
if(!qbevent)break;evnt(21411);}while(r);
#line 21411 "qb64pe.bas"
}
#line 21412 "qb64pe.bas"
do{
#line 21412 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_M=*(int32*)(((char*)__UDT_ID)+((0+544)));
#line 21412 "qb64pe.bas"
if(!qbevent)break;evnt(21412);}while(r);
#line 21413 "qb64pe.bas"
do{
#line 21413 "qb64pe.bas"
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)));
#line 21413 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21413 "qb64pe.bas"
if(!qbevent)break;evnt(21413);}while(r);
#line 21414 "qb64pe.bas"
do{
#line 21414 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
#line 21414 "qb64pe.bas"
if(!qbevent)break;evnt(21414);}while(r);
#line 21415 "qb64pe.bas"
do{
#line 21415 "qb64pe.bas"
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)));
#line 21415 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21415 "qb64pe.bas"
if(!qbevent)break;evnt(21415);}while(r);
#line 21416 "qb64pe.bas"
do{
#line 21416 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21416 "qb64pe.bas"
if(!qbevent)break;evnt(21416);}while(r);
#line 21417 "qb64pe.bas"
}else{
#line 21419 "qb64pe.bas"
do{
#line 21419 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2717= 0 )));
#line 21419 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21419 "qb64pe.bas"
if(!qbevent)break;evnt(21419);}while(r);
#line 21420 "qb64pe.bas"
S_24655:;
#line 21420 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21420 "qb64pe.bas"
if(qbevent){evnt(21420);if(r)goto S_24655;}
#line 21420 "qb64pe.bas"
do{
#line 21420 "qb64pe.bas"
goto exit_subfunc;
#line 21420 "qb64pe.bas"
if(!qbevent)break;evnt(21420);}while(r);
#line 21420 "qb64pe.bas"
}
#line 21421 "qb64pe.bas"
do{
#line 21421 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24)));
#line 21421 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21421 "qb64pe.bas"
if(!qbevent)break;evnt(21421);}while(r);
#line 21422 "qb64pe.bas"
do{
#line 21422 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
#line 21422 "qb64pe.bas"
if(!qbevent)break;evnt(21422);}while(r);
#line 21423 "qb64pe.bas"
do{
#line 21423 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21423 "qb64pe.bas"
if(!qbevent)break;evnt(21423);}while(r);
#line 21424 "qb64pe.bas"
}
#line 21425 "qb64pe.bas"
}
#line 21427 "qb64pe.bas"
S_24663:;
#line 21427 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
#line 21427 "qb64pe.bas"
if(qbevent){evnt(21427);if(r)goto S_24663;}
#line 21428 "qb64pe.bas"
do{
#line 21428 "qb64pe.bas"
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)));
#line 21428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21428 "qb64pe.bas"
if(!qbevent)break;evnt(21428);}while(r);
#line 21429 "qb64pe.bas"
do{
#line 21429 "qb64pe.bas"
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)));
#line 21429 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21429 "qb64pe.bas"
if(!qbevent)break;evnt(21429);}while(r);
#line 21430 "qb64pe.bas"
do{
#line 21430 "qb64pe.bas"
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)));
#line 21430 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21430 "qb64pe.bas"
if(!qbevent)break;evnt(21430);}while(r);
#line 21431 "qb64pe.bas"
do{
#line 21431 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
#line 21431 "qb64pe.bas"
if(!qbevent)break;evnt(21431);}while(r);
#line 21432 "qb64pe.bas"
do{
#line 21432 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(")",1)));
#line 21432 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21432 "qb64pe.bas"
if(!qbevent)break;evnt(21432);}while(r);
#line 21433 "qb64pe.bas"
do{
#line 21433 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21433 "qb64pe.bas"
if(!qbevent)break;evnt(21433);}while(r);
#line 21434 "qb64pe.bas"
}
#line 21437 "qb64pe.bas"
do{
#line 21437 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_M=qb_safe_idiv((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ), 8 );
#line 21437 "qb64pe.bas"
if(!qbevent)break;evnt(21437);}while(r);
#line 21438 "qb64pe.bas"
do{
#line 21438 "qb64pe.bas"
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)));
#line 21438 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21438 "qb64pe.bas"
if(!qbevent)break;evnt(21438);}while(r);
#line 21439 "qb64pe.bas"
do{
#line 21439 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
#line 21439 "qb64pe.bas"
if(!qbevent)break;evnt(21439);}while(r);
#line 21440 "qb64pe.bas"
do{
#line 21440 "qb64pe.bas"
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)));
#line 21440 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21440 "qb64pe.bas"
if(!qbevent)break;evnt(21440);}while(r);
#line 21441 "qb64pe.bas"
do{
#line 21441 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21441 "qb64pe.bas"
if(!qbevent)break;evnt(21441);}while(r);
#line 21443 "qb64pe.bas"
}
#line 21447 "qb64pe.bas"
S_24677:;
#line 21447 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
#line 21447 "qb64pe.bas"
if(qbevent){evnt(21447);if(r)goto S_24677;}
#line 21448 "qb64pe.bas"
do{
#line 21448 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2722= 1 )));
#line 21448 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21448 "qb64pe.bas"
if(!qbevent)break;evnt(21448);}while(r);
#line 21449 "qb64pe.bas"
S_24679:;
#line 21449 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21449 "qb64pe.bas"
if(qbevent){evnt(21449);if(r)goto S_24679;}
#line 21449 "qb64pe.bas"
do{
#line 21449 "qb64pe.bas"
goto exit_subfunc;
#line 21449 "qb64pe.bas"
if(!qbevent)break;evnt(21449);}while(r);
#line 21449 "qb64pe.bas"
}
#line 21450 "qb64pe.bas"
do{
#line 21450 "qb64pe.bas"
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)));
#line 21450 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21450 "qb64pe.bas"
if(!qbevent)break;evnt(21450);}while(r);
#line 21451 "qb64pe.bas"
do{
#line 21451 "qb64pe.bas"
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)));
#line 21451 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21451 "qb64pe.bas"
if(!qbevent)break;evnt(21451);}while(r);
#line 21452 "qb64pe.bas"
do{
#line 21452 "qb64pe.bas"
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)));
#line 21452 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21452 "qb64pe.bas"
if(!qbevent)break;evnt(21452);}while(r);
#line 21453 "qb64pe.bas"
do{
#line 21453 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
#line 21453 "qb64pe.bas"
if(!qbevent)break;evnt(21453);}while(r);
#line 21456 "qb64pe.bas"
do{
#line 21456 "qb64pe.bas"
SUB_GETID(&(pass2726=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
#line 21456 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21456 "qb64pe.bas"
if(!qbevent)break;evnt(21456);}while(r);
#line 21457 "qb64pe.bas"
S_24687:;
#line 21457 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21457 "qb64pe.bas"
if(qbevent){evnt(21457);if(r)goto S_24687;}
#line 21457 "qb64pe.bas"
do{
#line 21457 "qb64pe.bas"
goto exit_subfunc;
#line 21457 "qb64pe.bas"
if(!qbevent)break;evnt(21457);}while(r);
#line 21457 "qb64pe.bas"
}
#line 21458 "qb64pe.bas"
S_24690:;
#line 21458 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+2963))))||is_error_pending()){
#line 21458 "qb64pe.bas"
if(qbevent){evnt(21458);if(r)goto S_24690;}
#line 21460 "qb64pe.bas"
do{
#line 21460 "qb64pe.bas"
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)));
#line 21460 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21460 "qb64pe.bas"
if(!qbevent)break;evnt(21460);}while(r);
#line 21461 "qb64pe.bas"
}else{
#line 21463 "qb64pe.bas"
do{
#line 21463 "qb64pe.bas"
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)));
#line 21463 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21463 "qb64pe.bas"
if(!qbevent)break;evnt(21463);}while(r);
#line 21464 "qb64pe.bas"
}
#line 21466 "qb64pe.bas"
do{
#line 21466 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21466 "qb64pe.bas"
if(!qbevent)break;evnt(21466);}while(r);
#line 21467 "qb64pe.bas"
}
#line 21469 "qb64pe.bas"
do{
#line 21469 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
#line 21469 "qb64pe.bas"
if(!qbevent)break;evnt(21469);}while(r);
#line 21470 "qb64pe.bas"
do{
#line 21470 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2727= 1 )));
#line 21470 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21470 "qb64pe.bas"
if(!qbevent)break;evnt(21470);}while(r);
#line 21471 "qb64pe.bas"
S_24699:;
#line 21471 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21471 "qb64pe.bas"
if(qbevent){evnt(21471);if(r)goto S_24699;}
#line 21471 "qb64pe.bas"
do{
#line 21471 "qb64pe.bas"
goto exit_subfunc;
#line 21471 "qb64pe.bas"
if(!qbevent)break;evnt(21471);}while(r);
#line 21471 "qb64pe.bas"
}
#line 21472 "qb64pe.bas"
S_24702:;
#line 21472 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21472 "qb64pe.bas"
if(qbevent){evnt(21472);if(r)goto S_24702;}
#line 21473 "qb64pe.bas"
S_24703:;
#line 21473 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
#line 21473 "qb64pe.bas"
if(qbevent){evnt(21473);if(r)goto S_24703;}
#line 21476 "qb64pe.bas"
do{
#line 21476 "qb64pe.bas"
SUB_GETID(&(pass2728=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
#line 21476 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21476 "qb64pe.bas"
if(!qbevent)break;evnt(21476);}while(r);
#line 21477 "qb64pe.bas"
S_24705:;
#line 21477 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21477 "qb64pe.bas"
if(qbevent){evnt(21477);if(r)goto S_24705;}
#line 21477 "qb64pe.bas"
do{
#line 21477 "qb64pe.bas"
goto exit_subfunc;
#line 21477 "qb64pe.bas"
if(!qbevent)break;evnt(21477);}while(r);
#line 21477 "qb64pe.bas"
}
#line 21478 "qb64pe.bas"
S_24708:;
#line 21478 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+2963))))||is_error_pending()){
#line 21478 "qb64pe.bas"
if(qbevent){evnt(21478);if(r)goto S_24708;}
#line 21479 "qb64pe.bas"
do{
#line 21479 "qb64pe.bas"
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)));
#line 21479 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21479 "qb64pe.bas"
if(!qbevent)break;evnt(21479);}while(r);
#line 21480 "qb64pe.bas"
}else{
#line 21481 "qb64pe.bas"
do{
#line 21481 "qb64pe.bas"
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)));
#line 21481 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21481 "qb64pe.bas"
if(!qbevent)break;evnt(21481);}while(r);
#line 21482 "qb64pe.bas"
}
#line 21484 "qb64pe.bas"
}else{
#line 21485 "qb64pe.bas"
do{
#line 21485 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24)));
#line 21485 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21485 "qb64pe.bas"
if(!qbevent)break;evnt(21485);}while(r);
#line 21486 "qb64pe.bas"
}
#line 21487 "qb64pe.bas"
do{
#line 21487 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21487 "qb64pe.bas"
if(!qbevent)break;evnt(21487);}while(r);
#line 21488 "qb64pe.bas"
}
#line 21492 "qb64pe.bas"
do{
#line 21492 "qb64pe.bas"
SUB_GETID(&(pass2729=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
#line 21492 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21492 "qb64pe.bas"
if(!qbevent)break;evnt(21492);}while(r);
#line 21493 "qb64pe.bas"
S_24719:;
#line 21493 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21493 "qb64pe.bas"
if(qbevent){evnt(21493);if(r)goto S_24719;}
#line 21493 "qb64pe.bas"
do{
#line 21493 "qb64pe.bas"
goto exit_subfunc;
#line 21493 "qb64pe.bas"
if(!qbevent)break;evnt(21493);}while(r);
#line 21493 "qb64pe.bas"
}
#line 21494 "qb64pe.bas"
S_24722:;
#line 21494 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+2963))))||is_error_pending()){
#line 21494 "qb64pe.bas"
if(qbevent){evnt(21494);if(r)goto S_24722;}
#line 21495 "qb64pe.bas"
do{
#line 21495 "qb64pe.bas"
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)));
#line 21495 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21495 "qb64pe.bas"
if(!qbevent)break;evnt(21495);}while(r);
#line 21496 "qb64pe.bas"
}else{
#line 21497 "qb64pe.bas"
do{
#line 21497 "qb64pe.bas"
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)));
#line 21497 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21497 "qb64pe.bas"
if(!qbevent)break;evnt(21497);}while(r);
#line 21498 "qb64pe.bas"
}
#line 21500 "qb64pe.bas"
do{
#line 21500 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21500 "qb64pe.bas"
if(!qbevent)break;evnt(21500);}while(r);
#line 21501 "qb64pe.bas"
}
#line 21504 "qb64pe.bas"
S_24729:;
#line 21504 "qb64pe.bas"
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()){
#line 21504 "qb64pe.bas"
if(qbevent){evnt(21504);if(r)goto S_24729;}
#line 21505 "qb64pe.bas"
S_24730:;
#line 21505 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 21505 "qb64pe.bas"
if(qbevent){evnt(21505);if(r)goto S_24730;}
#line 21506 "qb64pe.bas"
do{
#line 21506 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected reference to a variable/array",38));
#line 21506 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21506 "qb64pe.bas"
if(!qbevent)break;evnt(21506);}while(r);
#line 21506 "qb64pe.bas"
do{
#line 21506 "qb64pe.bas"
goto exit_subfunc;
#line 21506 "qb64pe.bas"
if(!qbevent)break;evnt(21506);}while(r);
#line 21507 "qb64pe.bas"
}
#line 21508 "qb64pe.bas"
S_24734:;
#line 21508 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||is_error_pending()){
#line 21508 "qb64pe.bas"
if(qbevent){evnt(21508);if(r)goto S_24734;}
#line 21509 "qb64pe.bas"
do{
#line 21509 "qb64pe.bas"
*__INTEGER_RECOMPILE= 1 ;
#line 21509 "qb64pe.bas"
if(!qbevent)break;evnt(21509);}while(r);
#line 21510 "qb64pe.bas"
do{
#line 21510 "qb64pe.bas"
tmp_long=array_check((qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
#line 21510 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
#line 21510 "qb64pe.bas"
if(!qbevent)break;evnt(21510);}while(r);
#line 21511 "qb64pe.bas"
do{
#line 21511 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30));
#line 21511 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21511 "qb64pe.bas"
if(!qbevent)break;evnt(21511);}while(r);
#line 21512 "qb64pe.bas"
do{
#line 21512 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
#line 21512 "qb64pe.bas"
if(!qbevent)break;evnt(21512);}while(r);
#line 21513 "qb64pe.bas"
do{
#line 21513 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21513 "qb64pe.bas"
if(!qbevent)break;evnt(21513);}while(r);
#line 21514 "qb64pe.bas"
}
#line 21516 "qb64pe.bas"
S_24741:;
#line 21516 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
#line 21516 "qb64pe.bas"
if(qbevent){evnt(21516);if(r)goto S_24741;}
#line 21517 "qb64pe.bas"
S_24742:;
#line 21517 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 21517 "qb64pe.bas"
if(qbevent){evnt(21517);if(r)goto S_24742;}
#line 21518 "qb64pe.bas"
S_24743:;
#line 21518 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21518 "qb64pe.bas"
if(qbevent){evnt(21518);if(r)goto S_24743;}
#line 21519 "qb64pe.bas"
do{
#line 21519 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2));
#line 21519 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21519 "qb64pe.bas"
if(!qbevent)break;evnt(21519);}while(r);
#line 21520 "qb64pe.bas"
do{
#line 21520 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
#line 21520 "qb64pe.bas"
if(!qbevent)break;evnt(21520);}while(r);
#line 21521 "qb64pe.bas"
do{
#line 21521 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21521 "qb64pe.bas"
if(!qbevent)break;evnt(21521);}while(r);
#line 21522 "qb64pe.bas"
}
#line 21523 "qb64pe.bas"
}
#line 21524 "qb64pe.bas"
do{
#line 21524 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
#line 21524 "qb64pe.bas"
if(!qbevent)break;evnt(21524);}while(r);
#line 21525 "qb64pe.bas"
do{
#line 21525 "qb64pe.bas"
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,&(pass2730= 1 ))),qbs_new_txt_len("[0])) - ((ptrszint)(&cmem[0])) ) /16)",37)));
#line 21525 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21525 "qb64pe.bas"
if(!qbevent)break;evnt(21525);}while(r);
#line 21526 "qb64pe.bas"
S_24751:;
#line 21526 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21526 "qb64pe.bas"
if(qbevent){evnt(21526);if(r)goto S_24751;}
#line 21526 "qb64pe.bas"
do{
#line 21526 "qb64pe.bas"
goto exit_subfunc;
#line 21526 "qb64pe.bas"
if(!qbevent)break;evnt(21526);}while(r);
#line 21526 "qb64pe.bas"
}
#line 21527 "qb64pe.bas"
do{
#line 21527 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21527 "qb64pe.bas"
if(!qbevent)break;evnt(21527);}while(r);
#line 21528 "qb64pe.bas"
}
#line 21531 "qb64pe.bas"
do{
#line 21531 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ;
#line 21531 "qb64pe.bas"
if(!qbevent)break;evnt(21531);}while(r);
#line 21533 "qb64pe.bas"
do{
#line 21533 "qb64pe.bas"
SUB_GETID(&(pass2731=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E))));
#line 21533 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21533 "qb64pe.bas"
if(!qbevent)break;evnt(21533);}while(r);
#line 21534 "qb64pe.bas"
S_24758:;
#line 21534 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21534 "qb64pe.bas"
if(qbevent){evnt(21534);if(r)goto S_24758;}
#line 21534 "qb64pe.bas"
do{
#line 21534 "qb64pe.bas"
goto exit_subfunc;
#line 21534 "qb64pe.bas"
if(!qbevent)break;evnt(21534);}while(r);
#line 21534 "qb64pe.bas"
}
#line 21535 "qb64pe.bas"
S_24761:;
#line 21535 "qb64pe.bas"
if (((-(*(int16*)(((char*)__UDT_ID)+((0+2963)))!= 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
#line 21535 "qb64pe.bas"
if(qbevent){evnt(21535);if(r)goto S_24761;}
#line 21536 "qb64pe.bas"
S_24762:;
#line 21536 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
#line 21536 "qb64pe.bas"
if(qbevent){evnt(21536);if(r)goto S_24762;}
#line 21537 "qb64pe.bas"
do{
#line 21537 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2732= 1 )));
#line 21537 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21537 "qb64pe.bas"
if(!qbevent)break;evnt(21537);}while(r);
#line 21538 "qb64pe.bas"
S_24764:;
#line 21538 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21538 "qb64pe.bas"
if(qbevent){evnt(21538);if(r)goto S_24764;}
#line 21538 "qb64pe.bas"
do{
#line 21538 "qb64pe.bas"
goto exit_subfunc;
#line 21538 "qb64pe.bas"
if(!qbevent)break;evnt(21538);}while(r);
#line 21538 "qb64pe.bas"
}
#line 21539 "qb64pe.bas"
do{
#line 21539 "qb64pe.bas"
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)));
#line 21539 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21539 "qb64pe.bas"
if(!qbevent)break;evnt(21539);}while(r);
#line 21540 "qb64pe.bas"
do{
#line 21540 "qb64pe.bas"
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)));
#line 21540 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21540 "qb64pe.bas"
if(!qbevent)break;evnt(21540);}while(r);
#line 21541 "qb64pe.bas"
do{
#line 21541 "qb64pe.bas"
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)));
#line 21541 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21541 "qb64pe.bas"
if(!qbevent)break;evnt(21541);}while(r);
#line 21542 "qb64pe.bas"
do{
#line 21542 "qb64pe.bas"
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)));
#line 21542 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21542 "qb64pe.bas"
if(!qbevent)break;evnt(21542);}while(r);
#line 21543 "qb64pe.bas"
}else{
#line 21544 "qb64pe.bas"
do{
#line 21544 "qb64pe.bas"
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,&(pass2736= 1 ))),qbs_new_txt_len(")",1)));
#line 21544 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21544 "qb64pe.bas"
if(!qbevent)break;evnt(21544);}while(r);
#line 21545 "qb64pe.bas"
S_24773:;
#line 21545 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21545 "qb64pe.bas"
if(qbevent){evnt(21545);if(r)goto S_24773;}
#line 21545 "qb64pe.bas"
do{
#line 21545 "qb64pe.bas"
goto exit_subfunc;
#line 21545 "qb64pe.bas"
if(!qbevent)break;evnt(21545);}while(r);
#line 21545 "qb64pe.bas"
}
#line 21546 "qb64pe.bas"
}
#line 21547 "qb64pe.bas"
}else{
#line 21549 "qb64pe.bas"
do{
#line 21549 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2));
#line 21549 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21549 "qb64pe.bas"
if(!qbevent)break;evnt(21549);}while(r);
#line 21550 "qb64pe.bas"
}
#line 21551 "qb64pe.bas"
do{
#line 21551 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21551 "qb64pe.bas"
if(!qbevent)break;evnt(21551);}while(r);
#line 21552 "qb64pe.bas"
}
#line 21577 "qb64pe.bas"
S_24782:;
#line 21577 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -2 ))||is_error_pending()){
#line 21577 "qb64pe.bas"
if(qbevent){evnt(21577);if(r)goto S_24782;}
#line 21578 "qb64pe.bas"
do{
#line 21578 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2737= -2 )));
#line 21578 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21578 "qb64pe.bas"
if(!qbevent)break;evnt(21578);}while(r);
#line 21579 "qb64pe.bas"
S_24784:;
#line 21579 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21579 "qb64pe.bas"
if(qbevent){evnt(21579);if(r)goto S_24784;}
#line 21579 "qb64pe.bas"
do{
#line 21579 "qb64pe.bas"
goto exit_subfunc;
#line 21579 "qb64pe.bas"
if(!qbevent)break;evnt(21579);}while(r);
#line 21579 "qb64pe.bas"
}
#line 21580 "qb64pe.bas"
do{
#line 21580 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 21580 "qb64pe.bas"
if(!qbevent)break;evnt(21580);}while(r);
#line 21581 "qb64pe.bas"
}
#line 21583 "qb64pe.bas"
S_24789:;
#line 21583 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -7 ))||is_error_pending()){
#line 21583 "qb64pe.bas"
if(qbevent){evnt(21583);if(r)goto S_24789;}
#line 21584 "qb64pe.bas"
do{
#line 21584 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2738= -7 )));
#line 21584 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21584 "qb64pe.bas"
if(!qbevent)break;evnt(21584);}while(r);
#line 21585 "qb64pe.bas"
S_24791:;
#line 21585 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21585 "qb64pe.bas"
if(qbevent){evnt(21585);if(r)goto S_24791;}
#line 21585 "qb64pe.bas"
do{
#line 21585 "qb64pe.bas"
goto exit_subfunc;
#line 21585 "qb64pe.bas"
if(!qbevent)break;evnt(21585);}while(r);
#line 21585 "qb64pe.bas"
}
#line 21586 "qb64pe.bas"
do{
#line 21586 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 21586 "qb64pe.bas"
if(!qbevent)break;evnt(21586);}while(r);
#line 21587 "qb64pe.bas"
}
#line 21589 "qb64pe.bas"
S_24796:;
#line 21589 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -8 ))||is_error_pending()){
#line 21589 "qb64pe.bas"
if(qbevent){evnt(21589);if(r)goto S_24796;}
#line 21590 "qb64pe.bas"
do{
#line 21590 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2739= -8 )));
#line 21590 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21590 "qb64pe.bas"
if(!qbevent)break;evnt(21590);}while(r);
#line 21591 "qb64pe.bas"
S_24798:;
#line 21591 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21591 "qb64pe.bas"
if(qbevent){evnt(21591);if(r)goto S_24798;}
#line 21591 "qb64pe.bas"
do{
#line 21591 "qb64pe.bas"
goto exit_subfunc;
#line 21591 "qb64pe.bas"
if(!qbevent)break;evnt(21591);}while(r);
#line 21591 "qb64pe.bas"
}
#line 21592 "qb64pe.bas"
do{
#line 21592 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 21592 "qb64pe.bas"
if(!qbevent)break;evnt(21592);}while(r);
#line 21593 "qb64pe.bas"
}
#line 21596 "qb64pe.bas"
do{
#line 21596 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 0 ;
#line 21596 "qb64pe.bas"
if(!qbevent)break;evnt(21596);}while(r);
#line 21597 "qb64pe.bas"
S_24804:;
#line 21597 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -1 ))||is_error_pending()){
#line 21597 "qb64pe.bas"
if(qbevent){evnt(21597);if(r)goto S_24804;}
#line 21598 "qb64pe.bas"
do{
#line 21598 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 1 ;
#line 21598 "qb64pe.bas"
if(!qbevent)break;evnt(21598);}while(r);
#line 21599 "qb64pe.bas"
S_24806:;
#line 21599 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21599 "qb64pe.bas"
if(qbevent){evnt(21599);if(r)goto S_24806;}
#line 21599 "qb64pe.bas"
do{
#line 21599 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28));
#line 21599 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21599 "qb64pe.bas"
if(!qbevent)break;evnt(21599);}while(r);
#line 21599 "qb64pe.bas"
do{
#line 21599 "qb64pe.bas"
goto exit_subfunc;
#line 21599 "qb64pe.bas"
if(!qbevent)break;evnt(21599);}while(r);
#line 21599 "qb64pe.bas"
}
#line 21600 "qb64pe.bas"
do{
#line 21600 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
#line 21600 "qb64pe.bas"
if(!qbevent)break;evnt(21600);}while(r);
#line 21601 "qb64pe.bas"
S_24811:;
#line 21601 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
#line 21601 "qb64pe.bas"
if(qbevent){evnt(21601);if(r)goto S_24811;}
#line 21601 "qb64pe.bas"
do{
#line 21601 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP-*__LONG_ISPOINTER;
#line 21601 "qb64pe.bas"
if(!qbevent)break;evnt(21601);}while(r);
#line 21601 "qb64pe.bas"
}
#line 21602 "qb64pe.bas"
}
#line 21605 "qb64pe.bas"
S_24815:;
#line 21605 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
#line 21605 "qb64pe.bas"
if(qbevent){evnt(21605);if(r)goto S_24815;}
#line 21606 "qb64pe.bas"
S_24816:;
#line 21606 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE== 0 ))||is_error_pending()){
#line 21606 "qb64pe.bas"
if(qbevent){evnt(21606);if(r)goto S_24816;}
#line 21609 "qb64pe.bas"
S_24817:;
#line 21609 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISARRAY))||is_error_pending()){
#line 21609 "qb64pe.bas"
if(qbevent){evnt(21609);if(r)goto S_24817;}
#line 21610 "qb64pe.bas"
S_24818:;
#line 21610 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 21610 "qb64pe.bas"
if(qbevent){evnt(21610);if(r)goto S_24818;}
#line 21610 "qb64pe.bas"
do{
#line 21610 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
#line 21610 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21610 "qb64pe.bas"
if(!qbevent)break;evnt(21610);}while(r);
#line 21610 "qb64pe.bas"
do{
#line 21610 "qb64pe.bas"
goto exit_subfunc;
#line 21610 "qb64pe.bas"
if(!qbevent)break;evnt(21610);}while(r);
#line 21610 "qb64pe.bas"
}
#line 21611 "qb64pe.bas"
S_24822:;
#line 21611 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
#line 21611 "qb64pe.bas"
if(qbevent){evnt(21611);if(r)goto S_24822;}
#line 21611 "qb64pe.bas"
do{
#line 21611 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
#line 21611 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21611 "qb64pe.bas"
if(!qbevent)break;evnt(21611);}while(r);
#line 21611 "qb64pe.bas"
do{
#line 21611 "qb64pe.bas"
goto exit_subfunc;
#line 21611 "qb64pe.bas"
if(!qbevent)break;evnt(21611);}while(r);
#line 21611 "qb64pe.bas"
}
#line 21612 "qb64pe.bas"
S_24826:;
#line 21612 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 21612 "qb64pe.bas"
if(qbevent){evnt(21612);if(r)goto S_24826;}
#line 21612 "qb64pe.bas"
do{
#line 21612 "qb64pe.bas"
tab_spc_cr_size=2;
#line 21612 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 21612 "qb64pe.bas"
if (is_error_pending()) goto skip2740;
#line 21612 "qb64pe.bas"
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);
#line 21612 "qb64pe.bas"
if (is_error_pending()) goto skip2740;
#line 21612 "qb64pe.bas"
skip2740:
#line 21612 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21612 "qb64pe.bas"
tab_spc_cr_size=1;
#line 21612 "qb64pe.bas"
if(!qbevent)break;evnt(21612);}while(r);
#line 21612 "qb64pe.bas"
}
#line 21615 "qb64pe.bas"
do{
#line 21615 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP;
#line 21615 "qb64pe.bas"
if(!qbevent)break;evnt(21615);}while(r);
#line 21615 "qb64pe.bas"
do{
#line 21615 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
#line 21615 "qb64pe.bas"
if(!qbevent)break;evnt(21615);}while(r);
#line 21616 "qb64pe.bas"
do{
#line 21616 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT);
#line 21616 "qb64pe.bas"
if(!qbevent)break;evnt(21616);}while(r);
#line 21617 "qb64pe.bas"
do{
#line 21617 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT);
#line 21617 "qb64pe.bas"
if(!qbevent)break;evnt(21617);}while(r);
#line 21618 "qb64pe.bas"
S_24833:;
#line 21618 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||is_error_pending()){
#line 21618 "qb64pe.bas"
if(qbevent){evnt(21618);if(r)goto S_24833;}
#line 21618 "qb64pe.bas"
do{
#line 21618 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect array type passed to function",39));
#line 21618 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21618 "qb64pe.bas"
if(!qbevent)break;evnt(21618);}while(r);
#line 21618 "qb64pe.bas"
do{
#line 21618 "qb64pe.bas"
goto exit_subfunc;
#line 21618 "qb64pe.bas"
if(!qbevent)break;evnt(21618);}while(r);
#line 21618 "qb64pe.bas"
}
#line 21620 "qb64pe.bas"
do{
#line 21620 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID= 0 ;
#line 21620 "qb64pe.bas"
if(!qbevent)break;evnt(21620);}while(r);
#line 21623 "qb64pe.bas"
S_24838:;
#line 21623 "qb64pe.bas"
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()){
#line 21623 "qb64pe.bas"
if(qbevent){evnt(21623);if(r)goto S_24838;}
#line 21625 "qb64pe.bas"
}else{
#line 21626 "qb64pe.bas"
do{
#line 21626 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_S1=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0);
#line 21626 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21626 "qb64pe.bas"
if(!qbevent)break;evnt(21626);}while(r);
#line 21627 "qb64pe.bas"
S_24841:;
#line 21627 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_S1)||is_error_pending()){
#line 21627 "qb64pe.bas"
if(qbevent){evnt(21627);if(r)goto S_24841;}
#line 21628 "qb64pe.bas"
do{
#line 21628 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_S2=func_instr(*_FUNC_EVALUATEFUNC_LONG_S1+1,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1);
#line 21628 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21628 "qb64pe.bas"
if(!qbevent)break;evnt(21628);}while(r);
#line 21629 "qb64pe.bas"
}else{
#line 21630 "qb64pe.bas"
do{
#line 21630 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_S2= 0 ;
#line 21630 "qb64pe.bas"
if(!qbevent)break;evnt(21630);}while(r);
#line 21631 "qb64pe.bas"
}
#line 21633 "qb64pe.bas"
S_24846:;
#line 21633 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_S2)||is_error_pending()){
#line 21633 "qb64pe.bas"
if(qbevent){evnt(21633);if(r)goto S_24846;}
#line 21634 "qb64pe.bas"
do{
#line 21634 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_S3=func_instr(*_FUNC_EVALUATEFUNC_LONG_S2+1,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1);
#line 21634 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21634 "qb64pe.bas"
if(!qbevent)break;evnt(21634);}while(r);
#line 21635 "qb64pe.bas"
}else{
#line 21636 "qb64pe.bas"
do{
#line 21636 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_S3= 0 ;
#line 21636 "qb64pe.bas"
if(!qbevent)break;evnt(21636);}while(r);
#line 21637 "qb64pe.bas"
}
#line 21639 "qb64pe.bas"
S_24851:;
#line 21639 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_S3== 0 ))||is_error_pending()){
#line 21639 "qb64pe.bas"
if(qbevent){evnt(21639);if(r)goto S_24851;}
#line 21639 "qb64pe.bas"
do{
#line 21639 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
#line 21639 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21639 "qb64pe.bas"
if(!qbevent)break;evnt(21639);}while(r);
#line 21639 "qb64pe.bas"
do{
#line 21639 "qb64pe.bas"
goto exit_subfunc;
#line 21639 "qb64pe.bas"
if(!qbevent)break;evnt(21639);}while(r);
#line 21639 "qb64pe.bas"
}
#line 21641 "qb64pe.bas"
do{
#line 21641 "qb64pe.bas"
*_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)));
#line 21641 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21641 "qb64pe.bas"
if(!qbevent)break;evnt(21641);}while(r);
#line 21642 "qb64pe.bas"
do{
#line 21642 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_O,func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_S3+1,NULL,0));
#line 21642 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21642 "qb64pe.bas"
if(!qbevent)break;evnt(21642);}while(r);
#line 21644 "qb64pe.bas"
S_24857:;
#line 21644 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 21644 "qb64pe.bas"
if(qbevent){evnt(21644);if(r)goto S_24857;}
#line 21645 "qb64pe.bas"
S_24858:;
#line 21645 "qb64pe.bas"
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()){
#line 21645 "qb64pe.bas"
if(qbevent){evnt(21645);if(r)goto S_24858;}
#line 21645 "qb64pe.bas"
do{
#line 21645 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
#line 21645 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21645 "qb64pe.bas"
if(!qbevent)break;evnt(21645);}while(r);
#line 21645 "qb64pe.bas"
do{
#line 21645 "qb64pe.bas"
goto exit_subfunc;
#line 21645 "qb64pe.bas"
if(!qbevent)break;evnt(21645);}while(r);
#line 21645 "qb64pe.bas"
}
#line 21647 "qb64pe.bas"
S_24862:;
#line 21647 "qb64pe.bas"
}else{
#line 21647 "qb64pe.bas"
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))))){
#line 21647 "qb64pe.bas"
if(qbevent){evnt(21647);if(r)goto S_24862;}
#line 21649 "qb64pe.bas"
}else{
#line 21650 "qb64pe.bas"
do{
#line 21650 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20));
#line 21650 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21650 "qb64pe.bas"
if(!qbevent)break;evnt(21650);}while(r);
#line 21650 "qb64pe.bas"
do{
#line 21650 "qb64pe.bas"
goto exit_subfunc;
#line 21650 "qb64pe.bas"
if(!qbevent)break;evnt(21650);}while(r);
#line 21651 "qb64pe.bas"
}
#line 21651 "qb64pe.bas"
}
#line 21653 "qb64pe.bas"
}
#line 21655 "qb64pe.bas"
do{
#line 21655 "qb64pe.bas"
*_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 )));
#line 21655 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21655 "qb64pe.bas"
if(!qbevent)break;evnt(21655);}while(r);
#line 21656 "qb64pe.bas"
do{
#line 21656 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATEFUNC_LONG_IDNUM);
#line 21656 "qb64pe.bas"
if(!qbevent)break;evnt(21656);}while(r);
#line 21657 "qb64pe.bas"
S_24870:;
#line 21657 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21657 "qb64pe.bas"
if(qbevent){evnt(21657);if(r)goto S_24870;}
#line 21657 "qb64pe.bas"
do{
#line 21657 "qb64pe.bas"
goto exit_subfunc;
#line 21657 "qb64pe.bas"
if(!qbevent)break;evnt(21657);}while(r);
#line 21657 "qb64pe.bas"
}
#line 21659 "qb64pe.bas"
S_24873:;
#line 21659 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 21659 "qb64pe.bas"
if(qbevent){evnt(21659);if(r)goto S_24873;}
#line 21660 "qb64pe.bas"
do{
#line 21660 "qb64pe.bas"
*_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));
#line 21660 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21660 "qb64pe.bas"
if(!qbevent)break;evnt(21660);}while(r);
#line 21661 "qb64pe.bas"
do{
#line 21661 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SOURCE_FIXED_SIZE=*(int32*)(((char*)__UDT_ID)+((0+544)));
#line 21661 "qb64pe.bas"
if(!qbevent)break;evnt(21661);}while(r);
#line 21662 "qb64pe.bas"
S_24876:;
#line 21662 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 21662 "qb64pe.bas"
if(qbevent){evnt(21662);if(r)goto S_24876;}
#line 21662 "qb64pe.bas"
do{
#line 21662 "qb64pe.bas"
*_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])];
#line 21662 "qb64pe.bas"
if(!qbevent)break;evnt(21662);}while(r);
#line 21662 "qb64pe.bas"
}
#line 21663 "qb64pe.bas"
S_24879:;
#line 21663 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCE_FIXED_SIZE!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE))||is_error_pending()){
#line 21663 "qb64pe.bas"
if(qbevent){evnt(21663);if(r)goto S_24879;}
#line 21663 "qb64pe.bas"
do{
#line 21663 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect array type passed to function",39));
#line 21663 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21663 "qb64pe.bas"
if(!qbevent)break;evnt(21663);}while(r);
#line 21663 "qb64pe.bas"
do{
#line 21663 "qb64pe.bas"
goto exit_subfunc;
#line 21663 "qb64pe.bas"
if(!qbevent)break;evnt(21663);}while(r);
#line 21663 "qb64pe.bas"
}
#line 21664 "qb64pe.bas"
}
#line 21666 "qb64pe.bas"
S_24884:;
#line 21666 "qb64pe.bas"
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()){
#line 21666 "qb64pe.bas"
if(qbevent){evnt(21666);if(r)goto S_24884;}
#line 21667 "qb64pe.bas"
S_24885:;
#line 21667 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
#line 21667 "qb64pe.bas"
if(qbevent){evnt(21667);if(r)goto S_24885;}
#line 21668 "qb64pe.bas"
do{
#line 21668 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
#line 21668 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
#line 21668 "qb64pe.bas"
if(!qbevent)break;evnt(21668);}while(r);
#line 21670 "qb64pe.bas"
do{
#line 21670 "qb64pe.bas"
*__INTEGER_RECOMPILE= 1 ;
#line 21670 "qb64pe.bas"
if(!qbevent)break;evnt(21670);}while(r);
#line 21671 "qb64pe.bas"
}
#line 21672 "qb64pe.bas"
}
#line 21676 "qb64pe.bas"
do{
#line 21676 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SOURCE_DIMS= 0 ;
#line 21676 "qb64pe.bas"
if(!qbevent)break;evnt(21676);}while(r);
#line 21677 "qb64pe.bas"
S_24891:;
#line 21677 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 21677 "qb64pe.bas"
if(qbevent){evnt(21677);if(r)goto S_24891;}
#line 21678 "qb64pe.bas"
do{
#line 21678 "qb64pe.bas"
*_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])];
#line 21678 "qb64pe.bas"
if(!qbevent)break;evnt(21678);}while(r);
#line 21679 "qb64pe.bas"
S_24893:;
#line 21679 "qb64pe.bas"
}else{
#line 21679 "qb64pe.bas"
if (-(*(int32*)(((char*)__UDT_ID)+((0+2951)))== 0 )){
#line 21679 "qb64pe.bas"
if(qbevent){evnt(21679);if(r)goto S_24893;}
#line 21680 "qb64pe.bas"
do{
#line 21680 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SOURCE_DIMS=*(int16*)(((char*)__UDT_ID)+((0+516)));
#line 21680 "qb64pe.bas"
if(!qbevent)break;evnt(21680);}while(r);
#line 21681 "qb64pe.bas"
}
#line 21681 "qb64pe.bas"
}
#line 21683 "qb64pe.bas"
S_24896:;
#line 21683 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCE_DIMS> 0 ))||is_error_pending()){
#line 21683 "qb64pe.bas"
if(qbevent){evnt(21683);if(r)goto S_24896;}
#line 21684 "qb64pe.bas"
S_24897:;
#line 21684 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_NELEREQ== 0 ))||is_error_pending()){
#line 21684 "qb64pe.bas"
if(qbevent){evnt(21684);if(r)goto S_24897;}
#line 21685 "qb64pe.bas"
do{
#line 21685 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NELEREQ=*_FUNC_EVALUATEFUNC_LONG_SOURCE_DIMS;
#line 21685 "qb64pe.bas"
if(!qbevent)break;evnt(21685);}while(r);
#line 21686 "qb64pe.bas"
do{
#line 21686 "qb64pe.bas"
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);
#line 21686 "qb64pe.bas"
if(!qbevent)break;evnt(21686);}while(r);
#line 21687 "qb64pe.bas"
do{
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+0))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+0))),256);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+256))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+256))),256);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+512))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+512))),4);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+516))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+516))),2);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+518))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+518))),2);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+520))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+520))),2);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+522))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+522))),2);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+524))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+524))),8);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+532))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+532))),8);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+540))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+540))),4);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+544))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+544))),4);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+548))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+548))),2);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+550))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+550))),2);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+552))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+552))),2);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+554))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+554))),256);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+810))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+810))),2);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+812))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+812))),1);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+813))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+813))),2);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+815))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+815))),2);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+817))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+817))),400);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1217))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+1217))),400);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1617))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+1617))),256);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1873))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+1873))),256);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2129))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2129))),256);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2385))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2385))),4);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2389))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2389))),256);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2645))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2645))),4);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2649))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2649))),2);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2651))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2651))),100);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2751))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2751))),100);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2851))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2851))),100);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2951))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2951))),4);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2955))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2955))),2);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2957))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2957))),2);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2959))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2959))),4);
#line 21687 "qb64pe.bas"
memcpy((((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2963))),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2963))),2);
#line 21687 "qb64pe.bas"
qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2965))),*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+0))+((0+2965))));
#line 21687 "qb64pe.bas"
if(!qbevent)break;evnt(21687);}while(r);
#line 21688 "qb64pe.bas"
S_24901:;
#line 21688 "qb64pe.bas"
}else{
#line 21688 "qb64pe.bas"
if (-(*_FUNC_EVALUATEFUNC_LONG_SOURCE_DIMS!=*_FUNC_EVALUATEFUNC_LONG_NELEREQ)){
#line 21688 "qb64pe.bas"
if(qbevent){evnt(21688);if(r)goto S_24901;}
#line 21689 "qb64pe.bas"
do{
#line 21689 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Passing arrays with a differing number of elements to a SUB/FUNCTION is not supported",85));
#line 21689 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21689 "qb64pe.bas"
if(!qbevent)break;evnt(21689);}while(r);
#line 21689 "qb64pe.bas"
do{
#line 21689 "qb64pe.bas"
goto exit_subfunc;
#line 21689 "qb64pe.bas"
if(!qbevent)break;evnt(21689);}while(r);
#line 21690 "qb64pe.bas"
}
#line 21690 "qb64pe.bas"
}
#line 21691 "qb64pe.bas"
}
#line 21693 "qb64pe.bas"
S_24906:;
#line 21693 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 21693 "qb64pe.bas"
if(qbevent){evnt(21693);if(r)goto S_24906;}
#line 21694 "qb64pe.bas"
do{
#line 21694 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMBER_ARG,qbs_new_txt_len("",0));
#line 21694 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21694 "qb64pe.bas"
if(!qbevent)break;evnt(21694);}while(r);
#line 21694 "qb64pe.bas"
do{
#line 21694 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMBER_PREP,qbs_new_txt_len("",0));
#line 21694 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21694 "qb64pe.bas"
if(!qbevent)break;evnt(21694);}while(r);
#line 21694 "qb64pe.bas"
do{
#line 21694 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_MEMBER_DIMS= 0 ;
#line 21694 "qb64pe.bas"
if(!qbevent)break;evnt(21694);}while(r);
#line 21695 "qb64pe.bas"
do{
#line 21695 "qb64pe.bas"
SUB_BUILDUDTMEMBERARG(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_MEMBER_ARG,_FUNC_EVALUATEFUNC_STRING_MEMBER_PREP,_FUNC_EVALUATEFUNC_LONG_MEMBER_DIMS);
#line 21695 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21695 "qb64pe.bas"
if(!qbevent)break;evnt(21695);}while(r);
#line 21696 "qb64pe.bas"
S_24911:;
#line 21696 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21696 "qb64pe.bas"
if(qbevent){evnt(21696);if(r)goto S_24911;}
#line 21696 "qb64pe.bas"
do{
#line 21696 "qb64pe.bas"
goto exit_subfunc;
#line 21696 "qb64pe.bas"
if(!qbevent)break;evnt(21696);}while(r);
#line 21696 "qb64pe.bas"
}
#line 21697 "qb64pe.bas"
do{
#line 21697 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_MEMBER_ARG);
#line 21697 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21697 "qb64pe.bas"
if(!qbevent)break;evnt(21697);}while(r);
#line 21698 "qb64pe.bas"
do{
#line 21698 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_FUNCARGPREP,qbs_add(_FUNC_EVALUATEFUNC_STRING_FUNCARGPREP,_FUNC_EVALUATEFUNC_STRING_MEMBER_PREP));
#line 21698 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21698 "qb64pe.bas"
if(!qbevent)break;evnt(21698);}while(r);
#line 21699 "qb64pe.bas"
}else{
#line 21700 "qb64pe.bas"
do{
#line 21700 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2746= 1 )));
#line 21700 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21700 "qb64pe.bas"
if(!qbevent)break;evnt(21700);}while(r);
#line 21701 "qb64pe.bas"
S_24918:;
#line 21701 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21701 "qb64pe.bas"
if(qbevent){evnt(21701);if(r)goto S_24918;}
#line 21701 "qb64pe.bas"
do{
#line 21701 "qb64pe.bas"
goto exit_subfunc;
#line 21701 "qb64pe.bas"
if(!qbevent)break;evnt(21701);}while(r);
#line 21701 "qb64pe.bas"
}
#line 21702 "qb64pe.bas"
}
#line 21703 "qb64pe.bas"
do{
#line 21703 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 21703 "qb64pe.bas"
if(!qbevent)break;evnt(21703);}while(r);
#line 21704 "qb64pe.bas"
}
#line 21721 "qb64pe.bas"
S_24924:;
#line 21721 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 21721 "qb64pe.bas"
if(qbevent){evnt(21721);if(r)goto S_24924;}
#line 21722 "qb64pe.bas"
S_24925:;
#line 21722 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21722 "qb64pe.bas"
if(qbevent){evnt(21722);if(r)goto S_24925;}
#line 21723 "qb64pe.bas"
do{
#line 21723 "qb64pe.bas"
*_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 )));
#line 21723 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21723 "qb64pe.bas"
if(!qbevent)break;evnt(21723);}while(r);
#line 21725 "qb64pe.bas"
do{
#line 21725 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP;
#line 21725 "qb64pe.bas"
if(!qbevent)break;evnt(21725);}while(r);
#line 21725 "qb64pe.bas"
do{
#line 21725 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
#line 21725 "qb64pe.bas"
if(!qbevent)break;evnt(21725);}while(r);
#line 21728 "qb64pe.bas"
do{
#line 21728 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ARR= 0 ;
#line 21728 "qb64pe.bas"
if(!qbevent)break;evnt(21728);}while(r);
#line 21728 "qb64pe.bas"
S_24930:;
#line 21728 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISARRAY))||is_error_pending()){
#line 21728 "qb64pe.bas"
if(qbevent){evnt(21728);if(r)goto S_24930;}
#line 21728 "qb64pe.bas"
do{
#line 21728 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ARR= 1 ;
#line 21728 "qb64pe.bas"
if(!qbevent)break;evnt(21728);}while(r);
#line 21728 "qb64pe.bas"
}
#line 21729 "qb64pe.bas"
do{
#line 21729 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 0 ;
#line 21729 "qb64pe.bas"
if(!qbevent)break;evnt(21729);}while(r);
#line 21729 "qb64pe.bas"
S_24934:;
#line 21729 "qb64pe.bas"
if (((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||is_error_pending()){
#line 21729 "qb64pe.bas"
if(qbevent){evnt(21729);if(r)goto S_24934;}
#line 21729 "qb64pe.bas"
do{
#line 21729 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 1 ;
#line 21729 "qb64pe.bas"
if(!qbevent)break;evnt(21729);}while(r);
#line 21729 "qb64pe.bas"
do{
#line 21729 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2-*__LONG_ISUDT;
#line 21729 "qb64pe.bas"
if(!qbevent)break;evnt(21729);}while(r);
#line 21729 "qb64pe.bas"
}
#line 21732 "qb64pe.bas"
do{
#line 21732 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
#line 21732 "qb64pe.bas"
if(!qbevent)break;evnt(21732);}while(r);
#line 21733 "qb64pe.bas"
do{
#line 21733 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 4095ll +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING);
#line 21733 "qb64pe.bas"
if(!qbevent)break;evnt(21733);}while(r);
#line 21736 "qb64pe.bas"
S_24940:;
#line 21736 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2==*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||is_error_pending()){
#line 21736 "qb64pe.bas"
if(qbevent){evnt(21736);if(r)goto S_24940;}
#line 21738 "qb64pe.bas"
S_24941:;
#line 21738 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
#line 21738 "qb64pe.bas"
if(qbevent){evnt(21738);if(r)goto S_24941;}
#line 21742 "qb64pe.bas"
do{
#line 21742 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(qbs_val<long double>(_FUNC_EVALUATEFUNC_STRING_E));
#line 21742 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21742 "qb64pe.bas"
if(!qbevent)break;evnt(21742);}while(r);
#line 21743 "qb64pe.bas"
do{
#line 21743 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID);
#line 21743 "qb64pe.bas"
if(!qbevent)break;evnt(21743);}while(r);
#line 21744 "qb64pe.bas"
S_24944:;
#line 21744 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21744 "qb64pe.bas"
if(qbevent){evnt(21744);if(r)goto S_24944;}
#line 21744 "qb64pe.bas"
do{
#line 21744 "qb64pe.bas"
goto exit_subfunc;
#line 21744 "qb64pe.bas"
if(!qbevent)break;evnt(21744);}while(r);
#line 21744 "qb64pe.bas"
}
#line 21745 "qb64pe.bas"
do{
#line 21745 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_UDTREFI=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0);
#line 21745 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21745 "qb64pe.bas"
if(!qbevent)break;evnt(21745);}while(r);
#line 21746 "qb64pe.bas"
do{
#line 21746 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_UDTREFI2=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1);
#line 21746 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21746 "qb64pe.bas"
if(!qbevent)break;evnt(21746);}while(r);
#line 21747 "qb64pe.bas"
do{
#line 21747 "qb64pe.bas"
*_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)));
#line 21747 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21747 "qb64pe.bas"
if(!qbevent)break;evnt(21747);}while(r);
#line 21748 "qb64pe.bas"
do{
#line 21748 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_UDTREFI3=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1);
#line 21748 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21748 "qb64pe.bas"
if(!qbevent)break;evnt(21748);}while(r);
#line 21749 "qb64pe.bas"
do{
#line 21749 "qb64pe.bas"
*_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)));
#line 21749 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21749 "qb64pe.bas"
if(!qbevent)break;evnt(21749);}while(r);
#line 21750 "qb64pe.bas"
do{
#line 21750 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-*_FUNC_EVALUATEFUNC_LONG_UDTREFI3));
#line 21750 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21750 "qb64pe.bas"
if(!qbevent)break;evnt(21750);}while(r);
#line 21753 "qb64pe.bas"
S_24953:;
#line 21753 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||is_error_pending()){
#line 21753 "qb64pe.bas"
if(qbevent){evnt(21753);if(r)goto S_24953;}
#line 21754 "qb64pe.bas"
do{
#line 21754 "qb64pe.bas"
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)));
#line 21754 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21754 "qb64pe.bas"
if(!qbevent)break;evnt(21754);}while(r);
#line 21755 "qb64pe.bas"
}else{
#line 21756 "qb64pe.bas"
do{
#line 21756 "qb64pe.bas"
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))));
#line 21756 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21756 "qb64pe.bas"
if(!qbevent)break;evnt(21756);}while(r);
#line 21757 "qb64pe.bas"
}
#line 21759 "qb64pe.bas"
do{
#line 21759 "qb64pe.bas"
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)));
#line 21759 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21759 "qb64pe.bas"
if(!qbevent)break;evnt(21759);}while(r);
#line 21762 "qb64pe.bas"
S_24959:;
#line 21762 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT)||is_error_pending()){
#line 21762 "qb64pe.bas"
if(qbevent){evnt(21762);if(r)goto S_24959;}
#line 21762 "qb64pe.bas"
do{
#line 21762 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2748=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2+(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),_FUNC_EVALUATEFUNC_STRING_E));
#line 21762 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21762 "qb64pe.bas"
if(!qbevent)break;evnt(21762);}while(r);
#line 21762 "qb64pe.bas"
}
#line 21763 "qb64pe.bas"
S_24962:;
#line 21763 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21763 "qb64pe.bas"
if(qbevent){evnt(21763);if(r)goto S_24962;}
#line 21763 "qb64pe.bas"
do{
#line 21763 "qb64pe.bas"
goto exit_subfunc;
#line 21763 "qb64pe.bas"
if(!qbevent)break;evnt(21763);}while(r);
#line 21763 "qb64pe.bas"
}
#line 21765 "qb64pe.bas"
}else{
#line 21767 "qb64pe.bas"
S_24966:;
#line 21767 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||is_error_pending()){
#line 21767 "qb64pe.bas"
if(qbevent){evnt(21767);if(r)goto S_24966;}
#line 21768 "qb64pe.bas"
S_24967:;
#line 21768 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 21768 "qb64pe.bas"
if(qbevent){evnt(21768);if(r)goto S_24967;}
#line 21768 "qb64pe.bas"
do{
#line 21768 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass _BIT array offsets",30));
#line 21768 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21768 "qb64pe.bas"
if(!qbevent)break;evnt(21768);}while(r);
#line 21768 "qb64pe.bas"
do{
#line 21768 "qb64pe.bas"
goto exit_subfunc;
#line 21768 "qb64pe.bas"
if(!qbevent)break;evnt(21768);}while(r);
#line 21768 "qb64pe.bas"
}
#line 21769 "qb64pe.bas"
do{
#line 21769 "qb64pe.bas"
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,&(pass2749= 0 ))),qbs_new_txt_len("))",2)));
#line 21769 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21769 "qb64pe.bas"
if(!qbevent)break;evnt(21769);}while(r);
#line 21770 "qb64pe.bas"
S_24972:;
#line 21770 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21770 "qb64pe.bas"
if(qbevent){evnt(21770);if(r)goto S_24972;}
#line 21770 "qb64pe.bas"
do{
#line 21770 "qb64pe.bas"
goto exit_subfunc;
#line 21770 "qb64pe.bas"
if(!qbevent)break;evnt(21770);}while(r);
#line 21770 "qb64pe.bas"
}
#line 21771 "qb64pe.bas"
}else{
#line 21772 "qb64pe.bas"
do{
#line 21772 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2750= 1 )));
#line 21772 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21772 "qb64pe.bas"
if(!qbevent)break;evnt(21772);}while(r);
#line 21773 "qb64pe.bas"
S_24977:;
#line 21773 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21773 "qb64pe.bas"
if(qbevent){evnt(21773);if(r)goto S_24977;}
#line 21773 "qb64pe.bas"
do{
#line 21773 "qb64pe.bas"
goto exit_subfunc;
#line 21773 "qb64pe.bas"
if(!qbevent)break;evnt(21773);}while(r);
#line 21773 "qb64pe.bas"
}
#line 21774 "qb64pe.bas"
}
#line 21777 "qb64pe.bas"
S_24981:;
#line 21777 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||is_error_pending()){
#line 21777 "qb64pe.bas"
if(qbevent){evnt(21777);if(r)goto S_24981;}
#line 21778 "qb64pe.bas"
do{
#line 21778 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2751=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2+(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),_FUNC_EVALUATEFUNC_STRING_E));
#line 21778 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21778 "qb64pe.bas"
if(!qbevent)break;evnt(21778);}while(r);
#line 21779 "qb64pe.bas"
S_24983:;
#line 21779 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21779 "qb64pe.bas"
if(qbevent){evnt(21779);if(r)goto S_24983;}
#line 21779 "qb64pe.bas"
do{
#line 21779 "qb64pe.bas"
goto exit_subfunc;
#line 21779 "qb64pe.bas"
if(!qbevent)break;evnt(21779);}while(r);
#line 21779 "qb64pe.bas"
}
#line 21780 "qb64pe.bas"
}
#line 21782 "qb64pe.bas"
}
#line 21785 "qb64pe.bas"
S_24988:;
#line 21785 "qb64pe.bas"
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()){
#line 21785 "qb64pe.bas"
if(qbevent){evnt(21785);if(r)goto S_24988;}
#line 21786 "qb64pe.bas"
S_24989:;
#line 21786 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
#line 21786 "qb64pe.bas"
if(qbevent){evnt(21786);if(r)goto S_24989;}
#line 21787 "qb64pe.bas"
do{
#line 21787 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
#line 21787 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
#line 21787 "qb64pe.bas"
if(!qbevent)break;evnt(21787);}while(r);
#line 21788 "qb64pe.bas"
do{
#line 21788 "qb64pe.bas"
*__INTEGER_RECOMPILE= 1 ;
#line 21788 "qb64pe.bas"
if(!qbevent)break;evnt(21788);}while(r);
#line 21789 "qb64pe.bas"
}
#line 21790 "qb64pe.bas"
}
#line 21792 "qb64pe.bas"
do{
#line 21792 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 21792 "qb64pe.bas"
if(!qbevent)break;evnt(21792);}while(r);
#line 21793 "qb64pe.bas"
}
#line 21805 "qb64pe.bas"
}
#line 21807 "qb64pe.bas"
}else{
#line 21810 "qb64pe.bas"
S_24998:;
#line 21810 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21810 "qb64pe.bas"
if(qbevent){evnt(21810);if(r)goto S_24998;}
#line 21811 "qb64pe.bas"
do{
#line 21811 "qb64pe.bas"
*_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 )));
#line 21811 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21811 "qb64pe.bas"
if(!qbevent)break;evnt(21811);}while(r);
#line 21812 "qb64pe.bas"
S_25000:;
#line 21812 "qb64pe.bas"
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()){
#line 21812 "qb64pe.bas"
if(qbevent){evnt(21812);if(r)goto S_25000;}
#line 21813 "qb64pe.bas"
S_25001:;
#line 21813 "qb64pe.bas"
if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||is_error_pending()){
#line 21813 "qb64pe.bas"
if(qbevent){evnt(21813);if(r)goto S_25001;}
#line 21814 "qb64pe.bas"
do{
#line 21814 "qb64pe.bas"
tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]);
#line 21814 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ;
#line 21814 "qb64pe.bas"
if(!qbevent)break;evnt(21814);}while(r);
#line 21815 "qb64pe.bas"
do{
#line 21815 "qb64pe.bas"
*__INTEGER_RECOMPILE= 1 ;
#line 21815 "qb64pe.bas"
if(!qbevent)break;evnt(21815);}while(r);
#line 21816 "qb64pe.bas"
}
#line 21817 "qb64pe.bas"
}
#line 21818 "qb64pe.bas"
}
#line 21820 "qb64pe.bas"
}
#line 21822 "qb64pe.bas"
}
#line 21823 "qb64pe.bas"
}
#line 21838 "qb64pe.bas"
S_25010:;
#line 21838 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
#line 21838 "qb64pe.bas"
if(qbevent){evnt(21838);if(r)goto S_25010;}
#line 21839 "qb64pe.bas"
S_25011:;
#line 21839 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 21839 "qb64pe.bas"
if(qbevent){evnt(21839);if(r)goto S_25011;}
#line 21840 "qb64pe.bas"
do{
#line 21840 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG;
#line 21840 "qb64pe.bas"
if(!qbevent)break;evnt(21840);}while(r);
#line 21841 "qb64pe.bas"
S_25013:;
#line 21841 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
#line 21841 "qb64pe.bas"
if(qbevent){evnt(21841);if(r)goto S_25013;}
#line 21841 "qb64pe.bas"
do{
#line 21841 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ;
#line 21841 "qb64pe.bas"
if(!qbevent)break;evnt(21841);}while(r);
#line 21841 "qb64pe.bas"
}
#line 21842 "qb64pe.bas"
S_25016:;
#line 21842 "qb64pe.bas"
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()){
#line 21842 "qb64pe.bas"
if(qbevent){evnt(21842);if(r)goto S_25016;}
#line 21842 "qb64pe.bas"
do{
#line 21842 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("String required for function",28));
#line 21842 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21842 "qb64pe.bas"
if(!qbevent)break;evnt(21842);}while(r);
#line 21842 "qb64pe.bas"
do{
#line 21842 "qb64pe.bas"
goto exit_subfunc;
#line 21842 "qb64pe.bas"
if(!qbevent)break;evnt(21842);}while(r);
#line 21842 "qb64pe.bas"
}
#line 21843 "qb64pe.bas"
do{
#line 21843 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires a string",36)));
#line 21843 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21843 "qb64pe.bas"
if(!qbevent)break;evnt(21843);}while(r);
#line 21843 "qb64pe.bas"
do{
#line 21843 "qb64pe.bas"
goto exit_subfunc;
#line 21843 "qb64pe.bas"
if(!qbevent)break;evnt(21843);}while(r);
#line 21844 "qb64pe.bas"
}
#line 21845 "qb64pe.bas"
}
#line 21846 "qb64pe.bas"
S_25024:;
#line 21846 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||is_error_pending()){
#line 21846 "qb64pe.bas"
if(qbevent){evnt(21846);if(r)goto S_25024;}
#line 21847 "qb64pe.bas"
S_25025:;
#line 21847 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 21847 "qb64pe.bas"
if(qbevent){evnt(21847);if(r)goto S_25025;}
#line 21848 "qb64pe.bas"
do{
#line 21848 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG;
#line 21848 "qb64pe.bas"
if(!qbevent)break;evnt(21848);}while(r);
#line 21849 "qb64pe.bas"
S_25027:;
#line 21849 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
#line 21849 "qb64pe.bas"
if(qbevent){evnt(21849);if(r)goto S_25027;}
#line 21849 "qb64pe.bas"
do{
#line 21849 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ;
#line 21849 "qb64pe.bas"
if(!qbevent)break;evnt(21849);}while(r);
#line 21849 "qb64pe.bas"
}
#line 21850 "qb64pe.bas"
S_25030:;
#line 21850 "qb64pe.bas"
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()){
#line 21850 "qb64pe.bas"
if(qbevent){evnt(21850);if(r)goto S_25030;}
#line 21850 "qb64pe.bas"
do{
#line 21850 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28));
#line 21850 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21850 "qb64pe.bas"
if(!qbevent)break;evnt(21850);}while(r);
#line 21850 "qb64pe.bas"
do{
#line 21850 "qb64pe.bas"
goto exit_subfunc;
#line 21850 "qb64pe.bas"
if(!qbevent)break;evnt(21850);}while(r);
#line 21850 "qb64pe.bas"
}
#line 21851 "qb64pe.bas"
do{
#line 21851 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires a number",36)));
#line 21851 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21851 "qb64pe.bas"
if(!qbevent)break;evnt(21851);}while(r);
#line 21851 "qb64pe.bas"
do{
#line 21851 "qb64pe.bas"
goto exit_subfunc;
#line 21851 "qb64pe.bas"
if(!qbevent)break;evnt(21851);}while(r);
#line 21852 "qb64pe.bas"
}
#line 21853 "qb64pe.bas"
}
#line 21856 "qb64pe.bas"
S_25038:;
#line 21856 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 21856 "qb64pe.bas"
if(qbevent){evnt(21856);if(r)goto S_25038;}
#line 21857 "qb64pe.bas"
do{
#line 21857 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2752= 0 )));
#line 21857 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21857 "qb64pe.bas"
if(!qbevent)break;evnt(21857);}while(r);
#line 21858 "qb64pe.bas"
S_25040:;
#line 21858 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21858 "qb64pe.bas"
if(qbevent){evnt(21858);if(r)goto S_25040;}
#line 21858 "qb64pe.bas"
do{
#line 21858 "qb64pe.bas"
goto exit_subfunc;
#line 21858 "qb64pe.bas"
if(!qbevent)break;evnt(21858);}while(r);
#line 21858 "qb64pe.bas"
}
#line 21859 "qb64pe.bas"
}
#line 21861 "qb64pe.bas"
S_25044:;
#line 21861 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE== 0 ))||is_error_pending()){
#line 21861 "qb64pe.bas"
if(qbevent){evnt(21861);if(r)goto S_25044;}
#line 21862 "qb64pe.bas"
S_25045:;
#line 21862 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||is_error_pending()){
#line 21862 "qb64pe.bas"
if(qbevent){evnt(21862);if(r)goto S_25045;}
#line 21863 "qb64pe.bas"
do{
#line 21863 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG;
#line 21863 "qb64pe.bas"
if(!qbevent)break;evnt(21863);}while(r);
#line 21864 "qb64pe.bas"
S_25047:;
#line 21864 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||is_error_pending()){
#line 21864 "qb64pe.bas"
if(qbevent){evnt(21864);if(r)goto S_25047;}
#line 21864 "qb64pe.bas"
do{
#line 21864 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ;
#line 21864 "qb64pe.bas"
if(!qbevent)break;evnt(21864);}while(r);
#line 21864 "qb64pe.bas"
}
#line 21865 "qb64pe.bas"
do{
#line 21865 "qb64pe.bas"
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)));
#line 21865 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21865 "qb64pe.bas"
if(!qbevent)break;evnt(21865);}while(r);
#line 21866 "qb64pe.bas"
S_25051:;
#line 21866 "qb64pe.bas"
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()){
#line 21866 "qb64pe.bas"
if(qbevent){evnt(21866);if(r)goto S_25051;}
#line 21866 "qb64pe.bas"
do{
#line 21866 "qb64pe.bas"
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)));
#line 21866 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21866 "qb64pe.bas"
if(!qbevent)break;evnt(21866);}while(r);
#line 21866 "qb64pe.bas"
do{
#line 21866 "qb64pe.bas"
goto exit_subfunc;
#line 21866 "qb64pe.bas"
if(!qbevent)break;evnt(21866);}while(r);
#line 21866 "qb64pe.bas"
}
#line 21867 "qb64pe.bas"
do{
#line 21867 "qb64pe.bas"
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));
#line 21867 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21867 "qb64pe.bas"
if(!qbevent)break;evnt(21867);}while(r);
#line 21867 "qb64pe.bas"
do{
#line 21867 "qb64pe.bas"
goto exit_subfunc;
#line 21867 "qb64pe.bas"
if(!qbevent)break;evnt(21867);}while(r);
#line 21868 "qb64pe.bas"
}
#line 21869 "qb64pe.bas"
}else{
#line 21870 "qb64pe.bas"
S_25059:;
#line 21870 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||is_error_pending()){
#line 21870 "qb64pe.bas"
if(qbevent){evnt(21870);if(r)goto S_25059;}
#line 21870 "qb64pe.bas"
do{
#line 21870 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28));
#line 21870 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21870 "qb64pe.bas"
if(!qbevent)break;evnt(21870);}while(r);
#line 21870 "qb64pe.bas"
do{
#line 21870 "qb64pe.bas"
goto exit_subfunc;
#line 21870 "qb64pe.bas"
if(!qbevent)break;evnt(21870);}while(r);
#line 21870 "qb64pe.bas"
}
#line 21871 "qb64pe.bas"
}
#line 21874 "qb64pe.bas"
S_25064:;
#line 21874 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 21874 "qb64pe.bas"
if(qbevent){evnt(21874);if(r)goto S_25064;}
#line 21875 "qb64pe.bas"
S_25065:;
#line 21875 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
#line 21875 "qb64pe.bas"
if(qbevent){evnt(21875);if(r)goto S_25065;}
#line 21877 "qb64pe.bas"
do{
#line 21877 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll ;
#line 21877 "qb64pe.bas"
if(!qbevent)break;evnt(21877);}while(r);
#line 21878 "qb64pe.bas"
S_25067:;
#line 21878 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||is_error_pending()){
#line 21878 "qb64pe.bas"
if(qbevent){evnt(21878);if(r)goto S_25067;}
#line 21878 "qb64pe.bas"
do{
#line 21878 "qb64pe.bas"
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)));
#line 21878 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21878 "qb64pe.bas"
if(!qbevent)break;evnt(21878);}while(r);
#line 21878 "qb64pe.bas"
}
#line 21879 "qb64pe.bas"
S_25070:;
#line 21879 "qb64pe.bas"
if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS< 32 )))||is_error_pending()){
#line 21879 "qb64pe.bas"
if(qbevent){evnt(21879);if(r)goto S_25070;}
#line 21879 "qb64pe.bas"
do{
#line 21879 "qb64pe.bas"
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)));
#line 21879 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21879 "qb64pe.bas"
if(!qbevent)break;evnt(21879);}while(r);
#line 21879 "qb64pe.bas"
}
#line 21880 "qb64pe.bas"
S_25073:;
#line 21880 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS>= 32 ))||is_error_pending()){
#line 21880 "qb64pe.bas"
if(qbevent){evnt(21880);if(r)goto S_25073;}
#line 21880 "qb64pe.bas"
do{
#line 21880 "qb64pe.bas"
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)));
#line 21880 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21880 "qb64pe.bas"
if(!qbevent)break;evnt(21880);}while(r);
#line 21880 "qb64pe.bas"
}
#line 21881 "qb64pe.bas"
}
#line 21882 "qb64pe.bas"
}
#line 21884 "qb64pe.bas"
S_25078:;
#line 21884 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE)||is_error_pending()){
#line 21884 "qb64pe.bas"
if(qbevent){evnt(21884);if(r)goto S_25078;}
#line 21885 "qb64pe.bas"
S_25079:;
#line 21885 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 21885 "qb64pe.bas"
if(qbevent){evnt(21885);if(r)goto S_25079;}
#line 21887 "qb64pe.bas"
do{
#line 21887 "qb64pe.bas"
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)));
#line 21887 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21887 "qb64pe.bas"
if(!qbevent)break;evnt(21887);}while(r);
#line 21888 "qb64pe.bas"
}else{
#line 21889 "qb64pe.bas"
S_25082:;
#line 21889 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 21889 "qb64pe.bas"
if(qbevent){evnt(21889);if(r)goto S_25082;}
#line 21890 "qb64pe.bas"
S_25083:;
#line 21890 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 32 ))||is_error_pending()){
#line 21890 "qb64pe.bas"
if(qbevent){evnt(21890);if(r)goto S_25083;}
#line 21890 "qb64pe.bas"
do{
#line 21890 "qb64pe.bas"
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)));
#line 21890 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21890 "qb64pe.bas"
if(!qbevent)break;evnt(21890);}while(r);
#line 21890 "qb64pe.bas"
}
#line 21891 "qb64pe.bas"
S_25086:;
#line 21891 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 64 ))||is_error_pending()){
#line 21891 "qb64pe.bas"
if(qbevent){evnt(21891);if(r)goto S_25086;}
#line 21891 "qb64pe.bas"
do{
#line 21891 "qb64pe.bas"
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)));
#line 21891 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21891 "qb64pe.bas"
if(!qbevent)break;evnt(21891);}while(r);
#line 21891 "qb64pe.bas"
}
#line 21892 "qb64pe.bas"
S_25089:;
#line 21892 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 256 ))||is_error_pending()){
#line 21892 "qb64pe.bas"
if(qbevent){evnt(21892);if(r)goto S_25089;}
#line 21892 "qb64pe.bas"
do{
#line 21892 "qb64pe.bas"
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)));
#line 21892 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21892 "qb64pe.bas"
if(!qbevent)break;evnt(21892);}while(r);
#line 21892 "qb64pe.bas"
}
#line 21893 "qb64pe.bas"
}else{
#line 21894 "qb64pe.bas"
S_25093:;
#line 21894 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED))||is_error_pending()){
#line 21894 "qb64pe.bas"
if(qbevent){evnt(21894);if(r)goto S_25093;}
#line 21895 "qb64pe.bas"
S_25094:;
#line 21895 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 8 ))||is_error_pending()){
#line 21895 "qb64pe.bas"
if(qbevent){evnt(21895);if(r)goto S_25094;}
#line 21895 "qb64pe.bas"
do{
#line 21895 "qb64pe.bas"
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)));
#line 21895 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21895 "qb64pe.bas"
if(!qbevent)break;evnt(21895);}while(r);
#line 21895 "qb64pe.bas"
}
#line 21896 "qb64pe.bas"
S_25097:;
#line 21896 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 16 ))||is_error_pending()){
#line 21896 "qb64pe.bas"
if(qbevent){evnt(21896);if(r)goto S_25097;}
#line 21896 "qb64pe.bas"
do{
#line 21896 "qb64pe.bas"
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)));
#line 21896 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21896 "qb64pe.bas"
if(!qbevent)break;evnt(21896);}while(r);
#line 21896 "qb64pe.bas"
}
#line 21897 "qb64pe.bas"
S_25100:;
#line 21897 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 32 ))||is_error_pending()){
#line 21897 "qb64pe.bas"
if(qbevent){evnt(21897);if(r)goto S_25100;}
#line 21897 "qb64pe.bas"
do{
#line 21897 "qb64pe.bas"
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)));
#line 21897 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21897 "qb64pe.bas"
if(!qbevent)break;evnt(21897);}while(r);
#line 21897 "qb64pe.bas"
}
#line 21898 "qb64pe.bas"
S_25103:;
#line 21898 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 64 ))||is_error_pending()){
#line 21898 "qb64pe.bas"
if(qbevent){evnt(21898);if(r)goto S_25103;}
#line 21898 "qb64pe.bas"
do{
#line 21898 "qb64pe.bas"
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)));
#line 21898 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21898 "qb64pe.bas"
if(!qbevent)break;evnt(21898);}while(r);
#line 21898 "qb64pe.bas"
}
#line 21899 "qb64pe.bas"
}else{
#line 21900 "qb64pe.bas"
S_25107:;
#line 21900 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 8 ))||is_error_pending()){
#line 21900 "qb64pe.bas"
if(qbevent){evnt(21900);if(r)goto S_25107;}
#line 21900 "qb64pe.bas"
do{
#line 21900 "qb64pe.bas"
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)));
#line 21900 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21900 "qb64pe.bas"
if(!qbevent)break;evnt(21900);}while(r);
#line 21900 "qb64pe.bas"
}
#line 21901 "qb64pe.bas"
S_25110:;
#line 21901 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 16 ))||is_error_pending()){
#line 21901 "qb64pe.bas"
if(qbevent){evnt(21901);if(r)goto S_25110;}
#line 21901 "qb64pe.bas"
do{
#line 21901 "qb64pe.bas"
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)));
#line 21901 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21901 "qb64pe.bas"
if(!qbevent)break;evnt(21901);}while(r);
#line 21901 "qb64pe.bas"
}
#line 21902 "qb64pe.bas"
S_25113:;
#line 21902 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 32 ))||is_error_pending()){
#line 21902 "qb64pe.bas"
if(qbevent){evnt(21902);if(r)goto S_25113;}
#line 21902 "qb64pe.bas"
do{
#line 21902 "qb64pe.bas"
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)));
#line 21902 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21902 "qb64pe.bas"
if(!qbevent)break;evnt(21902);}while(r);
#line 21902 "qb64pe.bas"
}
#line 21903 "qb64pe.bas"
S_25116:;
#line 21903 "qb64pe.bas"
if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )== 64 ))||is_error_pending()){
#line 21903 "qb64pe.bas"
if(qbevent){evnt(21903);if(r)goto S_25116;}
#line 21903 "qb64pe.bas"
do{
#line 21903 "qb64pe.bas"
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)));
#line 21903 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21903 "qb64pe.bas"
if(!qbevent)break;evnt(21903);}while(r);
#line 21903 "qb64pe.bas"
}
#line 21904 "qb64pe.bas"
}
#line 21905 "qb64pe.bas"
}
#line 21906 "qb64pe.bas"
}
#line 21907 "qb64pe.bas"
}
#line 21910 "qb64pe.bas"
S_25123:;
#line 21910 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
#line 21910 "qb64pe.bas"
if(qbevent){evnt(21910);if(r)goto S_25123;}
#line 21911 "qb64pe.bas"
S_25124:;
#line 21911 "qb64pe.bas"
if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING))||is_error_pending()){
#line 21911 "qb64pe.bas"
if(qbevent){evnt(21911);if(r)goto S_25124;}
#line 21911 "qb64pe.bas"
do{
#line 21911 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 21911 "qb64pe.bas"
if(!qbevent)break;evnt(21911);}while(r);
#line 21911 "qb64pe.bas"
}
#line 21913 "qb64pe.bas"
do{
#line 21913 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_T,FUNC_TYP2CTYP(_FUNC_EVALUATEFUNC_LONG_TARGETTYP,qbs_new_txt_len("",0)));
#line 21913 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21913 "qb64pe.bas"
if(!qbevent)break;evnt(21913);}while(r);
#line 21914 "qb64pe.bas"
S_25128:;
#line 21914 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 21914 "qb64pe.bas"
if(qbevent){evnt(21914);if(r)goto S_25128;}
#line 21914 "qb64pe.bas"
do{
#line 21914 "qb64pe.bas"
goto exit_subfunc;
#line 21914 "qb64pe.bas"
if(!qbevent)break;evnt(21914);}while(r);
#line 21914 "qb64pe.bas"
}
#line 21915 "qb64pe.bas"
do{
#line 21915 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_V,qbs_add(qbs_new_txt_len("pass",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
#line 21915 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21915 "qb64pe.bas"
if(!qbevent)break;evnt(21915);}while(r);
#line 21917 "qb64pe.bas"
S_25132:;
#line 21917 "qb64pe.bas"
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()){
#line 21917 "qb64pe.bas"
if(qbevent){evnt(21917);if(r)goto S_25132;}
#line 21918 "qb64pe.bas"
do{
#line 21918 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_BYTESREQ=qb_safe_idiv(((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 4095ll )+ 7 ), 8 );
#line 21918 "qb64pe.bas"
if(!qbevent)break;evnt(21918);}while(r);
#line 21919 "qb64pe.bas"
do{
#line 21919 "qb64pe.bas"
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)));
#line 21919 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21919 "qb64pe.bas"
if(!qbevent)break;evnt(21919);}while(r);
#line 21920 "qb64pe.bas"
do{
#line 21920 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("==NULL){",8)));
#line 21920 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21920 "qb64pe.bas"
if(!qbevent)break;evnt(21920);}while(r);
#line 21921 "qb64pe.bas"
do{
#line 21921 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 21921 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21921 "qb64pe.bas"
if(!qbevent)break;evnt(21921);}while(r);
#line 21922 "qb64pe.bas"
do{
#line 21922 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 21922 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21922 "qb64pe.bas"
if(!qbevent)break;evnt(21922);}while(r);
#line 21923 "qb64pe.bas"
do{
#line 21923 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("if (cmem_sp<qbs_cmem_sp) error(257);",36));
#line 21923 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21923 "qb64pe.bas"
if(!qbevent)break;evnt(21923);}while(r);
#line 21924 "qb64pe.bas"
do{
#line 21924 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 21924 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21924 "qb64pe.bas"
if(!qbevent)break;evnt(21924);}while(r);
#line 21925 "qb64pe.bas"
do{
#line 21925 "qb64pe.bas"
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)));
#line 21925 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21925 "qb64pe.bas"
if(!qbevent)break;evnt(21925);}while(r);
#line 21926 "qb64pe.bas"
}else{
#line 21927 "qb64pe.bas"
do{
#line 21927 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 21927 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21927 "qb64pe.bas"
if(!qbevent)break;evnt(21927);}while(r);
#line 21928 "qb64pe.bas"
do{
#line 21928 "qb64pe.bas"
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)));
#line 21928 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21928 "qb64pe.bas"
if(!qbevent)break;evnt(21928);}while(r);
#line 21929 "qb64pe.bas"
}
#line 21930 "qb64pe.bas"
do{
#line 21930 "qb64pe.bas"
goto LABEL_DONTEVALUATE;
#line 21930 "qb64pe.bas"
if(!qbevent)break;evnt(21930);}while(r);
#line 21931 "qb64pe.bas"
}
#line 21933 "qb64pe.bas"
LABEL_DONTEVALUATE:;
#line 21933 "qb64pe.bas"
if(qbevent){evnt(21933);r=0;}
#line 21935 "qb64pe.bas"
S_25147:;
#line 21935 "qb64pe.bas"
if ((*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+810))))||is_error_pending()){
#line 21935 "qb64pe.bas"
if(qbevent){evnt(21935);if(r)goto S_25147;}
#line 21938 "qb64pe.bas"
S_25148:;
#line 21938 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_E, 3 ),qbs_new_txt_len("(  ",3))))||is_error_pending()){
#line 21938 "qb64pe.bas"
if(qbevent){evnt(21938);if(r)goto S_25148;}
#line 21939 "qb64pe.bas"
do{
#line 21939 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REMOVECAST(_FUNC_EVALUATEFUNC_STRING_E));
#line 21939 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21939 "qb64pe.bas"
if(!qbevent)break;evnt(21939);}while(r);
#line 21940 "qb64pe.bas"
}
#line 21942 "qb64pe.bas"
S_25151:;
#line 21942 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)||is_error_pending()){
#line 21942 "qb64pe.bas"
if(qbevent){evnt(21942);if(r)goto S_25151;}
#line 21943 "qb64pe.bas"
do{
#line 21943 "qb64pe.bas"
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)));
#line 21943 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21943 "qb64pe.bas"
if(!qbevent)break;evnt(21943);}while(r);
#line 21944 "qb64pe.bas"
}
#line 21946 "qb64pe.bas"
S_25154:;
#line 21946 "qb64pe.bas"
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()){
#line 21946 "qb64pe.bas"
if(qbevent){evnt(21946);if(r)goto S_25154;}
#line 21946 "qb64pe.bas"
do{
#line 21946 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("NULL",4));
#line 21946 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21946 "qb64pe.bas"
if(!qbevent)break;evnt(21946);}while(r);
#line 21946 "qb64pe.bas"
}
#line 21948 "qb64pe.bas"
}
#line 21950 "qb64pe.bas"
do{
#line 21950 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E));
#line 21950 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21950 "qb64pe.bas"
if(!qbevent)break;evnt(21950);}while(r);
#line 21953 "qb64pe.bas"
S_25159:;
#line 21953 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4))))||is_error_pending()){
#line 21953 "qb64pe.bas"
if(qbevent){evnt(21953);if(r)goto S_25159;}
#line 21954 "qb64pe.bas"
S_25160:;
#line 21954 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||is_error_pending()){
#line 21954 "qb64pe.bas"
if(qbevent){evnt(21954);if(r)goto S_25160;}
#line 21955 "qb64pe.bas"
S_25161:;
#line 21955 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||is_error_pending()){
#line 21955 "qb64pe.bas"
if(qbevent){evnt(21955);if(r)goto S_25161;}
#line 21955 "qb64pe.bas"
do{
#line 21955 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1)));
#line 21955 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21955 "qb64pe.bas"
if(!qbevent)break;evnt(21955);}while(r);
#line 21955 "qb64pe.bas"
do{
#line 21955 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21955 "qb64pe.bas"
if(!qbevent)break;evnt(21955);}while(r);
#line 21955 "qb64pe.bas"
}
#line 21956 "qb64pe.bas"
}
#line 21957 "qb64pe.bas"
S_25166:;
#line 21957 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||is_error_pending()){
#line 21957 "qb64pe.bas"
if(qbevent){evnt(21957);if(r)goto S_25166;}
#line 21958 "qb64pe.bas"
S_25167:;
#line 21958 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||is_error_pending()){
#line 21958 "qb64pe.bas"
if(qbevent){evnt(21958);if(r)goto S_25167;}
#line 21958 "qb64pe.bas"
do{
#line 21958 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1)));
#line 21958 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21958 "qb64pe.bas"
if(!qbevent)break;evnt(21958);}while(r);
#line 21958 "qb64pe.bas"
do{
#line 21958 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 21958 "qb64pe.bas"
if(!qbevent)break;evnt(21958);}while(r);
#line 21958 "qb64pe.bas"
}
#line 21959 "qb64pe.bas"
}
#line 21960 "qb64pe.bas"
}
#line 21962 "qb64pe.bas"
S_25173:;
#line 21962 "qb64pe.bas"
if (((-(*_FUNC_EVALUATEFUNC_LONG_I!=*_FUNC_EVALUATEFUNC_LONG_N))&(-(*_FUNC_EVALUATEFUNC_LONG_NOCOMMA== 0 )))||is_error_pending()){
#line 21962 "qb64pe.bas"
if(qbevent){evnt(21962);if(r)goto S_25173;}
#line 21962 "qb64pe.bas"
do{
#line 21962 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",",1)));
#line 21962 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21962 "qb64pe.bas"
if(!qbevent)break;evnt(21962);}while(r);
#line 21962 "qb64pe.bas"
}
#line 21963 "qb64pe.bas"
do{
#line 21963 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ;
#line 21963 "qb64pe.bas"
if(!qbevent)break;evnt(21963);}while(r);
#line 21964 "qb64pe.bas"
do{
#line 21964 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ;
#line 21964 "qb64pe.bas"
if(!qbevent)break;evnt(21964);}while(r);
#line 21965 "qb64pe.bas"
do{
#line 21965 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ;
#line 21965 "qb64pe.bas"
if(!qbevent)break;evnt(21965);}while(r);
#line 21966 "qb64pe.bas"
}
#line 21967 "qb64pe.bas"
fornext_continue_2657:;
#line 21967 "qb64pe.bas"
}
#line 21967 "qb64pe.bas"
fornext_exit_2657:;
#line 21972 "qb64pe.bas"
S_25181:;
#line 21972 "qb64pe.bas"
if (((-(*_FUNC_EVALUATEFUNC_LONG_CURARG<=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+813)))))&(~(*(int8*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+812))))))||is_error_pending()){
#line 21972 "qb64pe.bas"
if(qbevent){evnt(21972);if(r)goto S_25181;}
#line 21973 "qb64pe.bas"
S_25182:;
#line 21973 "qb64pe.bas"
fornext_value2754=*_FUNC_EVALUATEFUNC_LONG_CURARG;
#line 21973 "qb64pe.bas"
fornext_finalvalue2754=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+813)));
#line 21973 "qb64pe.bas"
fornext_step2754= 1 ;
#line 21973 "qb64pe.bas"
if (fornext_step2754<0) fornext_step_negative2754=1; else fornext_step_negative2754=0;
#line 21973 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2754;
#line 21973 "qb64pe.bas"
goto fornext_entrylabel2754;
#line 21973 "qb64pe.bas"
while(1){
#line 21973 "qb64pe.bas"
fornext_value2754=fornext_step2754+(*_FUNC_EVALUATEFUNC_LONG_I);
#line 21973 "qb64pe.bas"
fornext_entrylabel2754:
#line 21973 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2754;
#line 21973 "qb64pe.bas"
if (fornext_step_negative2754){
#line 21973 "qb64pe.bas"
if (fornext_value2754<fornext_finalvalue2754) break;
#line 21973 "qb64pe.bas"
}else{
#line 21973 "qb64pe.bas"
if (fornext_value2754>fornext_finalvalue2754) break;
#line 21973 "qb64pe.bas"
}
#line 21973 "qb64pe.bas"
fornext_error2754:;
#line 21973 "qb64pe.bas"
if(qbevent){evnt(21973);if(r)goto S_25182;}
#line 21974 "qb64pe.bas"
S_25183:;
#line 21974 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_I== 1 ))||is_error_pending()){
#line 21974 "qb64pe.bas"
if(qbevent){evnt(21974);if(r)goto S_25183;}
#line 21974 "qb64pe.bas"
do{
#line 21974 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL",4)));
#line 21974 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21974 "qb64pe.bas"
if(!qbevent)break;evnt(21974);}while(r);
#line 21974 "qb64pe.bas"
}else{
#line 21974 "qb64pe.bas"
do{
#line 21974 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5)));
#line 21974 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21974 "qb64pe.bas"
if(!qbevent)break;evnt(21974);}while(r);
#line 21974 "qb64pe.bas"
}
#line 21975 "qb64pe.bas"
fornext_continue_2753:;
#line 21975 "qb64pe.bas"
}
#line 21975 "qb64pe.bas"
fornext_exit_2753:;
#line 21976 "qb64pe.bas"
}
#line 21977 "qb64pe.bas"
}
#line 21979 "qb64pe.bas"
S_25191:;
#line 21979 "qb64pe.bas"
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()){
#line 21979 "qb64pe.bas"
if(qbevent){evnt(21979);if(r)goto S_25191;}
#line 21980 "qb64pe.bas"
S_25192:;
#line 21980 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5))))||is_error_pending()){
#line 21980 "qb64pe.bas"
if(qbevent){evnt(21980);if(r)goto S_25192;}
#line 21980 "qb64pe.bas"
do{
#line 21980 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",1",2));
#line 21980 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21980 "qb64pe.bas"
if(!qbevent)break;evnt(21980);}while(r);
#line 21980 "qb64pe.bas"
}
#line 21981 "qb64pe.bas"
do{
#line 21981 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_DIM_EXPR,func_mid(_FUNC_EVALUATEFUNC_STRING_R, 2 ,NULL,0));
#line 21981 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21981 "qb64pe.bas"
if(!qbevent)break;evnt(21981);}while(r);
#line 21986 "qb64pe.bas"
S_25196:;
#line 21986 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISNESTED)||is_error_pending()){
#line 21986 "qb64pe.bas"
if(qbevent){evnt(21986);if(r)goto S_25196;}
#line 21987 "qb64pe.bas"
do{
#line 21987 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_S1=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,__STRING1_SP3,0);
#line 21987 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21987 "qb64pe.bas"
if(!qbevent)break;evnt(21987);}while(r);
#line 21988 "qb64pe.bas"
S_25198:;
#line 21988 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_S1)||is_error_pending()){
#line 21988 "qb64pe.bas"
if(qbevent){evnt(21988);if(r)goto S_25198;}
#line 21988 "qb64pe.bas"
do{
#line 21988 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_S2=func_instr(*_FUNC_EVALUATEFUNC_LONG_S1+1,_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,__STRING1_SP3,0|1);
#line 21988 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21988 "qb64pe.bas"
if(!qbevent)break;evnt(21988);}while(r);
#line 21988 "qb64pe.bas"
}else{
#line 21988 "qb64pe.bas"
do{
#line 21988 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_S2= 0 ;
#line 21988 "qb64pe.bas"
if(!qbevent)break;evnt(21988);}while(r);
#line 21988 "qb64pe.bas"
}
#line 21989 "qb64pe.bas"
S_25203:;
#line 21989 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_S2)||is_error_pending()){
#line 21989 "qb64pe.bas"
if(qbevent){evnt(21989);if(r)goto S_25203;}
#line 21990 "qb64pe.bas"
do{
#line 21990 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_S3=func_instr(*_FUNC_EVALUATEFUNC_LONG_S2+1,_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,__STRING1_SP3,0|1);
#line 21990 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21990 "qb64pe.bas"
if(!qbevent)break;evnt(21990);}while(r);
#line 21991 "qb64pe.bas"
}else{
#line 21992 "qb64pe.bas"
do{
#line 21992 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_S3= 0 ;
#line 21992 "qb64pe.bas"
if(!qbevent)break;evnt(21992);}while(r);
#line 21993 "qb64pe.bas"
}
#line 21995 "qb64pe.bas"
S_25208:;
#line 21995 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_S3== 0 ))||is_error_pending()){
#line 21995 "qb64pe.bas"
if(qbevent){evnt(21995);if(r)goto S_25208;}
#line 21995 "qb64pe.bas"
do{
#line 21995 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19));
#line 21995 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21995 "qb64pe.bas"
if(!qbevent)break;evnt(21995);}while(r);
#line 21995 "qb64pe.bas"
do{
#line 21995 "qb64pe.bas"
goto exit_subfunc;
#line 21995 "qb64pe.bas"
if(!qbevent)break;evnt(21995);}while(r);
#line 21995 "qb64pe.bas"
}
#line 21997 "qb64pe.bas"
do{
#line 21997 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ULBOUNDID=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,*_FUNC_EVALUATEFUNC_LONG_S1- 1 )));
#line 21997 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21997 "qb64pe.bas"
if(!qbevent)break;evnt(21997);}while(r);
#line 21998 "qb64pe.bas"
do{
#line 21998 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_EPOS1=*_FUNC_EVALUATEFUNC_LONG_S2+1;
#line 21998 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21998 "qb64pe.bas"
if(!qbevent)break;evnt(21998);}while(r);
#line 21999 "qb64pe.bas"
do{
#line 21999 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_EPOS2=*_FUNC_EVALUATEFUNC_LONG_S3- 1 ;
#line 21999 "qb64pe.bas"
if(!qbevent)break;evnt(21999);}while(r);
#line 22000 "qb64pe.bas"
do{
#line 22000 "qb64pe.bas"
*_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)));
#line 22000 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22000 "qb64pe.bas"
if(!qbevent)break;evnt(22000);}while(r);
#line 22001 "qb64pe.bas"
S_25216:;
#line 22001 "qb64pe.bas"
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()){
#line 22001 "qb64pe.bas"
if(qbevent){evnt(22001);if(r)goto S_25216;}
#line 22001 "qb64pe.bas"
do{
#line 22001 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19));
#line 22001 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22001 "qb64pe.bas"
if(!qbevent)break;evnt(22001);}while(r);
#line 22001 "qb64pe.bas"
do{
#line 22001 "qb64pe.bas"
goto exit_subfunc;
#line 22001 "qb64pe.bas"
if(!qbevent)break;evnt(22001);}while(r);
#line 22001 "qb64pe.bas"
}
#line 22003 "qb64pe.bas"
do{
#line 22003 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATEFUNC_LONG_ULBOUNDID);
#line 22003 "qb64pe.bas"
if(!qbevent)break;evnt(22003);}while(r);
#line 22004 "qb64pe.bas"
S_25221:;
#line 22004 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22004 "qb64pe.bas"
if(qbevent){evnt(22004);if(r)goto S_25221;}
#line 22004 "qb64pe.bas"
do{
#line 22004 "qb64pe.bas"
goto exit_subfunc;
#line 22004 "qb64pe.bas"
if(!qbevent)break;evnt(22004);}while(r);
#line 22004 "qb64pe.bas"
}
#line 22005 "qb64pe.bas"
S_25224:;
#line 22005 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(_FUNC_EVALUATEFUNC_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22005 "qb64pe.bas"
if(qbevent){evnt(22005);if(r)goto S_25224;}
#line 22005 "qb64pe.bas"
do{
#line 22005 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISDYN= -1 ;
#line 22005 "qb64pe.bas"
if(!qbevent)break;evnt(22005);}while(r);
#line 22005 "qb64pe.bas"
}else{
#line 22005 "qb64pe.bas"
do{
#line 22005 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISDYN= 0 ;
#line 22005 "qb64pe.bas"
if(!qbevent)break;evnt(22005);}while(r);
#line 22005 "qb64pe.bas"
}
#line 22007 "qb64pe.bas"
S_25229:;
#line 22007 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_INTEGER_ULBOUNDARRAYISDYN)||is_error_pending()){
#line 22007 "qb64pe.bas"
if(qbevent){evnt(22007);if(r)goto S_25229;}
#line 22008 "qb64pe.bas"
do{
#line 22008 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDOFFSET,func_mid(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,*_FUNC_EVALUATEFUNC_LONG_S3+1,NULL,0));
#line 22008 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22008 "qb64pe.bas"
if(!qbevent)break;evnt(22008);}while(r);
#line 22009 "qb64pe.bas"
do{
#line 22009 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDBASE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)));
#line 22009 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22009 "qb64pe.bas"
if(!qbevent)break;evnt(22009);}while(r);
#line 22010 "qb64pe.bas"
S_25232:;
#line 22010 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 22010 "qb64pe.bas"
if(qbevent){evnt(22010);if(r)goto S_25232;}
#line 22010 "qb64pe.bas"
do{
#line 22010 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDBASE,qbs_add(_FUNC_EVALUATEFUNC_STRING_ULBOUNDBASE,qbs_new_txt_len("[0]",3)));
#line 22010 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22010 "qb64pe.bas"
if(!qbevent)break;evnt(22010);}while(r);
#line 22010 "qb64pe.bas"
}
#line 22011 "qb64pe.bas"
do{
#line 22011 "qb64pe.bas"
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)));
#line 22011 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22011 "qb64pe.bas"
if(!qbevent)break;evnt(22011);}while(r);
#line 22012 "qb64pe.bas"
S_25236:;
#line 22012 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6))))||is_error_pending()){
#line 22012 "qb64pe.bas"
if(qbevent){evnt(22012);if(r)goto S_25236;}
#line 22013 "qb64pe.bas"
do{
#line 22013 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_UDTDYNARRAYBOUNDEXPR(_FUNC_EVALUATEFUNC_STRING_ULBOUNDDESC,_FUNC_EVALUATEFUNC_STRING_DIM_EXPR,&(pass2759= -1 )));
#line 22013 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22013 "qb64pe.bas"
if(!qbevent)break;evnt(22013);}while(r);
#line 22014 "qb64pe.bas"
}else{
#line 22015 "qb64pe.bas"
do{
#line 22015 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_UDTDYNARRAYBOUNDEXPR(_FUNC_EVALUATEFUNC_STRING_ULBOUNDDESC,_FUNC_EVALUATEFUNC_STRING_DIM_EXPR,&(pass2760= 0 )));
#line 22015 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22015 "qb64pe.bas"
if(!qbevent)break;evnt(22015);}while(r);
#line 22016 "qb64pe.bas"
}
#line 22017 "qb64pe.bas"
}else{
#line 22018 "qb64pe.bas"
S_25242:;
#line 22018 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6))))||is_error_pending()){
#line 22018 "qb64pe.bas"
if(qbevent){evnt(22018);if(r)goto S_25242;}
#line 22019 "qb64pe.bas"
do{
#line 22019 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_UDTARRAYBOUNDEXPR((((qbs**)(__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,&(pass2761= -1 )));
#line 22019 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22019 "qb64pe.bas"
if(!qbevent)break;evnt(22019);}while(r);
#line 22020 "qb64pe.bas"
}else{
#line 22021 "qb64pe.bas"
do{
#line 22021 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_UDTARRAYBOUNDEXPR((((qbs**)(__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,&(pass2762= 0 )));
#line 22021 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22021 "qb64pe.bas"
if(!qbevent)break;evnt(22021);}while(r);
#line 22022 "qb64pe.bas"
}
#line 22023 "qb64pe.bas"
}
#line 22024 "qb64pe.bas"
S_25248:;
#line 22024 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22024 "qb64pe.bas"
if(qbevent){evnt(22024);if(r)goto S_25248;}
#line 22024 "qb64pe.bas"
do{
#line 22024 "qb64pe.bas"
goto exit_subfunc;
#line 22024 "qb64pe.bas"
if(!qbevent)break;evnt(22024);}while(r);
#line 22024 "qb64pe.bas"
}
#line 22026 "qb64pe.bas"
do{
#line 22026 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 22026 "qb64pe.bas"
if(!qbevent)break;evnt(22026);}while(r);
#line 22027 "qb64pe.bas"
do{
#line 22027 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 22027 "qb64pe.bas"
if(!qbevent)break;evnt(22027);}while(r);
#line 22028 "qb64pe.bas"
}
#line 22030 "qb64pe.bas"
S_25254:;
#line 22030 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6))))||is_error_pending()){
#line 22030 "qb64pe.bas"
if(qbevent){evnt(22030);if(r)goto S_25254;}
#line 22030 "qb64pe.bas"
do{
#line 22030 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_ubound(",12));
#line 22030 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22030 "qb64pe.bas"
if(!qbevent)break;evnt(22030);}while(r);
#line 22030 "qb64pe.bas"
}else{
#line 22030 "qb64pe.bas"
do{
#line 22030 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_lbound(",12));
#line 22030 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22030 "qb64pe.bas"
if(!qbevent)break;evnt(22030);}while(r);
#line 22030 "qb64pe.bas"
}
#line 22031 "qb64pe.bas"
do{
#line 22031 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2763= 1 )));
#line 22031 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22031 "qb64pe.bas"
if(!qbevent)break;evnt(22031);}while(r);
#line 22032 "qb64pe.bas"
S_25260:;
#line 22032 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22032 "qb64pe.bas"
if(qbevent){evnt(22032);if(r)goto S_25260;}
#line 22032 "qb64pe.bas"
do{
#line 22032 "qb64pe.bas"
goto exit_subfunc;
#line 22032 "qb64pe.bas"
if(!qbevent)break;evnt(22032);}while(r);
#line 22032 "qb64pe.bas"
}
#line 22035 "qb64pe.bas"
do{
#line 22035 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+((0+516)));
#line 22035 "qb64pe.bas"
if(!qbevent)break;evnt(22035);}while(r);
#line 22036 "qb64pe.bas"
S_25264:;
#line 22036 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS== -1 ))||is_error_pending()){
#line 22036 "qb64pe.bas"
if(qbevent){evnt(22036);if(r)goto S_25264;}
#line 22036 "qb64pe.bas"
do{
#line 22036 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS= 1 ;
#line 22036 "qb64pe.bas"
if(!qbevent)break;evnt(22036);}while(r);
#line 22036 "qb64pe.bas"
}
#line 22039 "qb64pe.bas"
do{
#line 22039 "qb64pe.bas"
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)));
#line 22039 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22039 "qb64pe.bas"
if(!qbevent)break;evnt(22039);}while(r);
#line 22040 "qb64pe.bas"
do{
#line 22040 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 22040 "qb64pe.bas"
if(!qbevent)break;evnt(22040);}while(r);
#line 22041 "qb64pe.bas"
do{
#line 22041 "qb64pe.bas"
goto LABEL_EVALFUNCSPECIAL;
#line 22041 "qb64pe.bas"
if(!qbevent)break;evnt(22041);}while(r);
#line 22042 "qb64pe.bas"
}
#line 22044 "qb64pe.bas"
S_25271:;
#line 22044 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_PASSOMIT)||is_error_pending()){
#line 22044 "qb64pe.bas"
if(qbevent){evnt(22044);if(r)goto S_25271;}
#line 22045 "qb64pe.bas"
do{
#line 22045 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",0",2)));
#line 22045 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22045 "qb64pe.bas"
if(!qbevent)break;evnt(22045);}while(r);
#line 22047 "qb64pe.bas"
S_25273:;
#line 22047 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG)||is_error_pending()){
#line 22047 "qb64pe.bas"
if(qbevent){evnt(22047);if(r)goto S_25273;}
#line 22048 "qb64pe.bas"
S_25274:;
#line 22048 "qb64pe.bas"
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()){
#line 22048 "qb64pe.bas"
if(qbevent){evnt(22048);if(r)goto S_25274;}
#line 22048 "qb64pe.bas"
do{
#line 22048 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("|1",2)));
#line 22048 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22048 "qb64pe.bas"
if(!qbevent)break;evnt(22048);}while(r);
#line 22048 "qb64pe.bas"
}
#line 22049 "qb64pe.bas"
}else{
#line 22050 "qb64pe.bas"
S_25278:;
#line 22050 "qb64pe.bas"
fornext_value2765=*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT;
#line 22050 "qb64pe.bas"
fornext_finalvalue2765=func_ubound(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,1,1);
#line 22050 "qb64pe.bas"
fornext_step2765= 1 ;
#line 22050 "qb64pe.bas"
if (fornext_step2765<0) fornext_step_negative2765=1; else fornext_step_negative2765=0;
#line 22050 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2765;
#line 22050 "qb64pe.bas"
goto fornext_entrylabel2765;
#line 22050 "qb64pe.bas"
while(1){
#line 22050 "qb64pe.bas"
fornext_value2765=fornext_step2765+(*_FUNC_EVALUATEFUNC_LONG_I);
#line 22050 "qb64pe.bas"
fornext_entrylabel2765:
#line 22050 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2765;
#line 22050 "qb64pe.bas"
if (fornext_step_negative2765){
#line 22050 "qb64pe.bas"
if (fornext_value2765<fornext_finalvalue2765) break;
#line 22050 "qb64pe.bas"
}else{
#line 22050 "qb64pe.bas"
if (fornext_value2765>fornext_finalvalue2765) break;
#line 22050 "qb64pe.bas"
}
#line 22050 "qb64pe.bas"
fornext_error2765:;
#line 22050 "qb64pe.bas"
if(qbevent){evnt(22050);if(r)goto S_25278;}
#line 22051 "qb64pe.bas"
S_25279:;
#line 22051 "qb64pe.bas"
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()){
#line 22051 "qb64pe.bas"
if(qbevent){evnt(22051);if(r)goto S_25279;}
#line 22051 "qb64pe.bas"
do{
#line 22051 "qb64pe.bas"
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)));
#line 22051 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22051 "qb64pe.bas"
if(!qbevent)break;evnt(22051);}while(r);
#line 22051 "qb64pe.bas"
}
#line 22052 "qb64pe.bas"
fornext_continue_2764:;
#line 22052 "qb64pe.bas"
}
#line 22052 "qb64pe.bas"
fornext_exit_2764:;
#line 22053 "qb64pe.bas"
}
#line 22054 "qb64pe.bas"
}
#line 22055 "qb64pe.bas"
do{
#line 22055 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1)));
#line 22055 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22055 "qb64pe.bas"
if(!qbevent)break;evnt(22055);}while(r);
#line 22056 "qb64pe.bas"
S_25286:;
#line 22056 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALUATEFUNC_STRING_FUNCARGPREP,qbs_new_txt_len("",0))))||is_error_pending()){
#line 22056 "qb64pe.bas"
if(qbevent){evnt(22056);if(r)goto S_25286;}
#line 22056 "qb64pe.bas"
do{
#line 22056 "qb64pe.bas"
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)));
#line 22056 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22056 "qb64pe.bas"
if(!qbevent)break;evnt(22056);}while(r);
#line 22056 "qb64pe.bas"
}
#line 22058 "qb64pe.bas"
LABEL_EVALFUNCSPECIAL:;
#line 22058 "qb64pe.bas"
if(qbevent){evnt(22058);r=0;}
#line 22060 "qb64pe.bas"
S_25289:;
#line 22060 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ABS",3))))||is_error_pending()){
#line 22060 "qb64pe.bas"
if(qbevent){evnt(22060);if(r)goto S_25289;}
#line 22060 "qb64pe.bas"
do{
#line 22060 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP;
#line 22060 "qb64pe.bas"
if(!qbevent)break;evnt(22060);}while(r);
#line 22060 "qb64pe.bas"
}
#line 22063 "qb64pe.bas"
S_25292:;
#line 22063 "qb64pe.bas"
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()){
#line 22063 "qb64pe.bas"
if(qbevent){evnt(22063);if(r)goto S_25292;}
#line 22064 "qb64pe.bas"
do{
#line 22064 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 4095ll ;
#line 22064 "qb64pe.bas"
if(!qbevent)break;evnt(22064);}while(r);
#line 22065 "qb64pe.bas"
S_25294:;
#line 22065 "qb64pe.bas"
if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT)||is_error_pending()){
#line 22065 "qb64pe.bas"
if(qbevent){evnt(22065);if(r)goto S_25294;}
#line 22067 "qb64pe.bas"
S_25295:;
#line 22067 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 64 ))||is_error_pending()){
#line 22067 "qb64pe.bas"
if(qbevent){evnt(22067);if(r)goto S_25295;}
#line 22067 "qb64pe.bas"
do{
#line 22067 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
#line 22067 "qb64pe.bas"
if(!qbevent)break;evnt(22067);}while(r);
#line 22067 "qb64pe.bas"
}
#line 22068 "qb64pe.bas"
S_25298:;
#line 22068 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 32 ))||is_error_pending()){
#line 22068 "qb64pe.bas"
if(qbevent){evnt(22068);if(r)goto S_25298;}
#line 22068 "qb64pe.bas"
do{
#line 22068 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
#line 22068 "qb64pe.bas"
if(!qbevent)break;evnt(22068);}while(r);
#line 22068 "qb64pe.bas"
}
#line 22069 "qb64pe.bas"
}else{
#line 22071 "qb64pe.bas"
S_25302:;
#line 22071 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 32 ))||is_error_pending()){
#line 22071 "qb64pe.bas"
if(qbevent){evnt(22071);if(r)goto S_25302;}
#line 22071 "qb64pe.bas"
do{
#line 22071 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
#line 22071 "qb64pe.bas"
if(!qbevent)break;evnt(22071);}while(r);
#line 22071 "qb64pe.bas"
}
#line 22072 "qb64pe.bas"
S_25305:;
#line 22072 "qb64pe.bas"
if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 16 ))||is_error_pending()){
#line 22072 "qb64pe.bas"
if(qbevent){evnt(22072);if(r)goto S_25305;}
#line 22072 "qb64pe.bas"
do{
#line 22072 "qb64pe.bas"
*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
#line 22072 "qb64pe.bas"
if(!qbevent)break;evnt(22072);}while(r);
#line 22072 "qb64pe.bas"
}
#line 22073 "qb64pe.bas"
}
#line 22074 "qb64pe.bas"
}
#line 22076 "qb64pe.bas"
S_25310:;
#line 22076 "qb64pe.bas"
if ((-(*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+2385)))==(*__LONG_ISUDT+( 1 ))))||is_error_pending()){
#line 22076 "qb64pe.bas"
if(qbevent){evnt(22076);if(r)goto S_25310;}
#line 22078 "qb64pe.bas"
do{
#line 22078 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_V,qbs_add(qbs_new_txt_len("func",4),qbs__tostr((int32)(FUNC_UNIQUENUMBER()),NULL,0)));
#line 22078 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22078 "qb64pe.bas"
if(!qbevent)break;evnt(22078);}while(r);
#line 22079 "qb64pe.bas"
do{
#line 22079 "qb64pe.bas"
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("mem_block ",10),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len(";",1)));
#line 22079 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22079 "qb64pe.bas"
if(!qbevent)break;evnt(22079);}while(r);
#line 22080 "qb64pe.bas"
do{
#line 22080 "qb64pe.bas"
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)));
#line 22080 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22080 "qb64pe.bas"
if(!qbevent)break;evnt(22080);}while(r);
#line 22081 "qb64pe.bas"
}
#line 22083 "qb64pe.bas"
S_25315:;
#line 22083 "qb64pe.bas"
if ((*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+((0+810))))||is_error_pending()){
#line 22083 "qb64pe.bas"
if(qbevent){evnt(22083);if(r)goto S_25315;}
#line 22084 "qb64pe.bas"
S_25316:;
#line 22084 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_R, 11 ),qbs_new_txt_len("(  char*  )",11))))||is_error_pending()){
#line 22084 "qb64pe.bas"
if(qbevent){evnt(22084);if(r)goto S_25316;}
#line 22085 "qb64pe.bas"
do{
#line 22085 "qb64pe.bas"
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)));
#line 22085 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22085 "qb64pe.bas"
if(!qbevent)break;evnt(22085);}while(r);
#line 22086 "qb64pe.bas"
}
#line 22087 "qb64pe.bas"
}
#line 22089 "qb64pe.bas"
S_25320:;
#line 22089 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 22089 "qb64pe.bas"
if(qbevent){evnt(22089);if(r)goto S_25320;}
#line 22089 "qb64pe.bas"
do{
#line 22089 "qb64pe.bas"
tab_spc_cr_size=2;
#line 22089 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 22089 "qb64pe.bas"
if (is_error_pending()) goto skip2766;
#line 22089 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("evaluatefunc:out:",17), 0, 0, 0);
#line 22089 "qb64pe.bas"
if (is_error_pending()) goto skip2766;
#line 22089 "qb64pe.bas"
sub_file_print(tmp_fileno,_FUNC_EVALUATEFUNC_STRING_R, 0, 0, 1);
#line 22089 "qb64pe.bas"
if (is_error_pending()) goto skip2766;
#line 22089 "qb64pe.bas"
skip2766:
#line 22089 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22089 "qb64pe.bas"
tab_spc_cr_size=1;
#line 22089 "qb64pe.bas"
if(!qbevent)break;evnt(22089);}while(r);
#line 22089 "qb64pe.bas"
}
#line 22090 "qb64pe.bas"
do{
#line 22090 "qb64pe.bas"
qbs_set(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC,_FUNC_EVALUATEFUNC_STRING_R);
#line 22090 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22090 "qb64pe.bas"
if(!qbevent)break;evnt(22090);}while(r);
#line 22091 "qb64pe.bas"
exit_subfunc:;
#line 22091 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 22091 "qb64pe.bas"
#include "free65.txt"
#line 22091 "qb64pe.bas"
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;
#line 22091 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 22091 "qb64pe.bas"
qbs_maketmp(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC);return _FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC;
#line 22091 "qb64pe.bas"
}
