#line 19129 "qb64pe.bas"
qbs* FUNC_UDTREFERENCE(qbs*_FUNC_UDTREFERENCE_STRING_O,qbs*_FUNC_UDTREFERENCE_STRING_A,int32*_FUNC_UDTREFERENCE_LONG_TYP){
#line 19129 "qb64pe.bas"
qbs *tqbs;
#line 19129 "qb64pe.bas"
ptrszint tmp_long;
#line 19129 "qb64pe.bas"
int32 tmp_fileno;
#line 19129 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 19129 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 19129 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 19129 "qb64pe.bas"
#include "data63.txt"
#line 19129 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 19129 "qb64pe.bas"
new_mem_lock();
#line 19129 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 19129 "qb64pe.bas"
sf_mem_lock->type=3;
#line 19129 "qb64pe.bas"
libqb_check_stack();
#line 19129 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 19134 "qb64pe.bas"
do{
#line 19134 "qb64pe.bas"
if(!qbevent)break;evnt(19134);}while(r);
#line 19135 "qb64pe.bas"
do{
#line 19135 "qb64pe.bas"
if(!qbevent)break;evnt(19135);}while(r);
#line 19136 "qb64pe.bas"
do{
#line 19136 "qb64pe.bas"
if(!qbevent)break;evnt(19136);}while(r);
#line 19137 "qb64pe.bas"
do{
#line 19137 "qb64pe.bas"
if(!qbevent)break;evnt(19137);}while(r);
#line 19138 "qb64pe.bas"
do{
#line 19138 "qb64pe.bas"
if(!qbevent)break;evnt(19138);}while(r);
#line 19139 "qb64pe.bas"
do{
#line 19139 "qb64pe.bas"
if(!qbevent)break;evnt(19139);}while(r);
#line 19140 "qb64pe.bas"
do{
#line 19140 "qb64pe.bas"
if(!qbevent)break;evnt(19140);}while(r);
#line 19141 "qb64pe.bas"
do{
#line 19141 "qb64pe.bas"
if(!qbevent)break;evnt(19141);}while(r);
#line 19142 "qb64pe.bas"
do{
#line 19142 "qb64pe.bas"
if(!qbevent)break;evnt(19142);}while(r);
#line 19143 "qb64pe.bas"
do{
#line 19143 "qb64pe.bas"
if(!qbevent)break;evnt(19143);}while(r);
#line 19144 "qb64pe.bas"
do{
#line 19144 "qb64pe.bas"
if(!qbevent)break;evnt(19144);}while(r);
#line 19145 "qb64pe.bas"
do{
#line 19145 "qb64pe.bas"
if(!qbevent)break;evnt(19145);}while(r);
#line 19146 "qb64pe.bas"
do{
#line 19146 "qb64pe.bas"
if(!qbevent)break;evnt(19146);}while(r);
#line 19147 "qb64pe.bas"
do{
#line 19147 "qb64pe.bas"
if(!qbevent)break;evnt(19147);}while(r);
#line 19148 "qb64pe.bas"
do{
#line 19148 "qb64pe.bas"
if(!qbevent)break;evnt(19148);}while(r);
#line 19150 "qb64pe.bas"
do{
#line 19150 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_OBAK,_FUNC_UDTREFERENCE_STRING_O);
#line 19150 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19150 "qb64pe.bas"
if(!qbevent)break;evnt(19150);}while(r);
#line 19151 "qb64pe.bas"
S_22156:;
#line 19151 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_UDTREFERENCE_STRING_O,qbs_new_txt_len("",0))))||is_error_pending()){
#line 19151 "qb64pe.bas"
if(qbevent){evnt(19151);if(r)goto S_22156;}
#line 19151 "qb64pe.bas"
do{
#line 19151 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_O,qbs_new_txt_len("0",1));
#line 19151 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19151 "qb64pe.bas"
if(!qbevent)break;evnt(19151);}while(r);
#line 19151 "qb64pe.bas"
}
#line 19156 "qb64pe.bas"
do{
#line 19156 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(qbs__tostr((int32)(*__LONG_CURRENTID),NULL,0),__STRING1_SP3));
#line 19156 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19156 "qb64pe.bas"
if(!qbevent)break;evnt(19156);}while(r);
#line 19159 "qb64pe.bas"
do{
#line 19159 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_O= 0 ;
#line 19159 "qb64pe.bas"
if(!qbevent)break;evnt(19159);}while(r);
#line 19161 "qb64pe.bas"
do{
#line 19161 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_DYNLAYOUT= 0 ;
#line 19161 "qb64pe.bas"
if(!qbevent)break;evnt(19161);}while(r);
#line 19162 "qb64pe.bas"
S_22162:;
#line 19162 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+520))))||is_error_pending()){
#line 19162 "qb64pe.bas"
if(qbevent){evnt(19162);if(r)goto S_22162;}
#line 19162 "qb64pe.bas"
do{
#line 19162 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_DYNLAYOUT= -1 ;
#line 19162 "qb64pe.bas"
if(!qbevent)break;evnt(19162);}while(r);
#line 19162 "qb64pe.bas"
}
#line 19164 "qb64pe.bas"
do{
#line 19164 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_ROOT_BASE_PTR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),FUNC_SCOPE()),qbs_new_txt_len("UDT_",4)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))),qbs_new_txt_len(")",1)));
#line 19164 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19164 "qb64pe.bas"
if(!qbevent)break;evnt(19164);}while(r);
#line 19165 "qb64pe.bas"
S_22166:;
#line 19165 "qb64pe.bas"
if ((-(*(int32*)(((char*)__UDT_ID)+((0+540)))== 0 ))||is_error_pending()){
#line 19165 "qb64pe.bas"
if(qbevent){evnt(19165);if(r)goto S_22166;}
#line 19165 "qb64pe.bas"
do{
#line 19165 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_ROOT_BASE_PTR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),FUNC_SCOPE()),qbs_new_txt_len("ARRAY_UDT_",10)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))),qbs_new_txt_len("[0])",4)));
#line 19165 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19165 "qb64pe.bas"
if(!qbevent)break;evnt(19165);}while(r);
#line 19165 "qb64pe.bas"
}
#line 19167 "qb64pe.bas"
do{
#line 19167 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_INCMEM= 0 ;
#line 19167 "qb64pe.bas"
if(!qbevent)break;evnt(19167);}while(r);
#line 19168 "qb64pe.bas"
S_22170:;
#line 19168 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+540))))||is_error_pending()){
#line 19168 "qb64pe.bas"
if(qbevent){evnt(19168);if(r)goto S_22170;}
#line 19169 "qb64pe.bas"
do{
#line 19169 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_U=*(int32*)(((char*)__UDT_ID)+((0+540)))& 4095ll ;
#line 19169 "qb64pe.bas"
if(!qbevent)break;evnt(19169);}while(r);
#line 19170 "qb64pe.bas"
S_22172:;
#line 19170 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
#line 19170 "qb64pe.bas"
if(qbevent){evnt(19170);if(r)goto S_22172;}
#line 19170 "qb64pe.bas"
do{
#line 19170 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_INCMEM= 1 ;
#line 19170 "qb64pe.bas"
if(!qbevent)break;evnt(19170);}while(r);
#line 19170 "qb64pe.bas"
}
#line 19171 "qb64pe.bas"
}else{
#line 19172 "qb64pe.bas"
do{
#line 19172 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_U=*(int32*)(((char*)__UDT_ID)+((0+512)))& 4095ll ;
#line 19172 "qb64pe.bas"
if(!qbevent)break;evnt(19172);}while(r);
#line 19173 "qb64pe.bas"
S_22177:;
#line 19173 "qb64pe.bas"
if ((*(int32*)(((char*)__UDT_ID)+((0+512)))&*__LONG_ISINCONVENTIONALMEMORY)||is_error_pending()){
#line 19173 "qb64pe.bas"
if(qbevent){evnt(19173);if(r)goto S_22177;}
#line 19173 "qb64pe.bas"
do{
#line 19173 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_INCMEM= 1 ;
#line 19173 "qb64pe.bas"
if(!qbevent)break;evnt(19173);}while(r);
#line 19173 "qb64pe.bas"
}
#line 19174 "qb64pe.bas"
}
#line 19175 "qb64pe.bas"
do{
#line 19175 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_UDTELEM= 0 ;
#line 19175 "qb64pe.bas"
if(!qbevent)break;evnt(19175);}while(r);
#line 19177 "qb64pe.bas"
do{
#line 19177 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_N=FUNC_NUMELEMENTS(_FUNC_UDTREFERENCE_STRING_A);
#line 19177 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19177 "qb64pe.bas"
if(!qbevent)break;evnt(19177);}while(r);
#line 19178 "qb64pe.bas"
S_22183:;
#line 19178 "qb64pe.bas"
if ((-(*_FUNC_UDTREFERENCE_LONG_N== 0 ))||is_error_pending()){
#line 19178 "qb64pe.bas"
if(qbevent){evnt(19178);if(r)goto S_22183;}
#line 19178 "qb64pe.bas"
do{
#line 19178 "qb64pe.bas"
goto LABEL_FULLUDT;
#line 19178 "qb64pe.bas"
if(!qbevent)break;evnt(19178);}while(r);
#line 19178 "qb64pe.bas"
}
#line 19180 "qb64pe.bas"
do{
#line 19180 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_I= 1 ;
#line 19180 "qb64pe.bas"
if(!qbevent)break;evnt(19180);}while(r);
#line 19181 "qb64pe.bas"
LABEL_UDTFINDELENEXT:;
#line 19181 "qb64pe.bas"
if(qbevent){evnt(19181);r=0;}
#line 19182 "qb64pe.bas"
do{
#line 19182 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_LEVEL_BASE_BITS=*_FUNC_UDTREFERENCE_LONG_O;
#line 19182 "qb64pe.bas"
if(!qbevent)break;evnt(19182);}while(r);
#line 19183 "qb64pe.bas"
S_22188:;
#line 19183 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(_FUNC_UDTREFERENCE_STRING_A,_FUNC_UDTREFERENCE_LONG_I),qbs_new_txt_len(".",1))))||is_error_pending()){
#line 19183 "qb64pe.bas"
if(qbevent){evnt(19183);if(r)goto S_22188;}
#line 19183 "qb64pe.bas"
do{
#line 19183 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected .",10));
#line 19183 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19183 "qb64pe.bas"
if(!qbevent)break;evnt(19183);}while(r);
#line 19183 "qb64pe.bas"
do{
#line 19183 "qb64pe.bas"
goto exit_subfunc;
#line 19183 "qb64pe.bas"
if(!qbevent)break;evnt(19183);}while(r);
#line 19183 "qb64pe.bas"
}
#line 19184 "qb64pe.bas"
do{
#line 19184 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_I=*_FUNC_UDTREFERENCE_LONG_I+ 1 ;
#line 19184 "qb64pe.bas"
if(!qbevent)break;evnt(19184);}while(r);
#line 19185 "qb64pe.bas"
do{
#line 19185 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_N,qbs_ucase(FUNC_GETELEMENT(_FUNC_UDTREFERENCE_STRING_A,_FUNC_UDTREFERENCE_LONG_I)));
#line 19185 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19185 "qb64pe.bas"
if(!qbevent)break;evnt(19185);}while(r);
#line 19186 "qb64pe.bas"
do{
#line 19186 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_NSYM,FUNC_REMOVESYMBOL(_FUNC_UDTREFERENCE_STRING_N));
#line 19186 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19186 "qb64pe.bas"
if(!qbevent)break;evnt(19186);}while(r);
#line 19186 "qb64pe.bas"
S_22195:;
#line 19186 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_UDTREFERENCE_STRING_NSYM->len))||is_error_pending()){
#line 19186 "qb64pe.bas"
if(qbevent){evnt(19186);if(r)goto S_22195;}
#line 19186 "qb64pe.bas"
do{
#line 19186 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_NTYP=FUNC_TYPNAME2TYP(_FUNC_UDTREFERENCE_STRING_NSYM);
#line 19186 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19186 "qb64pe.bas"
if(!qbevent)break;evnt(19186);}while(r);
#line 19186 "qb64pe.bas"
do{
#line 19186 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_NTYPSIZE=*__LONG_TYPNAME2TYPSIZE;
#line 19186 "qb64pe.bas"
if(!qbevent)break;evnt(19186);}while(r);
#line 19186 "qb64pe.bas"
}
#line 19187 "qb64pe.bas"
S_22199:;
#line 19187 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19187 "qb64pe.bas"
if(qbevent){evnt(19187);if(r)goto S_22199;}
#line 19187 "qb64pe.bas"
do{
#line 19187 "qb64pe.bas"
goto exit_subfunc;
#line 19187 "qb64pe.bas"
if(!qbevent)break;evnt(19187);}while(r);
#line 19187 "qb64pe.bas"
}
#line 19189 "qb64pe.bas"
S_22202:;
#line 19189 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_UDTREFERENCE_STRING_N,qbs_new_txt_len("",0))))||is_error_pending()){
#line 19189 "qb64pe.bas"
if(qbevent){evnt(19189);if(r)goto S_22202;}
#line 19189 "qb64pe.bas"
do{
#line 19189 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected .elementname",21));
#line 19189 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19189 "qb64pe.bas"
if(!qbevent)break;evnt(19189);}while(r);
#line 19189 "qb64pe.bas"
do{
#line 19189 "qb64pe.bas"
goto exit_subfunc;
#line 19189 "qb64pe.bas"
if(!qbevent)break;evnt(19189);}while(r);
#line 19189 "qb64pe.bas"
}
#line 19190 "qb64pe.bas"
do{
#line 19190 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_MEMBERARRAYEND= 0 ;
#line 19190 "qb64pe.bas"
if(!qbevent)break;evnt(19190);}while(r);
#line 19191 "qb64pe.bas"
S_22207:;
#line 19191 "qb64pe.bas"
if ((-(*_FUNC_UDTREFERENCE_LONG_I<*_FUNC_UDTREFERENCE_LONG_N))||is_error_pending()){
#line 19191 "qb64pe.bas"
if(qbevent){evnt(19191);if(r)goto S_22207;}
#line 19192 "qb64pe.bas"
S_22208:;
#line 19192 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_UDTREFERENCE_STRING_A,&(pass2577=*_FUNC_UDTREFERENCE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||is_error_pending()){
#line 19192 "qb64pe.bas"
if(qbevent){evnt(19192);if(r)goto S_22208;}
#line 19193 "qb64pe.bas"
do{
#line 19193 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_B2= 1 ;
#line 19193 "qb64pe.bas"
if(!qbevent)break;evnt(19193);}while(r);
#line 19194 "qb64pe.bas"
do{
#line 19194 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_MEMBERARRAYEND=*_FUNC_UDTREFERENCE_LONG_I+ 2 ;
#line 19194 "qb64pe.bas"
if(!qbevent)break;evnt(19194);}while(r);
#line 19195 "qb64pe.bas"
S_22211:;
#line 19195 "qb64pe.bas"
while((-(*_FUNC_UDTREFERENCE_LONG_MEMBERARRAYEND<=*_FUNC_UDTREFERENCE_LONG_N))||is_error_pending()){
#line 19195 "qb64pe.bas"
if(qbevent){evnt(19195);if(r)goto S_22211;}
#line 19196 "qb64pe.bas"
do{
#line 19196 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_L,FUNC_GETELEMENT(_FUNC_UDTREFERENCE_STRING_A,_FUNC_UDTREFERENCE_LONG_MEMBERARRAYEND));
#line 19196 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19196 "qb64pe.bas"
if(!qbevent)break;evnt(19196);}while(r);
#line 19197 "qb64pe.bas"
S_22213:;
#line 19197 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_UDTREFERENCE_STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 19197 "qb64pe.bas"
if(qbevent){evnt(19197);if(r)goto S_22213;}
#line 19197 "qb64pe.bas"
do{
#line 19197 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_B2=*_FUNC_UDTREFERENCE_LONG_B2+ 1 ;
#line 19197 "qb64pe.bas"
if(!qbevent)break;evnt(19197);}while(r);
#line 19197 "qb64pe.bas"
}
#line 19198 "qb64pe.bas"
S_22216:;
#line 19198 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_UDTREFERENCE_STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 19198 "qb64pe.bas"
if(qbevent){evnt(19198);if(r)goto S_22216;}
#line 19199 "qb64pe.bas"
do{
#line 19199 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_B2=*_FUNC_UDTREFERENCE_LONG_B2- 1 ;
#line 19199 "qb64pe.bas"
if(!qbevent)break;evnt(19199);}while(r);
#line 19200 "qb64pe.bas"
S_22218:;
#line 19200 "qb64pe.bas"
if ((-(*_FUNC_UDTREFERENCE_LONG_B2== 0 ))||is_error_pending()){
#line 19200 "qb64pe.bas"
if(qbevent){evnt(19200);if(r)goto S_22218;}
#line 19200 "qb64pe.bas"
do{
#line 19200 "qb64pe.bas"
goto dl_exit_2578;
#line 19200 "qb64pe.bas"
if(!qbevent)break;evnt(19200);}while(r);
#line 19200 "qb64pe.bas"
}
#line 19201 "qb64pe.bas"
}
#line 19202 "qb64pe.bas"
do{
#line 19202 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_MEMBERARRAYEND=*_FUNC_UDTREFERENCE_LONG_MEMBERARRAYEND+ 1 ;
#line 19202 "qb64pe.bas"
if(!qbevent)break;evnt(19202);}while(r);
#line 19203 "qb64pe.bas"
dl_continue_2578:;
#line 19203 "qb64pe.bas"
}
#line 19203 "qb64pe.bas"
dl_exit_2578:;
#line 19204 "qb64pe.bas"
S_22224:;
#line 19204 "qb64pe.bas"
if ((-(*_FUNC_UDTREFERENCE_LONG_B2!= 0 ))||is_error_pending()){
#line 19204 "qb64pe.bas"
if(qbevent){evnt(19204);if(r)goto S_22224;}
#line 19204 "qb64pe.bas"
do{
#line 19204 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected )",10));
#line 19204 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19204 "qb64pe.bas"
if(!qbevent)break;evnt(19204);}while(r);
#line 19204 "qb64pe.bas"
do{
#line 19204 "qb64pe.bas"
goto exit_subfunc;
#line 19204 "qb64pe.bas"
if(!qbevent)break;evnt(19204);}while(r);
#line 19204 "qb64pe.bas"
}
#line 19205 "qb64pe.bas"
}
#line 19206 "qb64pe.bas"
}
#line 19207 "qb64pe.bas"
LABEL_UDTFINDELE:;
#line 19207 "qb64pe.bas"
if(qbevent){evnt(19207);r=0;}
#line 19208 "qb64pe.bas"
S_22230:;
#line 19208 "qb64pe.bas"
if ((-(*_FUNC_UDTREFERENCE_LONG_UDTELEM== 0 ))||is_error_pending()){
#line 19208 "qb64pe.bas"
if(qbevent){evnt(19208);if(r)goto S_22230;}
#line 19208 "qb64pe.bas"
do{
#line 19208 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_UDTELEM=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_U)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])];
#line 19208 "qb64pe.bas"
if(!qbevent)break;evnt(19208);}while(r);
#line 19208 "qb64pe.bas"
}else{
#line 19208 "qb64pe.bas"
do{
#line 19208 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_UDTELEM=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])];
#line 19208 "qb64pe.bas"
if(!qbevent)break;evnt(19208);}while(r);
#line 19208 "qb64pe.bas"
}
#line 19209 "qb64pe.bas"
S_22235:;
#line 19209 "qb64pe.bas"
if ((-(*_FUNC_UDTREFERENCE_LONG_UDTELEM== 0 ))||is_error_pending()){
#line 19209 "qb64pe.bas"
if(qbevent){evnt(19209);if(r)goto S_22235;}
#line 19209 "qb64pe.bas"
do{
#line 19209 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Element not defined",19));
#line 19209 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19209 "qb64pe.bas"
if(!qbevent)break;evnt(19209);}while(r);
#line 19209 "qb64pe.bas"
do{
#line 19209 "qb64pe.bas"
goto exit_subfunc;
#line 19209 "qb64pe.bas"
if(!qbevent)break;evnt(19209);}while(r);
#line 19209 "qb64pe.bas"
}
#line 19215 "qb64pe.bas"
S_22239:;
#line 19215 "qb64pe.bas"
if ((*_FUNC_UDTREFERENCE_LONG_DYNLAYOUT)||is_error_pending()){
#line 19215 "qb64pe.bas"
if(qbevent){evnt(19215);if(r)goto S_22239;}
#line 19215 "qb64pe.bas"
do{
#line 19215 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_LEVEL_BASE_BITS+FUNC_UDTDYNMEMBEROFFSET(_FUNC_UDTREFERENCE_LONG_UDTELEM);
#line 19215 "qb64pe.bas"
if(!qbevent)break;evnt(19215);}while(r);
#line 19215 "qb64pe.bas"
}
#line 19217 "qb64pe.bas"
do{
#line 19217 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_N2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1)));
#line 19217 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19217 "qb64pe.bas"
if(!qbevent)break;evnt(19217);}while(r);
#line 19219 "qb64pe.bas"
S_22243:;
#line 19219 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_N,_FUNC_UDTREFERENCE_STRING_N2)))||is_error_pending()){
#line 19219 "qb64pe.bas"
if(qbevent){evnt(19219);if(r)goto S_22243;}
#line 19220 "qb64pe.bas"
S_22244:;
#line 19220 "qb64pe.bas"
if ((-(*_FUNC_UDTREFERENCE_LONG_DYNLAYOUT== 0 ))||is_error_pending()){
#line 19220 "qb64pe.bas"
if(qbevent){evnt(19220);if(r)goto S_22244;}
#line 19220 "qb64pe.bas"
do{
#line 19220 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O+((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])];
#line 19220 "qb64pe.bas"
if(!qbevent)break;evnt(19220);}while(r);
#line 19220 "qb64pe.bas"
}
#line 19221 "qb64pe.bas"
do{
#line 19221 "qb64pe.bas"
goto LABEL_UDTFINDELE;
#line 19221 "qb64pe.bas"
if(!qbevent)break;evnt(19221);}while(r);
#line 19222 "qb64pe.bas"
}
#line 19224 "qb64pe.bas"
do{
#line 19224 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_MATCHED_MEMBER_ID=*_FUNC_UDTREFERENCE_LONG_UDTELEM;
#line 19224 "qb64pe.bas"
if(!qbevent)break;evnt(19224);}while(r);
#line 19227 "qb64pe.bas"
S_22250:;
#line 19227 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_UDTREFERENCE_STRING_NSYM->len))||is_error_pending()){
#line 19227 "qb64pe.bas"
if(qbevent){evnt(19227);if(r)goto S_22250;}
#line 19229 "qb64pe.bas"
S_22251:;
#line 19229 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)||is_error_pending()){
#line 19229 "qb64pe.bas"
if(qbevent){evnt(19229);if(r)goto S_22251;}
#line 19229 "qb64pe.bas"
do{
#line 19229 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid symbol after user defined type",38));
#line 19229 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19229 "qb64pe.bas"
if(!qbevent)break;evnt(19229);}while(r);
#line 19229 "qb64pe.bas"
do{
#line 19229 "qb64pe.bas"
goto exit_subfunc;
#line 19229 "qb64pe.bas"
if(!qbevent)break;evnt(19229);}while(r);
#line 19229 "qb64pe.bas"
}
#line 19230 "qb64pe.bas"
S_22255:;
#line 19230 "qb64pe.bas"
if (((-(*_FUNC_UDTREFERENCE_LONG_NTYP!=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]))|(-(*_FUNC_UDTREFERENCE_LONG_NTYPSIZE!=((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))||is_error_pending()){
#line 19230 "qb64pe.bas"
if(qbevent){evnt(19230);if(r)goto S_22255;}
#line 19231 "qb64pe.bas"
S_22256:;
#line 19231 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_UDTREFERENCE_STRING_NSYM,qbs_new_txt_len("$",1)))&((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)!= 0 )))))||is_error_pending()){
#line 19231 "qb64pe.bas"
if(qbevent){evnt(19231);if(r)goto S_22256;}
#line 19231 "qb64pe.bas"
do{
#line 19231 "qb64pe.bas"
goto LABEL_CORRECTSYMBOL;
#line 19231 "qb64pe.bas"
if(!qbevent)break;evnt(19231);}while(r);
#line 19231 "qb64pe.bas"
}
#line 19232 "qb64pe.bas"
do{
#line 19232 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect symbol after element name",35));
#line 19232 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19232 "qb64pe.bas"
if(!qbevent)break;evnt(19232);}while(r);
#line 19232 "qb64pe.bas"
do{
#line 19232 "qb64pe.bas"
goto exit_subfunc;
#line 19232 "qb64pe.bas"
if(!qbevent)break;evnt(19232);}while(r);
#line 19233 "qb64pe.bas"
}
#line 19234 "qb64pe.bas"
}
#line 19235 "qb64pe.bas"
LABEL_CORRECTSYMBOL:;
#line 19235 "qb64pe.bas"
if(qbevent){evnt(19235);r=0;}
#line 19237 "qb64pe.bas"
S_22263:;
#line 19237 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 19237 "qb64pe.bas"
if(qbevent){evnt(19237);if(r)goto S_22263;}
#line 19238 "qb64pe.bas"
do{
#line 19238 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_MEMBERINDEXES,qbs_new_txt_len("",0));
#line 19238 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19238 "qb64pe.bas"
if(!qbevent)break;evnt(19238);}while(r);
#line 19239 "qb64pe.bas"
S_22265:;
#line 19239 "qb64pe.bas"
if ((*_FUNC_UDTREFERENCE_LONG_MEMBERARRAYEND)||is_error_pending()){
#line 19239 "qb64pe.bas"
if(qbevent){evnt(19239);if(r)goto S_22265;}
#line 19239 "qb64pe.bas"
do{
#line 19239 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_MEMBERINDEXES,FUNC_GETELEMENTS(_FUNC_UDTREFERENCE_STRING_A,&(pass2580=*_FUNC_UDTREFERENCE_LONG_I+ 2 ),&(pass2581=*_FUNC_UDTREFERENCE_LONG_MEMBERARRAYEND- 1 )));
#line 19239 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19239 "qb64pe.bas"
if(!qbevent)break;evnt(19239);}while(r);
#line 19239 "qb64pe.bas"
}
#line 19246 "qb64pe.bas"
S_22268:;
#line 19246 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_UDTREFERENCE_LONG_MEMBERARRAYEND== 0 ))|(qbs_equal(_FUNC_UDTREFERENCE_STRING_MEMBERINDEXES,qbs_new_txt_len("",0)))))||is_error_pending()){
#line 19246 "qb64pe.bas"
if(qbevent){evnt(19246);if(r)goto S_22268;}
#line 19247 "qb64pe.bas"
S_22269:;
#line 19247 "qb64pe.bas"
if ((-(*__INTEGER_UDT_ALLOW_BARE_ARRAY== 0 ))||is_error_pending()){
#line 19247 "qb64pe.bas"
if(qbevent){evnt(19247);if(r)goto S_22269;}
#line 19247 "qb64pe.bas"
do{
#line 19247 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array index",20));
#line 19247 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19247 "qb64pe.bas"
if(!qbevent)break;evnt(19247);}while(r);
#line 19247 "qb64pe.bas"
do{
#line 19247 "qb64pe.bas"
goto exit_subfunc;
#line 19247 "qb64pe.bas"
if(!qbevent)break;evnt(19247);}while(r);
#line 19247 "qb64pe.bas"
}
#line 19248 "qb64pe.bas"
S_22273:;
#line 19248 "qb64pe.bas"
if ((*_FUNC_UDTREFERENCE_LONG_MEMBERARRAYEND)||is_error_pending()){
#line 19248 "qb64pe.bas"
if(qbevent){evnt(19248);if(r)goto S_22273;}
#line 19248 "qb64pe.bas"
do{
#line 19248 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_I=*_FUNC_UDTREFERENCE_LONG_MEMBERARRAYEND;
#line 19248 "qb64pe.bas"
if(!qbevent)break;evnt(19248);}while(r);
#line 19248 "qb64pe.bas"
}
#line 19249 "qb64pe.bas"
S_22276:;
#line 19249 "qb64pe.bas"
if ((-(*_FUNC_UDTREFERENCE_LONG_I!=*_FUNC_UDTREFERENCE_LONG_N))||is_error_pending()){
#line 19249 "qb64pe.bas"
if(qbevent){evnt(19249);if(r)goto S_22276;}
#line 19249 "qb64pe.bas"
do{
#line 19249 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array index",20));
#line 19249 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19249 "qb64pe.bas"
if(!qbevent)break;evnt(19249);}while(r);
#line 19249 "qb64pe.bas"
do{
#line 19249 "qb64pe.bas"
goto exit_subfunc;
#line 19249 "qb64pe.bas"
if(!qbevent)break;evnt(19249);}while(r);
#line 19249 "qb64pe.bas"
}
#line 19251 "qb64pe.bas"
do{
#line 19251 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_UDTREFERENCE_STRING_R,qbs__tostr((int32)(*_FUNC_UDTREFERENCE_LONG_U),NULL,0)),__STRING1_SP3),qbs__tostr((int32)(*_FUNC_UDTREFERENCE_LONG_UDTELEM),NULL,0)),__STRING1_SP3));
#line 19251 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19251 "qb64pe.bas"
if(!qbevent)break;evnt(19251);}while(r);
#line 19253 "qb64pe.bas"
S_22281:;
#line 19253 "qb64pe.bas"
if ((qb_safe_mod(*_FUNC_UDTREFERENCE_LONG_O, 8 ))||is_error_pending()){
#line 19253 "qb64pe.bas"
if(qbevent){evnt(19253);if(r)goto S_22281;}
#line 19253 "qb64pe.bas"
do{
#line 19253 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Non-byte aligned user defined type",34));
#line 19253 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19253 "qb64pe.bas"
if(!qbevent)break;evnt(19253);}while(r);
#line 19253 "qb64pe.bas"
do{
#line 19253 "qb64pe.bas"
goto exit_subfunc;
#line 19253 "qb64pe.bas"
if(!qbevent)break;evnt(19253);}while(r);
#line 19253 "qb64pe.bas"
}
#line 19254 "qb64pe.bas"
do{
#line 19254 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_O=qb_safe_idiv(*_FUNC_UDTREFERENCE_LONG_O, 8 );
#line 19254 "qb64pe.bas"
if(!qbevent)break;evnt(19254);}while(r);
#line 19256 "qb64pe.bas"
do{
#line 19256 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_O,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_UDTREFERENCE_STRING_O),qbs_new_txt_len("+",1)),qbs__tostr((int32)(*_FUNC_UDTREFERENCE_LONG_O),NULL,0)),qbs_new_txt_len(")",1)));
#line 19256 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19256 "qb64pe.bas"
if(!qbevent)break;evnt(19256);}while(r);
#line 19258 "qb64pe.bas"
do{
#line 19258 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(_FUNC_UDTREFERENCE_STRING_R,_FUNC_UDTREFERENCE_STRING_O));
#line 19258 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19258 "qb64pe.bas"
if(!qbevent)break;evnt(19258);}while(r);
#line 19259 "qb64pe.bas"
do{
#line 19259 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_UDTREFERENCE,_FUNC_UDTREFERENCE_STRING_R);
#line 19259 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19259 "qb64pe.bas"
if(!qbevent)break;evnt(19259);}while(r);
#line 19260 "qb64pe.bas"
do{
#line 19260 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_TYP=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]+*__LONG_ISREFERENCE+*__LONG_ISARRAY;
#line 19260 "qb64pe.bas"
if(!qbevent)break;evnt(19260);}while(r);
#line 19261 "qb64pe.bas"
S_22290:;
#line 19261 "qb64pe.bas"
if ((*_FUNC_UDTREFERENCE_LONG_INCMEM)||is_error_pending()){
#line 19261 "qb64pe.bas"
if(qbevent){evnt(19261);if(r)goto S_22290;}
#line 19261 "qb64pe.bas"
do{
#line 19261 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_TYP+*__LONG_ISINCONVENTIONALMEMORY;
#line 19261 "qb64pe.bas"
if(!qbevent)break;evnt(19261);}while(r);
#line 19261 "qb64pe.bas"
}
#line 19262 "qb64pe.bas"
do{
#line 19262 "qb64pe.bas"
goto exit_subfunc;
#line 19262 "qb64pe.bas"
if(!qbevent)break;evnt(19262);}while(r);
#line 19263 "qb64pe.bas"
}
#line 19265 "qb64pe.bas"
S_22295:;
#line 19265 "qb64pe.bas"
if ((*_FUNC_UDTREFERENCE_LONG_DYNLAYOUT&FUNC_UDTMEMBERDYNDESC(_FUNC_UDTREFERENCE_LONG_UDTELEM))||is_error_pending()){
#line 19265 "qb64pe.bas"
if(qbevent){evnt(19265);if(r)goto S_22295;}
#line 19266 "qb64pe.bas"
S_22296:;
#line 19266 "qb64pe.bas"
if ((qb_safe_mod(*_FUNC_UDTREFERENCE_LONG_O, 8 ))||is_error_pending()){
#line 19266 "qb64pe.bas"
if(qbevent){evnt(19266);if(r)goto S_22296;}
#line 19266 "qb64pe.bas"
do{
#line 19266 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Non-byte aligned user defined type",34));
#line 19266 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19266 "qb64pe.bas"
if(!qbevent)break;evnt(19266);}while(r);
#line 19266 "qb64pe.bas"
do{
#line 19266 "qb64pe.bas"
goto exit_subfunc;
#line 19266 "qb64pe.bas"
if(!qbevent)break;evnt(19266);}while(r);
#line 19266 "qb64pe.bas"
}
#line 19267 "qb64pe.bas"
do{
#line 19267 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_MEMBER_OFFSET_BYTES=qb_safe_idiv(*_FUNC_UDTREFERENCE_LONG_O, 8 );
#line 19267 "qb64pe.bas"
if(!qbevent)break;evnt(19267);}while(r);
#line 19268 "qb64pe.bas"
do{
#line 19268 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_MEMBER_BYTES=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(_FUNC_UDTREFERENCE_LONG_UDTELEM);
#line 19268 "qb64pe.bas"
if(!qbevent)break;evnt(19268);}while(r);
#line 19270 "qb64pe.bas"
do{
#line 19270 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_BASE_PTR,_FUNC_UDTREFERENCE_STRING_ROOT_BASE_PTR);
#line 19270 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19270 "qb64pe.bas"
if(!qbevent)break;evnt(19270);}while(r);
#line 19271 "qb64pe.bas"
S_22303:;
#line 19271 "qb64pe.bas"
if (((-(*(int32*)(((char*)__UDT_ID)+((0+540)))== 0 ))&*__LONG_CHECKINGON)||is_error_pending()){
#line 19271 "qb64pe.bas"
if(qbevent){evnt(19271);if(r)goto S_22303;}
#line 19272 "qb64pe.bas"
do{
#line 19272 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_GUARD_DESC,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("ARRAY_UDT_",10)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+((0+0))),256,1))));
#line 19272 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19272 "qb64pe.bas"
if(!qbevent)break;evnt(19272);}while(r);
#line 19273 "qb64pe.bas"
do{
#line 19273 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_GUARD_UDT=*(int32*)(((char*)__UDT_ID)+((0+512)))& 4095ll ;
#line 19273 "qb64pe.bas"
if(!qbevent)break;evnt(19273);}while(r);
#line 19274 "qb64pe.bas"
do{
#line 19274 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_GUARD_MODE=*(int16*)(((char*)__UDT_ID)+((0+522)));
#line 19274 "qb64pe.bas"
if(!qbevent)break;evnt(19274);}while(r);
#line 19275 "qb64pe.bas"
S_22307:;
#line 19275 "qb64pe.bas"
if ((-(*_FUNC_UDTREFERENCE_LONG_GUARD_MODE== 0 ))||is_error_pending()){
#line 19275 "qb64pe.bas"
if(qbevent){evnt(19275);if(r)goto S_22307;}
#line 19275 "qb64pe.bas"
do{
#line 19275 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_GUARD_MODE=*(int16*)(((char*)__UDT_ID)+((0+520)));
#line 19275 "qb64pe.bas"
if(!qbevent)break;evnt(19275);}while(r);
#line 19275 "qb64pe.bas"
}
#line 19276 "qb64pe.bas"
do{
#line 19276 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_BASE_PTR,qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),FUNC_UDTROOTDATAGUARD(_FUNC_UDTREFERENCE_STRING_GUARD_DESC,_FUNC_UDTREFERENCE_LONG_GUARD_UDT,_FUNC_UDTREFERENCE_LONG_GUARD_MODE)),qbs_new_txt_len(")",1)));
#line 19276 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19276 "qb64pe.bas"
if(!qbevent)break;evnt(19276);}while(r);
#line 19277 "qb64pe.bas"
S_22311:;
#line 19277 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19277 "qb64pe.bas"
if(qbevent){evnt(19277);if(r)goto S_22311;}
#line 19277 "qb64pe.bas"
do{
#line 19277 "qb64pe.bas"
goto exit_subfunc;
#line 19277 "qb64pe.bas"
if(!qbevent)break;evnt(19277);}while(r);
#line 19277 "qb64pe.bas"
}
#line 19278 "qb64pe.bas"
}
#line 19280 "qb64pe.bas"
do{
#line 19280 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_DESC_EXPR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((ptrszint**)(",16),_FUNC_UDTREFERENCE_STRING_BASE_PTR),qbs_new_txt_len("+(",2)),_FUNC_UDTREFERENCE_STRING_O),qbs_new_txt_len("+",1)),qbs__tostr((int32)(*_FUNC_UDTREFERENCE_LONG_MEMBER_OFFSET_BYTES),NULL,0)),qbs_new_txt_len("))))",4)));
#line 19280 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19280 "qb64pe.bas"
if(!qbevent)break;evnt(19280);}while(r);
#line 19281 "qb64pe.bas"
do{
#line 19281 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_ACTUAL_MEMBER_DIMS=FUNC_DYNMEMBERINDEXDIMS(_FUNC_UDTREFERENCE_STRING_MEMBERINDEXES);
#line 19281 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19281 "qb64pe.bas"
if(!qbevent)break;evnt(19281);}while(r);
#line 19282 "qb64pe.bas"
S_22317:;
#line 19282 "qb64pe.bas"
if ((-(*_FUNC_UDTREFERENCE_LONG_ACTUAL_MEMBER_DIMS<= 0 ))||is_error_pending()){
#line 19282 "qb64pe.bas"
if(qbevent){evnt(19282);if(r)goto S_22317;}
#line 19282 "qb64pe.bas"
do{
#line 19282 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Array index missing",19));
#line 19282 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19282 "qb64pe.bas"
if(!qbevent)break;evnt(19282);}while(r);
#line 19282 "qb64pe.bas"
do{
#line 19282 "qb64pe.bas"
goto exit_subfunc;
#line 19282 "qb64pe.bas"
if(!qbevent)break;evnt(19282);}while(r);
#line 19282 "qb64pe.bas"
}
#line 19283 "qb64pe.bas"
do{
#line 19283 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_DESC_EXPR,FUNC_UDTDYNARRAYDESCGUARD(_FUNC_UDTREFERENCE_STRING_DESC_EXPR,_FUNC_UDTREFERENCE_LONG_ACTUAL_MEMBER_DIMS));
#line 19283 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19283 "qb64pe.bas"
if(!qbevent)break;evnt(19283);}while(r);
#line 19284 "qb64pe.bas"
S_22322:;
#line 19284 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19284 "qb64pe.bas"
if(qbevent){evnt(19284);if(r)goto S_22322;}
#line 19284 "qb64pe.bas"
do{
#line 19284 "qb64pe.bas"
goto exit_subfunc;
#line 19284 "qb64pe.bas"
if(!qbevent)break;evnt(19284);}while(r);
#line 19284 "qb64pe.bas"
}
#line 19285 "qb64pe.bas"
do{
#line 19285 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_ARR_INDEX,FUNC_UDTDYNARRAYINDEXEXPR(_FUNC_UDTREFERENCE_STRING_MEMBERINDEXES,_FUNC_UDTREFERENCE_LONG_ACTUAL_MEMBER_DIMS,_FUNC_UDTREFERENCE_STRING_DESC_EXPR));
#line 19285 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19285 "qb64pe.bas"
if(!qbevent)break;evnt(19285);}while(r);
#line 19286 "qb64pe.bas"
S_22326:;
#line 19286 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19286 "qb64pe.bas"
if(qbevent){evnt(19286);if(r)goto S_22326;}
#line 19286 "qb64pe.bas"
do{
#line 19286 "qb64pe.bas"
goto exit_subfunc;
#line 19286 "qb64pe.bas"
if(!qbevent)break;evnt(19286);}while(r);
#line 19286 "qb64pe.bas"
}
#line 19287 "qb64pe.bas"
do{
#line 19287 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_UDTELEM=*_FUNC_UDTREFERENCE_LONG_MATCHED_MEMBER_ID;
#line 19287 "qb64pe.bas"
if(!qbevent)break;evnt(19287);}while(r);
#line 19288 "qb64pe.bas"
do{
#line 19288 "qb64pe.bas"
qbs_set(__STRING_DYNMEMLOCKEXPR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(mem_lock*)(",12),_FUNC_UDTREFERENCE_STRING_DESC_EXPR),qbs_new_txt_len("[",1)),_FUNC_UDTREFERENCE_STRING_DESC_EXPR),qbs_new_txt_len("[3]*4+4])",9)));
#line 19288 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19288 "qb64pe.bas"
if(!qbevent)break;evnt(19288);}while(r);
#line 19289 "qb64pe.bas"
do{
#line 19289 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_DYN_OFFSET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((ptrszint)(((char*)",20),_FUNC_UDTREFERENCE_STRING_DESC_EXPR),qbs_new_txt_len("[0])+(",6)),_FUNC_UDTREFERENCE_STRING_ARR_INDEX),qbs_new_txt_len(")*",2)),qbs__tostr((int32)(*_FUNC_UDTREFERENCE_LONG_MEMBER_BYTES),NULL,0)),qbs_new_txt_len(")-(ptrszint)",12)),_FUNC_UDTREFERENCE_STRING_BASE_PTR),qbs_new_txt_len(")",1)));
#line 19289 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19289 "qb64pe.bas"
if(!qbevent)break;evnt(19289);}while(r);
#line 19290 "qb64pe.bas"
do{
#line 19290 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_O,_FUNC_UDTREFERENCE_STRING_DYN_OFFSET);
#line 19290 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19290 "qb64pe.bas"
if(!qbevent)break;evnt(19290);}while(r);
#line 19291 "qb64pe.bas"
}else{
#line 19292 "qb64pe.bas"
do{
#line 19292 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_ARRINDEX,FUNC_UDTARRAYINDEXEXPR(_FUNC_UDTREFERENCE_STRING_MEMBERINDEXES,(&(((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])])),(((qbs**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5])])));
#line 19292 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19292 "qb64pe.bas"
if(!qbevent)break;evnt(19292);}while(r);
#line 19293 "qb64pe.bas"
S_22335:;
#line 19293 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 19293 "qb64pe.bas"
if(qbevent){evnt(19293);if(r)goto S_22335;}
#line 19293 "qb64pe.bas"
do{
#line 19293 "qb64pe.bas"
goto exit_subfunc;
#line 19293 "qb64pe.bas"
if(!qbevent)break;evnt(19293);}while(r);
#line 19293 "qb64pe.bas"
}
#line 19294 "qb64pe.bas"
do{
#line 19294 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_UDTELEM=*_FUNC_UDTREFERENCE_LONG_MATCHED_MEMBER_ID;
#line 19294 "qb64pe.bas"
if(!qbevent)break;evnt(19294);}while(r);
#line 19295 "qb64pe.bas"
S_22339:;
#line 19295 "qb64pe.bas"
if ((qb_safe_mod(*_FUNC_UDTREFERENCE_LONG_O, 8 ))||is_error_pending()){
#line 19295 "qb64pe.bas"
if(qbevent){evnt(19295);if(r)goto S_22339;}
#line 19295 "qb64pe.bas"
do{
#line 19295 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Non-byte aligned user defined type",34));
#line 19295 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19295 "qb64pe.bas"
if(!qbevent)break;evnt(19295);}while(r);
#line 19295 "qb64pe.bas"
do{
#line 19295 "qb64pe.bas"
goto exit_subfunc;
#line 19295 "qb64pe.bas"
if(!qbevent)break;evnt(19295);}while(r);
#line 19295 "qb64pe.bas"
}
#line 19296 "qb64pe.bas"
S_22343:;
#line 19296 "qb64pe.bas"
if ((*_FUNC_UDTREFERENCE_LONG_DYNLAYOUT)||is_error_pending()){
#line 19296 "qb64pe.bas"
if(qbevent){evnt(19296);if(r)goto S_22343;}
#line 19297 "qb64pe.bas"
do{
#line 19297 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_ARRBYTES=FUNC_UDTDYNINLINEELEMBYTES(_FUNC_UDTREFERENCE_LONG_MATCHED_MEMBER_ID,&(pass2582=*(int16*)(((char*)__UDT_ID)+((0+522)))));
#line 19297 "qb64pe.bas"
if(!qbevent)break;evnt(19297);}while(r);
#line 19298 "qb64pe.bas"
}else{
#line 19299 "qb64pe.bas"
do{
#line 19299 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_ARRBYTES=qb_safe_idiv((qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_MATCHED_MEMBER_ID)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])], 8 )),((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_MATCHED_MEMBER_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]);
#line 19299 "qb64pe.bas"
if(!qbevent)break;evnt(19299);}while(r);
#line 19300 "qb64pe.bas"
}
#line 19301 "qb64pe.bas"
do{
#line 19301 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_O=qb_safe_idiv(*_FUNC_UDTREFERENCE_LONG_O, 8 );
#line 19301 "qb64pe.bas"
if(!qbevent)break;evnt(19301);}while(r);
#line 19303 "qb64pe.bas"
do{
#line 19303 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_O,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_UDTREFERENCE_STRING_O),qbs_new_txt_len("+",1)),qbs__tostr((int32)(*_FUNC_UDTREFERENCE_LONG_O),NULL,0)),qbs_new_txt_len(")",1)));
#line 19303 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19303 "qb64pe.bas"
if(!qbevent)break;evnt(19303);}while(r);
#line 19304 "qb64pe.bas"
do{
#line 19304 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_O,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_UDTREFERENCE_STRING_O),qbs_new_txt_len("+((",3)),_FUNC_UDTREFERENCE_STRING_ARRINDEX),qbs_new_txt_len(")*",2)),qbs__tostr((int32)(*_FUNC_UDTREFERENCE_LONG_ARRBYTES),NULL,0)),qbs_new_txt_len("))",2)));
#line 19304 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19304 "qb64pe.bas"
if(!qbevent)break;evnt(19304);}while(r);
#line 19305 "qb64pe.bas"
}
#line 19307 "qb64pe.bas"
do{
#line 19307 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_UDTELEM=*_FUNC_UDTREFERENCE_LONG_MATCHED_MEMBER_ID;
#line 19307 "qb64pe.bas"
if(!qbevent)break;evnt(19307);}while(r);
#line 19308 "qb64pe.bas"
do{
#line 19308 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_O= 0 ;
#line 19308 "qb64pe.bas"
if(!qbevent)break;evnt(19308);}while(r);
#line 19309 "qb64pe.bas"
do{
#line 19309 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_I=*_FUNC_UDTREFERENCE_LONG_MEMBERARRAYEND;
#line 19309 "qb64pe.bas"
if(!qbevent)break;evnt(19309);}while(r);
#line 19310 "qb64pe.bas"
S_22355:;
#line 19310 "qb64pe.bas"
}else{
#line 19310 "qb64pe.bas"
if (*_FUNC_UDTREFERENCE_LONG_MEMBERARRAYEND){
#line 19310 "qb64pe.bas"
if(qbevent){evnt(19310);if(r)goto S_22355;}
#line 19311 "qb64pe.bas"
do{
#line 19311 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Element is not an array",23));
#line 19311 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19311 "qb64pe.bas"
if(!qbevent)break;evnt(19311);}while(r);
#line 19311 "qb64pe.bas"
do{
#line 19311 "qb64pe.bas"
goto exit_subfunc;
#line 19311 "qb64pe.bas"
if(!qbevent)break;evnt(19311);}while(r);
#line 19312 "qb64pe.bas"
}
#line 19312 "qb64pe.bas"
}
#line 19315 "qb64pe.bas"
S_22359:;
#line 19315 "qb64pe.bas"
if ((-(*_FUNC_UDTREFERENCE_LONG_I!=*_FUNC_UDTREFERENCE_LONG_N))||is_error_pending()){
#line 19315 "qb64pe.bas"
if(qbevent){evnt(19315);if(r)goto S_22359;}
#line 19316 "qb64pe.bas"
S_22360:;
#line 19316 "qb64pe.bas"
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)== 0 ))||is_error_pending()){
#line 19316 "qb64pe.bas"
if(qbevent){evnt(19316);if(r)goto S_22360;}
#line 19316 "qb64pe.bas"
do{
#line 19316 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected user defined type",26));
#line 19316 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19316 "qb64pe.bas"
if(!qbevent)break;evnt(19316);}while(r);
#line 19316 "qb64pe.bas"
do{
#line 19316 "qb64pe.bas"
goto exit_subfunc;
#line 19316 "qb64pe.bas"
if(!qbevent)break;evnt(19316);}while(r);
#line 19316 "qb64pe.bas"
}
#line 19317 "qb64pe.bas"
do{
#line 19317 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_U=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ;
#line 19317 "qb64pe.bas"
if(!qbevent)break;evnt(19317);}while(r);
#line 19318 "qb64pe.bas"
do{
#line 19318 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_UDTELEM= 0 ;
#line 19318 "qb64pe.bas"
if(!qbevent)break;evnt(19318);}while(r);
#line 19319 "qb64pe.bas"
do{
#line 19319 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_I=*_FUNC_UDTREFERENCE_LONG_I+ 1 ;
#line 19319 "qb64pe.bas"
if(!qbevent)break;evnt(19319);}while(r);
#line 19320 "qb64pe.bas"
do{
#line 19320 "qb64pe.bas"
goto LABEL_UDTFINDELENEXT;
#line 19320 "qb64pe.bas"
if(!qbevent)break;evnt(19320);}while(r);
#line 19321 "qb64pe.bas"
}
#line 19324 "qb64pe.bas"
S_22369:;
#line 19324 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)||is_error_pending()){
#line 19324 "qb64pe.bas"
if(qbevent){evnt(19324);if(r)goto S_22369;}
#line 19325 "qb64pe.bas"
do{
#line 19325 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_U=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ;
#line 19325 "qb64pe.bas"
if(!qbevent)break;evnt(19325);}while(r);
#line 19326 "qb64pe.bas"
do{
#line 19326 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_UDTELEM= 0 ;
#line 19326 "qb64pe.bas"
if(!qbevent)break;evnt(19326);}while(r);
#line 19327 "qb64pe.bas"
}
#line 19329 "qb64pe.bas"
LABEL_FULLUDT:;
#line 19329 "qb64pe.bas"
if(qbevent){evnt(19329);r=0;}
#line 19331 "qb64pe.bas"
do{
#line 19331 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_UDTREFERENCE_STRING_R,qbs__tostr((int32)(*_FUNC_UDTREFERENCE_LONG_U),NULL,0)),__STRING1_SP3),qbs__tostr((int32)(*_FUNC_UDTREFERENCE_LONG_UDTELEM),NULL,0)),__STRING1_SP3));
#line 19331 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19331 "qb64pe.bas"
if(!qbevent)break;evnt(19331);}while(r);
#line 19333 "qb64pe.bas"
S_22374:;
#line 19333 "qb64pe.bas"
if ((qb_safe_mod(*_FUNC_UDTREFERENCE_LONG_O, 8 ))||is_error_pending()){
#line 19333 "qb64pe.bas"
if(qbevent){evnt(19333);if(r)goto S_22374;}
#line 19333 "qb64pe.bas"
do{
#line 19333 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Non-byte aligned user defined type",34));
#line 19333 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19333 "qb64pe.bas"
if(!qbevent)break;evnt(19333);}while(r);
#line 19333 "qb64pe.bas"
do{
#line 19333 "qb64pe.bas"
goto exit_subfunc;
#line 19333 "qb64pe.bas"
if(!qbevent)break;evnt(19333);}while(r);
#line 19333 "qb64pe.bas"
}
#line 19334 "qb64pe.bas"
do{
#line 19334 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_O=qb_safe_idiv(*_FUNC_UDTREFERENCE_LONG_O, 8 );
#line 19334 "qb64pe.bas"
if(!qbevent)break;evnt(19334);}while(r);
#line 19336 "qb64pe.bas"
do{
#line 19336 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_O,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_UDTREFERENCE_STRING_O),qbs_new_txt_len("+",1)),qbs__tostr((int32)(*_FUNC_UDTREFERENCE_LONG_O),NULL,0)),qbs_new_txt_len(")",1)));
#line 19336 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19336 "qb64pe.bas"
if(!qbevent)break;evnt(19336);}while(r);
#line 19338 "qb64pe.bas"
do{
#line 19338 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(_FUNC_UDTREFERENCE_STRING_R,_FUNC_UDTREFERENCE_STRING_O));
#line 19338 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19338 "qb64pe.bas"
if(!qbevent)break;evnt(19338);}while(r);
#line 19340 "qb64pe.bas"
do{
#line 19340 "qb64pe.bas"
qbs_set(_FUNC_UDTREFERENCE_STRING_UDTREFERENCE,_FUNC_UDTREFERENCE_STRING_R);
#line 19340 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19340 "qb64pe.bas"
if(!qbevent)break;evnt(19340);}while(r);
#line 19341 "qb64pe.bas"
do{
#line 19341 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_TYP=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_UDTELEM)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]+*__LONG_ISUDT+*__LONG_ISREFERENCE;
#line 19341 "qb64pe.bas"
if(!qbevent)break;evnt(19341);}while(r);
#line 19344 "qb64pe.bas"
S_22383:;
#line 19344 "qb64pe.bas"
if ((-(*_FUNC_UDTREFERENCE_LONG_UDTELEM== 0 ))||is_error_pending()){
#line 19344 "qb64pe.bas"
if(qbevent){evnt(19344);if(r)goto S_22383;}
#line 19345 "qb64pe.bas"
do{
#line 19345 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_U+*__LONG_ISUDT+*__LONG_ISREFERENCE;
#line 19345 "qb64pe.bas"
if(!qbevent)break;evnt(19345);}while(r);
#line 19346 "qb64pe.bas"
}
#line 19348 "qb64pe.bas"
S_22386:;
#line 19348 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_OBAK,qbs_new_txt_len("",0))))||is_error_pending()){
#line 19348 "qb64pe.bas"
if(qbevent){evnt(19348);if(r)goto S_22386;}
#line 19348 "qb64pe.bas"
do{
#line 19348 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_TYP+*__LONG_ISARRAY;
#line 19348 "qb64pe.bas"
if(!qbevent)break;evnt(19348);}while(r);
#line 19348 "qb64pe.bas"
}
#line 19349 "qb64pe.bas"
S_22389:;
#line 19349 "qb64pe.bas"
if ((*_FUNC_UDTREFERENCE_LONG_INCMEM)||is_error_pending()){
#line 19349 "qb64pe.bas"
if(qbevent){evnt(19349);if(r)goto S_22389;}
#line 19349 "qb64pe.bas"
do{
#line 19349 "qb64pe.bas"
*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_TYP+*__LONG_ISINCONVENTIONALMEMORY;
#line 19349 "qb64pe.bas"
if(!qbevent)break;evnt(19349);}while(r);
#line 19349 "qb64pe.bas"
}
#line 19353 "qb64pe.bas"
exit_subfunc:;
#line 19353 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 19353 "qb64pe.bas"
#include "free63.txt"
#line 19353 "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 19353 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 19353 "qb64pe.bas"
qbs_maketmp(_FUNC_UDTREFERENCE_STRING_UDTREFERENCE);return _FUNC_UDTREFERENCE_STRING_UDTREFERENCE;
#line 19353 "qb64pe.bas"
}
