#line 22133 "qb64pe.bas"
qbs* FUNC_EVALUATETOTYP(qbs*_FUNC_EVALUATETOTYP_STRING_A2,int32*_FUNC_EVALUATETOTYP_LONG_TARGETTYP){
#line 22133 "qb64pe.bas"
qbs *tqbs;
#line 22133 "qb64pe.bas"
ptrszint tmp_long;
#line 22133 "qb64pe.bas"
int32 tmp_fileno;
#line 22133 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 22133 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 22133 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 22133 "qb64pe.bas"
#include "data67.txt"
#line 22133 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 22133 "qb64pe.bas"
new_mem_lock();
#line 22133 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 22133 "qb64pe.bas"
sf_mem_lock->type=3;
#line 22133 "qb64pe.bas"
libqb_check_stack();
#line 22133 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 22136 "qb64pe.bas"
do{
#line 22136 "qb64pe.bas"
if(!qbevent)break;evnt(22136);}while(r);
#line 22137 "qb64pe.bas"
do{
#line 22137 "qb64pe.bas"
if(!qbevent)break;evnt(22137);}while(r);
#line 22138 "qb64pe.bas"
do{
#line 22138 "qb64pe.bas"
if(!qbevent)break;evnt(22138);}while(r);
#line 22140 "qb64pe.bas"
do{
#line 22140 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_A,_FUNC_EVALUATETOTYP_STRING_A2);
#line 22140 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22140 "qb64pe.bas"
if(!qbevent)break;evnt(22140);}while(r);
#line 22142 "qb64pe.bas"
do{
#line 22142 "qb64pe.bas"
qbs_set(__STRING_DYNMEMLOCKEXPR,qbs_new_txt_len("",0));
#line 22142 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22142 "qb64pe.bas"
if(!qbevent)break;evnt(22142);}while(r);
#line 22143 "qb64pe.bas"
do{
#line 22143 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ALLOW_BARE_MEMBER_ARRAY= 0 ;
#line 22143 "qb64pe.bas"
if(!qbevent)break;evnt(22143);}while(r);
#line 22148 "qb64pe.bas"
S_25374:;
#line 22148 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -2 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -4 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -7 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -8 )))||is_error_pending()){
#line 22148 "qb64pe.bas"
if(qbevent){evnt(22148);if(r)goto S_25374;}
#line 22149 "qb64pe.bas"
do{
#line 22149 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ALLOW_BARE_MEMBER_ARRAY= -1 ;
#line 22149 "qb64pe.bas"
if(!qbevent)break;evnt(22149);}while(r);
#line 22150 "qb64pe.bas"
}
#line 22152 "qb64pe.bas"
do{
#line 22152 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_FINAL_MEMBER_ARRAY_INDEXED= 0 ;
#line 22152 "qb64pe.bas"
if(!qbevent)break;evnt(22152);}while(r);
#line 22153 "qb64pe.bas"
S_25378:;
#line 22153 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -4 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -7 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -8 )))||is_error_pending()){
#line 22153 "qb64pe.bas"
if(qbevent){evnt(22153);if(r)goto S_25378;}
#line 22154 "qb64pe.bas"
do{
#line 22154 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_FINAL_MEMBER_ARRAY_INDEXED=FUNC_HASINDEXEDFINALMEMBERARRAY(_FUNC_EVALUATETOTYP_STRING_A);
#line 22154 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22154 "qb64pe.bas"
if(!qbevent)break;evnt(22154);}while(r);
#line 22155 "qb64pe.bas"
}
#line 22158 "qb64pe.bas"
S_25381:;
#line 22158 "qb64pe.bas"
if ((*__INTEGER_ASG_GUARD_ON)||is_error_pending()){
#line 22158 "qb64pe.bas"
if(qbevent){evnt(22158);if(r)goto S_25381;}
#line 22159 "qb64pe.bas"
do{
#line 22159 "qb64pe.bas"
SUB_EVALASGRHS(_FUNC_EVALUATETOTYP_STRING_A,_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22159 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22159 "qb64pe.bas"
if(!qbevent)break;evnt(22159);}while(r);
#line 22160 "qb64pe.bas"
}else{
#line 22161 "qb64pe.bas"
S_25384:;
#line 22161 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_ALLOW_BARE_MEMBER_ARRAY)||is_error_pending()){
#line 22161 "qb64pe.bas"
if(qbevent){evnt(22161);if(r)goto S_25384;}
#line 22161 "qb64pe.bas"
do{
#line 22161 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= -1 ;
#line 22161 "qb64pe.bas"
if(!qbevent)break;evnt(22161);}while(r);
#line 22161 "qb64pe.bas"
}
#line 22162 "qb64pe.bas"
do{
#line 22162 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATETOTYP_STRING_A,_FUNC_EVALUATETOTYP_LONG_SOURCETYP));
#line 22162 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22162 "qb64pe.bas"
if(!qbevent)break;evnt(22162);}while(r);
#line 22163 "qb64pe.bas"
S_25388:;
#line 22163 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_ALLOW_BARE_MEMBER_ARRAY)||is_error_pending()){
#line 22163 "qb64pe.bas"
if(qbevent){evnt(22163);if(r)goto S_25388;}
#line 22163 "qb64pe.bas"
do{
#line 22163 "qb64pe.bas"
*__INTEGER_UDT_ALLOW_BARE_ARRAY= 0 ;
#line 22163 "qb64pe.bas"
if(!qbevent)break;evnt(22163);}while(r);
#line 22163 "qb64pe.bas"
}
#line 22164 "qb64pe.bas"
}
#line 22165 "qb64pe.bas"
S_25392:;
#line 22165 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22165 "qb64pe.bas"
if(qbevent){evnt(22165);if(r)goto S_25392;}
#line 22165 "qb64pe.bas"
do{
#line 22165 "qb64pe.bas"
goto exit_subfunc;
#line 22165 "qb64pe.bas"
if(!qbevent)break;evnt(22165);}while(r);
#line 22165 "qb64pe.bas"
}
#line 22169 "qb64pe.bas"
S_25395:;
#line 22169 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -4 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 )))||is_error_pending()){
#line 22169 "qb64pe.bas"
if(qbevent){evnt(22169);if(r)goto S_25395;}
#line 22170 "qb64pe.bas"
S_25396:;
#line 22170 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 22170 "qb64pe.bas"
if(qbevent){evnt(22170);if(r)goto S_25396;}
#line 22170 "qb64pe.bas"
do{
#line 22170 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36));
#line 22170 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22170 "qb64pe.bas"
if(!qbevent)break;evnt(22170);}while(r);
#line 22170 "qb64pe.bas"
do{
#line 22170 "qb64pe.bas"
goto exit_subfunc;
#line 22170 "qb64pe.bas"
if(!qbevent)break;evnt(22170);}while(r);
#line 22170 "qb64pe.bas"
}
#line 22171 "qb64pe.bas"
S_25400:;
#line 22171 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 22171 "qb64pe.bas"
if(qbevent){evnt(22171);if(r)goto S_25400;}
#line 22171 "qb64pe.bas"
do{
#line 22171 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be _BIT aligned",39));
#line 22171 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22171 "qb64pe.bas"
if(!qbevent)break;evnt(22171);}while(r);
#line 22171 "qb64pe.bas"
do{
#line 22171 "qb64pe.bas"
goto exit_subfunc;
#line 22171 "qb64pe.bas"
if(!qbevent)break;evnt(22171);}while(r);
#line 22171 "qb64pe.bas"
}
#line 22178 "qb64pe.bas"
S_25404:;
#line 22178 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
#line 22178 "qb64pe.bas"
if(qbevent){evnt(22178);if(r)goto S_25404;}
#line 22179 "qb64pe.bas"
do{
#line 22179 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S1=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22179 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22179 "qb64pe.bas"
if(!qbevent)break;evnt(22179);}while(r);
#line 22180 "qb64pe.bas"
S_25406:;
#line 22180 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S1)||is_error_pending()){
#line 22180 "qb64pe.bas"
if(qbevent){evnt(22180);if(r)goto S_25406;}
#line 22180 "qb64pe.bas"
do{
#line 22180 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2=func_instr(*_FUNC_EVALUATETOTYP_LONG_S1+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 22180 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22180 "qb64pe.bas"
if(!qbevent)break;evnt(22180);}while(r);
#line 22180 "qb64pe.bas"
}else{
#line 22180 "qb64pe.bas"
do{
#line 22180 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2= 0 ;
#line 22180 "qb64pe.bas"
if(!qbevent)break;evnt(22180);}while(r);
#line 22180 "qb64pe.bas"
}
#line 22181 "qb64pe.bas"
S_25411:;
#line 22181 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S2)||is_error_pending()){
#line 22181 "qb64pe.bas"
if(qbevent){evnt(22181);if(r)goto S_25411;}
#line 22181 "qb64pe.bas"
do{
#line 22181 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3=func_instr(*_FUNC_EVALUATETOTYP_LONG_S2+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 22181 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22181 "qb64pe.bas"
if(!qbevent)break;evnt(22181);}while(r);
#line 22181 "qb64pe.bas"
}else{
#line 22181 "qb64pe.bas"
do{
#line 22181 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3= 0 ;
#line 22181 "qb64pe.bas"
if(!qbevent)break;evnt(22181);}while(r);
#line 22181 "qb64pe.bas"
}
#line 22182 "qb64pe.bas"
S_25416:;
#line 22182 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S3)||is_error_pending()){
#line 22182 "qb64pe.bas"
if(qbevent){evnt(22182);if(r)goto S_25416;}
#line 22183 "qb64pe.bas"
do{
#line 22183 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1- 1 )));
#line 22183 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22183 "qb64pe.bas"
if(!qbevent)break;evnt(22183);}while(r);
#line 22184 "qb64pe.bas"
do{
#line 22184 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1+1,*_FUNC_EVALUATETOTYP_LONG_S2-*_FUNC_EVALUATETOTYP_LONG_S1-1,0|1)));
#line 22184 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22184 "qb64pe.bas"
if(!qbevent)break;evnt(22184);}while(r);
#line 22185 "qb64pe.bas"
do{
#line 22185 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S2+1,*_FUNC_EVALUATETOTYP_LONG_S3-*_FUNC_EVALUATETOTYP_LONG_S2-1,0|1)));
#line 22185 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22185 "qb64pe.bas"
if(!qbevent)break;evnt(22185);}while(r);
#line 22186 "qb64pe.bas"
S_25420:;
#line 22186 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID> 0 ))&(-(*_FUNC_EVALUATETOTYP_LONG_FINAL_MEMBER_ARRAY_INDEXED== 0 )))||is_error_pending()){
#line 22186 "qb64pe.bas"
if(qbevent){evnt(22186);if(r)goto S_25420;}
#line 22187 "qb64pe.bas"
S_25421:;
#line 22187 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 22187 "qb64pe.bas"
if(qbevent){evnt(22187);if(r)goto S_25421;}
#line 22188 "qb64pe.bas"
do{
#line 22188 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S3+1,NULL,0));
#line 22188 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22188 "qb64pe.bas"
if(!qbevent)break;evnt(22188);}while(r);
#line 22189 "qb64pe.bas"
do{
#line 22189 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22189 "qb64pe.bas"
if(!qbevent)break;evnt(22189);}while(r);
#line 22190 "qb64pe.bas"
S_25424:;
#line 22190 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22190 "qb64pe.bas"
if(qbevent){evnt(22190);if(r)goto S_25424;}
#line 22190 "qb64pe.bas"
do{
#line 22190 "qb64pe.bas"
goto exit_subfunc;
#line 22190 "qb64pe.bas"
if(!qbevent)break;evnt(22190);}while(r);
#line 22190 "qb64pe.bas"
}
#line 22191 "qb64pe.bas"
do{
#line 22191 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 22191 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22191 "qb64pe.bas"
if(!qbevent)break;evnt(22191);}while(r);
#line 22192 "qb64pe.bas"
S_25428:;
#line 22192 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 22192 "qb64pe.bas"
if(qbevent){evnt(22192);if(r)goto S_25428;}
#line 22192 "qb64pe.bas"
do{
#line 22192 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 22192 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22192 "qb64pe.bas"
if(!qbevent)break;evnt(22192);}while(r);
#line 22192 "qb64pe.bas"
}
#line 22193 "qb64pe.bas"
S_25431:;
#line 22193 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22193 "qb64pe.bas"
if(qbevent){evnt(22193);if(r)goto S_25431;}
#line 22194 "qb64pe.bas"
do{
#line 22194 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((ptrszint**)(((char*)",24),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))))",4)));
#line 22194 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22194 "qb64pe.bas"
if(!qbevent)break;evnt(22194);}while(r);
#line 22195 "qb64pe.bas"
do{
#line 22195 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,FUNC_UDTDYNARRAYDESCGUARD(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,(&(((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])]))));
#line 22195 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22195 "qb64pe.bas"
if(!qbevent)break;evnt(22195);}while(r);
#line 22196 "qb64pe.bas"
S_25434:;
#line 22196 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22196 "qb64pe.bas"
if(qbevent){evnt(22196);if(r)goto S_25434;}
#line 22196 "qb64pe.bas"
do{
#line 22196 "qb64pe.bas"
goto exit_subfunc;
#line 22196 "qb64pe.bas"
if(!qbevent)break;evnt(22196);}while(r);
#line 22196 "qb64pe.bas"
}
#line 22197 "qb64pe.bas"
do{
#line 22197 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID);
#line 22197 "qb64pe.bas"
if(!qbevent)break;evnt(22197);}while(r);
#line 22198 "qb64pe.bas"
do{
#line 22198 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_UDTDYNARRAYBYTESEXPR(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES));
#line 22198 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22198 "qb64pe.bas"
if(!qbevent)break;evnt(22198);}while(r);
#line 22199 "qb64pe.bas"
S_25439:;
#line 22199 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22199 "qb64pe.bas"
if(qbevent){evnt(22199);if(r)goto S_25439;}
#line 22199 "qb64pe.bas"
do{
#line 22199 "qb64pe.bas"
goto exit_subfunc;
#line 22199 "qb64pe.bas"
if(!qbevent)break;evnt(22199);}while(r);
#line 22199 "qb64pe.bas"
}
#line 22200 "qb64pe.bas"
do{
#line 22200 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_FUNC_EVALUATETOTYP_STRING_DESC_EXPR),qbs_new_txt_len("[0])",4)));
#line 22200 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22200 "qb64pe.bas"
if(!qbevent)break;evnt(22200);}while(r);
#line 22201 "qb64pe.bas"
do{
#line 22201 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 22201 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22201 "qb64pe.bas"
if(!qbevent)break;evnt(22201);}while(r);
#line 22202 "qb64pe.bas"
S_25444:;
#line 22202 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 22202 "qb64pe.bas"
if(qbevent){evnt(22202);if(r)goto S_25444;}
#line 22202 "qb64pe.bas"
do{
#line 22202 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES);
#line 22202 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22202 "qb64pe.bas"
if(!qbevent)break;evnt(22202);}while(r);
#line 22202 "qb64pe.bas"
}
#line 22203 "qb64pe.bas"
S_25447:;
#line 22203 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 22203 "qb64pe.bas"
if(qbevent){evnt(22203);if(r)goto S_25447;}
#line 22203 "qb64pe.bas"
do{
#line 22203 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST);
#line 22203 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22203 "qb64pe.bas"
if(!qbevent)break;evnt(22203);}while(r);
#line 22203 "qb64pe.bas"
}
#line 22204 "qb64pe.bas"
do{
#line 22204 "qb64pe.bas"
goto exit_subfunc;
#line 22204 "qb64pe.bas"
if(!qbevent)break;evnt(22204);}while(r);
#line 22205 "qb64pe.bas"
}
#line 22206 "qb64pe.bas"
do{
#line 22206 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22206 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22206 "qb64pe.bas"
if(!qbevent)break;evnt(22206);}while(r);
#line 22207 "qb64pe.bas"
do{
#line 22207 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 )),NULL,0));
#line 22207 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22207 "qb64pe.bas"
if(!qbevent)break;evnt(22207);}while(r);
#line 22208 "qb64pe.bas"
do{
#line 22208 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 22208 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22208 "qb64pe.bas"
if(!qbevent)break;evnt(22208);}while(r);
#line 22209 "qb64pe.bas"
S_25455:;
#line 22209 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 22209 "qb64pe.bas"
if(qbevent){evnt(22209);if(r)goto S_25455;}
#line 22209 "qb64pe.bas"
do{
#line 22209 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES);
#line 22209 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22209 "qb64pe.bas"
if(!qbevent)break;evnt(22209);}while(r);
#line 22209 "qb64pe.bas"
}
#line 22210 "qb64pe.bas"
S_25458:;
#line 22210 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 22210 "qb64pe.bas"
if(qbevent){evnt(22210);if(r)goto S_25458;}
#line 22210 "qb64pe.bas"
do{
#line 22210 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST);
#line 22210 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22210 "qb64pe.bas"
if(!qbevent)break;evnt(22210);}while(r);
#line 22210 "qb64pe.bas"
}
#line 22211 "qb64pe.bas"
do{
#line 22211 "qb64pe.bas"
goto exit_subfunc;
#line 22211 "qb64pe.bas"
if(!qbevent)break;evnt(22211);}while(r);
#line 22212 "qb64pe.bas"
}
#line 22213 "qb64pe.bas"
}
#line 22214 "qb64pe.bas"
}
#line 22215 "qb64pe.bas"
}
#line 22217 "qb64pe.bas"
S_25466:;
#line 22217 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||is_error_pending()){
#line 22217 "qb64pe.bas"
if(qbevent){evnt(22217);if(r)goto S_25466;}
#line 22218 "qb64pe.bas"
S_25467:;
#line 22218 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 4095ll )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 22218 "qb64pe.bas"
if(qbevent){evnt(22218);if(r)goto S_25467;}
#line 22218 "qb64pe.bas"
do{
#line 22218 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("UDT must have fixed size",24));
#line 22218 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22218 "qb64pe.bas"
if(!qbevent)break;evnt(22218);}while(r);
#line 22218 "qb64pe.bas"
do{
#line 22218 "qb64pe.bas"
goto exit_subfunc;
#line 22218 "qb64pe.bas"
if(!qbevent)break;evnt(22218);}while(r);
#line 22218 "qb64pe.bas"
}
#line 22219 "qb64pe.bas"
do{
#line 22219 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22219 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22219 "qb64pe.bas"
if(!qbevent)break;evnt(22219);}while(r);
#line 22220 "qb64pe.bas"
do{
#line 22220 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22220 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22220 "qb64pe.bas"
if(!qbevent)break;evnt(22220);}while(r);
#line 22220 "qb64pe.bas"
do{
#line 22220 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22220 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22220 "qb64pe.bas"
if(!qbevent)break;evnt(22220);}while(r);
#line 22221 "qb64pe.bas"
do{
#line 22221 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22221 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22221 "qb64pe.bas"
if(!qbevent)break;evnt(22221);}while(r);
#line 22222 "qb64pe.bas"
do{
#line 22222 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22222 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22222 "qb64pe.bas"
if(!qbevent)break;evnt(22222);}while(r);
#line 22222 "qb64pe.bas"
do{
#line 22222 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22222 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22222 "qb64pe.bas"
if(!qbevent)break;evnt(22222);}while(r);
#line 22223 "qb64pe.bas"
do{
#line 22223 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_UDTELEM=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22223 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22223 "qb64pe.bas"
if(!qbevent)break;evnt(22223);}while(r);
#line 22224 "qb64pe.bas"
do{
#line 22224 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22224 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22224 "qb64pe.bas"
if(!qbevent)break;evnt(22224);}while(r);
#line 22224 "qb64pe.bas"
do{
#line 22224 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22224 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22224 "qb64pe.bas"
if(!qbevent)break;evnt(22224);}while(r);
#line 22225 "qb64pe.bas"
do{
#line 22225 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E);
#line 22225 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22225 "qb64pe.bas"
if(!qbevent)break;evnt(22225);}while(r);
#line 22226 "qb64pe.bas"
do{
#line 22226 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22226 "qb64pe.bas"
if(!qbevent)break;evnt(22226);}while(r);
#line 22227 "qb64pe.bas"
S_25482:;
#line 22227 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22227 "qb64pe.bas"
if(qbevent){evnt(22227);if(r)goto S_25482;}
#line 22227 "qb64pe.bas"
do{
#line 22227 "qb64pe.bas"
goto exit_subfunc;
#line 22227 "qb64pe.bas"
if(!qbevent)break;evnt(22227);}while(r);
#line 22227 "qb64pe.bas"
}
#line 22231 "qb64pe.bas"
S_25485:;
#line 22231 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_UDTELEM== 0 ))&*(int16*)(((char*)__UDT_ID)+((0+520)))&(FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_EVALUATETOTYP_LONG_U,&(pass2780=*(int16*)(((char*)__UDT_ID)+((0+522)))))))||is_error_pending()){
#line 22231 "qb64pe.bas"
if(qbevent){evnt(22231);if(r)goto S_25485;}
#line 22231 "qb64pe.bas"
do{
#line 22231 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference a TYPE value that contains explicit _Dynamic member arrays",80));
#line 22231 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22231 "qb64pe.bas"
if(!qbevent)break;evnt(22231);}while(r);
#line 22231 "qb64pe.bas"
do{
#line 22231 "qb64pe.bas"
goto exit_subfunc;
#line 22231 "qb64pe.bas"
if(!qbevent)break;evnt(22231);}while(r);
#line 22231 "qb64pe.bas"
}
#line 22232 "qb64pe.bas"
S_25489:;
#line 22232 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_UDTELEM== 0 ))&*(int16*)(((char*)__UDT_ID)+((0+520)))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 22232 "qb64pe.bas"
if(qbevent){evnt(22232);if(r)goto S_25489;}
#line 22232 "qb64pe.bas"
do{
#line 22232 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22232 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22232 "qb64pe.bas"
if(!qbevent)break;evnt(22232);}while(r);
#line 22232 "qb64pe.bas"
do{
#line 22232 "qb64pe.bas"
goto exit_subfunc;
#line 22232 "qb64pe.bas"
if(!qbevent)break;evnt(22232);}while(r);
#line 22232 "qb64pe.bas"
}
#line 22233 "qb64pe.bas"
S_25493:;
#line 22233 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_UDTELEM== 0 ))&(-(*(int32*)(((char*)__UDT_ID)+((0+512)))!= 0 )))||is_error_pending()){
#line 22233 "qb64pe.bas"
if(qbevent){evnt(22233);if(r)goto S_25493;}
#line 22234 "qb64pe.bas"
S_25494:;
#line 22234 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 22234 "qb64pe.bas"
if(qbevent){evnt(22234);if(r)goto S_25494;}
#line 22235 "qb64pe.bas"
S_25495:;
#line 22235 "qb64pe.bas"
if ((FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_EVALUATETOTYP_LONG_U,&(pass2781= 1 )))||is_error_pending()){
#line 22235 "qb64pe.bas"
if(qbevent){evnt(22235);if(r)goto S_25495;}
#line 22235 "qb64pe.bas"
do{
#line 22235 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference a TYPE value that contains explicit _Dynamic member arrays",80));
#line 22235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22235 "qb64pe.bas"
if(!qbevent)break;evnt(22235);}while(r);
#line 22235 "qb64pe.bas"
do{
#line 22235 "qb64pe.bas"
goto exit_subfunc;
#line 22235 "qb64pe.bas"
if(!qbevent)break;evnt(22235);}while(r);
#line 22235 "qb64pe.bas"
}
#line 22236 "qb64pe.bas"
}
#line 22237 "qb64pe.bas"
}
#line 22238 "qb64pe.bas"
do{
#line 22238 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 22238 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22238 "qb64pe.bas"
if(!qbevent)break;evnt(22238);}while(r);
#line 22239 "qb64pe.bas"
S_25502:;
#line 22239 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 22239 "qb64pe.bas"
if(qbevent){evnt(22239);if(r)goto S_25502;}
#line 22240 "qb64pe.bas"
do{
#line 22240 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 22240 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22240 "qb64pe.bas"
if(!qbevent)break;evnt(22240);}while(r);
#line 22242 "qb64pe.bas"
S_25504:;
#line 22242 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATETOTYP_STRING_O, 5 ),qbs_new_txt_len("((0)*",5))))||is_error_pending()){
#line 22242 "qb64pe.bas"
if(qbevent){evnt(22242);if(r)goto S_25504;}
#line 22244 "qb64pe.bas"
do{
#line 22244 "qb64pe.bas"
goto LABEL_METHOD2USEALLUDT;
#line 22244 "qb64pe.bas"
if(!qbevent)break;evnt(22244);}while(r);
#line 22245 "qb64pe.bas"
}
#line 22246 "qb64pe.bas"
}
#line 22248 "qb64pe.bas"
do{
#line 22248 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22248 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22248 "qb64pe.bas"
if(!qbevent)break;evnt(22248);}while(r);
#line 22251 "qb64pe.bas"
S_25509:;
#line 22251 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_UDTELEM== 0 ))||is_error_pending()){
#line 22251 "qb64pe.bas"
if(qbevent){evnt(22251);if(r)goto S_25509;}
#line 22252 "qb64pe.bas"
S_25510:;
#line 22252 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520))))||is_error_pending()){
#line 22252 "qb64pe.bas"
if(qbevent){evnt(22252);if(r)goto S_25510;}
#line 22253 "qb64pe.bas"
do{
#line 22253 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv(FUNC_UDTDYNLAYOUTSIZE(_FUNC_EVALUATETOTYP_LONG_U), 8 )),NULL,0));
#line 22253 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22253 "qb64pe.bas"
if(!qbevent)break;evnt(22253);}while(r);
#line 22254 "qb64pe.bas"
}else{
#line 22255 "qb64pe.bas"
do{
#line 22255 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])], 8 )),NULL,0));
#line 22255 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22255 "qb64pe.bas"
if(!qbevent)break;evnt(22255);}while(r);
#line 22256 "qb64pe.bas"
}
#line 22257 "qb64pe.bas"
}else{
#line 22258 "qb64pe.bas"
S_25516:;
#line 22258 "qb64pe.bas"
if (((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)> 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))&((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))))||is_error_pending()){
#line 22258 "qb64pe.bas"
if(qbevent){evnt(22258);if(r)goto S_25516;}
#line 22259 "qb64pe.bas"
do{
#line 22259 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_new_txt_len("(*(qbs**)",9),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(")->len",6)));
#line 22259 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22259 "qb64pe.bas"
if(!qbevent)break;evnt(22259);}while(r);
#line 22260 "qb64pe.bas"
do{
#line 22260 "qb64pe.bas"
goto exit_subfunc;
#line 22260 "qb64pe.bas"
if(!qbevent)break;evnt(22260);}while(r);
#line 22261 "qb64pe.bas"
S_25519:;
#line 22261 "qb64pe.bas"
}else{
#line 22261 "qb64pe.bas"
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)> 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))&((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -4 )))){
#line 22261 "qb64pe.bas"
if(qbevent){evnt(22261);if(r)goto S_25519;}
#line 22262 "qb64pe.bas"
do{
#line 22262 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((qbs**)((char*)",18),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("+(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))))->chr",9)));
#line 22262 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22262 "qb64pe.bas"
if(!qbevent)break;evnt(22262);}while(r);
#line 22263 "qb64pe.bas"
do{
#line 22263 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((qbs**)((char*)",18),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("+(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))))->len",9)));
#line 22263 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22263 "qb64pe.bas"
if(!qbevent)break;evnt(22263);}while(r);
#line 22264 "qb64pe.bas"
do{
#line 22264 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 22264 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22264 "qb64pe.bas"
if(!qbevent)break;evnt(22264);}while(r);
#line 22265 "qb64pe.bas"
do{
#line 22265 "qb64pe.bas"
goto exit_subfunc;
#line 22265 "qb64pe.bas"
if(!qbevent)break;evnt(22265);}while(r);
#line 22266 "qb64pe.bas"
}
#line 22266 "qb64pe.bas"
}
#line 22267 "qb64pe.bas"
S_25525:;
#line 22267 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_UDTELEM)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 22267 "qb64pe.bas"
if(qbevent){evnt(22267);if(r)goto S_25525;}
#line 22268 "qb64pe.bas"
do{
#line 22268 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int32)(FUNC_UDT_ARRAY_MEMBER_BYTES(_FUNC_EVALUATETOTYP_LONG_UDTELEM)),NULL,0));
#line 22268 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22268 "qb64pe.bas"
if(!qbevent)break;evnt(22268);}while(r);
#line 22269 "qb64pe.bas"
}else{
#line 22270 "qb64pe.bas"
do{
#line 22270 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_UDTELEM)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 )),NULL,0));
#line 22270 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22270 "qb64pe.bas"
if(!qbevent)break;evnt(22270);}while(r);
#line 22271 "qb64pe.bas"
}
#line 22272 "qb64pe.bas"
}
#line 22273 "qb64pe.bas"
do{
#line 22273 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 22273 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22273 "qb64pe.bas"
if(!qbevent)break;evnt(22273);}while(r);
#line 22274 "qb64pe.bas"
S_25532:;
#line 22274 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 22274 "qb64pe.bas"
if(qbevent){evnt(22274);if(r)goto S_25532;}
#line 22274 "qb64pe.bas"
do{
#line 22274 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES);
#line 22274 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22274 "qb64pe.bas"
if(!qbevent)break;evnt(22274);}while(r);
#line 22274 "qb64pe.bas"
}
#line 22275 "qb64pe.bas"
S_25535:;
#line 22275 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 22275 "qb64pe.bas"
if(qbevent){evnt(22275);if(r)goto S_25535;}
#line 22275 "qb64pe.bas"
do{
#line 22275 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST);
#line 22275 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22275 "qb64pe.bas"
if(!qbevent)break;evnt(22275);}while(r);
#line 22275 "qb64pe.bas"
}
#line 22276 "qb64pe.bas"
do{
#line 22276 "qb64pe.bas"
goto exit_subfunc;
#line 22276 "qb64pe.bas"
if(!qbevent)break;evnt(22276);}while(r);
#line 22277 "qb64pe.bas"
}
#line 22279 "qb64pe.bas"
S_25540:;
#line 22279 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
#line 22279 "qb64pe.bas"
if(qbevent){evnt(22279);if(r)goto S_25540;}
#line 22283 "qb64pe.bas"
do{
#line 22283 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S1=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22283 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22283 "qb64pe.bas"
if(!qbevent)break;evnt(22283);}while(r);
#line 22284 "qb64pe.bas"
S_25542:;
#line 22284 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S1)||is_error_pending()){
#line 22284 "qb64pe.bas"
if(qbevent){evnt(22284);if(r)goto S_25542;}
#line 22284 "qb64pe.bas"
do{
#line 22284 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2=func_instr(*_FUNC_EVALUATETOTYP_LONG_S1+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 22284 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22284 "qb64pe.bas"
if(!qbevent)break;evnt(22284);}while(r);
#line 22284 "qb64pe.bas"
}else{
#line 22284 "qb64pe.bas"
do{
#line 22284 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2= 0 ;
#line 22284 "qb64pe.bas"
if(!qbevent)break;evnt(22284);}while(r);
#line 22284 "qb64pe.bas"
}
#line 22285 "qb64pe.bas"
S_25547:;
#line 22285 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S2)||is_error_pending()){
#line 22285 "qb64pe.bas"
if(qbevent){evnt(22285);if(r)goto S_25547;}
#line 22285 "qb64pe.bas"
do{
#line 22285 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3=func_instr(*_FUNC_EVALUATETOTYP_LONG_S2+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 22285 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22285 "qb64pe.bas"
if(!qbevent)break;evnt(22285);}while(r);
#line 22285 "qb64pe.bas"
}else{
#line 22285 "qb64pe.bas"
do{
#line 22285 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3= 0 ;
#line 22285 "qb64pe.bas"
if(!qbevent)break;evnt(22285);}while(r);
#line 22285 "qb64pe.bas"
}
#line 22286 "qb64pe.bas"
S_25552:;
#line 22286 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S3)||is_error_pending()){
#line 22286 "qb64pe.bas"
if(qbevent){evnt(22286);if(r)goto S_25552;}
#line 22287 "qb64pe.bas"
do{
#line 22287 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1- 1 )));
#line 22287 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22287 "qb64pe.bas"
if(!qbevent)break;evnt(22287);}while(r);
#line 22288 "qb64pe.bas"
do{
#line 22288 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1+1,*_FUNC_EVALUATETOTYP_LONG_S2-*_FUNC_EVALUATETOTYP_LONG_S1-1,0|1)));
#line 22288 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22288 "qb64pe.bas"
if(!qbevent)break;evnt(22288);}while(r);
#line 22289 "qb64pe.bas"
do{
#line 22289 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S2+1,*_FUNC_EVALUATETOTYP_LONG_S3-*_FUNC_EVALUATETOTYP_LONG_S2-1,0|1)));
#line 22289 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22289 "qb64pe.bas"
if(!qbevent)break;evnt(22289);}while(r);
#line 22290 "qb64pe.bas"
S_25556:;
#line 22290 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID> 0 ))&(-(*_FUNC_EVALUATETOTYP_LONG_FINAL_MEMBER_ARRAY_INDEXED== 0 )))||is_error_pending()){
#line 22290 "qb64pe.bas"
if(qbevent){evnt(22290);if(r)goto S_25556;}
#line 22294 "qb64pe.bas"
S_25557:;
#line 22294 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 22294 "qb64pe.bas"
if(qbevent){evnt(22294);if(r)goto S_25557;}
#line 22295 "qb64pe.bas"
do{
#line 22295 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S3+1,NULL,0));
#line 22295 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22295 "qb64pe.bas"
if(!qbevent)break;evnt(22295);}while(r);
#line 22296 "qb64pe.bas"
do{
#line 22296 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22296 "qb64pe.bas"
if(!qbevent)break;evnt(22296);}while(r);
#line 22297 "qb64pe.bas"
S_25560:;
#line 22297 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22297 "qb64pe.bas"
if(qbevent){evnt(22297);if(r)goto S_25560;}
#line 22297 "qb64pe.bas"
do{
#line 22297 "qb64pe.bas"
goto exit_subfunc;
#line 22297 "qb64pe.bas"
if(!qbevent)break;evnt(22297);}while(r);
#line 22297 "qb64pe.bas"
}
#line 22298 "qb64pe.bas"
do{
#line 22298 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 22298 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22298 "qb64pe.bas"
if(!qbevent)break;evnt(22298);}while(r);
#line 22299 "qb64pe.bas"
S_25564:;
#line 22299 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 22299 "qb64pe.bas"
if(qbevent){evnt(22299);if(r)goto S_25564;}
#line 22299 "qb64pe.bas"
do{
#line 22299 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 22299 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22299 "qb64pe.bas"
if(!qbevent)break;evnt(22299);}while(r);
#line 22299 "qb64pe.bas"
}
#line 22300 "qb64pe.bas"
S_25567:;
#line 22300 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22300 "qb64pe.bas"
if(qbevent){evnt(22300);if(r)goto S_25567;}
#line 22301 "qb64pe.bas"
do{
#line 22301 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((ptrszint**)(((char*)",24),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))))",4)));
#line 22301 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22301 "qb64pe.bas"
if(!qbevent)break;evnt(22301);}while(r);
#line 22302 "qb64pe.bas"
do{
#line 22302 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,FUNC_UDTDYNARRAYDESCGUARD(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,(&(((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])]))));
#line 22302 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22302 "qb64pe.bas"
if(!qbevent)break;evnt(22302);}while(r);
#line 22303 "qb64pe.bas"
S_25570:;
#line 22303 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22303 "qb64pe.bas"
if(qbevent){evnt(22303);if(r)goto S_25570;}
#line 22303 "qb64pe.bas"
do{
#line 22303 "qb64pe.bas"
goto exit_subfunc;
#line 22303 "qb64pe.bas"
if(!qbevent)break;evnt(22303);}while(r);
#line 22303 "qb64pe.bas"
}
#line 22304 "qb64pe.bas"
do{
#line 22304 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID);
#line 22304 "qb64pe.bas"
if(!qbevent)break;evnt(22304);}while(r);
#line 22305 "qb64pe.bas"
do{
#line 22305 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_UDTDYNARRAYBYTESEXPR(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES));
#line 22305 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22305 "qb64pe.bas"
if(!qbevent)break;evnt(22305);}while(r);
#line 22306 "qb64pe.bas"
S_25575:;
#line 22306 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22306 "qb64pe.bas"
if(qbevent){evnt(22306);if(r)goto S_25575;}
#line 22306 "qb64pe.bas"
do{
#line 22306 "qb64pe.bas"
goto exit_subfunc;
#line 22306 "qb64pe.bas"
if(!qbevent)break;evnt(22306);}while(r);
#line 22306 "qb64pe.bas"
}
#line 22307 "qb64pe.bas"
do{
#line 22307 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_FUNC_EVALUATETOTYP_STRING_DESC_EXPR),qbs_new_txt_len("[0])",4)));
#line 22307 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22307 "qb64pe.bas"
if(!qbevent)break;evnt(22307);}while(r);
#line 22308 "qb64pe.bas"
do{
#line 22308 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 22308 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22308 "qb64pe.bas"
if(!qbevent)break;evnt(22308);}while(r);
#line 22309 "qb64pe.bas"
S_25580:;
#line 22309 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 22309 "qb64pe.bas"
if(qbevent){evnt(22309);if(r)goto S_25580;}
#line 22309 "qb64pe.bas"
do{
#line 22309 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES);
#line 22309 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22309 "qb64pe.bas"
if(!qbevent)break;evnt(22309);}while(r);
#line 22309 "qb64pe.bas"
}
#line 22310 "qb64pe.bas"
S_25583:;
#line 22310 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 22310 "qb64pe.bas"
if(qbevent){evnt(22310);if(r)goto S_25583;}
#line 22310 "qb64pe.bas"
do{
#line 22310 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST);
#line 22310 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22310 "qb64pe.bas"
if(!qbevent)break;evnt(22310);}while(r);
#line 22310 "qb64pe.bas"
}
#line 22311 "qb64pe.bas"
do{
#line 22311 "qb64pe.bas"
goto exit_subfunc;
#line 22311 "qb64pe.bas"
if(!qbevent)break;evnt(22311);}while(r);
#line 22312 "qb64pe.bas"
}
#line 22313 "qb64pe.bas"
do{
#line 22313 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22313 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22313 "qb64pe.bas"
if(!qbevent)break;evnt(22313);}while(r);
#line 22314 "qb64pe.bas"
do{
#line 22314 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 )),NULL,0));
#line 22314 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22314 "qb64pe.bas"
if(!qbevent)break;evnt(22314);}while(r);
#line 22315 "qb64pe.bas"
do{
#line 22315 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 22315 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22315 "qb64pe.bas"
if(!qbevent)break;evnt(22315);}while(r);
#line 22316 "qb64pe.bas"
S_25591:;
#line 22316 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 22316 "qb64pe.bas"
if(qbevent){evnt(22316);if(r)goto S_25591;}
#line 22316 "qb64pe.bas"
do{
#line 22316 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES);
#line 22316 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22316 "qb64pe.bas"
if(!qbevent)break;evnt(22316);}while(r);
#line 22316 "qb64pe.bas"
}
#line 22317 "qb64pe.bas"
S_25594:;
#line 22317 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 22317 "qb64pe.bas"
if(qbevent){evnt(22317);if(r)goto S_25594;}
#line 22317 "qb64pe.bas"
do{
#line 22317 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST);
#line 22317 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22317 "qb64pe.bas"
if(!qbevent)break;evnt(22317);}while(r);
#line 22317 "qb64pe.bas"
}
#line 22318 "qb64pe.bas"
do{
#line 22318 "qb64pe.bas"
goto exit_subfunc;
#line 22318 "qb64pe.bas"
if(!qbevent)break;evnt(22318);}while(r);
#line 22319 "qb64pe.bas"
}
#line 22320 "qb64pe.bas"
}
#line 22321 "qb64pe.bas"
}
#line 22324 "qb64pe.bas"
S_25601:;
#line 22324 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_EVALUATETOTYP_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||is_error_pending()){
#line 22324 "qb64pe.bas"
if(qbevent){evnt(22324);if(r)goto S_25601;}
#line 22326 "qb64pe.bas"
S_25602:;
#line 22326 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 22326 "qb64pe.bas"
if(qbevent){evnt(22326);if(r)goto S_25602;}
#line 22327 "qb64pe.bas"
S_25603:;
#line 22327 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 22327 "qb64pe.bas"
if(qbevent){evnt(22327);if(r)goto S_25603;}
#line 22328 "qb64pe.bas"
do{
#line 22328 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass array of variable-length strings",44));
#line 22328 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22328 "qb64pe.bas"
if(!qbevent)break;evnt(22328);}while(r);
#line 22328 "qb64pe.bas"
do{
#line 22328 "qb64pe.bas"
goto exit_subfunc;
#line 22328 "qb64pe.bas"
if(!qbevent)break;evnt(22328);}while(r);
#line 22329 "qb64pe.bas"
}
#line 22330 "qb64pe.bas"
}
#line 22331 "qb64pe.bas"
do{
#line 22331 "qb64pe.bas"
goto LABEL_METHOD2USEALL;
#line 22331 "qb64pe.bas"
if(!qbevent)break;evnt(22331);}while(r);
#line 22332 "qb64pe.bas"
}
#line 22334 "qb64pe.bas"
S_25610:;
#line 22334 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 22334 "qb64pe.bas"
if(qbevent){evnt(22334);if(r)goto S_25610;}
#line 22335 "qb64pe.bas"
S_25611:;
#line 22335 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 22335 "qb64pe.bas"
if(qbevent){evnt(22335);if(r)goto S_25611;}
#line 22336 "qb64pe.bas"
do{
#line 22336 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22336 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22336 "qb64pe.bas"
if(!qbevent)break;evnt(22336);}while(r);
#line 22337 "qb64pe.bas"
do{
#line 22337 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22337 "qb64pe.bas"
if(!qbevent)break;evnt(22337);}while(r);
#line 22338 "qb64pe.bas"
S_25614:;
#line 22338 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22338 "qb64pe.bas"
if(qbevent){evnt(22338);if(r)goto S_25614;}
#line 22338 "qb64pe.bas"
do{
#line 22338 "qb64pe.bas"
goto exit_subfunc;
#line 22338 "qb64pe.bas"
if(!qbevent)break;evnt(22338);}while(r);
#line 22338 "qb64pe.bas"
}
#line 22339 "qb64pe.bas"
do{
#line 22339 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+544)))),NULL,0));
#line 22339 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22339 "qb64pe.bas"
if(!qbevent)break;evnt(22339);}while(r);
#line 22340 "qb64pe.bas"
do{
#line 22340 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2789= 0 )));
#line 22340 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22340 "qb64pe.bas"
if(!qbevent)break;evnt(22340);}while(r);
#line 22341 "qb64pe.bas"
S_25619:;
#line 22341 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22341 "qb64pe.bas"
if(qbevent){evnt(22341);if(r)goto S_25619;}
#line 22341 "qb64pe.bas"
do{
#line 22341 "qb64pe.bas"
goto exit_subfunc;
#line 22341 "qb64pe.bas"
if(!qbevent)break;evnt(22341);}while(r);
#line 22341 "qb64pe.bas"
}
#line 22342 "qb64pe.bas"
do{
#line 22342 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 22342 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22342 "qb64pe.bas"
if(!qbevent)break;evnt(22342);}while(r);
#line 22343 "qb64pe.bas"
S_25623:;
#line 22343 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 22343 "qb64pe.bas"
if(qbevent){evnt(22343);if(r)goto S_25623;}
#line 22343 "qb64pe.bas"
do{
#line 22343 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES);
#line 22343 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22343 "qb64pe.bas"
if(!qbevent)break;evnt(22343);}while(r);
#line 22343 "qb64pe.bas"
}
#line 22344 "qb64pe.bas"
S_25626:;
#line 22344 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 22344 "qb64pe.bas"
if(qbevent){evnt(22344);if(r)goto S_25626;}
#line 22344 "qb64pe.bas"
do{
#line 22344 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5)));
#line 22344 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22344 "qb64pe.bas"
if(!qbevent)break;evnt(22344);}while(r);
#line 22344 "qb64pe.bas"
}
#line 22345 "qb64pe.bas"
}else{
#line 22346 "qb64pe.bas"
do{
#line 22346 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2790= 0 )));
#line 22346 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22346 "qb64pe.bas"
if(!qbevent)break;evnt(22346);}while(r);
#line 22347 "qb64pe.bas"
S_25631:;
#line 22347 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22347 "qb64pe.bas"
if(qbevent){evnt(22347);if(r)goto S_25631;}
#line 22347 "qb64pe.bas"
do{
#line 22347 "qb64pe.bas"
goto exit_subfunc;
#line 22347 "qb64pe.bas"
if(!qbevent)break;evnt(22347);}while(r);
#line 22347 "qb64pe.bas"
}
#line 22349 "qb64pe.bas"
do{
#line 22349 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->len,",6)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 22349 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22349 "qb64pe.bas"
if(!qbevent)break;evnt(22349);}while(r);
#line 22350 "qb64pe.bas"
S_25635:;
#line 22350 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 22350 "qb64pe.bas"
if(qbevent){evnt(22350);if(r)goto S_25635;}
#line 22350 "qb64pe.bas"
do{
#line 22350 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5)));
#line 22350 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22350 "qb64pe.bas"
if(!qbevent)break;evnt(22350);}while(r);
#line 22350 "qb64pe.bas"
}
#line 22351 "qb64pe.bas"
S_25638:;
#line 22351 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 22351 "qb64pe.bas"
if(qbevent){evnt(22351);if(r)goto S_25638;}
#line 22351 "qb64pe.bas"
do{
#line 22351 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5)));
#line 22351 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22351 "qb64pe.bas"
if(!qbevent)break;evnt(22351);}while(r);
#line 22351 "qb64pe.bas"
}
#line 22352 "qb64pe.bas"
}
#line 22353 "qb64pe.bas"
do{
#line 22353 "qb64pe.bas"
goto exit_subfunc;
#line 22353 "qb64pe.bas"
if(!qbevent)break;evnt(22353);}while(r);
#line 22354 "qb64pe.bas"
}
#line 22355 "qb64pe.bas"
do{
#line 22355 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2791= 0 )));
#line 22355 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22355 "qb64pe.bas"
if(!qbevent)break;evnt(22355);}while(r);
#line 22356 "qb64pe.bas"
S_25645:;
#line 22356 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22356 "qb64pe.bas"
if(qbevent){evnt(22356);if(r)goto S_25645;}
#line 22356 "qb64pe.bas"
do{
#line 22356 "qb64pe.bas"
goto exit_subfunc;
#line 22356 "qb64pe.bas"
if(!qbevent)break;evnt(22356);}while(r);
#line 22356 "qb64pe.bas"
}
#line 22357 "qb64pe.bas"
do{
#line 22357 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2)));
#line 22357 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22357 "qb64pe.bas"
if(!qbevent)break;evnt(22357);}while(r);
#line 22358 "qb64pe.bas"
do{
#line 22358 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 4095ll ), 8 )),NULL,0));
#line 22358 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22358 "qb64pe.bas"
if(!qbevent)break;evnt(22358);}while(r);
#line 22359 "qb64pe.bas"
do{
#line 22359 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 22359 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22359 "qb64pe.bas"
if(!qbevent)break;evnt(22359);}while(r);
#line 22360 "qb64pe.bas"
S_25651:;
#line 22360 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 22360 "qb64pe.bas"
if(qbevent){evnt(22360);if(r)goto S_25651;}
#line 22360 "qb64pe.bas"
do{
#line 22360 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES);
#line 22360 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22360 "qb64pe.bas"
if(!qbevent)break;evnt(22360);}while(r);
#line 22360 "qb64pe.bas"
}
#line 22361 "qb64pe.bas"
S_25654:;
#line 22361 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 22361 "qb64pe.bas"
if(qbevent){evnt(22361);if(r)goto S_25654;}
#line 22361 "qb64pe.bas"
do{
#line 22361 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E);
#line 22361 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22361 "qb64pe.bas"
if(!qbevent)break;evnt(22361);}while(r);
#line 22361 "qb64pe.bas"
}
#line 22362 "qb64pe.bas"
do{
#line 22362 "qb64pe.bas"
goto exit_subfunc;
#line 22362 "qb64pe.bas"
if(!qbevent)break;evnt(22362);}while(r);
#line 22363 "qb64pe.bas"
}
#line 22365 "qb64pe.bas"
S_25659:;
#line 22365 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 22365 "qb64pe.bas"
if(qbevent){evnt(22365);if(r)goto S_25659;}
#line 22366 "qb64pe.bas"
S_25660:;
#line 22366 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 22366 "qb64pe.bas"
if(qbevent){evnt(22366);if(r)goto S_25660;}
#line 22367 "qb64pe.bas"
do{
#line 22367 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22367 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22367 "qb64pe.bas"
if(!qbevent)break;evnt(22367);}while(r);
#line 22368 "qb64pe.bas"
do{
#line 22368 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22368 "qb64pe.bas"
if(!qbevent)break;evnt(22368);}while(r);
#line 22369 "qb64pe.bas"
S_25663:;
#line 22369 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22369 "qb64pe.bas"
if(qbevent){evnt(22369);if(r)goto S_25663;}
#line 22369 "qb64pe.bas"
do{
#line 22369 "qb64pe.bas"
goto exit_subfunc;
#line 22369 "qb64pe.bas"
if(!qbevent)break;evnt(22369);}while(r);
#line 22369 "qb64pe.bas"
}
#line 22370 "qb64pe.bas"
do{
#line 22370 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+544)))),NULL,0));
#line 22370 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22370 "qb64pe.bas"
if(!qbevent)break;evnt(22370);}while(r);
#line 22371 "qb64pe.bas"
do{
#line 22371 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2792= 0 )));
#line 22371 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22371 "qb64pe.bas"
if(!qbevent)break;evnt(22371);}while(r);
#line 22372 "qb64pe.bas"
S_25668:;
#line 22372 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22372 "qb64pe.bas"
if(qbevent){evnt(22372);if(r)goto S_25668;}
#line 22372 "qb64pe.bas"
do{
#line 22372 "qb64pe.bas"
goto exit_subfunc;
#line 22372 "qb64pe.bas"
if(!qbevent)break;evnt(22372);}while(r);
#line 22372 "qb64pe.bas"
}
#line 22373 "qb64pe.bas"
}else{
#line 22374 "qb64pe.bas"
do{
#line 22374 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2793= 0 )));
#line 22374 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22374 "qb64pe.bas"
if(!qbevent)break;evnt(22374);}while(r);
#line 22375 "qb64pe.bas"
S_25673:;
#line 22375 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22375 "qb64pe.bas"
if(qbevent){evnt(22375);if(r)goto S_25673;}
#line 22375 "qb64pe.bas"
do{
#line 22375 "qb64pe.bas"
goto exit_subfunc;
#line 22375 "qb64pe.bas"
if(!qbevent)break;evnt(22375);}while(r);
#line 22375 "qb64pe.bas"
}
#line 22376 "qb64pe.bas"
do{
#line 22376 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5)));
#line 22376 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22376 "qb64pe.bas"
if(!qbevent)break;evnt(22376);}while(r);
#line 22377 "qb64pe.bas"
}
#line 22378 "qb64pe.bas"
do{
#line 22378 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 22378 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22378 "qb64pe.bas"
if(!qbevent)break;evnt(22378);}while(r);
#line 22379 "qb64pe.bas"
S_25679:;
#line 22379 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 22379 "qb64pe.bas"
if(qbevent){evnt(22379);if(r)goto S_25679;}
#line 22379 "qb64pe.bas"
do{
#line 22379 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES);
#line 22379 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22379 "qb64pe.bas"
if(!qbevent)break;evnt(22379);}while(r);
#line 22379 "qb64pe.bas"
}
#line 22380 "qb64pe.bas"
S_25682:;
#line 22380 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 22380 "qb64pe.bas"
if(qbevent){evnt(22380);if(r)goto S_25682;}
#line 22380 "qb64pe.bas"
do{
#line 22380 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5)));
#line 22380 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22380 "qb64pe.bas"
if(!qbevent)break;evnt(22380);}while(r);
#line 22380 "qb64pe.bas"
}
#line 22381 "qb64pe.bas"
do{
#line 22381 "qb64pe.bas"
goto exit_subfunc;
#line 22381 "qb64pe.bas"
if(!qbevent)break;evnt(22381);}while(r);
#line 22382 "qb64pe.bas"
}
#line 22385 "qb64pe.bas"
do{
#line 22385 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2794= 1 )));
#line 22385 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22385 "qb64pe.bas"
if(!qbevent)break;evnt(22385);}while(r);
#line 22386 "qb64pe.bas"
S_25688:;
#line 22386 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22386 "qb64pe.bas"
if(qbevent){evnt(22386);if(r)goto S_25688;}
#line 22386 "qb64pe.bas"
do{
#line 22386 "qb64pe.bas"
goto exit_subfunc;
#line 22386 "qb64pe.bas"
if(!qbevent)break;evnt(22386);}while(r);
#line 22386 "qb64pe.bas"
}
#line 22387 "qb64pe.bas"
do{
#line 22387 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_SIZE=qb_safe_idiv((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 4095ll ), 8 );
#line 22387 "qb64pe.bas"
if(!qbevent)break;evnt(22387);}while(r);
#line 22388 "qb64pe.bas"
do{
#line 22388 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_SIZE),NULL,0)),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 22388 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22388 "qb64pe.bas"
if(!qbevent)break;evnt(22388);}while(r);
#line 22389 "qb64pe.bas"
S_25693:;
#line 22389 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 22389 "qb64pe.bas"
if(qbevent){evnt(22389);if(r)goto S_25693;}
#line 22389 "qb64pe.bas"
do{
#line 22389 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_SIZE),NULL,0));
#line 22389 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22389 "qb64pe.bas"
if(!qbevent)break;evnt(22389);}while(r);
#line 22389 "qb64pe.bas"
}
#line 22390 "qb64pe.bas"
S_25696:;
#line 22390 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 22390 "qb64pe.bas"
if(qbevent){evnt(22390);if(r)goto S_25696;}
#line 22390 "qb64pe.bas"
do{
#line 22390 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E);
#line 22390 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22390 "qb64pe.bas"
if(!qbevent)break;evnt(22390);}while(r);
#line 22390 "qb64pe.bas"
}
#line 22391 "qb64pe.bas"
do{
#line 22391 "qb64pe.bas"
goto exit_subfunc;
#line 22391 "qb64pe.bas"
if(!qbevent)break;evnt(22391);}while(r);
#line 22393 "qb64pe.bas"
}
#line 22398 "qb64pe.bas"
S_25701:;
#line 22398 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -8 ))||is_error_pending()){
#line 22398 "qb64pe.bas"
if(qbevent){evnt(22398);if(r)goto S_25701;}
#line 22399 "qb64pe.bas"
S_25702:;
#line 22399 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 22399 "qb64pe.bas"
if(qbevent){evnt(22399);if(r)goto S_25702;}
#line 22399 "qb64pe.bas"
do{
#line 22399 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36));
#line 22399 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22399 "qb64pe.bas"
if(!qbevent)break;evnt(22399);}while(r);
#line 22399 "qb64pe.bas"
do{
#line 22399 "qb64pe.bas"
goto exit_subfunc;
#line 22399 "qb64pe.bas"
if(!qbevent)break;evnt(22399);}while(r);
#line 22399 "qb64pe.bas"
}
#line 22400 "qb64pe.bas"
S_25706:;
#line 22400 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 22400 "qb64pe.bas"
if(qbevent){evnt(22400);if(r)goto S_25706;}
#line 22400 "qb64pe.bas"
do{
#line 22400 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be _BIT aligned",39));
#line 22400 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22400 "qb64pe.bas"
if(!qbevent)break;evnt(22400);}while(r);
#line 22400 "qb64pe.bas"
do{
#line 22400 "qb64pe.bas"
goto exit_subfunc;
#line 22400 "qb64pe.bas"
if(!qbevent)break;evnt(22400);}while(r);
#line 22400 "qb64pe.bas"
}
#line 22406 "qb64pe.bas"
do{
#line 22406 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S1=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22406 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22406 "qb64pe.bas"
if(!qbevent)break;evnt(22406);}while(r);
#line 22407 "qb64pe.bas"
S_25711:;
#line 22407 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S1)||is_error_pending()){
#line 22407 "qb64pe.bas"
if(qbevent){evnt(22407);if(r)goto S_25711;}
#line 22407 "qb64pe.bas"
do{
#line 22407 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2=func_instr(*_FUNC_EVALUATETOTYP_LONG_S1+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 22407 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22407 "qb64pe.bas"
if(!qbevent)break;evnt(22407);}while(r);
#line 22407 "qb64pe.bas"
}else{
#line 22407 "qb64pe.bas"
do{
#line 22407 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2= 0 ;
#line 22407 "qb64pe.bas"
if(!qbevent)break;evnt(22407);}while(r);
#line 22407 "qb64pe.bas"
}
#line 22408 "qb64pe.bas"
S_25716:;
#line 22408 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S2)||is_error_pending()){
#line 22408 "qb64pe.bas"
if(qbevent){evnt(22408);if(r)goto S_25716;}
#line 22408 "qb64pe.bas"
do{
#line 22408 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3=func_instr(*_FUNC_EVALUATETOTYP_LONG_S2+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 22408 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22408 "qb64pe.bas"
if(!qbevent)break;evnt(22408);}while(r);
#line 22408 "qb64pe.bas"
}else{
#line 22408 "qb64pe.bas"
do{
#line 22408 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3= 0 ;
#line 22408 "qb64pe.bas"
if(!qbevent)break;evnt(22408);}while(r);
#line 22408 "qb64pe.bas"
}
#line 22410 "qb64pe.bas"
S_25721:;
#line 22410 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_S3!= 0 ))&*_FUNC_EVALUATETOTYP_LONG_FINAL_MEMBER_ARRAY_INDEXED)||is_error_pending()){
#line 22410 "qb64pe.bas"
if(qbevent){evnt(22410);if(r)goto S_25721;}
#line 22411 "qb64pe.bas"
do{
#line 22411 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1- 1 )));
#line 22411 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22411 "qb64pe.bas"
if(!qbevent)break;evnt(22411);}while(r);
#line 22412 "qb64pe.bas"
do{
#line 22412 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1+1,*_FUNC_EVALUATETOTYP_LONG_S2-*_FUNC_EVALUATETOTYP_LONG_S1-1,0|1)));
#line 22412 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22412 "qb64pe.bas"
if(!qbevent)break;evnt(22412);}while(r);
#line 22413 "qb64pe.bas"
do{
#line 22413 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S2+1,*_FUNC_EVALUATETOTYP_LONG_S3-*_FUNC_EVALUATETOTYP_LONG_S2-1,0|1)));
#line 22413 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22413 "qb64pe.bas"
if(!qbevent)break;evnt(22413);}while(r);
#line 22415 "qb64pe.bas"
S_25725:;
#line 22415 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 22415 "qb64pe.bas"
if(qbevent){evnt(22415);if(r)goto S_25725;}
#line 22416 "qb64pe.bas"
S_25726:;
#line 22416 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 22416 "qb64pe.bas"
if(qbevent){evnt(22416);if(r)goto S_25726;}
#line 22417 "qb64pe.bas"
do{
#line 22417 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22417 "qb64pe.bas"
if(!qbevent)break;evnt(22417);}while(r);
#line 22418 "qb64pe.bas"
S_25728:;
#line 22418 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22418 "qb64pe.bas"
if(qbevent){evnt(22418);if(r)goto S_25728;}
#line 22418 "qb64pe.bas"
do{
#line 22418 "qb64pe.bas"
goto exit_subfunc;
#line 22418 "qb64pe.bas"
if(!qbevent)break;evnt(22418);}while(r);
#line 22418 "qb64pe.bas"
}
#line 22419 "qb64pe.bas"
do{
#line 22419 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 22419 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22419 "qb64pe.bas"
if(!qbevent)break;evnt(22419);}while(r);
#line 22420 "qb64pe.bas"
S_25732:;
#line 22420 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 22420 "qb64pe.bas"
if(qbevent){evnt(22420);if(r)goto S_25732;}
#line 22420 "qb64pe.bas"
do{
#line 22420 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 22420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22420 "qb64pe.bas"
if(!qbevent)break;evnt(22420);}while(r);
#line 22420 "qb64pe.bas"
}
#line 22421 "qb64pe.bas"
S_25735:;
#line 22421 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22421 "qb64pe.bas"
if(qbevent){evnt(22421);if(r)goto S_25735;}
#line 22422 "qb64pe.bas"
S_25736:;
#line 22422 "qb64pe.bas"
if ((FUNC_DYNMEMVARSTR(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22422 "qb64pe.bas"
if(qbevent){evnt(22422);if(r)goto S_25736;}
#line 22422 "qb64pe.bas"
do{
#line 22422 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22422 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22422 "qb64pe.bas"
if(!qbevent)break;evnt(22422);}while(r);
#line 22422 "qb64pe.bas"
do{
#line 22422 "qb64pe.bas"
goto exit_subfunc;
#line 22422 "qb64pe.bas"
if(!qbevent)break;evnt(22422);}while(r);
#line 22422 "qb64pe.bas"
}
#line 22423 "qb64pe.bas"
S_25740:;
#line 22423 "qb64pe.bas"
if ((FUNC_DYNMEMUDTVARSTR(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22423 "qb64pe.bas"
if(qbevent){evnt(22423);if(r)goto S_25740;}
#line 22423 "qb64pe.bas"
do{
#line 22423 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22423 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22423 "qb64pe.bas"
if(!qbevent)break;evnt(22423);}while(r);
#line 22423 "qb64pe.bas"
do{
#line 22423 "qb64pe.bas"
goto exit_subfunc;
#line 22423 "qb64pe.bas"
if(!qbevent)break;evnt(22423);}while(r);
#line 22423 "qb64pe.bas"
}
#line 22424 "qb64pe.bas"
do{
#line 22424 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S3+1,NULL,0));
#line 22424 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22424 "qb64pe.bas"
if(!qbevent)break;evnt(22424);}while(r);
#line 22425 "qb64pe.bas"
do{
#line 22425 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID);
#line 22425 "qb64pe.bas"
if(!qbevent)break;evnt(22425);}while(r);
#line 22426 "qb64pe.bas"
do{
#line 22426 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22426 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22426 "qb64pe.bas"
if(!qbevent)break;evnt(22426);}while(r);
#line 22427 "qb64pe.bas"
do{
#line 22427 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_TYP=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])];
#line 22427 "qb64pe.bas"
if(!qbevent)break;evnt(22427);}while(r);
#line 22428 "qb64pe.bas"
do{
#line 22428 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_ELEM_TYP);
#line 22428 "qb64pe.bas"
if(!qbevent)break;evnt(22428);}while(r);
#line 22429 "qb64pe.bas"
S_25749:;
#line 22429 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_DYNMEMLOCKEXPR,qbs_new_txt_len("",0))))||is_error_pending()){
#line 22429 "qb64pe.bas"
if(qbevent){evnt(22429);if(r)goto S_25749;}
#line 22429 "qb64pe.bas"
do{
#line 22429 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot access this explicit _Dynamic TYPE member array",59));
#line 22429 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22429 "qb64pe.bas"
if(!qbevent)break;evnt(22429);}while(r);
#line 22429 "qb64pe.bas"
do{
#line 22429 "qb64pe.bas"
goto exit_subfunc;
#line 22429 "qb64pe.bas"
if(!qbevent)break;evnt(22429);}while(r);
#line 22429 "qb64pe.bas"
}
#line 22430 "qb64pe.bas"
do{
#line 22430 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),__STRING_DYNMEMLOCKEXPR));
#line 22430 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22430 "qb64pe.bas"
if(!qbevent)break;evnt(22430);}while(r);
#line 22431 "qb64pe.bas"
do{
#line 22431 "qb64pe.bas"
goto exit_subfunc;
#line 22431 "qb64pe.bas"
if(!qbevent)break;evnt(22431);}while(r);
#line 22432 "qb64pe.bas"
}
#line 22433 "qb64pe.bas"
}
#line 22434 "qb64pe.bas"
}
#line 22435 "qb64pe.bas"
}
#line 22437 "qb64pe.bas"
S_25759:;
#line 22437 "qb64pe.bas"
if (((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY)!= 0 ))&(-(*_FUNC_EVALUATETOTYP_LONG_S3!= 0 )))||is_error_pending()){
#line 22437 "qb64pe.bas"
if(qbevent){evnt(22437);if(r)goto S_25759;}
#line 22439 "qb64pe.bas"
S_25760:;
#line 22439 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 22439 "qb64pe.bas"
if(qbevent){evnt(22439);if(r)goto S_25760;}
#line 22440 "qb64pe.bas"
S_25761:;
#line 22440 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 22440 "qb64pe.bas"
if(qbevent){evnt(22440);if(r)goto S_25761;}
#line 22441 "qb64pe.bas"
do{
#line 22441 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass array of variable-length strings",44));
#line 22441 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22441 "qb64pe.bas"
if(!qbevent)break;evnt(22441);}while(r);
#line 22441 "qb64pe.bas"
do{
#line 22441 "qb64pe.bas"
goto exit_subfunc;
#line 22441 "qb64pe.bas"
if(!qbevent)break;evnt(22441);}while(r);
#line 22442 "qb64pe.bas"
}
#line 22443 "qb64pe.bas"
}
#line 22444 "qb64pe.bas"
do{
#line 22444 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1- 1 )));
#line 22444 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22444 "qb64pe.bas"
if(!qbevent)break;evnt(22444);}while(r);
#line 22445 "qb64pe.bas"
do{
#line 22445 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1+1,*_FUNC_EVALUATETOTYP_LONG_S2-*_FUNC_EVALUATETOTYP_LONG_S1-1,0|1)));
#line 22445 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22445 "qb64pe.bas"
if(!qbevent)break;evnt(22445);}while(r);
#line 22446 "qb64pe.bas"
do{
#line 22446 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S2+1,*_FUNC_EVALUATETOTYP_LONG_S3-*_FUNC_EVALUATETOTYP_LONG_S2-1,0|1)));
#line 22446 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22446 "qb64pe.bas"
if(!qbevent)break;evnt(22446);}while(r);
#line 22450 "qb64pe.bas"
S_25769:;
#line 22450 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 22450 "qb64pe.bas"
if(qbevent){evnt(22450);if(r)goto S_25769;}
#line 22451 "qb64pe.bas"
S_25770:;
#line 22451 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 22451 "qb64pe.bas"
if(qbevent){evnt(22451);if(r)goto S_25770;}
#line 22452 "qb64pe.bas"
do{
#line 22452 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S3+1,NULL,0));
#line 22452 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22452 "qb64pe.bas"
if(!qbevent)break;evnt(22452);}while(r);
#line 22453 "qb64pe.bas"
do{
#line 22453 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22453 "qb64pe.bas"
if(!qbevent)break;evnt(22453);}while(r);
#line 22454 "qb64pe.bas"
S_25773:;
#line 22454 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22454 "qb64pe.bas"
if(qbevent){evnt(22454);if(r)goto S_25773;}
#line 22454 "qb64pe.bas"
do{
#line 22454 "qb64pe.bas"
goto exit_subfunc;
#line 22454 "qb64pe.bas"
if(!qbevent)break;evnt(22454);}while(r);
#line 22454 "qb64pe.bas"
}
#line 22455 "qb64pe.bas"
do{
#line 22455 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 22455 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22455 "qb64pe.bas"
if(!qbevent)break;evnt(22455);}while(r);
#line 22456 "qb64pe.bas"
S_25777:;
#line 22456 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 22456 "qb64pe.bas"
if(qbevent){evnt(22456);if(r)goto S_25777;}
#line 22456 "qb64pe.bas"
do{
#line 22456 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 22456 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22456 "qb64pe.bas"
if(!qbevent)break;evnt(22456);}while(r);
#line 22456 "qb64pe.bas"
}
#line 22457 "qb64pe.bas"
S_25780:;
#line 22457 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)&*_FUNC_EVALUATETOTYP_LONG_FINAL_MEMBER_ARRAY_INDEXED)||is_error_pending()){
#line 22457 "qb64pe.bas"
if(qbevent){evnt(22457);if(r)goto S_25780;}
#line 22458 "qb64pe.bas"
S_25781:;
#line 22458 "qb64pe.bas"
if ((FUNC_DYNMEMVARSTR(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22458 "qb64pe.bas"
if(qbevent){evnt(22458);if(r)goto S_25781;}
#line 22458 "qb64pe.bas"
do{
#line 22458 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22458 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22458 "qb64pe.bas"
if(!qbevent)break;evnt(22458);}while(r);
#line 22458 "qb64pe.bas"
do{
#line 22458 "qb64pe.bas"
goto exit_subfunc;
#line 22458 "qb64pe.bas"
if(!qbevent)break;evnt(22458);}while(r);
#line 22458 "qb64pe.bas"
}
#line 22459 "qb64pe.bas"
S_25785:;
#line 22459 "qb64pe.bas"
if ((FUNC_DYNMEMUDTVARSTR(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22459 "qb64pe.bas"
if(qbevent){evnt(22459);if(r)goto S_25785;}
#line 22459 "qb64pe.bas"
do{
#line 22459 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22459 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22459 "qb64pe.bas"
if(!qbevent)break;evnt(22459);}while(r);
#line 22459 "qb64pe.bas"
do{
#line 22459 "qb64pe.bas"
goto exit_subfunc;
#line 22459 "qb64pe.bas"
if(!qbevent)break;evnt(22459);}while(r);
#line 22459 "qb64pe.bas"
}
#line 22464 "qb64pe.bas"
do{
#line 22464 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID);
#line 22464 "qb64pe.bas"
if(!qbevent)break;evnt(22464);}while(r);
#line 22465 "qb64pe.bas"
do{
#line 22465 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22465 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22465 "qb64pe.bas"
if(!qbevent)break;evnt(22465);}while(r);
#line 22466 "qb64pe.bas"
do{
#line 22466 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_TYP=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])];
#line 22466 "qb64pe.bas"
if(!qbevent)break;evnt(22466);}while(r);
#line 22467 "qb64pe.bas"
do{
#line 22467 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_ELEM_TYP);
#line 22467 "qb64pe.bas"
if(!qbevent)break;evnt(22467);}while(r);
#line 22468 "qb64pe.bas"
S_25793:;
#line 22468 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_DYNMEMLOCKEXPR,qbs_new_txt_len("",0))))||is_error_pending()){
#line 22468 "qb64pe.bas"
if(qbevent){evnt(22468);if(r)goto S_25793;}
#line 22468 "qb64pe.bas"
do{
#line 22468 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot access this explicit _Dynamic TYPE member array",59));
#line 22468 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22468 "qb64pe.bas"
if(!qbevent)break;evnt(22468);}while(r);
#line 22468 "qb64pe.bas"
do{
#line 22468 "qb64pe.bas"
goto exit_subfunc;
#line 22468 "qb64pe.bas"
if(!qbevent)break;evnt(22468);}while(r);
#line 22468 "qb64pe.bas"
}
#line 22469 "qb64pe.bas"
do{
#line 22469 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),__STRING_DYNMEMLOCKEXPR));
#line 22469 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22469 "qb64pe.bas"
if(!qbevent)break;evnt(22469);}while(r);
#line 22470 "qb64pe.bas"
do{
#line 22470 "qb64pe.bas"
goto exit_subfunc;
#line 22470 "qb64pe.bas"
if(!qbevent)break;evnt(22470);}while(r);
#line 22471 "qb64pe.bas"
}
#line 22472 "qb64pe.bas"
S_25800:;
#line 22472 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22472 "qb64pe.bas"
if(qbevent){evnt(22472);if(r)goto S_25800;}
#line 22473 "qb64pe.bas"
S_25801:;
#line 22473 "qb64pe.bas"
if ((FUNC_DYNMEMVARSTR(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22473 "qb64pe.bas"
if(qbevent){evnt(22473);if(r)goto S_25801;}
#line 22473 "qb64pe.bas"
do{
#line 22473 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22473 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22473 "qb64pe.bas"
if(!qbevent)break;evnt(22473);}while(r);
#line 22473 "qb64pe.bas"
do{
#line 22473 "qb64pe.bas"
goto exit_subfunc;
#line 22473 "qb64pe.bas"
if(!qbevent)break;evnt(22473);}while(r);
#line 22473 "qb64pe.bas"
}
#line 22474 "qb64pe.bas"
S_25805:;
#line 22474 "qb64pe.bas"
if ((FUNC_DYNMEMUDTVARSTR(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22474 "qb64pe.bas"
if(qbevent){evnt(22474);if(r)goto S_25805;}
#line 22474 "qb64pe.bas"
do{
#line 22474 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22474 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22474 "qb64pe.bas"
if(!qbevent)break;evnt(22474);}while(r);
#line 22474 "qb64pe.bas"
do{
#line 22474 "qb64pe.bas"
goto exit_subfunc;
#line 22474 "qb64pe.bas"
if(!qbevent)break;evnt(22474);}while(r);
#line 22474 "qb64pe.bas"
}
#line 22475 "qb64pe.bas"
do{
#line 22475 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((ptrszint**)(((char*)",24),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))))",4)));
#line 22475 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22475 "qb64pe.bas"
if(!qbevent)break;evnt(22475);}while(r);
#line 22476 "qb64pe.bas"
do{
#line 22476 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,FUNC_UDTDYNARRAYDESCGUARD(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,(&(((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])]))));
#line 22476 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22476 "qb64pe.bas"
if(!qbevent)break;evnt(22476);}while(r);
#line 22477 "qb64pe.bas"
S_25811:;
#line 22477 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22477 "qb64pe.bas"
if(qbevent){evnt(22477);if(r)goto S_25811;}
#line 22477 "qb64pe.bas"
do{
#line 22477 "qb64pe.bas"
goto exit_subfunc;
#line 22477 "qb64pe.bas"
if(!qbevent)break;evnt(22477);}while(r);
#line 22477 "qb64pe.bas"
}
#line 22478 "qb64pe.bas"
do{
#line 22478 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID);
#line 22478 "qb64pe.bas"
if(!qbevent)break;evnt(22478);}while(r);
#line 22479 "qb64pe.bas"
do{
#line 22479 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_UDTDYNARRAYBYTESEXPR(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES));
#line 22479 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22479 "qb64pe.bas"
if(!qbevent)break;evnt(22479);}while(r);
#line 22480 "qb64pe.bas"
S_25816:;
#line 22480 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22480 "qb64pe.bas"
if(qbevent){evnt(22480);if(r)goto S_25816;}
#line 22480 "qb64pe.bas"
do{
#line 22480 "qb64pe.bas"
goto exit_subfunc;
#line 22480 "qb64pe.bas"
if(!qbevent)break;evnt(22480);}while(r);
#line 22480 "qb64pe.bas"
}
#line 22481 "qb64pe.bas"
do{
#line 22481 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_FUNC_EVALUATETOTYP_STRING_DESC_EXPR),qbs_new_txt_len("[0])",4)));
#line 22481 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22481 "qb64pe.bas"
if(!qbevent)break;evnt(22481);}while(r);
#line 22482 "qb64pe.bas"
do{
#line 22482 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22482 "qb64pe.bas"
if(!qbevent)break;evnt(22482);}while(r);
#line 22483 "qb64pe.bas"
do{
#line 22483 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_LK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(mem_lock*)(",12),_FUNC_EVALUATETOTYP_STRING_DESC_EXPR),qbs_new_txt_len("[",1)),_FUNC_EVALUATETOTYP_STRING_DESC_EXPR),qbs_new_txt_len("[3]*4+4])",9)));
#line 22483 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22483 "qb64pe.bas"
if(!qbevent)break;evnt(22483);}while(r);
#line 22484 "qb64pe.bas"
do{
#line 22484 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK));
#line 22484 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22484 "qb64pe.bas"
if(!qbevent)break;evnt(22484);}while(r);
#line 22485 "qb64pe.bas"
do{
#line 22485 "qb64pe.bas"
goto exit_subfunc;
#line 22485 "qb64pe.bas"
if(!qbevent)break;evnt(22485);}while(r);
#line 22486 "qb64pe.bas"
}
#line 22487 "qb64pe.bas"
do{
#line 22487 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 )),NULL,0));
#line 22487 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22487 "qb64pe.bas"
if(!qbevent)break;evnt(22487);}while(r);
#line 22488 "qb64pe.bas"
do{
#line 22488 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22488 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22488 "qb64pe.bas"
if(!qbevent)break;evnt(22488);}while(r);
#line 22489 "qb64pe.bas"
do{
#line 22489 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22489 "qb64pe.bas"
if(!qbevent)break;evnt(22489);}while(r);
#line 22490 "qb64pe.bas"
do{
#line 22490 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(FUNC_UDT_ARRAY_MEMBER_BYTES(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)),NULL,0)),qbs_new_txt_len(",sf_mem_lock",12)));
#line 22490 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22490 "qb64pe.bas"
if(!qbevent)break;evnt(22490);}while(r);
#line 22491 "qb64pe.bas"
do{
#line 22491 "qb64pe.bas"
goto exit_subfunc;
#line 22491 "qb64pe.bas"
if(!qbevent)break;evnt(22491);}while(r);
#line 22492 "qb64pe.bas"
}
#line 22493 "qb64pe.bas"
}
#line 22494 "qb64pe.bas"
}
#line 22496 "qb64pe.bas"
S_25833:;
#line 22496 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_DYNMEMLOCKEXPR,qbs_new_txt_len("",0)))&((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))))||is_error_pending()){
#line 22496 "qb64pe.bas"
if(qbevent){evnt(22496);if(r)goto S_25833;}
#line 22500 "qb64pe.bas"
do{
#line 22500 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22500 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22500 "qb64pe.bas"
if(!qbevent)break;evnt(22500);}while(r);
#line 22501 "qb64pe.bas"
do{
#line 22501 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22501 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22501 "qb64pe.bas"
if(!qbevent)break;evnt(22501);}while(r);
#line 22501 "qb64pe.bas"
do{
#line 22501 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22501 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22501 "qb64pe.bas"
if(!qbevent)break;evnt(22501);}while(r);
#line 22502 "qb64pe.bas"
do{
#line 22502 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22502 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22502 "qb64pe.bas"
if(!qbevent)break;evnt(22502);}while(r);
#line 22503 "qb64pe.bas"
do{
#line 22503 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22503 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22503 "qb64pe.bas"
if(!qbevent)break;evnt(22503);}while(r);
#line 22503 "qb64pe.bas"
do{
#line 22503 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22503 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22503 "qb64pe.bas"
if(!qbevent)break;evnt(22503);}while(r);
#line 22504 "qb64pe.bas"
do{
#line 22504 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_UDTELEM=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22504 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22504 "qb64pe.bas"
if(!qbevent)break;evnt(22504);}while(r);
#line 22505 "qb64pe.bas"
do{
#line 22505 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22505 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22505 "qb64pe.bas"
if(!qbevent)break;evnt(22505);}while(r);
#line 22505 "qb64pe.bas"
do{
#line 22505 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22505 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22505 "qb64pe.bas"
if(!qbevent)break;evnt(22505);}while(r);
#line 22506 "qb64pe.bas"
do{
#line 22506 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E);
#line 22506 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22506 "qb64pe.bas"
if(!qbevent)break;evnt(22506);}while(r);
#line 22507 "qb64pe.bas"
do{
#line 22507 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22507 "qb64pe.bas"
if(!qbevent)break;evnt(22507);}while(r);
#line 22508 "qb64pe.bas"
S_25845:;
#line 22508 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22508 "qb64pe.bas"
if(qbevent){evnt(22508);if(r)goto S_25845;}
#line 22508 "qb64pe.bas"
do{
#line 22508 "qb64pe.bas"
goto exit_subfunc;
#line 22508 "qb64pe.bas"
if(!qbevent)break;evnt(22508);}while(r);
#line 22508 "qb64pe.bas"
}
#line 22509 "qb64pe.bas"
S_25848:;
#line 22509 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_UDTELEM== 0 ))||is_error_pending()){
#line 22509 "qb64pe.bas"
if(qbevent){evnt(22509);if(r)goto S_25848;}
#line 22510 "qb64pe.bas"
S_25849:;
#line 22510 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 22510 "qb64pe.bas"
if(qbevent){evnt(22510);if(r)goto S_25849;}
#line 22510 "qb64pe.bas"
do{
#line 22510 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22510 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22510 "qb64pe.bas"
if(!qbevent)break;evnt(22510);}while(r);
#line 22510 "qb64pe.bas"
do{
#line 22510 "qb64pe.bas"
goto exit_subfunc;
#line 22510 "qb64pe.bas"
if(!qbevent)break;evnt(22510);}while(r);
#line 22510 "qb64pe.bas"
}
#line 22511 "qb64pe.bas"
}else{
#line 22512 "qb64pe.bas"
S_25854:;
#line 22512 "qb64pe.bas"
if ((FUNC_DYNMEMVARSTR(_FUNC_EVALUATETOTYP_LONG_UDTELEM))||is_error_pending()){
#line 22512 "qb64pe.bas"
if(qbevent){evnt(22512);if(r)goto S_25854;}
#line 22512 "qb64pe.bas"
do{
#line 22512 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22512 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22512 "qb64pe.bas"
if(!qbevent)break;evnt(22512);}while(r);
#line 22512 "qb64pe.bas"
do{
#line 22512 "qb64pe.bas"
goto exit_subfunc;
#line 22512 "qb64pe.bas"
if(!qbevent)break;evnt(22512);}while(r);
#line 22512 "qb64pe.bas"
}
#line 22513 "qb64pe.bas"
S_25858:;
#line 22513 "qb64pe.bas"
if ((FUNC_DYNMEMUDTVARSTR(_FUNC_EVALUATETOTYP_LONG_UDTELEM))||is_error_pending()){
#line 22513 "qb64pe.bas"
if(qbevent){evnt(22513);if(r)goto S_25858;}
#line 22513 "qb64pe.bas"
do{
#line 22513 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22513 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22513 "qb64pe.bas"
if(!qbevent)break;evnt(22513);}while(r);
#line 22513 "qb64pe.bas"
do{
#line 22513 "qb64pe.bas"
goto exit_subfunc;
#line 22513 "qb64pe.bas"
if(!qbevent)break;evnt(22513);}while(r);
#line 22513 "qb64pe.bas"
}
#line 22514 "qb64pe.bas"
}
#line 22515 "qb64pe.bas"
do{
#line 22515 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 22515 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22515 "qb64pe.bas"
if(!qbevent)break;evnt(22515);}while(r);
#line 22516 "qb64pe.bas"
S_25864:;
#line 22516 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 22516 "qb64pe.bas"
if(qbevent){evnt(22516);if(r)goto S_25864;}
#line 22516 "qb64pe.bas"
do{
#line 22516 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 22516 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22516 "qb64pe.bas"
if(!qbevent)break;evnt(22516);}while(r);
#line 22516 "qb64pe.bas"
}
#line 22517 "qb64pe.bas"
do{
#line 22517 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22517 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22517 "qb64pe.bas"
if(!qbevent)break;evnt(22517);}while(r);
#line 22518 "qb64pe.bas"
S_25868:;
#line 22518 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_UDTELEM== 0 ))||is_error_pending()){
#line 22518 "qb64pe.bas"
if(qbevent){evnt(22518);if(r)goto S_25868;}
#line 22519 "qb64pe.bas"
do{
#line 22519 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])], 8 );
#line 22519 "qb64pe.bas"
if(!qbevent)break;evnt(22519);}while(r);
#line 22520 "qb64pe.bas"
S_25870:;
#line 22520 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520))))||is_error_pending()){
#line 22520 "qb64pe.bas"
if(qbevent){evnt(22520);if(r)goto S_25870;}
#line 22520 "qb64pe.bas"
do{
#line 22520 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=qb_safe_idiv(FUNC_UDTDYNLAYOUTSIZE(_FUNC_EVALUATETOTYP_LONG_U), 8 );
#line 22520 "qb64pe.bas"
if(!qbevent)break;evnt(22520);}while(r);
#line 22520 "qb64pe.bas"
}
#line 22521 "qb64pe.bas"
}else{
#line 22522 "qb64pe.bas"
do{
#line 22522 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_UDTELEM)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 );
#line 22522 "qb64pe.bas"
if(!qbevent)break;evnt(22522);}while(r);
#line 22523 "qb64pe.bas"
}
#line 22524 "qb64pe.bas"
do{
#line 22524 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22524 "qb64pe.bas"
if(!qbevent)break;evnt(22524);}while(r);
#line 22525 "qb64pe.bas"
do{
#line 22525 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),__STRING_DYNMEMLOCKEXPR));
#line 22525 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22525 "qb64pe.bas"
if(!qbevent)break;evnt(22525);}while(r);
#line 22526 "qb64pe.bas"
do{
#line 22526 "qb64pe.bas"
goto exit_subfunc;
#line 22526 "qb64pe.bas"
if(!qbevent)break;evnt(22526);}while(r);
#line 22527 "qb64pe.bas"
}
#line 22529 "qb64pe.bas"
S_25880:;
#line 22529 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||is_error_pending()){
#line 22529 "qb64pe.bas"
if(qbevent){evnt(22529);if(r)goto S_25880;}
#line 22530 "qb64pe.bas"
do{
#line 22530 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22530 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22530 "qb64pe.bas"
if(!qbevent)break;evnt(22530);}while(r);
#line 22531 "qb64pe.bas"
do{
#line 22531 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22531 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22531 "qb64pe.bas"
if(!qbevent)break;evnt(22531);}while(r);
#line 22531 "qb64pe.bas"
do{
#line 22531 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22531 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22531 "qb64pe.bas"
if(!qbevent)break;evnt(22531);}while(r);
#line 22532 "qb64pe.bas"
do{
#line 22532 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22532 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22532 "qb64pe.bas"
if(!qbevent)break;evnt(22532);}while(r);
#line 22533 "qb64pe.bas"
do{
#line 22533 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22533 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22533 "qb64pe.bas"
if(!qbevent)break;evnt(22533);}while(r);
#line 22533 "qb64pe.bas"
do{
#line 22533 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22533 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22533 "qb64pe.bas"
if(!qbevent)break;evnt(22533);}while(r);
#line 22534 "qb64pe.bas"
do{
#line 22534 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_UDTELEM=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22534 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22534 "qb64pe.bas"
if(!qbevent)break;evnt(22534);}while(r);
#line 22535 "qb64pe.bas"
do{
#line 22535 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22535 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22535 "qb64pe.bas"
if(!qbevent)break;evnt(22535);}while(r);
#line 22535 "qb64pe.bas"
do{
#line 22535 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22535 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22535 "qb64pe.bas"
if(!qbevent)break;evnt(22535);}while(r);
#line 22536 "qb64pe.bas"
do{
#line 22536 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E);
#line 22536 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22536 "qb64pe.bas"
if(!qbevent)break;evnt(22536);}while(r);
#line 22537 "qb64pe.bas"
do{
#line 22537 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22537 "qb64pe.bas"
if(!qbevent)break;evnt(22537);}while(r);
#line 22538 "qb64pe.bas"
S_25892:;
#line 22538 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22538 "qb64pe.bas"
if(qbevent){evnt(22538);if(r)goto S_25892;}
#line 22538 "qb64pe.bas"
do{
#line 22538 "qb64pe.bas"
goto exit_subfunc;
#line 22538 "qb64pe.bas"
if(!qbevent)break;evnt(22538);}while(r);
#line 22538 "qb64pe.bas"
}
#line 22539 "qb64pe.bas"
S_25895:;
#line 22539 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_UDTELEM== 0 ))&*(int16*)(((char*)__UDT_ID)+((0+520)))&(FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_EVALUATETOTYP_LONG_U,&(pass2813=*(int16*)(((char*)__UDT_ID)+((0+522)))))))||is_error_pending()){
#line 22539 "qb64pe.bas"
if(qbevent){evnt(22539);if(r)goto S_25895;}
#line 22539 "qb64pe.bas"
do{
#line 22539 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference a TYPE value that contains explicit _Dynamic member arrays",80));
#line 22539 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22539 "qb64pe.bas"
if(!qbevent)break;evnt(22539);}while(r);
#line 22539 "qb64pe.bas"
do{
#line 22539 "qb64pe.bas"
goto exit_subfunc;
#line 22539 "qb64pe.bas"
if(!qbevent)break;evnt(22539);}while(r);
#line 22539 "qb64pe.bas"
}
#line 22540 "qb64pe.bas"
S_25899:;
#line 22540 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_UDTELEM== 0 ))&*(int16*)(((char*)__UDT_ID)+((0+520)))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 22540 "qb64pe.bas"
if(qbevent){evnt(22540);if(r)goto S_25899;}
#line 22540 "qb64pe.bas"
do{
#line 22540 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22540 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22540 "qb64pe.bas"
if(!qbevent)break;evnt(22540);}while(r);
#line 22540 "qb64pe.bas"
do{
#line 22540 "qb64pe.bas"
goto exit_subfunc;
#line 22540 "qb64pe.bas"
if(!qbevent)break;evnt(22540);}while(r);
#line 22540 "qb64pe.bas"
}
#line 22541 "qb64pe.bas"
do{
#line 22541 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 22541 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22541 "qb64pe.bas"
if(!qbevent)break;evnt(22541);}while(r);
#line 22542 "qb64pe.bas"
S_25904:;
#line 22542 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 22542 "qb64pe.bas"
if(qbevent){evnt(22542);if(r)goto S_25904;}
#line 22543 "qb64pe.bas"
do{
#line 22543 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 22543 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22543 "qb64pe.bas"
if(!qbevent)break;evnt(22543);}while(r);
#line 22545 "qb64pe.bas"
S_25906:;
#line 22545 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATETOTYP_STRING_O, 5 ),qbs_new_txt_len("((0)*",5))))||is_error_pending()){
#line 22545 "qb64pe.bas"
if(qbevent){evnt(22545);if(r)goto S_25906;}
#line 22547 "qb64pe.bas"
do{
#line 22547 "qb64pe.bas"
goto LABEL_METHOD2USEALLUDT__7;
#line 22547 "qb64pe.bas"
if(!qbevent)break;evnt(22547);}while(r);
#line 22548 "qb64pe.bas"
}
#line 22549 "qb64pe.bas"
}
#line 22551 "qb64pe.bas"
S_25910:;
#line 22551 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_UDTELEM== 0 ))||is_error_pending()){
#line 22551 "qb64pe.bas"
if(qbevent){evnt(22551);if(r)goto S_25910;}
#line 22552 "qb64pe.bas"
S_25911:;
#line 22552 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520))))||is_error_pending()){
#line 22552 "qb64pe.bas"
if(qbevent){evnt(22552);if(r)goto S_25911;}
#line 22553 "qb64pe.bas"
do{
#line 22553 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv(FUNC_UDTDYNLAYOUTSIZE(_FUNC_EVALUATETOTYP_LONG_U), 8 )),NULL,0));
#line 22553 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22553 "qb64pe.bas"
if(!qbevent)break;evnt(22553);}while(r);
#line 22554 "qb64pe.bas"
}else{
#line 22555 "qb64pe.bas"
do{
#line 22555 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])], 8 )),NULL,0));
#line 22555 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22555 "qb64pe.bas"
if(!qbevent)break;evnt(22555);}while(r);
#line 22556 "qb64pe.bas"
}
#line 22557 "qb64pe.bas"
do{
#line 22557 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T1=*__LONG_ISUDT+((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])];
#line 22557 "qb64pe.bas"
if(!qbevent)break;evnt(22557);}while(r);
#line 22558 "qb64pe.bas"
}else{
#line 22559 "qb64pe.bas"
do{
#line 22559 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_UDTELEM)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 )),NULL,0));
#line 22559 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22559 "qb64pe.bas"
if(!qbevent)break;evnt(22559);}while(r);
#line 22560 "qb64pe.bas"
do{
#line 22560 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T1=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])];
#line 22560 "qb64pe.bas"
if(!qbevent)break;evnt(22560);}while(r);
#line 22561 "qb64pe.bas"
}
#line 22562 "qb64pe.bas"
do{
#line 22562 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22562 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22562 "qb64pe.bas"
if(!qbevent)break;evnt(22562);}while(r);
#line 22567 "qb64pe.bas"
do{
#line 22567 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_T1);
#line 22567 "qb64pe.bas"
if(!qbevent)break;evnt(22567);}while(r);
#line 22568 "qb64pe.bas"
do{
#line 22568 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12)));
#line 22568 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22568 "qb64pe.bas"
if(!qbevent)break;evnt(22568);}while(r);
#line 22570 "qb64pe.bas"
do{
#line 22570 "qb64pe.bas"
goto exit_subfunc;
#line 22570 "qb64pe.bas"
if(!qbevent)break;evnt(22570);}while(r);
#line 22571 "qb64pe.bas"
}
#line 22573 "qb64pe.bas"
S_25926:;
#line 22573 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
#line 22573 "qb64pe.bas"
if(qbevent){evnt(22573);if(r)goto S_25926;}
#line 22576 "qb64pe.bas"
do{
#line 22576 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S1=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22576 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22576 "qb64pe.bas"
if(!qbevent)break;evnt(22576);}while(r);
#line 22577 "qb64pe.bas"
S_25928:;
#line 22577 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S1)||is_error_pending()){
#line 22577 "qb64pe.bas"
if(qbevent){evnt(22577);if(r)goto S_25928;}
#line 22577 "qb64pe.bas"
do{
#line 22577 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2=func_instr(*_FUNC_EVALUATETOTYP_LONG_S1+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 22577 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22577 "qb64pe.bas"
if(!qbevent)break;evnt(22577);}while(r);
#line 22577 "qb64pe.bas"
}else{
#line 22577 "qb64pe.bas"
do{
#line 22577 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2= 0 ;
#line 22577 "qb64pe.bas"
if(!qbevent)break;evnt(22577);}while(r);
#line 22577 "qb64pe.bas"
}
#line 22578 "qb64pe.bas"
S_25933:;
#line 22578 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S2)||is_error_pending()){
#line 22578 "qb64pe.bas"
if(qbevent){evnt(22578);if(r)goto S_25933;}
#line 22578 "qb64pe.bas"
do{
#line 22578 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3=func_instr(*_FUNC_EVALUATETOTYP_LONG_S2+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 22578 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22578 "qb64pe.bas"
if(!qbevent)break;evnt(22578);}while(r);
#line 22578 "qb64pe.bas"
}else{
#line 22578 "qb64pe.bas"
do{
#line 22578 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3= 0 ;
#line 22578 "qb64pe.bas"
if(!qbevent)break;evnt(22578);}while(r);
#line 22578 "qb64pe.bas"
}
#line 22579 "qb64pe.bas"
S_25938:;
#line 22579 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S3)||is_error_pending()){
#line 22579 "qb64pe.bas"
if(qbevent){evnt(22579);if(r)goto S_25938;}
#line 22580 "qb64pe.bas"
do{
#line 22580 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1- 1 )));
#line 22580 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22580 "qb64pe.bas"
if(!qbevent)break;evnt(22580);}while(r);
#line 22581 "qb64pe.bas"
do{
#line 22581 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1+1,*_FUNC_EVALUATETOTYP_LONG_S2-*_FUNC_EVALUATETOTYP_LONG_S1-1,0|1)));
#line 22581 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22581 "qb64pe.bas"
if(!qbevent)break;evnt(22581);}while(r);
#line 22582 "qb64pe.bas"
do{
#line 22582 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S2+1,*_FUNC_EVALUATETOTYP_LONG_S3-*_FUNC_EVALUATETOTYP_LONG_S2-1,0|1)));
#line 22582 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22582 "qb64pe.bas"
if(!qbevent)break;evnt(22582);}while(r);
#line 22586 "qb64pe.bas"
S_25942:;
#line 22586 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 22586 "qb64pe.bas"
if(qbevent){evnt(22586);if(r)goto S_25942;}
#line 22587 "qb64pe.bas"
S_25943:;
#line 22587 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 22587 "qb64pe.bas"
if(qbevent){evnt(22587);if(r)goto S_25943;}
#line 22588 "qb64pe.bas"
do{
#line 22588 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S3+1,NULL,0));
#line 22588 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22588 "qb64pe.bas"
if(!qbevent)break;evnt(22588);}while(r);
#line 22589 "qb64pe.bas"
S_25945:;
#line 22589 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 22589 "qb64pe.bas"
if(qbevent){evnt(22589);if(r)goto S_25945;}
#line 22590 "qb64pe.bas"
S_25946:;
#line 22590 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 22590 "qb64pe.bas"
if(qbevent){evnt(22590);if(r)goto S_25946;}
#line 22591 "qb64pe.bas"
do{
#line 22591 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass array of variable-length strings",44));
#line 22591 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22591 "qb64pe.bas"
if(!qbevent)break;evnt(22591);}while(r);
#line 22591 "qb64pe.bas"
do{
#line 22591 "qb64pe.bas"
goto exit_subfunc;
#line 22591 "qb64pe.bas"
if(!qbevent)break;evnt(22591);}while(r);
#line 22592 "qb64pe.bas"
}
#line 22593 "qb64pe.bas"
}
#line 22594 "qb64pe.bas"
do{
#line 22594 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22594 "qb64pe.bas"
if(!qbevent)break;evnt(22594);}while(r);
#line 22595 "qb64pe.bas"
S_25952:;
#line 22595 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22595 "qb64pe.bas"
if(qbevent){evnt(22595);if(r)goto S_25952;}
#line 22595 "qb64pe.bas"
do{
#line 22595 "qb64pe.bas"
goto exit_subfunc;
#line 22595 "qb64pe.bas"
if(!qbevent)break;evnt(22595);}while(r);
#line 22595 "qb64pe.bas"
}
#line 22596 "qb64pe.bas"
do{
#line 22596 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 22596 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22596 "qb64pe.bas"
if(!qbevent)break;evnt(22596);}while(r);
#line 22597 "qb64pe.bas"
S_25956:;
#line 22597 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 22597 "qb64pe.bas"
if(qbevent){evnt(22597);if(r)goto S_25956;}
#line 22597 "qb64pe.bas"
do{
#line 22597 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 22597 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22597 "qb64pe.bas"
if(!qbevent)break;evnt(22597);}while(r);
#line 22597 "qb64pe.bas"
}
#line 22598 "qb64pe.bas"
do{
#line 22598 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 )),NULL,0));
#line 22598 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22598 "qb64pe.bas"
if(!qbevent)break;evnt(22598);}while(r);
#line 22599 "qb64pe.bas"
do{
#line 22599 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22599 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22599 "qb64pe.bas"
if(!qbevent)break;evnt(22599);}while(r);
#line 22600 "qb64pe.bas"
do{
#line 22600 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22600 "qb64pe.bas"
if(!qbevent)break;evnt(22600);}while(r);
#line 22601 "qb64pe.bas"
do{
#line 22601 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(FUNC_UDT_ARRAY_MEMBER_BYTES(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)),NULL,0)),qbs_new_txt_len(",sf_mem_lock",12)));
#line 22601 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22601 "qb64pe.bas"
if(!qbevent)break;evnt(22601);}while(r);
#line 22602 "qb64pe.bas"
do{
#line 22602 "qb64pe.bas"
goto exit_subfunc;
#line 22602 "qb64pe.bas"
if(!qbevent)break;evnt(22602);}while(r);
#line 22603 "qb64pe.bas"
}
#line 22604 "qb64pe.bas"
}
#line 22605 "qb64pe.bas"
}
#line 22608 "qb64pe.bas"
S_25967:;
#line 22608 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_EVALUATETOTYP_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||is_error_pending()){
#line 22608 "qb64pe.bas"
if(qbevent){evnt(22608);if(r)goto S_25967;}
#line 22610 "qb64pe.bas"
S_25968:;
#line 22610 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 22610 "qb64pe.bas"
if(qbevent){evnt(22610);if(r)goto S_25968;}
#line 22611 "qb64pe.bas"
S_25969:;
#line 22611 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 22611 "qb64pe.bas"
if(qbevent){evnt(22611);if(r)goto S_25969;}
#line 22612 "qb64pe.bas"
do{
#line 22612 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass array of variable-length strings",44));
#line 22612 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22612 "qb64pe.bas"
if(!qbevent)break;evnt(22612);}while(r);
#line 22612 "qb64pe.bas"
do{
#line 22612 "qb64pe.bas"
goto exit_subfunc;
#line 22612 "qb64pe.bas"
if(!qbevent)break;evnt(22612);}while(r);
#line 22613 "qb64pe.bas"
}
#line 22614 "qb64pe.bas"
}
#line 22615 "qb64pe.bas"
do{
#line 22615 "qb64pe.bas"
goto LABEL_METHOD2USEALL__7;
#line 22615 "qb64pe.bas"
if(!qbevent)break;evnt(22615);}while(r);
#line 22616 "qb64pe.bas"
}
#line 22618 "qb64pe.bas"
do{
#line 22618 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22618 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22618 "qb64pe.bas"
if(!qbevent)break;evnt(22618);}while(r);
#line 22619 "qb64pe.bas"
do{
#line 22619 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22619 "qb64pe.bas"
if(!qbevent)break;evnt(22619);}while(r);
#line 22620 "qb64pe.bas"
S_25978:;
#line 22620 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22620 "qb64pe.bas"
if(qbevent){evnt(22620);if(r)goto S_25978;}
#line 22620 "qb64pe.bas"
do{
#line 22620 "qb64pe.bas"
goto exit_subfunc;
#line 22620 "qb64pe.bas"
if(!qbevent)break;evnt(22620);}while(r);
#line 22620 "qb64pe.bas"
}
#line 22621 "qb64pe.bas"
S_25981:;
#line 22621 "qb64pe.bas"
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISUDT)!= 0 ))||is_error_pending()){
#line 22621 "qb64pe.bas"
if(qbevent){evnt(22621);if(r)goto S_25981;}
#line 22622 "qb64pe.bas"
do{
#line 22622 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=*(int32*)(((char*)__UDT_ID)+((0+512)))& 4095ll ;
#line 22622 "qb64pe.bas"
if(!qbevent)break;evnt(22622);}while(r);
#line 22623 "qb64pe.bas"
S_25983:;
#line 22623 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_EVALUATETOTYP_LONG_U,&(pass2821=*(int16*)(((char*)__UDT_ID)+((0+522))))))||is_error_pending()){
#line 22623 "qb64pe.bas"
if(qbevent){evnt(22623);if(r)goto S_25983;}
#line 22623 "qb64pe.bas"
do{
#line 22623 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference a TYPE value that contains explicit _Dynamic member arrays",80));
#line 22623 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22623 "qb64pe.bas"
if(!qbevent)break;evnt(22623);}while(r);
#line 22623 "qb64pe.bas"
do{
#line 22623 "qb64pe.bas"
goto exit_subfunc;
#line 22623 "qb64pe.bas"
if(!qbevent)break;evnt(22623);}while(r);
#line 22623 "qb64pe.bas"
}
#line 22624 "qb64pe.bas"
S_25987:;
#line 22624 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 22624 "qb64pe.bas"
if(qbevent){evnt(22624);if(r)goto S_25987;}
#line 22624 "qb64pe.bas"
do{
#line 22624 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22624 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22624 "qb64pe.bas"
if(!qbevent)break;evnt(22624);}while(r);
#line 22624 "qb64pe.bas"
do{
#line 22624 "qb64pe.bas"
goto exit_subfunc;
#line 22624 "qb64pe.bas"
if(!qbevent)break;evnt(22624);}while(r);
#line 22624 "qb64pe.bas"
}
#line 22625 "qb64pe.bas"
}
#line 22626 "qb64pe.bas"
do{
#line 22626 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)));
#line 22626 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22626 "qb64pe.bas"
if(!qbevent)break;evnt(22626);}while(r);
#line 22627 "qb64pe.bas"
do{
#line 22627 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_LK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(mem_lock*)((ptrszint*)",23),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")[",2)),qbs__tostr((int64)(( 4 **(int16*)(((char*)__UDT_ID)+((0+516))))+( 4 )+( 1 )-( 1 )),NULL,0)),qbs_new_txt_len("]",1)));
#line 22627 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22627 "qb64pe.bas"
if(!qbevent)break;evnt(22627);}while(r);
#line 22631 "qb64pe.bas"
S_25994:;
#line 22631 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 22631 "qb64pe.bas"
if(qbevent){evnt(22631);if(r)goto S_25994;}
#line 22632 "qb64pe.bas"
S_25995:;
#line 22632 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 22632 "qb64pe.bas"
if(qbevent){evnt(22632);if(r)goto S_25995;}
#line 22633 "qb64pe.bas"
do{
#line 22633 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+544)))),NULL,0));
#line 22633 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22633 "qb64pe.bas"
if(!qbevent)break;evnt(22633);}while(r);
#line 22634 "qb64pe.bas"
do{
#line 22634 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2822= 0 )));
#line 22634 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22634 "qb64pe.bas"
if(!qbevent)break;evnt(22634);}while(r);
#line 22635 "qb64pe.bas"
S_25998:;
#line 22635 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22635 "qb64pe.bas"
if(qbevent){evnt(22635);if(r)goto S_25998;}
#line 22635 "qb64pe.bas"
do{
#line 22635 "qb64pe.bas"
goto exit_subfunc;
#line 22635 "qb64pe.bas"
if(!qbevent)break;evnt(22635);}while(r);
#line 22635 "qb64pe.bas"
}
#line 22640 "qb64pe.bas"
do{
#line 22640 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22640 "qb64pe.bas"
if(!qbevent)break;evnt(22640);}while(r);
#line 22641 "qb64pe.bas"
do{
#line 22641 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK));
#line 22641 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22641 "qb64pe.bas"
if(!qbevent)break;evnt(22641);}while(r);
#line 22643 "qb64pe.bas"
}else{
#line 22645 "qb64pe.bas"
do{
#line 22645 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEMELEMENT cannot reference variable-length strings",52));
#line 22645 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22645 "qb64pe.bas"
if(!qbevent)break;evnt(22645);}while(r);
#line 22645 "qb64pe.bas"
do{
#line 22645 "qb64pe.bas"
goto exit_subfunc;
#line 22645 "qb64pe.bas"
if(!qbevent)break;evnt(22645);}while(r);
#line 22647 "qb64pe.bas"
}
#line 22648 "qb64pe.bas"
do{
#line 22648 "qb64pe.bas"
goto exit_subfunc;
#line 22648 "qb64pe.bas"
if(!qbevent)break;evnt(22648);}while(r);
#line 22649 "qb64pe.bas"
}
#line 22651 "qb64pe.bas"
do{
#line 22651 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2823= 0 )));
#line 22651 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22651 "qb64pe.bas"
if(!qbevent)break;evnt(22651);}while(r);
#line 22652 "qb64pe.bas"
S_26010:;
#line 22652 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22652 "qb64pe.bas"
if(qbevent){evnt(22652);if(r)goto S_26010;}
#line 22652 "qb64pe.bas"
do{
#line 22652 "qb64pe.bas"
goto exit_subfunc;
#line 22652 "qb64pe.bas"
if(!qbevent)break;evnt(22652);}while(r);
#line 22652 "qb64pe.bas"
}
#line 22653 "qb64pe.bas"
do{
#line 22653 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2)));
#line 22653 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22653 "qb64pe.bas"
if(!qbevent)break;evnt(22653);}while(r);
#line 22654 "qb64pe.bas"
do{
#line 22654 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 4095ll ), 8 )),NULL,0));
#line 22654 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22654 "qb64pe.bas"
if(!qbevent)break;evnt(22654);}while(r);
#line 22659 "qb64pe.bas"
do{
#line 22659 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22659 "qb64pe.bas"
if(!qbevent)break;evnt(22659);}while(r);
#line 22660 "qb64pe.bas"
do{
#line 22660 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK));
#line 22660 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22660 "qb64pe.bas"
if(!qbevent)break;evnt(22660);}while(r);
#line 22662 "qb64pe.bas"
do{
#line 22662 "qb64pe.bas"
goto exit_subfunc;
#line 22662 "qb64pe.bas"
if(!qbevent)break;evnt(22662);}while(r);
#line 22663 "qb64pe.bas"
}
#line 22665 "qb64pe.bas"
S_26019:;
#line 22665 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_DYNMEMLOCKEXPR,qbs_new_txt_len("",0))))||is_error_pending()){
#line 22665 "qb64pe.bas"
if(qbevent){evnt(22665);if(r)goto S_26019;}
#line 22666 "qb64pe.bas"
S_26020:;
#line 22666 "qb64pe.bas"
if (((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))&(-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT)== 0 ))&(-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
#line 22666 "qb64pe.bas"
if(qbevent){evnt(22666);if(r)goto S_26020;}
#line 22667 "qb64pe.bas"
do{
#line 22667 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2824= 1 )));
#line 22667 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22667 "qb64pe.bas"
if(!qbevent)break;evnt(22667);}while(r);
#line 22668 "qb64pe.bas"
S_26022:;
#line 22668 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22668 "qb64pe.bas"
if(qbevent){evnt(22668);if(r)goto S_26022;}
#line 22668 "qb64pe.bas"
do{
#line 22668 "qb64pe.bas"
goto exit_subfunc;
#line 22668 "qb64pe.bas"
if(!qbevent)break;evnt(22668);}while(r);
#line 22668 "qb64pe.bas"
}
#line 22669 "qb64pe.bas"
do{
#line 22669 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_SIZE=qb_safe_idiv((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 4095ll ), 8 );
#line 22669 "qb64pe.bas"
if(!qbevent)break;evnt(22669);}while(r);
#line 22670 "qb64pe.bas"
do{
#line 22670 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22670 "qb64pe.bas"
if(!qbevent)break;evnt(22670);}while(r);
#line 22671 "qb64pe.bas"
do{
#line 22671 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_SIZE),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_SIZE),NULL,0)),qbs_new_txt_len(",",1)),__STRING_DYNMEMLOCKEXPR));
#line 22671 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22671 "qb64pe.bas"
if(!qbevent)break;evnt(22671);}while(r);
#line 22672 "qb64pe.bas"
do{
#line 22672 "qb64pe.bas"
goto exit_subfunc;
#line 22672 "qb64pe.bas"
if(!qbevent)break;evnt(22672);}while(r);
#line 22673 "qb64pe.bas"
}
#line 22674 "qb64pe.bas"
}
#line 22676 "qb64pe.bas"
S_26031:;
#line 22676 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 22676 "qb64pe.bas"
if(qbevent){evnt(22676);if(r)goto S_26031;}
#line 22677 "qb64pe.bas"
S_26032:;
#line 22677 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 22677 "qb64pe.bas"
if(qbevent){evnt(22677);if(r)goto S_26032;}
#line 22678 "qb64pe.bas"
do{
#line 22678 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22678 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22678 "qb64pe.bas"
if(!qbevent)break;evnt(22678);}while(r);
#line 22679 "qb64pe.bas"
do{
#line 22679 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22679 "qb64pe.bas"
if(!qbevent)break;evnt(22679);}while(r);
#line 22680 "qb64pe.bas"
S_26035:;
#line 22680 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22680 "qb64pe.bas"
if(qbevent){evnt(22680);if(r)goto S_26035;}
#line 22680 "qb64pe.bas"
do{
#line 22680 "qb64pe.bas"
goto exit_subfunc;
#line 22680 "qb64pe.bas"
if(!qbevent)break;evnt(22680);}while(r);
#line 22680 "qb64pe.bas"
}
#line 22681 "qb64pe.bas"
do{
#line 22681 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+544)))),NULL,0));
#line 22681 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22681 "qb64pe.bas"
if(!qbevent)break;evnt(22681);}while(r);
#line 22682 "qb64pe.bas"
do{
#line 22682 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2825= 0 )));
#line 22682 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22682 "qb64pe.bas"
if(!qbevent)break;evnt(22682);}while(r);
#line 22683 "qb64pe.bas"
S_26040:;
#line 22683 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22683 "qb64pe.bas"
if(qbevent){evnt(22683);if(r)goto S_26040;}
#line 22683 "qb64pe.bas"
do{
#line 22683 "qb64pe.bas"
goto exit_subfunc;
#line 22683 "qb64pe.bas"
if(!qbevent)break;evnt(22683);}while(r);
#line 22683 "qb64pe.bas"
}
#line 22684 "qb64pe.bas"
}else{
#line 22685 "qb64pe.bas"
do{
#line 22685 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEMELEMENT cannot reference variable-length strings",52));
#line 22685 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22685 "qb64pe.bas"
if(!qbevent)break;evnt(22685);}while(r);
#line 22685 "qb64pe.bas"
do{
#line 22685 "qb64pe.bas"
goto exit_subfunc;
#line 22685 "qb64pe.bas"
if(!qbevent)break;evnt(22685);}while(r);
#line 22686 "qb64pe.bas"
}
#line 22692 "qb64pe.bas"
do{
#line 22692 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22692 "qb64pe.bas"
if(!qbevent)break;evnt(22692);}while(r);
#line 22693 "qb64pe.bas"
do{
#line 22693 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12)));
#line 22693 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22693 "qb64pe.bas"
if(!qbevent)break;evnt(22693);}while(r);
#line 22695 "qb64pe.bas"
do{
#line 22695 "qb64pe.bas"
goto exit_subfunc;
#line 22695 "qb64pe.bas"
if(!qbevent)break;evnt(22695);}while(r);
#line 22696 "qb64pe.bas"
}
#line 22699 "qb64pe.bas"
do{
#line 22699 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2826= 1 )));
#line 22699 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22699 "qb64pe.bas"
if(!qbevent)break;evnt(22699);}while(r);
#line 22700 "qb64pe.bas"
S_26052:;
#line 22700 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22700 "qb64pe.bas"
if(qbevent){evnt(22700);if(r)goto S_26052;}
#line 22700 "qb64pe.bas"
do{
#line 22700 "qb64pe.bas"
goto exit_subfunc;
#line 22700 "qb64pe.bas"
if(!qbevent)break;evnt(22700);}while(r);
#line 22700 "qb64pe.bas"
}
#line 22701 "qb64pe.bas"
do{
#line 22701 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_SIZE=qb_safe_idiv((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 4095ll ), 8 );
#line 22701 "qb64pe.bas"
if(!qbevent)break;evnt(22701);}while(r);
#line 22706 "qb64pe.bas"
do{
#line 22706 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22706 "qb64pe.bas"
if(!qbevent)break;evnt(22706);}while(r);
#line 22707 "qb64pe.bas"
do{
#line 22707 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_SIZE),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_SIZE),NULL,0)),qbs_new_txt_len(",sf_mem_lock",12)));
#line 22707 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22707 "qb64pe.bas"
if(!qbevent)break;evnt(22707);}while(r);
#line 22709 "qb64pe.bas"
do{
#line 22709 "qb64pe.bas"
goto exit_subfunc;
#line 22709 "qb64pe.bas"
if(!qbevent)break;evnt(22709);}while(r);
#line 22711 "qb64pe.bas"
}
#line 22722 "qb64pe.bas"
S_26060:;
#line 22722 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -7 ))||is_error_pending()){
#line 22722 "qb64pe.bas"
if(qbevent){evnt(22722);if(r)goto S_26060;}
#line 22723 "qb64pe.bas"
LABEL_METHOD2USEALL__7:;
#line 22723 "qb64pe.bas"
if(qbevent){evnt(22723);r=0;}
#line 22724 "qb64pe.bas"
S_26061:;
#line 22724 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 22724 "qb64pe.bas"
if(qbevent){evnt(22724);if(r)goto S_26061;}
#line 22724 "qb64pe.bas"
do{
#line 22724 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36));
#line 22724 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22724 "qb64pe.bas"
if(!qbevent)break;evnt(22724);}while(r);
#line 22724 "qb64pe.bas"
do{
#line 22724 "qb64pe.bas"
goto exit_subfunc;
#line 22724 "qb64pe.bas"
if(!qbevent)break;evnt(22724);}while(r);
#line 22724 "qb64pe.bas"
}
#line 22725 "qb64pe.bas"
S_26065:;
#line 22725 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 22725 "qb64pe.bas"
if(qbevent){evnt(22725);if(r)goto S_26065;}
#line 22725 "qb64pe.bas"
do{
#line 22725 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be _BIT aligned",39));
#line 22725 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22725 "qb64pe.bas"
if(!qbevent)break;evnt(22725);}while(r);
#line 22725 "qb64pe.bas"
do{
#line 22725 "qb64pe.bas"
goto exit_subfunc;
#line 22725 "qb64pe.bas"
if(!qbevent)break;evnt(22725);}while(r);
#line 22725 "qb64pe.bas"
}
#line 22731 "qb64pe.bas"
do{
#line 22731 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S1=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22731 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22731 "qb64pe.bas"
if(!qbevent)break;evnt(22731);}while(r);
#line 22732 "qb64pe.bas"
S_26070:;
#line 22732 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S1)||is_error_pending()){
#line 22732 "qb64pe.bas"
if(qbevent){evnt(22732);if(r)goto S_26070;}
#line 22732 "qb64pe.bas"
do{
#line 22732 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2=func_instr(*_FUNC_EVALUATETOTYP_LONG_S1+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 22732 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22732 "qb64pe.bas"
if(!qbevent)break;evnt(22732);}while(r);
#line 22732 "qb64pe.bas"
}else{
#line 22732 "qb64pe.bas"
do{
#line 22732 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2= 0 ;
#line 22732 "qb64pe.bas"
if(!qbevent)break;evnt(22732);}while(r);
#line 22732 "qb64pe.bas"
}
#line 22733 "qb64pe.bas"
S_26075:;
#line 22733 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S2)||is_error_pending()){
#line 22733 "qb64pe.bas"
if(qbevent){evnt(22733);if(r)goto S_26075;}
#line 22733 "qb64pe.bas"
do{
#line 22733 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3=func_instr(*_FUNC_EVALUATETOTYP_LONG_S2+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 22733 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22733 "qb64pe.bas"
if(!qbevent)break;evnt(22733);}while(r);
#line 22733 "qb64pe.bas"
}else{
#line 22733 "qb64pe.bas"
do{
#line 22733 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3= 0 ;
#line 22733 "qb64pe.bas"
if(!qbevent)break;evnt(22733);}while(r);
#line 22733 "qb64pe.bas"
}
#line 22735 "qb64pe.bas"
S_26080:;
#line 22735 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_S3!= 0 ))&*_FUNC_EVALUATETOTYP_LONG_FINAL_MEMBER_ARRAY_INDEXED)||is_error_pending()){
#line 22735 "qb64pe.bas"
if(qbevent){evnt(22735);if(r)goto S_26080;}
#line 22736 "qb64pe.bas"
do{
#line 22736 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1- 1 )));
#line 22736 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22736 "qb64pe.bas"
if(!qbevent)break;evnt(22736);}while(r);
#line 22737 "qb64pe.bas"
do{
#line 22737 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1+1,*_FUNC_EVALUATETOTYP_LONG_S2-*_FUNC_EVALUATETOTYP_LONG_S1-1,0|1)));
#line 22737 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22737 "qb64pe.bas"
if(!qbevent)break;evnt(22737);}while(r);
#line 22738 "qb64pe.bas"
do{
#line 22738 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S2+1,*_FUNC_EVALUATETOTYP_LONG_S3-*_FUNC_EVALUATETOTYP_LONG_S2-1,0|1)));
#line 22738 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22738 "qb64pe.bas"
if(!qbevent)break;evnt(22738);}while(r);
#line 22740 "qb64pe.bas"
S_26084:;
#line 22740 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 22740 "qb64pe.bas"
if(qbevent){evnt(22740);if(r)goto S_26084;}
#line 22741 "qb64pe.bas"
S_26085:;
#line 22741 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 22741 "qb64pe.bas"
if(qbevent){evnt(22741);if(r)goto S_26085;}
#line 22742 "qb64pe.bas"
do{
#line 22742 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22742 "qb64pe.bas"
if(!qbevent)break;evnt(22742);}while(r);
#line 22743 "qb64pe.bas"
S_26087:;
#line 22743 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22743 "qb64pe.bas"
if(qbevent){evnt(22743);if(r)goto S_26087;}
#line 22743 "qb64pe.bas"
do{
#line 22743 "qb64pe.bas"
goto exit_subfunc;
#line 22743 "qb64pe.bas"
if(!qbevent)break;evnt(22743);}while(r);
#line 22743 "qb64pe.bas"
}
#line 22744 "qb64pe.bas"
do{
#line 22744 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 22744 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22744 "qb64pe.bas"
if(!qbevent)break;evnt(22744);}while(r);
#line 22745 "qb64pe.bas"
S_26091:;
#line 22745 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 22745 "qb64pe.bas"
if(qbevent){evnt(22745);if(r)goto S_26091;}
#line 22745 "qb64pe.bas"
do{
#line 22745 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 22745 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22745 "qb64pe.bas"
if(!qbevent)break;evnt(22745);}while(r);
#line 22745 "qb64pe.bas"
}
#line 22746 "qb64pe.bas"
S_26094:;
#line 22746 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22746 "qb64pe.bas"
if(qbevent){evnt(22746);if(r)goto S_26094;}
#line 22747 "qb64pe.bas"
S_26095:;
#line 22747 "qb64pe.bas"
if ((FUNC_DYNMEMVARSTR(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22747 "qb64pe.bas"
if(qbevent){evnt(22747);if(r)goto S_26095;}
#line 22747 "qb64pe.bas"
do{
#line 22747 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22747 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22747 "qb64pe.bas"
if(!qbevent)break;evnt(22747);}while(r);
#line 22747 "qb64pe.bas"
do{
#line 22747 "qb64pe.bas"
goto exit_subfunc;
#line 22747 "qb64pe.bas"
if(!qbevent)break;evnt(22747);}while(r);
#line 22747 "qb64pe.bas"
}
#line 22748 "qb64pe.bas"
S_26099:;
#line 22748 "qb64pe.bas"
if ((FUNC_DYNMEMUDTVARSTR(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22748 "qb64pe.bas"
if(qbevent){evnt(22748);if(r)goto S_26099;}
#line 22748 "qb64pe.bas"
do{
#line 22748 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22748 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22748 "qb64pe.bas"
if(!qbevent)break;evnt(22748);}while(r);
#line 22748 "qb64pe.bas"
do{
#line 22748 "qb64pe.bas"
goto exit_subfunc;
#line 22748 "qb64pe.bas"
if(!qbevent)break;evnt(22748);}while(r);
#line 22748 "qb64pe.bas"
}
#line 22749 "qb64pe.bas"
do{
#line 22749 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S3+1,NULL,0));
#line 22749 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22749 "qb64pe.bas"
if(!qbevent)break;evnt(22749);}while(r);
#line 22750 "qb64pe.bas"
do{
#line 22750 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID);
#line 22750 "qb64pe.bas"
if(!qbevent)break;evnt(22750);}while(r);
#line 22751 "qb64pe.bas"
do{
#line 22751 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22751 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22751 "qb64pe.bas"
if(!qbevent)break;evnt(22751);}while(r);
#line 22752 "qb64pe.bas"
do{
#line 22752 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_TYP=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])];
#line 22752 "qb64pe.bas"
if(!qbevent)break;evnt(22752);}while(r);
#line 22753 "qb64pe.bas"
do{
#line 22753 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_ELEM_TYP);
#line 22753 "qb64pe.bas"
if(!qbevent)break;evnt(22753);}while(r);
#line 22754 "qb64pe.bas"
S_26108:;
#line 22754 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_DYNMEMLOCKEXPR,qbs_new_txt_len("",0))))||is_error_pending()){
#line 22754 "qb64pe.bas"
if(qbevent){evnt(22754);if(r)goto S_26108;}
#line 22754 "qb64pe.bas"
do{
#line 22754 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot access this explicit _Dynamic TYPE member array",59));
#line 22754 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22754 "qb64pe.bas"
if(!qbevent)break;evnt(22754);}while(r);
#line 22754 "qb64pe.bas"
do{
#line 22754 "qb64pe.bas"
goto exit_subfunc;
#line 22754 "qb64pe.bas"
if(!qbevent)break;evnt(22754);}while(r);
#line 22754 "qb64pe.bas"
}
#line 22755 "qb64pe.bas"
do{
#line 22755 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),__STRING_DYNMEMLOCKEXPR));
#line 22755 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22755 "qb64pe.bas"
if(!qbevent)break;evnt(22755);}while(r);
#line 22756 "qb64pe.bas"
do{
#line 22756 "qb64pe.bas"
goto exit_subfunc;
#line 22756 "qb64pe.bas"
if(!qbevent)break;evnt(22756);}while(r);
#line 22757 "qb64pe.bas"
}
#line 22758 "qb64pe.bas"
}
#line 22759 "qb64pe.bas"
}
#line 22760 "qb64pe.bas"
}
#line 22762 "qb64pe.bas"
S_26118:;
#line 22762 "qb64pe.bas"
if (((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY)!= 0 ))&(-(*_FUNC_EVALUATETOTYP_LONG_S3!= 0 )))||is_error_pending()){
#line 22762 "qb64pe.bas"
if(qbevent){evnt(22762);if(r)goto S_26118;}
#line 22764 "qb64pe.bas"
S_26119:;
#line 22764 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 22764 "qb64pe.bas"
if(qbevent){evnt(22764);if(r)goto S_26119;}
#line 22765 "qb64pe.bas"
S_26120:;
#line 22765 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 22765 "qb64pe.bas"
if(qbevent){evnt(22765);if(r)goto S_26120;}
#line 22766 "qb64pe.bas"
do{
#line 22766 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22766 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22766 "qb64pe.bas"
if(!qbevent)break;evnt(22766);}while(r);
#line 22766 "qb64pe.bas"
do{
#line 22766 "qb64pe.bas"
goto exit_subfunc;
#line 22766 "qb64pe.bas"
if(!qbevent)break;evnt(22766);}while(r);
#line 22767 "qb64pe.bas"
}
#line 22768 "qb64pe.bas"
}
#line 22769 "qb64pe.bas"
do{
#line 22769 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1- 1 )));
#line 22769 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22769 "qb64pe.bas"
if(!qbevent)break;evnt(22769);}while(r);
#line 22770 "qb64pe.bas"
do{
#line 22770 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1+1,*_FUNC_EVALUATETOTYP_LONG_S2-*_FUNC_EVALUATETOTYP_LONG_S1-1,0|1)));
#line 22770 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22770 "qb64pe.bas"
if(!qbevent)break;evnt(22770);}while(r);
#line 22771 "qb64pe.bas"
do{
#line 22771 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S2+1,*_FUNC_EVALUATETOTYP_LONG_S3-*_FUNC_EVALUATETOTYP_LONG_S2-1,0|1)));
#line 22771 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22771 "qb64pe.bas"
if(!qbevent)break;evnt(22771);}while(r);
#line 22775 "qb64pe.bas"
S_26128:;
#line 22775 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 22775 "qb64pe.bas"
if(qbevent){evnt(22775);if(r)goto S_26128;}
#line 22776 "qb64pe.bas"
S_26129:;
#line 22776 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 22776 "qb64pe.bas"
if(qbevent){evnt(22776);if(r)goto S_26129;}
#line 22777 "qb64pe.bas"
do{
#line 22777 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S3+1,NULL,0));
#line 22777 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22777 "qb64pe.bas"
if(!qbevent)break;evnt(22777);}while(r);
#line 22778 "qb64pe.bas"
do{
#line 22778 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22778 "qb64pe.bas"
if(!qbevent)break;evnt(22778);}while(r);
#line 22779 "qb64pe.bas"
S_26132:;
#line 22779 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22779 "qb64pe.bas"
if(qbevent){evnt(22779);if(r)goto S_26132;}
#line 22779 "qb64pe.bas"
do{
#line 22779 "qb64pe.bas"
goto exit_subfunc;
#line 22779 "qb64pe.bas"
if(!qbevent)break;evnt(22779);}while(r);
#line 22779 "qb64pe.bas"
}
#line 22780 "qb64pe.bas"
do{
#line 22780 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 22780 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22780 "qb64pe.bas"
if(!qbevent)break;evnt(22780);}while(r);
#line 22781 "qb64pe.bas"
S_26136:;
#line 22781 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 22781 "qb64pe.bas"
if(qbevent){evnt(22781);if(r)goto S_26136;}
#line 22781 "qb64pe.bas"
do{
#line 22781 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 22781 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22781 "qb64pe.bas"
if(!qbevent)break;evnt(22781);}while(r);
#line 22781 "qb64pe.bas"
}
#line 22782 "qb64pe.bas"
S_26139:;
#line 22782 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)&*_FUNC_EVALUATETOTYP_LONG_FINAL_MEMBER_ARRAY_INDEXED)||is_error_pending()){
#line 22782 "qb64pe.bas"
if(qbevent){evnt(22782);if(r)goto S_26139;}
#line 22783 "qb64pe.bas"
S_26140:;
#line 22783 "qb64pe.bas"
if ((FUNC_DYNMEMVARSTR(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22783 "qb64pe.bas"
if(qbevent){evnt(22783);if(r)goto S_26140;}
#line 22783 "qb64pe.bas"
do{
#line 22783 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22783 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22783 "qb64pe.bas"
if(!qbevent)break;evnt(22783);}while(r);
#line 22783 "qb64pe.bas"
do{
#line 22783 "qb64pe.bas"
goto exit_subfunc;
#line 22783 "qb64pe.bas"
if(!qbevent)break;evnt(22783);}while(r);
#line 22783 "qb64pe.bas"
}
#line 22784 "qb64pe.bas"
S_26144:;
#line 22784 "qb64pe.bas"
if ((FUNC_DYNMEMUDTVARSTR(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22784 "qb64pe.bas"
if(qbevent){evnt(22784);if(r)goto S_26144;}
#line 22784 "qb64pe.bas"
do{
#line 22784 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22784 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22784 "qb64pe.bas"
if(!qbevent)break;evnt(22784);}while(r);
#line 22784 "qb64pe.bas"
do{
#line 22784 "qb64pe.bas"
goto exit_subfunc;
#line 22784 "qb64pe.bas"
if(!qbevent)break;evnt(22784);}while(r);
#line 22784 "qb64pe.bas"
}
#line 22789 "qb64pe.bas"
do{
#line 22789 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID);
#line 22789 "qb64pe.bas"
if(!qbevent)break;evnt(22789);}while(r);
#line 22790 "qb64pe.bas"
do{
#line 22790 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22790 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22790 "qb64pe.bas"
if(!qbevent)break;evnt(22790);}while(r);
#line 22791 "qb64pe.bas"
do{
#line 22791 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_TYP=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])];
#line 22791 "qb64pe.bas"
if(!qbevent)break;evnt(22791);}while(r);
#line 22792 "qb64pe.bas"
do{
#line 22792 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_ELEM_TYP);
#line 22792 "qb64pe.bas"
if(!qbevent)break;evnt(22792);}while(r);
#line 22793 "qb64pe.bas"
S_26152:;
#line 22793 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_DYNMEMLOCKEXPR,qbs_new_txt_len("",0))))||is_error_pending()){
#line 22793 "qb64pe.bas"
if(qbevent){evnt(22793);if(r)goto S_26152;}
#line 22793 "qb64pe.bas"
do{
#line 22793 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot access this explicit _Dynamic TYPE member array",59));
#line 22793 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22793 "qb64pe.bas"
if(!qbevent)break;evnt(22793);}while(r);
#line 22793 "qb64pe.bas"
do{
#line 22793 "qb64pe.bas"
goto exit_subfunc;
#line 22793 "qb64pe.bas"
if(!qbevent)break;evnt(22793);}while(r);
#line 22793 "qb64pe.bas"
}
#line 22794 "qb64pe.bas"
do{
#line 22794 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),__STRING_DYNMEMLOCKEXPR));
#line 22794 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22794 "qb64pe.bas"
if(!qbevent)break;evnt(22794);}while(r);
#line 22795 "qb64pe.bas"
do{
#line 22795 "qb64pe.bas"
goto exit_subfunc;
#line 22795 "qb64pe.bas"
if(!qbevent)break;evnt(22795);}while(r);
#line 22796 "qb64pe.bas"
}
#line 22797 "qb64pe.bas"
S_26159:;
#line 22797 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22797 "qb64pe.bas"
if(qbevent){evnt(22797);if(r)goto S_26159;}
#line 22798 "qb64pe.bas"
S_26160:;
#line 22798 "qb64pe.bas"
if ((FUNC_DYNMEMVARSTR(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22798 "qb64pe.bas"
if(qbevent){evnt(22798);if(r)goto S_26160;}
#line 22798 "qb64pe.bas"
do{
#line 22798 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22798 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22798 "qb64pe.bas"
if(!qbevent)break;evnt(22798);}while(r);
#line 22798 "qb64pe.bas"
do{
#line 22798 "qb64pe.bas"
goto exit_subfunc;
#line 22798 "qb64pe.bas"
if(!qbevent)break;evnt(22798);}while(r);
#line 22798 "qb64pe.bas"
}
#line 22799 "qb64pe.bas"
S_26164:;
#line 22799 "qb64pe.bas"
if ((FUNC_DYNMEMUDTVARSTR(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22799 "qb64pe.bas"
if(qbevent){evnt(22799);if(r)goto S_26164;}
#line 22799 "qb64pe.bas"
do{
#line 22799 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22799 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22799 "qb64pe.bas"
if(!qbevent)break;evnt(22799);}while(r);
#line 22799 "qb64pe.bas"
do{
#line 22799 "qb64pe.bas"
goto exit_subfunc;
#line 22799 "qb64pe.bas"
if(!qbevent)break;evnt(22799);}while(r);
#line 22799 "qb64pe.bas"
}
#line 22800 "qb64pe.bas"
do{
#line 22800 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((ptrszint**)(((char*)",24),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))))",4)));
#line 22800 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22800 "qb64pe.bas"
if(!qbevent)break;evnt(22800);}while(r);
#line 22801 "qb64pe.bas"
do{
#line 22801 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,FUNC_UDTDYNARRAYDESCGUARD(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,(&(((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])]))));
#line 22801 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22801 "qb64pe.bas"
if(!qbevent)break;evnt(22801);}while(r);
#line 22802 "qb64pe.bas"
S_26170:;
#line 22802 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22802 "qb64pe.bas"
if(qbevent){evnt(22802);if(r)goto S_26170;}
#line 22802 "qb64pe.bas"
do{
#line 22802 "qb64pe.bas"
goto exit_subfunc;
#line 22802 "qb64pe.bas"
if(!qbevent)break;evnt(22802);}while(r);
#line 22802 "qb64pe.bas"
}
#line 22803 "qb64pe.bas"
do{
#line 22803 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID);
#line 22803 "qb64pe.bas"
if(!qbevent)break;evnt(22803);}while(r);
#line 22804 "qb64pe.bas"
do{
#line 22804 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_UDTDYNARRAYBYTESEXPR(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES));
#line 22804 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22804 "qb64pe.bas"
if(!qbevent)break;evnt(22804);}while(r);
#line 22805 "qb64pe.bas"
S_26175:;
#line 22805 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22805 "qb64pe.bas"
if(qbevent){evnt(22805);if(r)goto S_26175;}
#line 22805 "qb64pe.bas"
do{
#line 22805 "qb64pe.bas"
goto exit_subfunc;
#line 22805 "qb64pe.bas"
if(!qbevent)break;evnt(22805);}while(r);
#line 22805 "qb64pe.bas"
}
#line 22806 "qb64pe.bas"
do{
#line 22806 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_FUNC_EVALUATETOTYP_STRING_DESC_EXPR),qbs_new_txt_len("[0])",4)));
#line 22806 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22806 "qb64pe.bas"
if(!qbevent)break;evnt(22806);}while(r);
#line 22807 "qb64pe.bas"
do{
#line 22807 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22807 "qb64pe.bas"
if(!qbevent)break;evnt(22807);}while(r);
#line 22808 "qb64pe.bas"
do{
#line 22808 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_LK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(mem_lock*)(",12),_FUNC_EVALUATETOTYP_STRING_DESC_EXPR),qbs_new_txt_len("[",1)),_FUNC_EVALUATETOTYP_STRING_DESC_EXPR),qbs_new_txt_len("[3]*4+4])",9)));
#line 22808 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22808 "qb64pe.bas"
if(!qbevent)break;evnt(22808);}while(r);
#line 22809 "qb64pe.bas"
do{
#line 22809 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK));
#line 22809 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22809 "qb64pe.bas"
if(!qbevent)break;evnt(22809);}while(r);
#line 22810 "qb64pe.bas"
do{
#line 22810 "qb64pe.bas"
goto exit_subfunc;
#line 22810 "qb64pe.bas"
if(!qbevent)break;evnt(22810);}while(r);
#line 22811 "qb64pe.bas"
}
#line 22812 "qb64pe.bas"
do{
#line 22812 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 )),NULL,0));
#line 22812 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22812 "qb64pe.bas"
if(!qbevent)break;evnt(22812);}while(r);
#line 22813 "qb64pe.bas"
do{
#line 22813 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22813 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22813 "qb64pe.bas"
if(!qbevent)break;evnt(22813);}while(r);
#line 22814 "qb64pe.bas"
do{
#line 22814 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22814 "qb64pe.bas"
if(!qbevent)break;evnt(22814);}while(r);
#line 22815 "qb64pe.bas"
do{
#line 22815 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(FUNC_UDT_ARRAY_MEMBER_BYTES(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)),NULL,0)),qbs_new_txt_len(",sf_mem_lock",12)));
#line 22815 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22815 "qb64pe.bas"
if(!qbevent)break;evnt(22815);}while(r);
#line 22816 "qb64pe.bas"
do{
#line 22816 "qb64pe.bas"
goto exit_subfunc;
#line 22816 "qb64pe.bas"
if(!qbevent)break;evnt(22816);}while(r);
#line 22817 "qb64pe.bas"
}
#line 22818 "qb64pe.bas"
}
#line 22819 "qb64pe.bas"
}
#line 22821 "qb64pe.bas"
S_26192:;
#line 22821 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_DYNMEMLOCKEXPR,qbs_new_txt_len("",0)))&((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))))||is_error_pending()){
#line 22821 "qb64pe.bas"
if(qbevent){evnt(22821);if(r)goto S_26192;}
#line 22822 "qb64pe.bas"
do{
#line 22822 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22822 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22822 "qb64pe.bas"
if(!qbevent)break;evnt(22822);}while(r);
#line 22823 "qb64pe.bas"
do{
#line 22823 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22823 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22823 "qb64pe.bas"
if(!qbevent)break;evnt(22823);}while(r);
#line 22823 "qb64pe.bas"
do{
#line 22823 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22823 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22823 "qb64pe.bas"
if(!qbevent)break;evnt(22823);}while(r);
#line 22824 "qb64pe.bas"
do{
#line 22824 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22824 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22824 "qb64pe.bas"
if(!qbevent)break;evnt(22824);}while(r);
#line 22825 "qb64pe.bas"
do{
#line 22825 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22825 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22825 "qb64pe.bas"
if(!qbevent)break;evnt(22825);}while(r);
#line 22825 "qb64pe.bas"
do{
#line 22825 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22825 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22825 "qb64pe.bas"
if(!qbevent)break;evnt(22825);}while(r);
#line 22826 "qb64pe.bas"
do{
#line 22826 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_UDTELEM=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22826 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22826 "qb64pe.bas"
if(!qbevent)break;evnt(22826);}while(r);
#line 22827 "qb64pe.bas"
do{
#line 22827 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22827 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22827 "qb64pe.bas"
if(!qbevent)break;evnt(22827);}while(r);
#line 22827 "qb64pe.bas"
do{
#line 22827 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22827 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22827 "qb64pe.bas"
if(!qbevent)break;evnt(22827);}while(r);
#line 22828 "qb64pe.bas"
do{
#line 22828 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E);
#line 22828 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22828 "qb64pe.bas"
if(!qbevent)break;evnt(22828);}while(r);
#line 22829 "qb64pe.bas"
do{
#line 22829 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22829 "qb64pe.bas"
if(!qbevent)break;evnt(22829);}while(r);
#line 22830 "qb64pe.bas"
S_26204:;
#line 22830 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22830 "qb64pe.bas"
if(qbevent){evnt(22830);if(r)goto S_26204;}
#line 22830 "qb64pe.bas"
do{
#line 22830 "qb64pe.bas"
goto exit_subfunc;
#line 22830 "qb64pe.bas"
if(!qbevent)break;evnt(22830);}while(r);
#line 22830 "qb64pe.bas"
}
#line 22831 "qb64pe.bas"
S_26207:;
#line 22831 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_UDTELEM== 0 ))||is_error_pending()){
#line 22831 "qb64pe.bas"
if(qbevent){evnt(22831);if(r)goto S_26207;}
#line 22832 "qb64pe.bas"
S_26208:;
#line 22832 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 22832 "qb64pe.bas"
if(qbevent){evnt(22832);if(r)goto S_26208;}
#line 22832 "qb64pe.bas"
do{
#line 22832 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22832 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22832 "qb64pe.bas"
if(!qbevent)break;evnt(22832);}while(r);
#line 22832 "qb64pe.bas"
do{
#line 22832 "qb64pe.bas"
goto exit_subfunc;
#line 22832 "qb64pe.bas"
if(!qbevent)break;evnt(22832);}while(r);
#line 22832 "qb64pe.bas"
}
#line 22833 "qb64pe.bas"
}else{
#line 22834 "qb64pe.bas"
S_26213:;
#line 22834 "qb64pe.bas"
if ((FUNC_DYNMEMVARSTR(_FUNC_EVALUATETOTYP_LONG_UDTELEM))||is_error_pending()){
#line 22834 "qb64pe.bas"
if(qbevent){evnt(22834);if(r)goto S_26213;}
#line 22834 "qb64pe.bas"
do{
#line 22834 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22834 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22834 "qb64pe.bas"
if(!qbevent)break;evnt(22834);}while(r);
#line 22834 "qb64pe.bas"
do{
#line 22834 "qb64pe.bas"
goto exit_subfunc;
#line 22834 "qb64pe.bas"
if(!qbevent)break;evnt(22834);}while(r);
#line 22834 "qb64pe.bas"
}
#line 22835 "qb64pe.bas"
S_26217:;
#line 22835 "qb64pe.bas"
if ((FUNC_DYNMEMUDTVARSTR(_FUNC_EVALUATETOTYP_LONG_UDTELEM))||is_error_pending()){
#line 22835 "qb64pe.bas"
if(qbevent){evnt(22835);if(r)goto S_26217;}
#line 22835 "qb64pe.bas"
do{
#line 22835 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22835 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22835 "qb64pe.bas"
if(!qbevent)break;evnt(22835);}while(r);
#line 22835 "qb64pe.bas"
do{
#line 22835 "qb64pe.bas"
goto exit_subfunc;
#line 22835 "qb64pe.bas"
if(!qbevent)break;evnt(22835);}while(r);
#line 22835 "qb64pe.bas"
}
#line 22836 "qb64pe.bas"
}
#line 22837 "qb64pe.bas"
do{
#line 22837 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 22837 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22837 "qb64pe.bas"
if(!qbevent)break;evnt(22837);}while(r);
#line 22838 "qb64pe.bas"
S_26223:;
#line 22838 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 22838 "qb64pe.bas"
if(qbevent){evnt(22838);if(r)goto S_26223;}
#line 22838 "qb64pe.bas"
do{
#line 22838 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 22838 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22838 "qb64pe.bas"
if(!qbevent)break;evnt(22838);}while(r);
#line 22838 "qb64pe.bas"
}
#line 22839 "qb64pe.bas"
do{
#line 22839 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22839 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22839 "qb64pe.bas"
if(!qbevent)break;evnt(22839);}while(r);
#line 22840 "qb64pe.bas"
S_26227:;
#line 22840 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_UDTELEM== 0 ))||is_error_pending()){
#line 22840 "qb64pe.bas"
if(qbevent){evnt(22840);if(r)goto S_26227;}
#line 22841 "qb64pe.bas"
do{
#line 22841 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])], 8 );
#line 22841 "qb64pe.bas"
if(!qbevent)break;evnt(22841);}while(r);
#line 22842 "qb64pe.bas"
S_26229:;
#line 22842 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520))))||is_error_pending()){
#line 22842 "qb64pe.bas"
if(qbevent){evnt(22842);if(r)goto S_26229;}
#line 22842 "qb64pe.bas"
do{
#line 22842 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=qb_safe_idiv(FUNC_UDTDYNLAYOUTSIZE(_FUNC_EVALUATETOTYP_LONG_U), 8 );
#line 22842 "qb64pe.bas"
if(!qbevent)break;evnt(22842);}while(r);
#line 22842 "qb64pe.bas"
}
#line 22843 "qb64pe.bas"
}else{
#line 22844 "qb64pe.bas"
do{
#line 22844 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_UDTELEM)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 );
#line 22844 "qb64pe.bas"
if(!qbevent)break;evnt(22844);}while(r);
#line 22845 "qb64pe.bas"
}
#line 22846 "qb64pe.bas"
do{
#line 22846 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22846 "qb64pe.bas"
if(!qbevent)break;evnt(22846);}while(r);
#line 22847 "qb64pe.bas"
do{
#line 22847 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),__STRING_DYNMEMLOCKEXPR));
#line 22847 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22847 "qb64pe.bas"
if(!qbevent)break;evnt(22847);}while(r);
#line 22848 "qb64pe.bas"
do{
#line 22848 "qb64pe.bas"
goto exit_subfunc;
#line 22848 "qb64pe.bas"
if(!qbevent)break;evnt(22848);}while(r);
#line 22849 "qb64pe.bas"
}
#line 22852 "qb64pe.bas"
S_26239:;
#line 22852 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||is_error_pending()){
#line 22852 "qb64pe.bas"
if(qbevent){evnt(22852);if(r)goto S_26239;}
#line 22854 "qb64pe.bas"
do{
#line 22854 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22854 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22854 "qb64pe.bas"
if(!qbevent)break;evnt(22854);}while(r);
#line 22855 "qb64pe.bas"
do{
#line 22855 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22855 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22855 "qb64pe.bas"
if(!qbevent)break;evnt(22855);}while(r);
#line 22855 "qb64pe.bas"
do{
#line 22855 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22855 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22855 "qb64pe.bas"
if(!qbevent)break;evnt(22855);}while(r);
#line 22856 "qb64pe.bas"
do{
#line 22856 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22856 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22856 "qb64pe.bas"
if(!qbevent)break;evnt(22856);}while(r);
#line 22857 "qb64pe.bas"
do{
#line 22857 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22857 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22857 "qb64pe.bas"
if(!qbevent)break;evnt(22857);}while(r);
#line 22857 "qb64pe.bas"
do{
#line 22857 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22857 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22857 "qb64pe.bas"
if(!qbevent)break;evnt(22857);}while(r);
#line 22858 "qb64pe.bas"
do{
#line 22858 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_UDTELEM=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22858 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22858 "qb64pe.bas"
if(!qbevent)break;evnt(22858);}while(r);
#line 22859 "qb64pe.bas"
do{
#line 22859 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22859 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22859 "qb64pe.bas"
if(!qbevent)break;evnt(22859);}while(r);
#line 22859 "qb64pe.bas"
do{
#line 22859 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 22859 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22859 "qb64pe.bas"
if(!qbevent)break;evnt(22859);}while(r);
#line 22861 "qb64pe.bas"
do{
#line 22861 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E);
#line 22861 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22861 "qb64pe.bas"
if(!qbevent)break;evnt(22861);}while(r);
#line 22862 "qb64pe.bas"
do{
#line 22862 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22862 "qb64pe.bas"
if(!qbevent)break;evnt(22862);}while(r);
#line 22863 "qb64pe.bas"
S_26251:;
#line 22863 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22863 "qb64pe.bas"
if(qbevent){evnt(22863);if(r)goto S_26251;}
#line 22863 "qb64pe.bas"
do{
#line 22863 "qb64pe.bas"
goto exit_subfunc;
#line 22863 "qb64pe.bas"
if(!qbevent)break;evnt(22863);}while(r);
#line 22863 "qb64pe.bas"
}
#line 22864 "qb64pe.bas"
S_26254:;
#line 22864 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_UDTELEM== 0 ))&(-(*(int32*)(((char*)__UDT_ID)+((0+512)))!= 0 )))||is_error_pending()){
#line 22864 "qb64pe.bas"
if(qbevent){evnt(22864);if(r)goto S_26254;}
#line 22865 "qb64pe.bas"
S_26255:;
#line 22865 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 22865 "qb64pe.bas"
if(qbevent){evnt(22865);if(r)goto S_26255;}
#line 22866 "qb64pe.bas"
S_26256:;
#line 22866 "qb64pe.bas"
if ((FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_EVALUATETOTYP_LONG_U,&(pass2845= 1 )))||is_error_pending()){
#line 22866 "qb64pe.bas"
if(qbevent){evnt(22866);if(r)goto S_26256;}
#line 22866 "qb64pe.bas"
do{
#line 22866 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference a TYPE value that contains explicit _Dynamic member arrays",80));
#line 22866 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22866 "qb64pe.bas"
if(!qbevent)break;evnt(22866);}while(r);
#line 22866 "qb64pe.bas"
do{
#line 22866 "qb64pe.bas"
goto exit_subfunc;
#line 22866 "qb64pe.bas"
if(!qbevent)break;evnt(22866);}while(r);
#line 22866 "qb64pe.bas"
}
#line 22867 "qb64pe.bas"
}
#line 22868 "qb64pe.bas"
}
#line 22870 "qb64pe.bas"
do{
#line 22870 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 22870 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22870 "qb64pe.bas"
if(!qbevent)break;evnt(22870);}while(r);
#line 22871 "qb64pe.bas"
S_26263:;
#line 22871 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 22871 "qb64pe.bas"
if(qbevent){evnt(22871);if(r)goto S_26263;}
#line 22872 "qb64pe.bas"
do{
#line 22872 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 22872 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22872 "qb64pe.bas"
if(!qbevent)break;evnt(22872);}while(r);
#line 22877 "qb64pe.bas"
S_26265:;
#line 22877 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_EVALUATETOTYP_STRING_O, 4 ),qbs_new_txt_len("(0)*",4)))|(qbs_equal(qbs_left(_FUNC_EVALUATETOTYP_STRING_O, 5 ),qbs_new_txt_len("((0)*",5)))))||is_error_pending()){
#line 22877 "qb64pe.bas"
if(qbevent){evnt(22877);if(r)goto S_26265;}
#line 22878 "qb64pe.bas"
do{
#line 22878 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,qbs_new_txt_len("0",1));
#line 22878 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22878 "qb64pe.bas"
if(!qbevent)break;evnt(22878);}while(r);
#line 22879 "qb64pe.bas"
}
#line 22880 "qb64pe.bas"
}
#line 22882 "qb64pe.bas"
LABEL_METHOD2USEALLUDT__7:;
#line 22882 "qb64pe.bas"
if(qbevent){evnt(22882);r=0;}
#line 22883 "qb64pe.bas"
do{
#line 22883 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(FUNC_VARIABLESIZE(&(pass2846= -1 )),qbs_new_txt_len("-(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len(")",1)));
#line 22883 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22883 "qb64pe.bas"
if(!qbevent)break;evnt(22883);}while(r);
#line 22884 "qb64pe.bas"
S_26270:;
#line 22884 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22884 "qb64pe.bas"
if(qbevent){evnt(22884);if(r)goto S_26270;}
#line 22884 "qb64pe.bas"
do{
#line 22884 "qb64pe.bas"
goto exit_subfunc;
#line 22884 "qb64pe.bas"
if(!qbevent)break;evnt(22884);}while(r);
#line 22884 "qb64pe.bas"
}
#line 22885 "qb64pe.bas"
do{
#line 22885 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22885 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22885 "qb64pe.bas"
if(!qbevent)break;evnt(22885);}while(r);
#line 22891 "qb64pe.bas"
S_26274:;
#line 22891 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_UDTELEM!= 0 ))||is_error_pending()){
#line 22891 "qb64pe.bas"
if(qbevent){evnt(22891);if(r)goto S_26274;}
#line 22891 "qb64pe.bas"
do{
#line 22891 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_SIZE= 1 ;
#line 22891 "qb64pe.bas"
if(!qbevent)break;evnt(22891);}while(r);
#line 22891 "qb64pe.bas"
}else{
#line 22891 "qb64pe.bas"
do{
#line 22891 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_SIZE=qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])], 8 );
#line 22891 "qb64pe.bas"
if(!qbevent)break;evnt(22891);}while(r);
#line 22891 "qb64pe.bas"
}
#line 22892 "qb64pe.bas"
S_26279:;
#line 22892 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_UDTELEM== 0 ))&*(int16*)(((char*)__UDT_ID)+((0+520))))||is_error_pending()){
#line 22892 "qb64pe.bas"
if(qbevent){evnt(22892);if(r)goto S_26279;}
#line 22892 "qb64pe.bas"
do{
#line 22892 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_SIZE=qb_safe_idiv(FUNC_UDTDYNLAYOUTSIZE(_FUNC_EVALUATETOTYP_LONG_U), 8 );
#line 22892 "qb64pe.bas"
if(!qbevent)break;evnt(22892);}while(r);
#line 22892 "qb64pe.bas"
}
#line 22894 "qb64pe.bas"
do{
#line 22894 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22894 "qb64pe.bas"
if(!qbevent)break;evnt(22894);}while(r);
#line 22895 "qb64pe.bas"
do{
#line 22895 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_SIZE),NULL,0)),qbs_new_txt_len(",sf_mem_lock",12)));
#line 22895 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22895 "qb64pe.bas"
if(!qbevent)break;evnt(22895);}while(r);
#line 22897 "qb64pe.bas"
do{
#line 22897 "qb64pe.bas"
goto exit_subfunc;
#line 22897 "qb64pe.bas"
if(!qbevent)break;evnt(22897);}while(r);
#line 22898 "qb64pe.bas"
}
#line 22901 "qb64pe.bas"
S_26286:;
#line 22901 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
#line 22901 "qb64pe.bas"
if(qbevent){evnt(22901);if(r)goto S_26286;}
#line 22905 "qb64pe.bas"
do{
#line 22905 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S1=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 22905 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22905 "qb64pe.bas"
if(!qbevent)break;evnt(22905);}while(r);
#line 22906 "qb64pe.bas"
S_26288:;
#line 22906 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S1)||is_error_pending()){
#line 22906 "qb64pe.bas"
if(qbevent){evnt(22906);if(r)goto S_26288;}
#line 22906 "qb64pe.bas"
do{
#line 22906 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2=func_instr(*_FUNC_EVALUATETOTYP_LONG_S1+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 22906 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22906 "qb64pe.bas"
if(!qbevent)break;evnt(22906);}while(r);
#line 22906 "qb64pe.bas"
}else{
#line 22906 "qb64pe.bas"
do{
#line 22906 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2= 0 ;
#line 22906 "qb64pe.bas"
if(!qbevent)break;evnt(22906);}while(r);
#line 22906 "qb64pe.bas"
}
#line 22907 "qb64pe.bas"
S_26293:;
#line 22907 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S2)||is_error_pending()){
#line 22907 "qb64pe.bas"
if(qbevent){evnt(22907);if(r)goto S_26293;}
#line 22907 "qb64pe.bas"
do{
#line 22907 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3=func_instr(*_FUNC_EVALUATETOTYP_LONG_S2+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 22907 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22907 "qb64pe.bas"
if(!qbevent)break;evnt(22907);}while(r);
#line 22907 "qb64pe.bas"
}else{
#line 22907 "qb64pe.bas"
do{
#line 22907 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3= 0 ;
#line 22907 "qb64pe.bas"
if(!qbevent)break;evnt(22907);}while(r);
#line 22907 "qb64pe.bas"
}
#line 22908 "qb64pe.bas"
S_26298:;
#line 22908 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S3)||is_error_pending()){
#line 22908 "qb64pe.bas"
if(qbevent){evnt(22908);if(r)goto S_26298;}
#line 22909 "qb64pe.bas"
S_26299:;
#line 22909 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 22909 "qb64pe.bas"
if(qbevent){evnt(22909);if(r)goto S_26299;}
#line 22910 "qb64pe.bas"
S_26300:;
#line 22910 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 22910 "qb64pe.bas"
if(qbevent){evnt(22910);if(r)goto S_26300;}
#line 22911 "qb64pe.bas"
do{
#line 22911 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22911 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22911 "qb64pe.bas"
if(!qbevent)break;evnt(22911);}while(r);
#line 22911 "qb64pe.bas"
do{
#line 22911 "qb64pe.bas"
goto exit_subfunc;
#line 22911 "qb64pe.bas"
if(!qbevent)break;evnt(22911);}while(r);
#line 22912 "qb64pe.bas"
}
#line 22913 "qb64pe.bas"
}
#line 22914 "qb64pe.bas"
do{
#line 22914 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1- 1 )));
#line 22914 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22914 "qb64pe.bas"
if(!qbevent)break;evnt(22914);}while(r);
#line 22915 "qb64pe.bas"
do{
#line 22915 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1+1,*_FUNC_EVALUATETOTYP_LONG_S2-*_FUNC_EVALUATETOTYP_LONG_S1-1,0|1)));
#line 22915 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22915 "qb64pe.bas"
if(!qbevent)break;evnt(22915);}while(r);
#line 22916 "qb64pe.bas"
do{
#line 22916 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S2+1,*_FUNC_EVALUATETOTYP_LONG_S3-*_FUNC_EVALUATETOTYP_LONG_S2-1,0|1)));
#line 22916 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22916 "qb64pe.bas"
if(!qbevent)break;evnt(22916);}while(r);
#line 22919 "qb64pe.bas"
S_26308:;
#line 22919 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 22919 "qb64pe.bas"
if(qbevent){evnt(22919);if(r)goto S_26308;}
#line 22920 "qb64pe.bas"
S_26309:;
#line 22920 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 22920 "qb64pe.bas"
if(qbevent){evnt(22920);if(r)goto S_26309;}
#line 22921 "qb64pe.bas"
do{
#line 22921 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S3+1,NULL,0));
#line 22921 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22921 "qb64pe.bas"
if(!qbevent)break;evnt(22921);}while(r);
#line 22922 "qb64pe.bas"
do{
#line 22922 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22922 "qb64pe.bas"
if(!qbevent)break;evnt(22922);}while(r);
#line 22923 "qb64pe.bas"
S_26312:;
#line 22923 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22923 "qb64pe.bas"
if(qbevent){evnt(22923);if(r)goto S_26312;}
#line 22923 "qb64pe.bas"
do{
#line 22923 "qb64pe.bas"
goto exit_subfunc;
#line 22923 "qb64pe.bas"
if(!qbevent)break;evnt(22923);}while(r);
#line 22923 "qb64pe.bas"
}
#line 22924 "qb64pe.bas"
do{
#line 22924 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 22924 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22924 "qb64pe.bas"
if(!qbevent)break;evnt(22924);}while(r);
#line 22924 "qb64pe.bas"
S_26316:;
#line 22924 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 22924 "qb64pe.bas"
if(qbevent){evnt(22924);if(r)goto S_26316;}
#line 22924 "qb64pe.bas"
do{
#line 22924 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 22924 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22924 "qb64pe.bas"
if(!qbevent)break;evnt(22924);}while(r);
#line 22924 "qb64pe.bas"
}
#line 22925 "qb64pe.bas"
S_26319:;
#line 22925 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTMEMBERDYNDESC(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID))||is_error_pending()){
#line 22925 "qb64pe.bas"
if(qbevent){evnt(22925);if(r)goto S_26319;}
#line 22926 "qb64pe.bas"
do{
#line 22926 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((ptrszint**)(((char*)",24),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))))",4)));
#line 22926 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22926 "qb64pe.bas"
if(!qbevent)break;evnt(22926);}while(r);
#line 22927 "qb64pe.bas"
do{
#line 22927 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,FUNC_UDTDYNARRAYDESCGUARD(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,(&(((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])]))));
#line 22927 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22927 "qb64pe.bas"
if(!qbevent)break;evnt(22927);}while(r);
#line 22928 "qb64pe.bas"
S_26322:;
#line 22928 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22928 "qb64pe.bas"
if(qbevent){evnt(22928);if(r)goto S_26322;}
#line 22928 "qb64pe.bas"
do{
#line 22928 "qb64pe.bas"
goto exit_subfunc;
#line 22928 "qb64pe.bas"
if(!qbevent)break;evnt(22928);}while(r);
#line 22928 "qb64pe.bas"
}
#line 22929 "qb64pe.bas"
do{
#line 22929 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID);
#line 22929 "qb64pe.bas"
if(!qbevent)break;evnt(22929);}while(r);
#line 22930 "qb64pe.bas"
do{
#line 22930 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_UDTDYNARRAYBYTESEXPR(_FUNC_EVALUATETOTYP_STRING_DESC_EXPR,_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES));
#line 22930 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22930 "qb64pe.bas"
if(!qbevent)break;evnt(22930);}while(r);
#line 22931 "qb64pe.bas"
S_26327:;
#line 22931 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22931 "qb64pe.bas"
if(qbevent){evnt(22931);if(r)goto S_26327;}
#line 22931 "qb64pe.bas"
do{
#line 22931 "qb64pe.bas"
goto exit_subfunc;
#line 22931 "qb64pe.bas"
if(!qbevent)break;evnt(22931);}while(r);
#line 22931 "qb64pe.bas"
}
#line 22932 "qb64pe.bas"
do{
#line 22932 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_FUNC_EVALUATETOTYP_STRING_DESC_EXPR),qbs_new_txt_len("[0])",4)));
#line 22932 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22932 "qb64pe.bas"
if(!qbevent)break;evnt(22932);}while(r);
#line 22933 "qb64pe.bas"
do{
#line 22933 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22933 "qb64pe.bas"
if(!qbevent)break;evnt(22933);}while(r);
#line 22934 "qb64pe.bas"
do{
#line 22934 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_LK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(mem_lock*)(",12),_FUNC_EVALUATETOTYP_STRING_DESC_EXPR),qbs_new_txt_len("[",1)),_FUNC_EVALUATETOTYP_STRING_DESC_EXPR),qbs_new_txt_len("[3]*4+4])",9)));
#line 22934 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22934 "qb64pe.bas"
if(!qbevent)break;evnt(22934);}while(r);
#line 22935 "qb64pe.bas"
do{
#line 22935 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_ELEM_BYTES),NULL,0)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK));
#line 22935 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22935 "qb64pe.bas"
if(!qbevent)break;evnt(22935);}while(r);
#line 22936 "qb64pe.bas"
do{
#line 22936 "qb64pe.bas"
goto exit_subfunc;
#line 22936 "qb64pe.bas"
if(!qbevent)break;evnt(22936);}while(r);
#line 22937 "qb64pe.bas"
}
#line 22938 "qb64pe.bas"
do{
#line 22938 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 )),NULL,0));
#line 22938 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22938 "qb64pe.bas"
if(!qbevent)break;evnt(22938);}while(r);
#line 22939 "qb64pe.bas"
do{
#line 22939 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 22939 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22939 "qb64pe.bas"
if(!qbevent)break;evnt(22939);}while(r);
#line 22940 "qb64pe.bas"
do{
#line 22940 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22940 "qb64pe.bas"
if(!qbevent)break;evnt(22940);}while(r);
#line 22941 "qb64pe.bas"
do{
#line 22941 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(FUNC_UDT_ARRAY_MEMBER_BYTES(_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)),NULL,0)),qbs_new_txt_len(",sf_mem_lock",12)));
#line 22941 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22941 "qb64pe.bas"
if(!qbevent)break;evnt(22941);}while(r);
#line 22942 "qb64pe.bas"
do{
#line 22942 "qb64pe.bas"
goto exit_subfunc;
#line 22942 "qb64pe.bas"
if(!qbevent)break;evnt(22942);}while(r);
#line 22943 "qb64pe.bas"
}
#line 22944 "qb64pe.bas"
}
#line 22945 "qb64pe.bas"
}
#line 22947 "qb64pe.bas"
S_26344:;
#line 22947 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 22947 "qb64pe.bas"
if(qbevent){evnt(22947);if(r)goto S_26344;}
#line 22948 "qb64pe.bas"
S_26345:;
#line 22948 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 22948 "qb64pe.bas"
if(qbevent){evnt(22948);if(r)goto S_26345;}
#line 22949 "qb64pe.bas"
do{
#line 22949 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22949 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22949 "qb64pe.bas"
if(!qbevent)break;evnt(22949);}while(r);
#line 22949 "qb64pe.bas"
do{
#line 22949 "qb64pe.bas"
goto exit_subfunc;
#line 22949 "qb64pe.bas"
if(!qbevent)break;evnt(22949);}while(r);
#line 22950 "qb64pe.bas"
}
#line 22951 "qb64pe.bas"
}
#line 22953 "qb64pe.bas"
do{
#line 22953 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 22953 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22953 "qb64pe.bas"
if(!qbevent)break;evnt(22953);}while(r);
#line 22954 "qb64pe.bas"
do{
#line 22954 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 22954 "qb64pe.bas"
if(!qbevent)break;evnt(22954);}while(r);
#line 22955 "qb64pe.bas"
S_26352:;
#line 22955 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22955 "qb64pe.bas"
if(qbevent){evnt(22955);if(r)goto S_26352;}
#line 22955 "qb64pe.bas"
do{
#line 22955 "qb64pe.bas"
goto exit_subfunc;
#line 22955 "qb64pe.bas"
if(!qbevent)break;evnt(22955);}while(r);
#line 22955 "qb64pe.bas"
}
#line 22956 "qb64pe.bas"
S_26355:;
#line 22956 "qb64pe.bas"
if ((-((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISUDT)!= 0 ))||is_error_pending()){
#line 22956 "qb64pe.bas"
if(qbevent){evnt(22956);if(r)goto S_26355;}
#line 22957 "qb64pe.bas"
do{
#line 22957 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=*(int32*)(((char*)__UDT_ID)+((0+512)))& 4095ll ;
#line 22957 "qb64pe.bas"
if(!qbevent)break;evnt(22957);}while(r);
#line 22958 "qb64pe.bas"
S_26357:;
#line 22958 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_EVALUATETOTYP_LONG_U,&(pass2854=*(int16*)(((char*)__UDT_ID)+((0+522))))))||is_error_pending()){
#line 22958 "qb64pe.bas"
if(qbevent){evnt(22958);if(r)goto S_26357;}
#line 22958 "qb64pe.bas"
do{
#line 22958 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference a TYPE value that contains explicit _Dynamic member arrays",80));
#line 22958 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22958 "qb64pe.bas"
if(!qbevent)break;evnt(22958);}while(r);
#line 22958 "qb64pe.bas"
do{
#line 22958 "qb64pe.bas"
goto exit_subfunc;
#line 22958 "qb64pe.bas"
if(!qbevent)break;evnt(22958);}while(r);
#line 22958 "qb64pe.bas"
}
#line 22959 "qb64pe.bas"
S_26361:;
#line 22959 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520)))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 22959 "qb64pe.bas"
if(qbevent){evnt(22959);if(r)goto S_26361;}
#line 22959 "qb64pe.bas"
do{
#line 22959 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 22959 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22959 "qb64pe.bas"
if(!qbevent)break;evnt(22959);}while(r);
#line 22959 "qb64pe.bas"
do{
#line 22959 "qb64pe.bas"
goto exit_subfunc;
#line 22959 "qb64pe.bas"
if(!qbevent)break;evnt(22959);}while(r);
#line 22959 "qb64pe.bas"
}
#line 22960 "qb64pe.bas"
}
#line 22962 "qb64pe.bas"
do{
#line 22962 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)));
#line 22962 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22962 "qb64pe.bas"
if(!qbevent)break;evnt(22962);}while(r);
#line 22963 "qb64pe.bas"
do{
#line 22963 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_LK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(mem_lock*)((ptrszint*)",23),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")[",2)),qbs__tostr((int64)(( 4 **(int16*)(((char*)__UDT_ID)+((0+516))))+( 4 )+( 1 )-( 1 )),NULL,0)),qbs_new_txt_len("]",1)));
#line 22963 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22963 "qb64pe.bas"
if(!qbevent)break;evnt(22963);}while(r);
#line 22965 "qb64pe.bas"
do{
#line 22965 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+((0+544)));
#line 22965 "qb64pe.bas"
if(!qbevent)break;evnt(22965);}while(r);
#line 22967 "qb64pe.bas"
do{
#line 22967 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_INDEX,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0)));
#line 22967 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22967 "qb64pe.bas"
if(!qbevent)break;evnt(22967);}while(r);
#line 22968 "qb64pe.bas"
do{
#line 22968 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_VARIABLESIZE(&(pass2856= -1 )));
#line 22968 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22968 "qb64pe.bas"
if(!qbevent)break;evnt(22968);}while(r);
#line 22969 "qb64pe.bas"
S_26371:;
#line 22969 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22969 "qb64pe.bas"
if(qbevent){evnt(22969);if(r)goto S_26371;}
#line 22969 "qb64pe.bas"
do{
#line 22969 "qb64pe.bas"
goto exit_subfunc;
#line 22969 "qb64pe.bas"
if(!qbevent)break;evnt(22969);}while(r);
#line 22969 "qb64pe.bas"
}
#line 22970 "qb64pe.bas"
do{
#line 22970 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2857= 0 )));
#line 22970 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22970 "qb64pe.bas"
if(!qbevent)break;evnt(22970);}while(r);
#line 22971 "qb64pe.bas"
S_26375:;
#line 22971 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22971 "qb64pe.bas"
if(qbevent){evnt(22971);if(r)goto S_26375;}
#line 22971 "qb64pe.bas"
do{
#line 22971 "qb64pe.bas"
goto exit_subfunc;
#line 22971 "qb64pe.bas"
if(!qbevent)break;evnt(22971);}while(r);
#line 22971 "qb64pe.bas"
}
#line 22973 "qb64pe.bas"
S_26378:;
#line 22973 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 22973 "qb64pe.bas"
if(qbevent){evnt(22973);if(r)goto S_26378;}
#line 22974 "qb64pe.bas"
do{
#line 22974 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")->chr)",7)));
#line 22974 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22974 "qb64pe.bas"
if(!qbevent)break;evnt(22974);}while(r);
#line 22975 "qb64pe.bas"
}else{
#line 22976 "qb64pe.bas"
do{
#line 22976 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2)));
#line 22976 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22976 "qb64pe.bas"
if(!qbevent)break;evnt(22976);}while(r);
#line 22977 "qb64pe.bas"
}
#line 22981 "qb64pe.bas"
S_26383:;
#line 22981 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 22981 "qb64pe.bas"
if(qbevent){evnt(22981);if(r)goto S_26383;}
#line 22982 "qb64pe.bas"
do{
#line 22982 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_BYTES=*_FUNC_EVALUATETOTYP_LONG_TSIZE;
#line 22982 "qb64pe.bas"
if(!qbevent)break;evnt(22982);}while(r);
#line 22983 "qb64pe.bas"
}else{
#line 22984 "qb64pe.bas"
do{
#line 22984 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_BYTES=qb_safe_idiv((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 4095ll ), 8 );
#line 22984 "qb64pe.bas"
if(!qbevent)break;evnt(22984);}while(r);
#line 22985 "qb64pe.bas"
}
#line 22986 "qb64pe.bas"
do{
#line 22986 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_new_txt_len("-(",2)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_BYTES),NULL,0)),qbs_new_txt_len("*(",2)),_FUNC_EVALUATETOTYP_STRING_INDEX),qbs_new_txt_len("))",2)));
#line 22986 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22986 "qb64pe.bas"
if(!qbevent)break;evnt(22986);}while(r);
#line 22988 "qb64pe.bas"
do{
#line 22988 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22988 "qb64pe.bas"
if(!qbevent)break;evnt(22988);}while(r);
#line 22989 "qb64pe.bas"
do{
#line 22989 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_BYTES),NULL,0)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK));
#line 22989 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22989 "qb64pe.bas"
if(!qbevent)break;evnt(22989);}while(r);
#line 22991 "qb64pe.bas"
do{
#line 22991 "qb64pe.bas"
goto exit_subfunc;
#line 22991 "qb64pe.bas"
if(!qbevent)break;evnt(22991);}while(r);
#line 22992 "qb64pe.bas"
}
#line 22994 "qb64pe.bas"
S_26393:;
#line 22994 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_DYNMEMLOCKEXPR,qbs_new_txt_len("",0))))||is_error_pending()){
#line 22994 "qb64pe.bas"
if(qbevent){evnt(22994);if(r)goto S_26393;}
#line 22995 "qb64pe.bas"
S_26394:;
#line 22995 "qb64pe.bas"
if (((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))&(-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT)== 0 ))&(-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
#line 22995 "qb64pe.bas"
if(qbevent){evnt(22995);if(r)goto S_26394;}
#line 22996 "qb64pe.bas"
do{
#line 22996 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2858= 1 )));
#line 22996 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 22996 "qb64pe.bas"
if(!qbevent)break;evnt(22996);}while(r);
#line 22997 "qb64pe.bas"
S_26396:;
#line 22997 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 22997 "qb64pe.bas"
if(qbevent){evnt(22997);if(r)goto S_26396;}
#line 22997 "qb64pe.bas"
do{
#line 22997 "qb64pe.bas"
goto exit_subfunc;
#line 22997 "qb64pe.bas"
if(!qbevent)break;evnt(22997);}while(r);
#line 22997 "qb64pe.bas"
}
#line 22998 "qb64pe.bas"
do{
#line 22998 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_SIZE=qb_safe_idiv((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 4095ll ), 8 );
#line 22998 "qb64pe.bas"
if(!qbevent)break;evnt(22998);}while(r);
#line 22999 "qb64pe.bas"
do{
#line 22999 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 22999 "qb64pe.bas"
if(!qbevent)break;evnt(22999);}while(r);
#line 23000 "qb64pe.bas"
do{
#line 23000 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_SIZE),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_SIZE),NULL,0)),qbs_new_txt_len(",",1)),__STRING_DYNMEMLOCKEXPR));
#line 23000 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23000 "qb64pe.bas"
if(!qbevent)break;evnt(23000);}while(r);
#line 23001 "qb64pe.bas"
do{
#line 23001 "qb64pe.bas"
goto exit_subfunc;
#line 23001 "qb64pe.bas"
if(!qbevent)break;evnt(23001);}while(r);
#line 23002 "qb64pe.bas"
}
#line 23003 "qb64pe.bas"
}
#line 23006 "qb64pe.bas"
S_26405:;
#line 23006 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 23006 "qb64pe.bas"
if(qbevent){evnt(23006);if(r)goto S_26405;}
#line 23007 "qb64pe.bas"
S_26406:;
#line 23007 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 23007 "qb64pe.bas"
if(qbevent){evnt(23007);if(r)goto S_26406;}
#line 23007 "qb64pe.bas"
do{
#line 23007 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("_MEM cannot reference variable-length strings",45));
#line 23007 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23007 "qb64pe.bas"
if(!qbevent)break;evnt(23007);}while(r);
#line 23007 "qb64pe.bas"
do{
#line 23007 "qb64pe.bas"
goto exit_subfunc;
#line 23007 "qb64pe.bas"
if(!qbevent)break;evnt(23007);}while(r);
#line 23007 "qb64pe.bas"
}
#line 23009 "qb64pe.bas"
do{
#line 23009 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 23009 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23009 "qb64pe.bas"
if(!qbevent)break;evnt(23009);}while(r);
#line 23010 "qb64pe.bas"
do{
#line 23010 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 23010 "qb64pe.bas"
if(!qbevent)break;evnt(23010);}while(r);
#line 23010 "qb64pe.bas"
S_26412:;
#line 23010 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23010 "qb64pe.bas"
if(qbevent){evnt(23010);if(r)goto S_26412;}
#line 23010 "qb64pe.bas"
do{
#line 23010 "qb64pe.bas"
goto exit_subfunc;
#line 23010 "qb64pe.bas"
if(!qbevent)break;evnt(23010);}while(r);
#line 23010 "qb64pe.bas"
}
#line 23011 "qb64pe.bas"
do{
#line 23011 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+544)))),NULL,0));
#line 23011 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23011 "qb64pe.bas"
if(!qbevent)break;evnt(23011);}while(r);
#line 23012 "qb64pe.bas"
do{
#line 23012 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2859= 0 )));
#line 23012 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23012 "qb64pe.bas"
if(!qbevent)break;evnt(23012);}while(r);
#line 23012 "qb64pe.bas"
S_26417:;
#line 23012 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23012 "qb64pe.bas"
if(qbevent){evnt(23012);if(r)goto S_26417;}
#line 23012 "qb64pe.bas"
do{
#line 23012 "qb64pe.bas"
goto exit_subfunc;
#line 23012 "qb64pe.bas"
if(!qbevent)break;evnt(23012);}while(r);
#line 23012 "qb64pe.bas"
}
#line 23014 "qb64pe.bas"
do{
#line 23014 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 23014 "qb64pe.bas"
if(!qbevent)break;evnt(23014);}while(r);
#line 23015 "qb64pe.bas"
do{
#line 23015 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12)));
#line 23015 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23015 "qb64pe.bas"
if(!qbevent)break;evnt(23015);}while(r);
#line 23017 "qb64pe.bas"
do{
#line 23017 "qb64pe.bas"
goto exit_subfunc;
#line 23017 "qb64pe.bas"
if(!qbevent)break;evnt(23017);}while(r);
#line 23018 "qb64pe.bas"
}
#line 23021 "qb64pe.bas"
do{
#line 23021 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2860= 1 )));
#line 23021 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23021 "qb64pe.bas"
if(!qbevent)break;evnt(23021);}while(r);
#line 23022 "qb64pe.bas"
S_26425:;
#line 23022 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23022 "qb64pe.bas"
if(qbevent){evnt(23022);if(r)goto S_26425;}
#line 23022 "qb64pe.bas"
do{
#line 23022 "qb64pe.bas"
goto exit_subfunc;
#line 23022 "qb64pe.bas"
if(!qbevent)break;evnt(23022);}while(r);
#line 23022 "qb64pe.bas"
}
#line 23023 "qb64pe.bas"
do{
#line 23023 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_SIZE=qb_safe_idiv((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 4095ll ), 8 );
#line 23023 "qb64pe.bas"
if(!qbevent)break;evnt(23023);}while(r);
#line 23025 "qb64pe.bas"
do{
#line 23025 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP);
#line 23025 "qb64pe.bas"
if(!qbevent)break;evnt(23025);}while(r);
#line 23026 "qb64pe.bas"
do{
#line 23026 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_SIZE),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_T),NULL,0)),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_SIZE),NULL,0)),qbs_new_txt_len(",sf_mem_lock",12)));
#line 23026 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23026 "qb64pe.bas"
if(!qbevent)break;evnt(23026);}while(r);
#line 23028 "qb64pe.bas"
do{
#line 23028 "qb64pe.bas"
goto exit_subfunc;
#line 23028 "qb64pe.bas"
if(!qbevent)break;evnt(23028);}while(r);
#line 23030 "qb64pe.bas"
}
#line 23033 "qb64pe.bas"
S_26433:;
#line 23033 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -2 ))||is_error_pending()){
#line 23033 "qb64pe.bas"
if(qbevent){evnt(23033);if(r)goto S_26433;}
#line 23034 "qb64pe.bas"
LABEL_METHOD2USEALL:;
#line 23034 "qb64pe.bas"
if(qbevent){evnt(23034);r=0;}
#line 23037 "qb64pe.bas"
S_26434:;
#line 23037 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 23037 "qb64pe.bas"
if(qbevent){evnt(23037);if(r)goto S_26434;}
#line 23037 "qb64pe.bas"
do{
#line 23037 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36));
#line 23037 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23037 "qb64pe.bas"
if(!qbevent)break;evnt(23037);}while(r);
#line 23037 "qb64pe.bas"
do{
#line 23037 "qb64pe.bas"
goto exit_subfunc;
#line 23037 "qb64pe.bas"
if(!qbevent)break;evnt(23037);}while(r);
#line 23037 "qb64pe.bas"
}
#line 23038 "qb64pe.bas"
S_26438:;
#line 23038 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||is_error_pending()){
#line 23038 "qb64pe.bas"
if(qbevent){evnt(23038);if(r)goto S_26438;}
#line 23038 "qb64pe.bas"
do{
#line 23038 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be _BIT aligned",39));
#line 23038 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23038 "qb64pe.bas"
if(!qbevent)break;evnt(23038);}while(r);
#line 23038 "qb64pe.bas"
do{
#line 23038 "qb64pe.bas"
goto exit_subfunc;
#line 23038 "qb64pe.bas"
if(!qbevent)break;evnt(23038);}while(r);
#line 23038 "qb64pe.bas"
}
#line 23043 "qb64pe.bas"
S_26442:;
#line 23043 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
#line 23043 "qb64pe.bas"
if(qbevent){evnt(23043);if(r)goto S_26442;}
#line 23044 "qb64pe.bas"
do{
#line 23044 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S1=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 23044 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23044 "qb64pe.bas"
if(!qbevent)break;evnt(23044);}while(r);
#line 23045 "qb64pe.bas"
S_26444:;
#line 23045 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S1)||is_error_pending()){
#line 23045 "qb64pe.bas"
if(qbevent){evnt(23045);if(r)goto S_26444;}
#line 23045 "qb64pe.bas"
do{
#line 23045 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2=func_instr(*_FUNC_EVALUATETOTYP_LONG_S1+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 23045 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23045 "qb64pe.bas"
if(!qbevent)break;evnt(23045);}while(r);
#line 23045 "qb64pe.bas"
}else{
#line 23045 "qb64pe.bas"
do{
#line 23045 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2= 0 ;
#line 23045 "qb64pe.bas"
if(!qbevent)break;evnt(23045);}while(r);
#line 23045 "qb64pe.bas"
}
#line 23046 "qb64pe.bas"
S_26449:;
#line 23046 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S2)||is_error_pending()){
#line 23046 "qb64pe.bas"
if(qbevent){evnt(23046);if(r)goto S_26449;}
#line 23046 "qb64pe.bas"
do{
#line 23046 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3=func_instr(*_FUNC_EVALUATETOTYP_LONG_S2+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 23046 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23046 "qb64pe.bas"
if(!qbevent)break;evnt(23046);}while(r);
#line 23046 "qb64pe.bas"
}else{
#line 23046 "qb64pe.bas"
do{
#line 23046 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3= 0 ;
#line 23046 "qb64pe.bas"
if(!qbevent)break;evnt(23046);}while(r);
#line 23046 "qb64pe.bas"
}
#line 23047 "qb64pe.bas"
S_26454:;
#line 23047 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S3)||is_error_pending()){
#line 23047 "qb64pe.bas"
if(qbevent){evnt(23047);if(r)goto S_26454;}
#line 23048 "qb64pe.bas"
do{
#line 23048 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1- 1 )));
#line 23048 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23048 "qb64pe.bas"
if(!qbevent)break;evnt(23048);}while(r);
#line 23049 "qb64pe.bas"
do{
#line 23049 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1+1,*_FUNC_EVALUATETOTYP_LONG_S2-*_FUNC_EVALUATETOTYP_LONG_S1-1,0|1)));
#line 23049 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23049 "qb64pe.bas"
if(!qbevent)break;evnt(23049);}while(r);
#line 23050 "qb64pe.bas"
do{
#line 23050 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S2+1,*_FUNC_EVALUATETOTYP_LONG_S3-*_FUNC_EVALUATETOTYP_LONG_S2-1,0|1)));
#line 23050 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23050 "qb64pe.bas"
if(!qbevent)break;evnt(23050);}while(r);
#line 23051 "qb64pe.bas"
S_26458:;
#line 23051 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 23051 "qb64pe.bas"
if(qbevent){evnt(23051);if(r)goto S_26458;}
#line 23052 "qb64pe.bas"
S_26459:;
#line 23052 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 23052 "qb64pe.bas"
if(qbevent){evnt(23052);if(r)goto S_26459;}
#line 23053 "qb64pe.bas"
do{
#line 23053 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S3+1,NULL,0));
#line 23053 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23053 "qb64pe.bas"
if(!qbevent)break;evnt(23053);}while(r);
#line 23054 "qb64pe.bas"
do{
#line 23054 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 23054 "qb64pe.bas"
if(!qbevent)break;evnt(23054);}while(r);
#line 23055 "qb64pe.bas"
S_26462:;
#line 23055 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23055 "qb64pe.bas"
if(qbevent){evnt(23055);if(r)goto S_26462;}
#line 23055 "qb64pe.bas"
do{
#line 23055 "qb64pe.bas"
goto exit_subfunc;
#line 23055 "qb64pe.bas"
if(!qbevent)break;evnt(23055);}while(r);
#line 23055 "qb64pe.bas"
}
#line 23056 "qb64pe.bas"
do{
#line 23056 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 23056 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23056 "qb64pe.bas"
if(!qbevent)break;evnt(23056);}while(r);
#line 23056 "qb64pe.bas"
S_26466:;
#line 23056 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 23056 "qb64pe.bas"
if(qbevent){evnt(23056);if(r)goto S_26466;}
#line 23056 "qb64pe.bas"
do{
#line 23056 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 23056 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23056 "qb64pe.bas"
if(!qbevent)break;evnt(23056);}while(r);
#line 23056 "qb64pe.bas"
}
#line 23057 "qb64pe.bas"
do{
#line 23057 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 )),NULL,0));
#line 23057 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23057 "qb64pe.bas"
if(!qbevent)break;evnt(23057);}while(r);
#line 23058 "qb64pe.bas"
do{
#line 23058 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 23058 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23058 "qb64pe.bas"
if(!qbevent)break;evnt(23058);}while(r);
#line 23059 "qb64pe.bas"
do{
#line 23059 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 23059 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23059 "qb64pe.bas"
if(!qbevent)break;evnt(23059);}while(r);
#line 23060 "qb64pe.bas"
S_26472:;
#line 23060 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 23060 "qb64pe.bas"
if(qbevent){evnt(23060);if(r)goto S_26472;}
#line 23060 "qb64pe.bas"
do{
#line 23060 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES);
#line 23060 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23060 "qb64pe.bas"
if(!qbevent)break;evnt(23060);}while(r);
#line 23060 "qb64pe.bas"
}
#line 23061 "qb64pe.bas"
S_26475:;
#line 23061 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 23061 "qb64pe.bas"
if(qbevent){evnt(23061);if(r)goto S_26475;}
#line 23061 "qb64pe.bas"
do{
#line 23061 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST);
#line 23061 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23061 "qb64pe.bas"
if(!qbevent)break;evnt(23061);}while(r);
#line 23061 "qb64pe.bas"
}
#line 23062 "qb64pe.bas"
do{
#line 23062 "qb64pe.bas"
goto exit_subfunc;
#line 23062 "qb64pe.bas"
if(!qbevent)break;evnt(23062);}while(r);
#line 23063 "qb64pe.bas"
}
#line 23064 "qb64pe.bas"
}
#line 23065 "qb64pe.bas"
}
#line 23066 "qb64pe.bas"
}
#line 23069 "qb64pe.bas"
S_26483:;
#line 23069 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||is_error_pending()){
#line 23069 "qb64pe.bas"
if(qbevent){evnt(23069);if(r)goto S_26483;}
#line 23071 "qb64pe.bas"
do{
#line 23071 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 23071 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23071 "qb64pe.bas"
if(!qbevent)break;evnt(23071);}while(r);
#line 23072 "qb64pe.bas"
do{
#line 23072 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 23072 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23072 "qb64pe.bas"
if(!qbevent)break;evnt(23072);}while(r);
#line 23072 "qb64pe.bas"
do{
#line 23072 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 23072 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23072 "qb64pe.bas"
if(!qbevent)break;evnt(23072);}while(r);
#line 23073 "qb64pe.bas"
do{
#line 23073 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 23073 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23073 "qb64pe.bas"
if(!qbevent)break;evnt(23073);}while(r);
#line 23074 "qb64pe.bas"
do{
#line 23074 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 23074 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23074 "qb64pe.bas"
if(!qbevent)break;evnt(23074);}while(r);
#line 23074 "qb64pe.bas"
do{
#line 23074 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 23074 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23074 "qb64pe.bas"
if(!qbevent)break;evnt(23074);}while(r);
#line 23075 "qb64pe.bas"
do{
#line 23075 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_UDTELEM=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 23075 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23075 "qb64pe.bas"
if(!qbevent)break;evnt(23075);}while(r);
#line 23076 "qb64pe.bas"
do{
#line 23076 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 23076 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23076 "qb64pe.bas"
if(!qbevent)break;evnt(23076);}while(r);
#line 23076 "qb64pe.bas"
do{
#line 23076 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I));
#line 23076 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23076 "qb64pe.bas"
if(!qbevent)break;evnt(23076);}while(r);
#line 23077 "qb64pe.bas"
do{
#line 23077 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E);
#line 23077 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23077 "qb64pe.bas"
if(!qbevent)break;evnt(23077);}while(r);
#line 23078 "qb64pe.bas"
do{
#line 23078 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 23078 "qb64pe.bas"
if(!qbevent)break;evnt(23078);}while(r);
#line 23079 "qb64pe.bas"
S_26495:;
#line 23079 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23079 "qb64pe.bas"
if(qbevent){evnt(23079);if(r)goto S_26495;}
#line 23079 "qb64pe.bas"
do{
#line 23079 "qb64pe.bas"
goto exit_subfunc;
#line 23079 "qb64pe.bas"
if(!qbevent)break;evnt(23079);}while(r);
#line 23079 "qb64pe.bas"
}
#line 23080 "qb64pe.bas"
do{
#line 23080 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 23080 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23080 "qb64pe.bas"
if(!qbevent)break;evnt(23080);}while(r);
#line 23080 "qb64pe.bas"
S_26499:;
#line 23080 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 23080 "qb64pe.bas"
if(qbevent){evnt(23080);if(r)goto S_26499;}
#line 23080 "qb64pe.bas"
do{
#line 23080 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 23080 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23080 "qb64pe.bas"
if(!qbevent)break;evnt(23080);}while(r);
#line 23080 "qb64pe.bas"
}
#line 23081 "qb64pe.bas"
LABEL_METHOD2USEALLUDT:;
#line 23081 "qb64pe.bas"
if(qbevent){evnt(23081);r=0;}
#line 23082 "qb64pe.bas"
do{
#line 23082 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(FUNC_VARIABLESIZE(&(pass2871= -1 )),qbs_new_txt_len("-(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len(")",1)));
#line 23082 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23082 "qb64pe.bas"
if(!qbevent)break;evnt(23082);}while(r);
#line 23083 "qb64pe.bas"
S_26503:;
#line 23083 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23083 "qb64pe.bas"
if(qbevent){evnt(23083);if(r)goto S_26503;}
#line 23083 "qb64pe.bas"
do{
#line 23083 "qb64pe.bas"
goto exit_subfunc;
#line 23083 "qb64pe.bas"
if(!qbevent)break;evnt(23083);}while(r);
#line 23083 "qb64pe.bas"
}
#line 23084 "qb64pe.bas"
do{
#line 23084 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 23084 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23084 "qb64pe.bas"
if(!qbevent)break;evnt(23084);}while(r);
#line 23085 "qb64pe.bas"
do{
#line 23085 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 23085 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23085 "qb64pe.bas"
if(!qbevent)break;evnt(23085);}while(r);
#line 23086 "qb64pe.bas"
S_26508:;
#line 23086 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 23086 "qb64pe.bas"
if(qbevent){evnt(23086);if(r)goto S_26508;}
#line 23086 "qb64pe.bas"
do{
#line 23086 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES);
#line 23086 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23086 "qb64pe.bas"
if(!qbevent)break;evnt(23086);}while(r);
#line 23086 "qb64pe.bas"
}
#line 23087 "qb64pe.bas"
S_26511:;
#line 23087 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 23087 "qb64pe.bas"
if(qbevent){evnt(23087);if(r)goto S_26511;}
#line 23087 "qb64pe.bas"
do{
#line 23087 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST);
#line 23087 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23087 "qb64pe.bas"
if(!qbevent)break;evnt(23087);}while(r);
#line 23087 "qb64pe.bas"
}
#line 23088 "qb64pe.bas"
do{
#line 23088 "qb64pe.bas"
goto exit_subfunc;
#line 23088 "qb64pe.bas"
if(!qbevent)break;evnt(23088);}while(r);
#line 23089 "qb64pe.bas"
}
#line 23092 "qb64pe.bas"
S_26516:;
#line 23092 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||is_error_pending()){
#line 23092 "qb64pe.bas"
if(qbevent){evnt(23092);if(r)goto S_26516;}
#line 23096 "qb64pe.bas"
do{
#line 23096 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S1=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0);
#line 23096 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23096 "qb64pe.bas"
if(!qbevent)break;evnt(23096);}while(r);
#line 23097 "qb64pe.bas"
S_26518:;
#line 23097 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S1)||is_error_pending()){
#line 23097 "qb64pe.bas"
if(qbevent){evnt(23097);if(r)goto S_26518;}
#line 23097 "qb64pe.bas"
do{
#line 23097 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2=func_instr(*_FUNC_EVALUATETOTYP_LONG_S1+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 23097 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23097 "qb64pe.bas"
if(!qbevent)break;evnt(23097);}while(r);
#line 23097 "qb64pe.bas"
}else{
#line 23097 "qb64pe.bas"
do{
#line 23097 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S2= 0 ;
#line 23097 "qb64pe.bas"
if(!qbevent)break;evnt(23097);}while(r);
#line 23097 "qb64pe.bas"
}
#line 23098 "qb64pe.bas"
S_26523:;
#line 23098 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S2)||is_error_pending()){
#line 23098 "qb64pe.bas"
if(qbevent){evnt(23098);if(r)goto S_26523;}
#line 23098 "qb64pe.bas"
do{
#line 23098 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3=func_instr(*_FUNC_EVALUATETOTYP_LONG_S2+1,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0|1);
#line 23098 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23098 "qb64pe.bas"
if(!qbevent)break;evnt(23098);}while(r);
#line 23098 "qb64pe.bas"
}else{
#line 23098 "qb64pe.bas"
do{
#line 23098 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_S3= 0 ;
#line 23098 "qb64pe.bas"
if(!qbevent)break;evnt(23098);}while(r);
#line 23098 "qb64pe.bas"
}
#line 23099 "qb64pe.bas"
S_26528:;
#line 23099 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_S3)||is_error_pending()){
#line 23099 "qb64pe.bas"
if(qbevent){evnt(23099);if(r)goto S_26528;}
#line 23100 "qb64pe.bas"
do{
#line 23100 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(qbs_left(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1- 1 )));
#line 23100 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23100 "qb64pe.bas"
if(!qbevent)break;evnt(23100);}while(r);
#line 23101 "qb64pe.bas"
do{
#line 23101 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_U=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S1+1,*_FUNC_EVALUATETOTYP_LONG_S2-*_FUNC_EVALUATETOTYP_LONG_S1-1,0|1)));
#line 23101 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23101 "qb64pe.bas"
if(!qbevent)break;evnt(23101);}while(r);
#line 23102 "qb64pe.bas"
do{
#line 23102 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID=qbr(qbs_val<long double>(func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S2+1,*_FUNC_EVALUATETOTYP_LONG_S3-*_FUNC_EVALUATETOTYP_LONG_S2-1,0|1)));
#line 23102 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23102 "qb64pe.bas"
if(!qbevent)break;evnt(23102);}while(r);
#line 23106 "qb64pe.bas"
S_26532:;
#line 23106 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID> 0 ))||is_error_pending()){
#line 23106 "qb64pe.bas"
if(qbevent){evnt(23106);if(r)goto S_26532;}
#line 23107 "qb64pe.bas"
S_26533:;
#line 23107 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 23107 "qb64pe.bas"
if(qbevent){evnt(23107);if(r)goto S_26533;}
#line 23108 "qb64pe.bas"
do{
#line 23108 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_O,func_mid(_FUNC_EVALUATETOTYP_STRING_E,*_FUNC_EVALUATETOTYP_LONG_S3+1,NULL,0));
#line 23108 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23108 "qb64pe.bas"
if(!qbevent)break;evnt(23108);}while(r);
#line 23109 "qb64pe.bas"
do{
#line 23109 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 23109 "qb64pe.bas"
if(!qbevent)break;evnt(23109);}while(r);
#line 23110 "qb64pe.bas"
S_26536:;
#line 23110 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23110 "qb64pe.bas"
if(qbevent){evnt(23110);if(r)goto S_26536;}
#line 23110 "qb64pe.bas"
do{
#line 23110 "qb64pe.bas"
goto exit_subfunc;
#line 23110 "qb64pe.bas"
if(!qbevent)break;evnt(23110);}while(r);
#line 23110 "qb64pe.bas"
}
#line 23111 "qb64pe.bas"
do{
#line 23111 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 23111 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23111 "qb64pe.bas"
if(!qbevent)break;evnt(23111);}while(r);
#line 23111 "qb64pe.bas"
S_26540:;
#line 23111 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
#line 23111 "qb64pe.bas"
if(qbevent){evnt(23111);if(r)goto S_26540;}
#line 23111 "qb64pe.bas"
do{
#line 23111 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3)));
#line 23111 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23111 "qb64pe.bas"
if(!qbevent)break;evnt(23111);}while(r);
#line 23111 "qb64pe.bas"
}
#line 23112 "qb64pe.bas"
do{
#line 23112 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int64)(qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_MEMBER_ELEMENT_ID)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 )),NULL,0));
#line 23112 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23112 "qb64pe.bas"
if(!qbevent)break;evnt(23112);}while(r);
#line 23113 "qb64pe.bas"
do{
#line 23113 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2)));
#line 23113 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23113 "qb64pe.bas"
if(!qbevent)break;evnt(23113);}while(r);
#line 23114 "qb64pe.bas"
do{
#line 23114 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 23114 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23114 "qb64pe.bas"
if(!qbevent)break;evnt(23114);}while(r);
#line 23115 "qb64pe.bas"
S_26546:;
#line 23115 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 23115 "qb64pe.bas"
if(qbevent){evnt(23115);if(r)goto S_26546;}
#line 23115 "qb64pe.bas"
do{
#line 23115 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES);
#line 23115 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23115 "qb64pe.bas"
if(!qbevent)break;evnt(23115);}while(r);
#line 23115 "qb64pe.bas"
}
#line 23116 "qb64pe.bas"
S_26549:;
#line 23116 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 23116 "qb64pe.bas"
if(qbevent){evnt(23116);if(r)goto S_26549;}
#line 23116 "qb64pe.bas"
do{
#line 23116 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST);
#line 23116 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23116 "qb64pe.bas"
if(!qbevent)break;evnt(23116);}while(r);
#line 23116 "qb64pe.bas"
}
#line 23117 "qb64pe.bas"
do{
#line 23117 "qb64pe.bas"
goto exit_subfunc;
#line 23117 "qb64pe.bas"
if(!qbevent)break;evnt(23117);}while(r);
#line 23118 "qb64pe.bas"
}
#line 23119 "qb64pe.bas"
}
#line 23120 "qb64pe.bas"
}
#line 23123 "qb64pe.bas"
S_26556:;
#line 23123 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 23123 "qb64pe.bas"
if(qbevent){evnt(23123);if(r)goto S_26556;}
#line 23124 "qb64pe.bas"
S_26557:;
#line 23124 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||is_error_pending()){
#line 23124 "qb64pe.bas"
if(qbevent){evnt(23124);if(r)goto S_26557;}
#line 23125 "qb64pe.bas"
do{
#line 23125 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2879= 0 )));
#line 23125 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23125 "qb64pe.bas"
if(!qbevent)break;evnt(23125);}while(r);
#line 23126 "qb64pe.bas"
S_26559:;
#line 23126 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23126 "qb64pe.bas"
if(qbevent){evnt(23126);if(r)goto S_26559;}
#line 23126 "qb64pe.bas"
do{
#line 23126 "qb64pe.bas"
goto exit_subfunc;
#line 23126 "qb64pe.bas"
if(!qbevent)break;evnt(23126);}while(r);
#line 23126 "qb64pe.bas"
}
#line 23127 "qb64pe.bas"
do{
#line 23127 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->len,",6)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 23127 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23127 "qb64pe.bas"
if(!qbevent)break;evnt(23127);}while(r);
#line 23128 "qb64pe.bas"
S_26563:;
#line 23128 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 23128 "qb64pe.bas"
if(qbevent){evnt(23128);if(r)goto S_26563;}
#line 23128 "qb64pe.bas"
do{
#line 23128 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5)));
#line 23128 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23128 "qb64pe.bas"
if(!qbevent)break;evnt(23128);}while(r);
#line 23128 "qb64pe.bas"
}
#line 23129 "qb64pe.bas"
S_26566:;
#line 23129 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 23129 "qb64pe.bas"
if(qbevent){evnt(23129);if(r)goto S_26566;}
#line 23129 "qb64pe.bas"
do{
#line 23129 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5)));
#line 23129 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23129 "qb64pe.bas"
if(!qbevent)break;evnt(23129);}while(r);
#line 23129 "qb64pe.bas"
}
#line 23130 "qb64pe.bas"
do{
#line 23130 "qb64pe.bas"
goto exit_subfunc;
#line 23130 "qb64pe.bas"
if(!qbevent)break;evnt(23130);}while(r);
#line 23131 "qb64pe.bas"
}
#line 23132 "qb64pe.bas"
}
#line 23133 "qb64pe.bas"
do{
#line 23133 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 23133 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23133 "qb64pe.bas"
if(!qbevent)break;evnt(23133);}while(r);
#line 23134 "qb64pe.bas"
do{
#line 23134 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 23134 "qb64pe.bas"
if(!qbevent)break;evnt(23134);}while(r);
#line 23135 "qb64pe.bas"
S_26574:;
#line 23135 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23135 "qb64pe.bas"
if(qbevent){evnt(23135);if(r)goto S_26574;}
#line 23135 "qb64pe.bas"
do{
#line 23135 "qb64pe.bas"
goto exit_subfunc;
#line 23135 "qb64pe.bas"
if(!qbevent)break;evnt(23135);}while(r);
#line 23135 "qb64pe.bas"
}
#line 23136 "qb64pe.bas"
do{
#line 23136 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+((0+544)));
#line 23136 "qb64pe.bas"
if(!qbevent)break;evnt(23136);}while(r);
#line 23138 "qb64pe.bas"
do{
#line 23138 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_INDEX,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0)));
#line 23138 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23138 "qb64pe.bas"
if(!qbevent)break;evnt(23138);}while(r);
#line 23139 "qb64pe.bas"
do{
#line 23139 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_VARIABLESIZE(&(pass2881= -1 )));
#line 23139 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23139 "qb64pe.bas"
if(!qbevent)break;evnt(23139);}while(r);
#line 23140 "qb64pe.bas"
S_26580:;
#line 23140 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23140 "qb64pe.bas"
if(qbevent){evnt(23140);if(r)goto S_26580;}
#line 23140 "qb64pe.bas"
do{
#line 23140 "qb64pe.bas"
goto exit_subfunc;
#line 23140 "qb64pe.bas"
if(!qbevent)break;evnt(23140);}while(r);
#line 23140 "qb64pe.bas"
}
#line 23141 "qb64pe.bas"
S_26583:;
#line 23141 "qb64pe.bas"
if (((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)!= 0 ))&(-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)!= 0 )))||is_error_pending()){
#line 23141 "qb64pe.bas"
if(qbevent){evnt(23141);if(r)goto S_26583;}
#line 23146 "qb64pe.bas"
do{
#line 23146 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+554))),256,1)));
#line 23146 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23146 "qb64pe.bas"
if(!qbevent)break;evnt(23146);}while(r);
#line 23147 "qb64pe.bas"
do{
#line 23147 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(&((uint8*)(",12),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]))[(",7)),_FUNC_EVALUATETOTYP_STRING_INDEX),qbs_new_txt_len(")*",2)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_TSIZE),NULL,0)),qbs_new_txt_len("])",2)));
#line 23147 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23147 "qb64pe.bas"
if(!qbevent)break;evnt(23147);}while(r);
#line 23148 "qb64pe.bas"
}else{
#line 23149 "qb64pe.bas"
do{
#line 23149 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2882= 0 )));
#line 23149 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23149 "qb64pe.bas"
if(!qbevent)break;evnt(23149);}while(r);
#line 23150 "qb64pe.bas"
S_26588:;
#line 23150 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23150 "qb64pe.bas"
if(qbevent){evnt(23150);if(r)goto S_26588;}
#line 23150 "qb64pe.bas"
do{
#line 23150 "qb64pe.bas"
goto exit_subfunc;
#line 23150 "qb64pe.bas"
if(!qbevent)break;evnt(23150);}while(r);
#line 23150 "qb64pe.bas"
}
#line 23151 "qb64pe.bas"
do{
#line 23151 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2)));
#line 23151 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23151 "qb64pe.bas"
if(!qbevent)break;evnt(23151);}while(r);
#line 23152 "qb64pe.bas"
}
#line 23155 "qb64pe.bas"
S_26593:;
#line 23155 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 23155 "qb64pe.bas"
if(qbevent){evnt(23155);if(r)goto S_26593;}
#line 23156 "qb64pe.bas"
do{
#line 23156 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_BYTES=*_FUNC_EVALUATETOTYP_LONG_TSIZE;
#line 23156 "qb64pe.bas"
if(!qbevent)break;evnt(23156);}while(r);
#line 23157 "qb64pe.bas"
}else{
#line 23158 "qb64pe.bas"
do{
#line 23158 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_BYTES=qb_safe_idiv((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 4095ll ), 8 );
#line 23158 "qb64pe.bas"
if(!qbevent)break;evnt(23158);}while(r);
#line 23159 "qb64pe.bas"
}
#line 23160 "qb64pe.bas"
do{
#line 23160 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len("-(",2)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_BYTES),NULL,0)),qbs_new_txt_len("*(",2)),_FUNC_EVALUATETOTYP_STRING_INDEX),qbs_new_txt_len(")))",3)));
#line 23160 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23160 "qb64pe.bas"
if(!qbevent)break;evnt(23160);}while(r);
#line 23161 "qb64pe.bas"
do{
#line 23161 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 23161 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23161 "qb64pe.bas"
if(!qbevent)break;evnt(23161);}while(r);
#line 23162 "qb64pe.bas"
S_26600:;
#line 23162 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 23162 "qb64pe.bas"
if(qbevent){evnt(23162);if(r)goto S_26600;}
#line 23162 "qb64pe.bas"
do{
#line 23162 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES);
#line 23162 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23162 "qb64pe.bas"
if(!qbevent)break;evnt(23162);}while(r);
#line 23162 "qb64pe.bas"
}
#line 23163 "qb64pe.bas"
S_26603:;
#line 23163 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 23163 "qb64pe.bas"
if(qbevent){evnt(23163);if(r)goto S_26603;}
#line 23163 "qb64pe.bas"
do{
#line 23163 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E);
#line 23163 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23163 "qb64pe.bas"
if(!qbevent)break;evnt(23163);}while(r);
#line 23163 "qb64pe.bas"
}
#line 23165 "qb64pe.bas"
do{
#line 23165 "qb64pe.bas"
goto exit_subfunc;
#line 23165 "qb64pe.bas"
if(!qbevent)break;evnt(23165);}while(r);
#line 23166 "qb64pe.bas"
}
#line 23169 "qb64pe.bas"
S_26608:;
#line 23169 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||is_error_pending()){
#line 23169 "qb64pe.bas"
if(qbevent){evnt(23169);if(r)goto S_26608;}
#line 23170 "qb64pe.bas"
S_26609:;
#line 23170 "qb64pe.bas"
if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||is_error_pending()){
#line 23170 "qb64pe.bas"
if(qbevent){evnt(23170);if(r)goto S_26609;}
#line 23171 "qb64pe.bas"
do{
#line 23171 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(qbs_val<long double>(_FUNC_EVALUATETOTYP_STRING_E));
#line 23171 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23171 "qb64pe.bas"
if(!qbevent)break;evnt(23171);}while(r);
#line 23172 "qb64pe.bas"
do{
#line 23172 "qb64pe.bas"
SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER);
#line 23172 "qb64pe.bas"
if(!qbevent)break;evnt(23172);}while(r);
#line 23173 "qb64pe.bas"
S_26612:;
#line 23173 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23173 "qb64pe.bas"
if(qbevent){evnt(23173);if(r)goto S_26612;}
#line 23173 "qb64pe.bas"
do{
#line 23173 "qb64pe.bas"
goto exit_subfunc;
#line 23173 "qb64pe.bas"
if(!qbevent)break;evnt(23173);}while(r);
#line 23173 "qb64pe.bas"
}
#line 23174 "qb64pe.bas"
do{
#line 23174 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs__tostr((int32)(*(int32*)(((char*)__UDT_ID)+((0+544)))),NULL,0));
#line 23174 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23174 "qb64pe.bas"
if(!qbevent)break;evnt(23174);}while(r);
#line 23175 "qb64pe.bas"
do{
#line 23175 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2883= 0 )));
#line 23175 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23175 "qb64pe.bas"
if(!qbevent)break;evnt(23175);}while(r);
#line 23176 "qb64pe.bas"
S_26617:;
#line 23176 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23176 "qb64pe.bas"
if(qbevent){evnt(23176);if(r)goto S_26617;}
#line 23176 "qb64pe.bas"
do{
#line 23176 "qb64pe.bas"
goto exit_subfunc;
#line 23176 "qb64pe.bas"
if(!qbevent)break;evnt(23176);}while(r);
#line 23176 "qb64pe.bas"
}
#line 23177 "qb64pe.bas"
}else{
#line 23178 "qb64pe.bas"
do{
#line 23178 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2884= 0 )));
#line 23178 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23178 "qb64pe.bas"
if(!qbevent)break;evnt(23178);}while(r);
#line 23179 "qb64pe.bas"
S_26622:;
#line 23179 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23179 "qb64pe.bas"
if(qbevent){evnt(23179);if(r)goto S_26622;}
#line 23179 "qb64pe.bas"
do{
#line 23179 "qb64pe.bas"
goto exit_subfunc;
#line 23179 "qb64pe.bas"
if(!qbevent)break;evnt(23179);}while(r);
#line 23179 "qb64pe.bas"
}
#line 23180 "qb64pe.bas"
do{
#line 23180 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5)));
#line 23180 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23180 "qb64pe.bas"
if(!qbevent)break;evnt(23180);}while(r);
#line 23181 "qb64pe.bas"
}
#line 23182 "qb64pe.bas"
do{
#line 23182 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 23182 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23182 "qb64pe.bas"
if(!qbevent)break;evnt(23182);}while(r);
#line 23183 "qb64pe.bas"
S_26628:;
#line 23183 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 23183 "qb64pe.bas"
if(qbevent){evnt(23183);if(r)goto S_26628;}
#line 23183 "qb64pe.bas"
do{
#line 23183 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES);
#line 23183 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23183 "qb64pe.bas"
if(!qbevent)break;evnt(23183);}while(r);
#line 23183 "qb64pe.bas"
}
#line 23184 "qb64pe.bas"
S_26631:;
#line 23184 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 23184 "qb64pe.bas"
if(qbevent){evnt(23184);if(r)goto S_26631;}
#line 23184 "qb64pe.bas"
do{
#line 23184 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5)));
#line 23184 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23184 "qb64pe.bas"
if(!qbevent)break;evnt(23184);}while(r);
#line 23184 "qb64pe.bas"
}
#line 23185 "qb64pe.bas"
do{
#line 23185 "qb64pe.bas"
goto exit_subfunc;
#line 23185 "qb64pe.bas"
if(!qbevent)break;evnt(23185);}while(r);
#line 23186 "qb64pe.bas"
}
#line 23189 "qb64pe.bas"
do{
#line 23189 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2885= 1 )));
#line 23189 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23189 "qb64pe.bas"
if(!qbevent)break;evnt(23189);}while(r);
#line 23190 "qb64pe.bas"
S_26637:;
#line 23190 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23190 "qb64pe.bas"
if(qbevent){evnt(23190);if(r)goto S_26637;}
#line 23190 "qb64pe.bas"
do{
#line 23190 "qb64pe.bas"
goto exit_subfunc;
#line 23190 "qb64pe.bas"
if(!qbevent)break;evnt(23190);}while(r);
#line 23190 "qb64pe.bas"
}
#line 23191 "qb64pe.bas"
do{
#line 23191 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_SIZE=qb_safe_idiv((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 4095ll ), 8 );
#line 23191 "qb64pe.bas"
if(!qbevent)break;evnt(23191);}while(r);
#line 23192 "qb64pe.bas"
do{
#line 23192 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_SIZE),NULL,0)),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1)));
#line 23192 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23192 "qb64pe.bas"
if(!qbevent)break;evnt(23192);}while(r);
#line 23193 "qb64pe.bas"
S_26642:;
#line 23193 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||is_error_pending()){
#line 23193 "qb64pe.bas"
if(qbevent){evnt(23193);if(r)goto S_26642;}
#line 23193 "qb64pe.bas"
do{
#line 23193 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs__tostr((int32)(*_FUNC_EVALUATETOTYP_LONG_SIZE),NULL,0));
#line 23193 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23193 "qb64pe.bas"
if(!qbevent)break;evnt(23193);}while(r);
#line 23193 "qb64pe.bas"
}
#line 23194 "qb64pe.bas"
S_26645:;
#line 23194 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||is_error_pending()){
#line 23194 "qb64pe.bas"
if(qbevent){evnt(23194);if(r)goto S_26645;}
#line 23194 "qb64pe.bas"
do{
#line 23194 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E);
#line 23194 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23194 "qb64pe.bas"
if(!qbevent)break;evnt(23194);}while(r);
#line 23194 "qb64pe.bas"
}
#line 23195 "qb64pe.bas"
do{
#line 23195 "qb64pe.bas"
goto exit_subfunc;
#line 23195 "qb64pe.bas"
if(!qbevent)break;evnt(23195);}while(r);
#line 23197 "qb64pe.bas"
}
#line 23202 "qb64pe.bas"
S_26650:;
#line 23202 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)!=(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISSTRING)))||is_error_pending()){
#line 23202 "qb64pe.bas"
if(qbevent){evnt(23202);if(r)goto S_26650;}
#line 23203 "qb64pe.bas"
do{
#line 23203 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Illegal string-number conversion",32));
#line 23203 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23203 "qb64pe.bas"
if(!qbevent)break;evnt(23203);}while(r);
#line 23203 "qb64pe.bas"
do{
#line 23203 "qb64pe.bas"
goto exit_subfunc;
#line 23203 "qb64pe.bas"
if(!qbevent)break;evnt(23203);}while(r);
#line 23204 "qb64pe.bas"
}
#line 23206 "qb64pe.bas"
S_26654:;
#line 23206 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING))||is_error_pending()){
#line 23206 "qb64pe.bas"
if(qbevent){evnt(23206);if(r)goto S_26654;}
#line 23207 "qb64pe.bas"
do{
#line 23207 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E);
#line 23207 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23207 "qb64pe.bas"
if(!qbevent)break;evnt(23207);}while(r);
#line 23208 "qb64pe.bas"
S_26656:;
#line 23208 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 23208 "qb64pe.bas"
if(qbevent){evnt(23208);if(r)goto S_26656;}
#line 23209 "qb64pe.bas"
do{
#line 23209 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2886= 0 )));
#line 23209 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23209 "qb64pe.bas"
if(!qbevent)break;evnt(23209);}while(r);
#line 23210 "qb64pe.bas"
S_26658:;
#line 23210 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23210 "qb64pe.bas"
if(qbevent){evnt(23210);if(r)goto S_26658;}
#line 23210 "qb64pe.bas"
do{
#line 23210 "qb64pe.bas"
goto exit_subfunc;
#line 23210 "qb64pe.bas"
if(!qbevent)break;evnt(23210);}while(r);
#line 23210 "qb64pe.bas"
}
#line 23211 "qb64pe.bas"
}
#line 23212 "qb64pe.bas"
do{
#line 23212 "qb64pe.bas"
goto exit_subfunc;
#line 23212 "qb64pe.bas"
if(!qbevent)break;evnt(23212);}while(r);
#line 23213 "qb64pe.bas"
}
#line 23216 "qb64pe.bas"
S_26664:;
#line 23216 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISPOINTER))||is_error_pending()){
#line 23216 "qb64pe.bas"
if(qbevent){evnt(23216);if(r)goto S_26664;}
#line 23217 "qb64pe.bas"
do{
#line 23217 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("evaluatetotyp received a request for a pointer (unsupported)",60));
#line 23217 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23217 "qb64pe.bas"
if(!qbevent)break;evnt(23217);}while(r);
#line 23217 "qb64pe.bas"
do{
#line 23217 "qb64pe.bas"
goto exit_subfunc;
#line 23217 "qb64pe.bas"
if(!qbevent)break;evnt(23217);}while(r);
#line 23219 "qb64pe.bas"
do{
#line 23219 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid pointer",15));
#line 23219 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23219 "qb64pe.bas"
if(!qbevent)break;evnt(23219);}while(r);
#line 23219 "qb64pe.bas"
do{
#line 23219 "qb64pe.bas"
goto exit_subfunc;
#line 23219 "qb64pe.bas"
if(!qbevent)break;evnt(23219);}while(r);
#line 23220 "qb64pe.bas"
}
#line 23223 "qb64pe.bas"
S_26670:;
#line 23223 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE))||is_error_pending()){
#line 23223 "qb64pe.bas"
if(qbevent){evnt(23223);if(r)goto S_26670;}
#line 23224 "qb64pe.bas"
do{
#line 23224 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2887= 0 )));
#line 23224 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23224 "qb64pe.bas"
if(!qbevent)break;evnt(23224);}while(r);
#line 23225 "qb64pe.bas"
S_26672:;
#line 23225 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 23225 "qb64pe.bas"
if(qbevent){evnt(23225);if(r)goto S_26672;}
#line 23225 "qb64pe.bas"
do{
#line 23225 "qb64pe.bas"
goto exit_subfunc;
#line 23225 "qb64pe.bas"
if(!qbevent)break;evnt(23225);}while(r);
#line 23225 "qb64pe.bas"
}
#line 23226 "qb64pe.bas"
}
#line 23228 "qb64pe.bas"
S_26676:;
#line 23228 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISPOINTER))||is_error_pending()){
#line 23228 "qb64pe.bas"
if(qbevent){evnt(23228);if(r)goto S_26676;}
#line 23229 "qb64pe.bas"
do{
#line 23229 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("evaluatetotyp couldn't convert pointer type!",44));
#line 23229 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23229 "qb64pe.bas"
if(!qbevent)break;evnt(23229);}while(r);
#line 23229 "qb64pe.bas"
do{
#line 23229 "qb64pe.bas"
goto exit_subfunc;
#line 23229 "qb64pe.bas"
if(!qbevent)break;evnt(23229);}while(r);
#line 23230 "qb64pe.bas"
}
#line 23233 "qb64pe.bas"
S_26680:;
#line 23233 "qb64pe.bas"
if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFLOAT))||is_error_pending()){
#line 23233 "qb64pe.bas"
if(qbevent){evnt(23233);if(r)goto S_26680;}
#line 23234 "qb64pe.bas"
S_26681:;
#line 23234 "qb64pe.bas"
if ((-((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
#line 23234 "qb64pe.bas"
if(qbevent){evnt(23234);if(r)goto S_26681;}
#line 23235 "qb64pe.bas"
do{
#line 23235 "qb64pe.bas"
*_FUNC_EVALUATETOTYP_LONG_BITS=*_FUNC_EVALUATETOTYP_LONG_TARGETTYP& 4095ll ;
#line 23235 "qb64pe.bas"
if(!qbevent)break;evnt(23235);}while(r);
#line 23237 "qb64pe.bas"
S_26683:;
#line 23237 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_BITS<= 16 ))||is_error_pending()){
#line 23237 "qb64pe.bas"
if(qbevent){evnt(23237);if(r)goto S_26683;}
#line 23237 "qb64pe.bas"
do{
#line 23237 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1)));
#line 23237 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23237 "qb64pe.bas"
if(!qbevent)break;evnt(23237);}while(r);
#line 23237 "qb64pe.bas"
}
#line 23238 "qb64pe.bas"
S_26686:;
#line 23238 "qb64pe.bas"
if (((-(*_FUNC_EVALUATETOTYP_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATETOTYP_LONG_BITS< 32 )))||is_error_pending()){
#line 23238 "qb64pe.bas"
if(qbevent){evnt(23238);if(r)goto S_26686;}
#line 23238 "qb64pe.bas"
do{
#line 23238 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1)));
#line 23238 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23238 "qb64pe.bas"
if(!qbevent)break;evnt(23238);}while(r);
#line 23238 "qb64pe.bas"
}
#line 23239 "qb64pe.bas"
S_26689:;
#line 23239 "qb64pe.bas"
if ((-(*_FUNC_EVALUATETOTYP_LONG_BITS>= 32 ))||is_error_pending()){
#line 23239 "qb64pe.bas"
if(qbevent){evnt(23239);if(r)goto S_26689;}
#line 23239 "qb64pe.bas"
do{
#line 23239 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1)));
#line 23239 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23239 "qb64pe.bas"
if(!qbevent)break;evnt(23239);}while(r);
#line 23239 "qb64pe.bas"
}
#line 23240 "qb64pe.bas"
}
#line 23241 "qb64pe.bas"
}
#line 23243 "qb64pe.bas"
do{
#line 23243 "qb64pe.bas"
qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E);
#line 23243 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 23243 "qb64pe.bas"
if(!qbevent)break;evnt(23243);}while(r);
#line 23244 "qb64pe.bas"
exit_subfunc:;
#line 23244 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 23244 "qb64pe.bas"
#include "free67.txt"
#line 23244 "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 23244 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 23244 "qb64pe.bas"
qbs_maketmp(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP);return _FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP;
#line 23244 "qb64pe.bas"
}
