#line 16101 "qb64pe.bas"
qbs* FUNC_UDTARRAYINDEXEXPR(qbs*_FUNC_UDTARRAYINDEXEXPR_STRING_INDEXES,int32*_FUNC_UDTARRAYINDEXEXPR_LONG_DIMENSION_COUNT,qbs*_FUNC_UDTARRAYINDEXEXPR_STRING_DESCRIPTOR){
#line 16101 "qb64pe.bas"
qbs *tqbs;
#line 16101 "qb64pe.bas"
ptrszint tmp_long;
#line 16101 "qb64pe.bas"
int32 tmp_fileno;
#line 16101 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 16101 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 16101 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 16101 "qb64pe.bas"
#include "data28.txt"
#line 16101 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 16101 "qb64pe.bas"
new_mem_lock();
#line 16101 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 16101 "qb64pe.bas"
sf_mem_lock->type=3;
#line 16101 "qb64pe.bas"
libqb_check_stack();
#line 16101 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 16102 "qb64pe.bas"
do{
#line 16102 "qb64pe.bas"
if(!qbevent)break;evnt(16102);}while(r);
#line 16104 "qb64pe.bas"
do{
#line 16104 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_N=FUNC_NUMELEMENTS(_FUNC_UDTARRAYINDEXEXPR_STRING_INDEXES);
#line 16104 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16104 "qb64pe.bas"
if(!qbevent)break;evnt(16104);}while(r);
#line 16105 "qb64pe.bas"
S_18561:;
#line 16105 "qb64pe.bas"
if ((-(*_FUNC_UDTARRAYINDEXEXPR_LONG_N== 0 ))||is_error_pending()){
#line 16105 "qb64pe.bas"
if(qbevent){evnt(16105);if(r)goto S_18561;}
#line 16105 "qb64pe.bas"
do{
#line 16105 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Array index missing",19));
#line 16105 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16105 "qb64pe.bas"
if(!qbevent)break;evnt(16105);}while(r);
#line 16105 "qb64pe.bas"
do{
#line 16105 "qb64pe.bas"
goto exit_subfunc;
#line 16105 "qb64pe.bas"
if(!qbevent)break;evnt(16105);}while(r);
#line 16105 "qb64pe.bas"
}
#line 16106 "qb64pe.bas"
S_18565:;
#line 16106 "qb64pe.bas"
if ((-(*_FUNC_UDTARRAYINDEXEXPR_LONG_DIMENSION_COUNT<= 0 ))||is_error_pending()){
#line 16106 "qb64pe.bas"
if(qbevent){evnt(16106);if(r)goto S_18565;}
#line 16106 "qb64pe.bas"
do{
#line 16106 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("TYPE member is not an array",27));
#line 16106 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16106 "qb64pe.bas"
if(!qbevent)break;evnt(16106);}while(r);
#line 16106 "qb64pe.bas"
do{
#line 16106 "qb64pe.bas"
goto exit_subfunc;
#line 16106 "qb64pe.bas"
if(!qbevent)break;evnt(16106);}while(r);
#line 16106 "qb64pe.bas"
}
#line 16108 "qb64pe.bas"
do{
#line 16108 "qb64pe.bas"
qbs_set(_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR,qbs_new_txt_len("",0));
#line 16108 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16108 "qb64pe.bas"
if(!qbevent)break;evnt(16108);}while(r);
#line 16109 "qb64pe.bas"
do{
#line 16109 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_STRIDE= 1 ;
#line 16109 "qb64pe.bas"
if(!qbevent)break;evnt(16109);}while(r);
#line 16110 "qb64pe.bas"
do{
#line 16110 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_DESC_POS= 1 ;
#line 16110 "qb64pe.bas"
if(!qbevent)break;evnt(16110);}while(r);
#line 16111 "qb64pe.bas"
do{
#line 16111 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_FOUND_DIMENSIONS= 0 ;
#line 16111 "qb64pe.bas"
if(!qbevent)break;evnt(16111);}while(r);
#line 16112 "qb64pe.bas"
do{
#line 16112 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_B= 0 ;
#line 16112 "qb64pe.bas"
if(!qbevent)break;evnt(16112);}while(r);
#line 16113 "qb64pe.bas"
do{
#line 16113 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_FIRSTI= 1 ;
#line 16113 "qb64pe.bas"
if(!qbevent)break;evnt(16113);}while(r);
#line 16115 "qb64pe.bas"
S_18575:;
#line 16115 "qb64pe.bas"
fornext_value2160= 1 ;
#line 16115 "qb64pe.bas"
fornext_finalvalue2160=*_FUNC_UDTARRAYINDEXEXPR_LONG_N;
#line 16115 "qb64pe.bas"
fornext_step2160= 1 ;
#line 16115 "qb64pe.bas"
if (fornext_step2160<0) fornext_step_negative2160=1; else fornext_step_negative2160=0;
#line 16115 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2160;
#line 16115 "qb64pe.bas"
goto fornext_entrylabel2160;
#line 16115 "qb64pe.bas"
while(1){
#line 16115 "qb64pe.bas"
fornext_value2160=fornext_step2160+(*_FUNC_UDTARRAYINDEXEXPR_LONG_I);
#line 16115 "qb64pe.bas"
fornext_entrylabel2160:
#line 16115 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_I=fornext_value2160;
#line 16115 "qb64pe.bas"
if (fornext_step_negative2160){
#line 16115 "qb64pe.bas"
if (fornext_value2160<fornext_finalvalue2160) break;
#line 16115 "qb64pe.bas"
}else{
#line 16115 "qb64pe.bas"
if (fornext_value2160>fornext_finalvalue2160) break;
#line 16115 "qb64pe.bas"
}
#line 16115 "qb64pe.bas"
fornext_error2160:;
#line 16115 "qb64pe.bas"
if(qbevent){evnt(16115);if(r)goto S_18575;}
#line 16116 "qb64pe.bas"
do{
#line 16116 "qb64pe.bas"
qbs_set(_FUNC_UDTARRAYINDEXEXPR_STRING_E,FUNC_GETELEMENT(_FUNC_UDTARRAYINDEXEXPR_STRING_INDEXES,_FUNC_UDTARRAYINDEXEXPR_LONG_I));
#line 16116 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16116 "qb64pe.bas"
if(!qbevent)break;evnt(16116);}while(r);
#line 16117 "qb64pe.bas"
S_18577:;
#line 16117 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_UDTARRAYINDEXEXPR_STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 16117 "qb64pe.bas"
if(qbevent){evnt(16117);if(r)goto S_18577;}
#line 16117 "qb64pe.bas"
do{
#line 16117 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_B=*_FUNC_UDTARRAYINDEXEXPR_LONG_B+ 1 ;
#line 16117 "qb64pe.bas"
if(!qbevent)break;evnt(16117);}while(r);
#line 16117 "qb64pe.bas"
}
#line 16118 "qb64pe.bas"
S_18580:;
#line 16118 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_UDTARRAYINDEXEXPR_STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 16118 "qb64pe.bas"
if(qbevent){evnt(16118);if(r)goto S_18580;}
#line 16118 "qb64pe.bas"
do{
#line 16118 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_B=*_FUNC_UDTARRAYINDEXEXPR_LONG_B- 1 ;
#line 16118 "qb64pe.bas"
if(!qbevent)break;evnt(16118);}while(r);
#line 16118 "qb64pe.bas"
}
#line 16119 "qb64pe.bas"
S_18583:;
#line 16119 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,(((-(*_FUNC_UDTARRAYINDEXEXPR_LONG_B== 0 ))&(qbs_equal(_FUNC_UDTARRAYINDEXEXPR_STRING_E,qbs_new_txt_len(",",1)))))|(-(*_FUNC_UDTARRAYINDEXEXPR_LONG_I==*_FUNC_UDTARRAYINDEXEXPR_LONG_N))))||is_error_pending()){
#line 16119 "qb64pe.bas"
if(qbevent){evnt(16119);if(r)goto S_18583;}
#line 16120 "qb64pe.bas"
S_18584:;
#line 16120 "qb64pe.bas"
if ((-(*_FUNC_UDTARRAYINDEXEXPR_LONG_I==*_FUNC_UDTARRAYINDEXEXPR_LONG_N))||is_error_pending()){
#line 16120 "qb64pe.bas"
if(qbevent){evnt(16120);if(r)goto S_18584;}
#line 16121 "qb64pe.bas"
do{
#line 16121 "qb64pe.bas"
qbs_set(_FUNC_UDTARRAYINDEXEXPR_STRING_IDX_SRC,FUNC_GETELEMENTS(_FUNC_UDTARRAYINDEXEXPR_STRING_INDEXES,_FUNC_UDTARRAYINDEXEXPR_LONG_FIRSTI,_FUNC_UDTARRAYINDEXEXPR_LONG_I));
#line 16121 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16121 "qb64pe.bas"
if(!qbevent)break;evnt(16121);}while(r);
#line 16122 "qb64pe.bas"
}else{
#line 16123 "qb64pe.bas"
do{
#line 16123 "qb64pe.bas"
qbs_set(_FUNC_UDTARRAYINDEXEXPR_STRING_IDX_SRC,FUNC_GETELEMENTS(_FUNC_UDTARRAYINDEXEXPR_STRING_INDEXES,_FUNC_UDTARRAYINDEXEXPR_LONG_FIRSTI,&(pass2161=*_FUNC_UDTARRAYINDEXEXPR_LONG_I- 1 )));
#line 16123 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16123 "qb64pe.bas"
if(!qbevent)break;evnt(16123);}while(r);
#line 16124 "qb64pe.bas"
}
#line 16125 "qb64pe.bas"
do{
#line 16125 "qb64pe.bas"
qbs_set(_FUNC_UDTARRAYINDEXEXPR_STRING_IDX_SRC,FUNC_EVALUATETOTYP(_FUNC_UDTARRAYINDEXEXPR_STRING_IDX_SRC,&(pass2162= 64 )));
#line 16125 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16125 "qb64pe.bas"
if(!qbevent)break;evnt(16125);}while(r);
#line 16126 "qb64pe.bas"
S_18590:;
#line 16126 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 16126 "qb64pe.bas"
if(qbevent){evnt(16126);if(r)goto S_18590;}
#line 16126 "qb64pe.bas"
do{
#line 16126 "qb64pe.bas"
goto exit_subfunc;
#line 16126 "qb64pe.bas"
if(!qbevent)break;evnt(16126);}while(r);
#line 16126 "qb64pe.bas"
}
#line 16127 "qb64pe.bas"
S_18593:;
#line 16127 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_UDTARRAYINDEXEXPR_STRING_IDX_SRC,qbs_new_txt_len("",0))))||is_error_pending()){
#line 16127 "qb64pe.bas"
if(qbevent){evnt(16127);if(r)goto S_18593;}
#line 16127 "qb64pe.bas"
do{
#line 16127 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Array index missing",19));
#line 16127 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16127 "qb64pe.bas"
if(!qbevent)break;evnt(16127);}while(r);
#line 16127 "qb64pe.bas"
do{
#line 16127 "qb64pe.bas"
goto exit_subfunc;
#line 16127 "qb64pe.bas"
if(!qbevent)break;evnt(16127);}while(r);
#line 16127 "qb64pe.bas"
}
#line 16129 "qb64pe.bas"
do{
#line 16129 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_FOUND_DIMENSIONS=*_FUNC_UDTARRAYINDEXEXPR_LONG_FOUND_DIMENSIONS+ 1 ;
#line 16129 "qb64pe.bas"
if(!qbevent)break;evnt(16129);}while(r);
#line 16130 "qb64pe.bas"
S_18598:;
#line 16130 "qb64pe.bas"
if ((-(*_FUNC_UDTARRAYINDEXEXPR_LONG_FOUND_DIMENSIONS>*_FUNC_UDTARRAYINDEXEXPR_LONG_DIMENSION_COUNT))||is_error_pending()){
#line 16130 "qb64pe.bas"
if(qbevent){evnt(16130);if(r)goto S_18598;}
#line 16130 "qb64pe.bas"
do{
#line 16130 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50));
#line 16130 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16130 "qb64pe.bas"
if(!qbevent)break;evnt(16130);}while(r);
#line 16130 "qb64pe.bas"
do{
#line 16130 "qb64pe.bas"
goto exit_subfunc;
#line 16130 "qb64pe.bas"
if(!qbevent)break;evnt(16130);}while(r);
#line 16130 "qb64pe.bas"
}
#line 16131 "qb64pe.bas"
S_18602:;
#line 16131 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_PARSENEXTUDTARRAYDESCRIPTORDIM(_FUNC_UDTARRAYINDEXEXPR_STRING_DESCRIPTOR,_FUNC_UDTARRAYINDEXEXPR_LONG_DESC_POS,_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_LOWER,_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_ELEMENTS)== 0 )))||is_error_pending()){
#line 16131 "qb64pe.bas"
if(qbevent){evnt(16131);if(r)goto S_18602;}
#line 16131 "qb64pe.bas"
do{
#line 16131 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot process the declared bounds of this TYPE member array",60));
#line 16131 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16131 "qb64pe.bas"
if(!qbevent)break;evnt(16131);}while(r);
#line 16131 "qb64pe.bas"
do{
#line 16131 "qb64pe.bas"
goto exit_subfunc;
#line 16131 "qb64pe.bas"
if(!qbevent)break;evnt(16131);}while(r);
#line 16131 "qb64pe.bas"
}
#line 16133 "qb64pe.bas"
do{
#line 16133 "qb64pe.bas"
qbs_set(_FUNC_UDTARRAYINDEXEXPR_STRING_DIM_LOWER_TXT,qbs_ltrim(qbs_str((int32)(*_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_LOWER))));
#line 16133 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16133 "qb64pe.bas"
if(!qbevent)break;evnt(16133);}while(r);
#line 16134 "qb64pe.bas"
do{
#line 16134 "qb64pe.bas"
qbs_set(_FUNC_UDTARRAYINDEXEXPR_STRING_DIM_ELEMENTS_TXT,qbs_ltrim(qbs_str((int32)(*_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_ELEMENTS))));
#line 16134 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16134 "qb64pe.bas"
if(!qbevent)break;evnt(16134);}while(r);
#line 16135 "qb64pe.bas"
do{
#line 16135 "qb64pe.bas"
qbs_set(_FUNC_UDTARRAYINDEXEXPR_STRING_STRIDE_TXT,qbs_ltrim(qbs_str((int32)(*_FUNC_UDTARRAYINDEXEXPR_LONG_STRIDE))));
#line 16135 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16135 "qb64pe.bas"
if(!qbevent)break;evnt(16135);}while(r);
#line 16137 "qb64pe.bas"
S_18609:;
#line 16137 "qb64pe.bas"
if ((-(*_FUNC_UDTARRAYINDEXEXPR_LONG_FOUND_DIMENSIONS== 1 ))||is_error_pending()){
#line 16137 "qb64pe.bas"
if(qbevent){evnt(16137);if(r)goto S_18609;}
#line 16138 "qb64pe.bas"
S_18610:;
#line 16138 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 16138 "qb64pe.bas"
if(qbevent){evnt(16138);if(r)goto S_18610;}
#line 16139 "qb64pe.bas"
do{
#line 16139 "qb64pe.bas"
qbs_set(_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR,qbs_new_txt_len("array_check((",13)),_FUNC_UDTARRAYINDEXEXPR_STRING_IDX_SRC),qbs_new_txt_len(")-(",3)),_FUNC_UDTARRAYINDEXEXPR_STRING_DIM_LOWER_TXT),qbs_new_txt_len("),",2)),_FUNC_UDTARRAYINDEXEXPR_STRING_DIM_ELEMENTS_TXT),qbs_new_txt_len(")+",2)));
#line 16139 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16139 "qb64pe.bas"
if(!qbevent)break;evnt(16139);}while(r);
#line 16140 "qb64pe.bas"
}else{
#line 16141 "qb64pe.bas"
do{
#line 16141 "qb64pe.bas"
qbs_set(_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR,qbs_new_txt_len("((",2)),_FUNC_UDTARRAYINDEXEXPR_STRING_IDX_SRC),qbs_new_txt_len(")-(",3)),_FUNC_UDTARRAYINDEXEXPR_STRING_DIM_LOWER_TXT),qbs_new_txt_len("))+",3)));
#line 16141 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16141 "qb64pe.bas"
if(!qbevent)break;evnt(16141);}while(r);
#line 16142 "qb64pe.bas"
}
#line 16143 "qb64pe.bas"
}else{
#line 16144 "qb64pe.bas"
S_18616:;
#line 16144 "qb64pe.bas"
if ((*__LONG_CHECKINGON)||is_error_pending()){
#line 16144 "qb64pe.bas"
if(qbevent){evnt(16144);if(r)goto S_18616;}
#line 16145 "qb64pe.bas"
do{
#line 16145 "qb64pe.bas"
qbs_set(_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR,qbs_new_txt_len("array_check((",13)),_FUNC_UDTARRAYINDEXEXPR_STRING_IDX_SRC),qbs_new_txt_len(")-(",3)),_FUNC_UDTARRAYINDEXEXPR_STRING_DIM_LOWER_TXT),qbs_new_txt_len("),",2)),_FUNC_UDTARRAYINDEXEXPR_STRING_DIM_ELEMENTS_TXT),qbs_new_txt_len(")*",2)),_FUNC_UDTARRAYINDEXEXPR_STRING_STRIDE_TXT),qbs_new_txt_len("+",1)));
#line 16145 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16145 "qb64pe.bas"
if(!qbevent)break;evnt(16145);}while(r);
#line 16146 "qb64pe.bas"
}else{
#line 16147 "qb64pe.bas"
do{
#line 16147 "qb64pe.bas"
qbs_set(_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR,qbs_new_txt_len("((",2)),_FUNC_UDTARRAYINDEXEXPR_STRING_IDX_SRC),qbs_new_txt_len(")-(",3)),_FUNC_UDTARRAYINDEXEXPR_STRING_DIM_LOWER_TXT),qbs_new_txt_len("))*",3)),_FUNC_UDTARRAYINDEXEXPR_STRING_STRIDE_TXT),qbs_new_txt_len("+",1)));
#line 16147 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16147 "qb64pe.bas"
if(!qbevent)break;evnt(16147);}while(r);
#line 16148 "qb64pe.bas"
}
#line 16149 "qb64pe.bas"
}
#line 16151 "qb64pe.bas"
do{
#line 16151 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_STRIDE=*_FUNC_UDTARRAYINDEXEXPR_LONG_STRIDE**_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_ELEMENTS;
#line 16151 "qb64pe.bas"
if(!qbevent)break;evnt(16151);}while(r);
#line 16152 "qb64pe.bas"
do{
#line 16152 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_FIRSTI=*_FUNC_UDTARRAYINDEXEXPR_LONG_I+ 1 ;
#line 16152 "qb64pe.bas"
if(!qbevent)break;evnt(16152);}while(r);
#line 16153 "qb64pe.bas"
}
#line 16154 "qb64pe.bas"
fornext_continue_2159:;
#line 16154 "qb64pe.bas"
}
#line 16154 "qb64pe.bas"
fornext_exit_2159:;
#line 16156 "qb64pe.bas"
S_18626:;
#line 16156 "qb64pe.bas"
if ((-(*_FUNC_UDTARRAYINDEXEXPR_LONG_FOUND_DIMENSIONS!=*_FUNC_UDTARRAYINDEXEXPR_LONG_DIMENSION_COUNT))||is_error_pending()){
#line 16156 "qb64pe.bas"
if(qbevent){evnt(16156);if(r)goto S_18626;}
#line 16156 "qb64pe.bas"
do{
#line 16156 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50));
#line 16156 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16156 "qb64pe.bas"
if(!qbevent)break;evnt(16156);}while(r);
#line 16156 "qb64pe.bas"
do{
#line 16156 "qb64pe.bas"
goto exit_subfunc;
#line 16156 "qb64pe.bas"
if(!qbevent)break;evnt(16156);}while(r);
#line 16156 "qb64pe.bas"
}
#line 16157 "qb64pe.bas"
S_18630:;
#line 16157 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_PARSENEXTUDTARRAYDESCRIPTORDIM(_FUNC_UDTARRAYINDEXEXPR_STRING_DESCRIPTOR,_FUNC_UDTARRAYINDEXEXPR_LONG_DESC_POS,_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_LOWER,_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_ELEMENTS)))||is_error_pending()){
#line 16157 "qb64pe.bas"
if(qbevent){evnt(16157);if(r)goto S_18630;}
#line 16157 "qb64pe.bas"
do{
#line 16157 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50));
#line 16157 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16157 "qb64pe.bas"
if(!qbevent)break;evnt(16157);}while(r);
#line 16157 "qb64pe.bas"
do{
#line 16157 "qb64pe.bas"
goto exit_subfunc;
#line 16157 "qb64pe.bas"
if(!qbevent)break;evnt(16157);}while(r);
#line 16157 "qb64pe.bas"
}
#line 16158 "qb64pe.bas"
S_18634:;
#line 16158 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR,qbs_new_txt_len("",0))))||is_error_pending()){
#line 16158 "qb64pe.bas"
if(qbevent){evnt(16158);if(r)goto S_18634;}
#line 16158 "qb64pe.bas"
do{
#line 16158 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Array index missing",19));
#line 16158 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16158 "qb64pe.bas"
if(!qbevent)break;evnt(16158);}while(r);
#line 16158 "qb64pe.bas"
do{
#line 16158 "qb64pe.bas"
goto exit_subfunc;
#line 16158 "qb64pe.bas"
if(!qbevent)break;evnt(16158);}while(r);
#line 16158 "qb64pe.bas"
}
#line 16160 "qb64pe.bas"
do{
#line 16160 "qb64pe.bas"
qbs_set(_FUNC_UDTARRAYINDEXEXPR_STRING_UDTARRAYINDEXEXPR,qbs_left(_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR,_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR->len- 1 ));
#line 16160 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16160 "qb64pe.bas"
if(!qbevent)break;evnt(16160);}while(r);
#line 16161 "qb64pe.bas"
exit_subfunc:;
#line 16161 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 16161 "qb64pe.bas"
#include "free28.txt"
#line 16161 "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 16161 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 16161 "qb64pe.bas"
qbs_maketmp(_FUNC_UDTARRAYINDEXEXPR_STRING_UDTARRAYINDEXEXPR);return _FUNC_UDTARRAYINDEXEXPR_STRING_UDTARRAYINDEXEXPR;
#line 16161 "qb64pe.bas"
}
