qbs *_FUNC_UDTARRAYINDEXEXPR_STRING_UDTARRAYINDEXEXPR=NULL;
#line 16101 "qb64pe.bas"
if (!_FUNC_UDTARRAYINDEXEXPR_STRING_UDTARRAYINDEXEXPR)_FUNC_UDTARRAYINDEXEXPR_STRING_UDTARRAYINDEXEXPR=qbs_new(0,0);
#line 16101 "qb64pe.bas"
qbs*oldstr2157=NULL;
#line 16101 "qb64pe.bas"
if(_FUNC_UDTARRAYINDEXEXPR_STRING_INDEXES->tmp||_FUNC_UDTARRAYINDEXEXPR_STRING_INDEXES->fixed||_FUNC_UDTARRAYINDEXEXPR_STRING_INDEXES->readonly){
#line 16101 "qb64pe.bas"
oldstr2157=_FUNC_UDTARRAYINDEXEXPR_STRING_INDEXES;
#line 16101 "qb64pe.bas"
if (oldstr2157->cmem_descriptor){
#line 16101 "qb64pe.bas"
_FUNC_UDTARRAYINDEXEXPR_STRING_INDEXES=qbs_new_cmem(oldstr2157->len,0);
#line 16101 "qb64pe.bas"
}else{
#line 16101 "qb64pe.bas"
_FUNC_UDTARRAYINDEXEXPR_STRING_INDEXES=qbs_new(oldstr2157->len,0);
#line 16101 "qb64pe.bas"
}
#line 16101 "qb64pe.bas"
memcpy(_FUNC_UDTARRAYINDEXEXPR_STRING_INDEXES->chr,oldstr2157->chr,oldstr2157->len);
#line 16101 "qb64pe.bas"
}
#line 16101 "qb64pe.bas"
qbs*oldstr2158=NULL;
#line 16101 "qb64pe.bas"
if(_FUNC_UDTARRAYINDEXEXPR_STRING_DESCRIPTOR->tmp||_FUNC_UDTARRAYINDEXEXPR_STRING_DESCRIPTOR->fixed||_FUNC_UDTARRAYINDEXEXPR_STRING_DESCRIPTOR->readonly){
#line 16101 "qb64pe.bas"
oldstr2158=_FUNC_UDTARRAYINDEXEXPR_STRING_DESCRIPTOR;
#line 16101 "qb64pe.bas"
if (oldstr2158->cmem_descriptor){
#line 16101 "qb64pe.bas"
_FUNC_UDTARRAYINDEXEXPR_STRING_DESCRIPTOR=qbs_new_cmem(oldstr2158->len,0);
#line 16101 "qb64pe.bas"
}else{
#line 16101 "qb64pe.bas"
_FUNC_UDTARRAYINDEXEXPR_STRING_DESCRIPTOR=qbs_new(oldstr2158->len,0);
#line 16101 "qb64pe.bas"
}
#line 16101 "qb64pe.bas"
memcpy(_FUNC_UDTARRAYINDEXEXPR_STRING_DESCRIPTOR->chr,oldstr2158->chr,oldstr2158->len);
#line 16101 "qb64pe.bas"
}
qbs *_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR=NULL;
#line 16102 "qb64pe.bas"
if (!_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR)_FUNC_UDTARRAYINDEXEXPR_STRING_RESULT_EXPR=qbs_new(0,0);
int32 *_FUNC_UDTARRAYINDEXEXPR_LONG_N=NULL;
#line 16104 "qb64pe.bas"
if(_FUNC_UDTARRAYINDEXEXPR_LONG_N==NULL){
#line 16104 "qb64pe.bas"
_FUNC_UDTARRAYINDEXEXPR_LONG_N=(int32*)mem_static_malloc(4);
#line 16104 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_N=0;
#line 16104 "qb64pe.bas"
}
int32 *_FUNC_UDTARRAYINDEXEXPR_LONG_STRIDE=NULL;
#line 16109 "qb64pe.bas"
if(_FUNC_UDTARRAYINDEXEXPR_LONG_STRIDE==NULL){
#line 16109 "qb64pe.bas"
_FUNC_UDTARRAYINDEXEXPR_LONG_STRIDE=(int32*)mem_static_malloc(4);
#line 16109 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_STRIDE=0;
#line 16109 "qb64pe.bas"
}
int32 *_FUNC_UDTARRAYINDEXEXPR_LONG_DESC_POS=NULL;
#line 16110 "qb64pe.bas"
if(_FUNC_UDTARRAYINDEXEXPR_LONG_DESC_POS==NULL){
#line 16110 "qb64pe.bas"
_FUNC_UDTARRAYINDEXEXPR_LONG_DESC_POS=(int32*)mem_static_malloc(4);
#line 16110 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_DESC_POS=0;
#line 16110 "qb64pe.bas"
}
int32 *_FUNC_UDTARRAYINDEXEXPR_LONG_FOUND_DIMENSIONS=NULL;
#line 16111 "qb64pe.bas"
if(_FUNC_UDTARRAYINDEXEXPR_LONG_FOUND_DIMENSIONS==NULL){
#line 16111 "qb64pe.bas"
_FUNC_UDTARRAYINDEXEXPR_LONG_FOUND_DIMENSIONS=(int32*)mem_static_malloc(4);
#line 16111 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_FOUND_DIMENSIONS=0;
#line 16111 "qb64pe.bas"
}
int32 *_FUNC_UDTARRAYINDEXEXPR_LONG_B=NULL;
#line 16112 "qb64pe.bas"
if(_FUNC_UDTARRAYINDEXEXPR_LONG_B==NULL){
#line 16112 "qb64pe.bas"
_FUNC_UDTARRAYINDEXEXPR_LONG_B=(int32*)mem_static_malloc(4);
#line 16112 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_B=0;
#line 16112 "qb64pe.bas"
}
int32 *_FUNC_UDTARRAYINDEXEXPR_LONG_FIRSTI=NULL;
#line 16113 "qb64pe.bas"
if(_FUNC_UDTARRAYINDEXEXPR_LONG_FIRSTI==NULL){
#line 16113 "qb64pe.bas"
_FUNC_UDTARRAYINDEXEXPR_LONG_FIRSTI=(int32*)mem_static_malloc(4);
#line 16113 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_FIRSTI=0;
#line 16113 "qb64pe.bas"
}
int32 *_FUNC_UDTARRAYINDEXEXPR_LONG_I=NULL;
#line 16115 "qb64pe.bas"
if(_FUNC_UDTARRAYINDEXEXPR_LONG_I==NULL){
#line 16115 "qb64pe.bas"
_FUNC_UDTARRAYINDEXEXPR_LONG_I=(int32*)mem_static_malloc(4);
#line 16115 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_I=0;
#line 16115 "qb64pe.bas"
}
#line 16115 "qb64pe.bas"
int64 fornext_value2160;
#line 16115 "qb64pe.bas"
int64 fornext_finalvalue2160;
#line 16115 "qb64pe.bas"
int64 fornext_step2160;
#line 16115 "qb64pe.bas"
uint8 fornext_step_negative2160;
qbs *_FUNC_UDTARRAYINDEXEXPR_STRING_E=NULL;
#line 16116 "qb64pe.bas"
if (!_FUNC_UDTARRAYINDEXEXPR_STRING_E)_FUNC_UDTARRAYINDEXEXPR_STRING_E=qbs_new(0,0);
qbs *_FUNC_UDTARRAYINDEXEXPR_STRING_IDX_SRC=NULL;
#line 16121 "qb64pe.bas"
if (!_FUNC_UDTARRAYINDEXEXPR_STRING_IDX_SRC)_FUNC_UDTARRAYINDEXEXPR_STRING_IDX_SRC=qbs_new(0,0);
#line 16123 "qb64pe.bas"
int32 pass2161;
#line 16125 "qb64pe.bas"
int32 pass2162;
int32 *_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_LOWER=NULL;
#line 16131 "qb64pe.bas"
if(_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_LOWER==NULL){
#line 16131 "qb64pe.bas"
_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_LOWER=(int32*)mem_static_malloc(4);
#line 16131 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_LOWER=0;
#line 16131 "qb64pe.bas"
}
int32 *_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_ELEMENTS=NULL;
#line 16131 "qb64pe.bas"
if(_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_ELEMENTS==NULL){
#line 16131 "qb64pe.bas"
_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_ELEMENTS=(int32*)mem_static_malloc(4);
#line 16131 "qb64pe.bas"
*_FUNC_UDTARRAYINDEXEXPR_LONG_DIM_ELEMENTS=0;
#line 16131 "qb64pe.bas"
}
qbs *_FUNC_UDTARRAYINDEXEXPR_STRING_DIM_LOWER_TXT=NULL;
#line 16133 "qb64pe.bas"
if (!_FUNC_UDTARRAYINDEXEXPR_STRING_DIM_LOWER_TXT)_FUNC_UDTARRAYINDEXEXPR_STRING_DIM_LOWER_TXT=qbs_new(0,0);
qbs *_FUNC_UDTARRAYINDEXEXPR_STRING_DIM_ELEMENTS_TXT=NULL;
#line 16134 "qb64pe.bas"
if (!_FUNC_UDTARRAYINDEXEXPR_STRING_DIM_ELEMENTS_TXT)_FUNC_UDTARRAYINDEXEXPR_STRING_DIM_ELEMENTS_TXT=qbs_new(0,0);
qbs *_FUNC_UDTARRAYINDEXEXPR_STRING_STRIDE_TXT=NULL;
#line 16135 "qb64pe.bas"
if (!_FUNC_UDTARRAYINDEXEXPR_STRING_STRIDE_TXT)_FUNC_UDTARRAYINDEXEXPR_STRING_STRIDE_TXT=qbs_new(0,0);
#line 16160 "qb64pe.bas"
byte_element_struct *byte_element_2163=NULL;
#line 16160 "qb64pe.bas"
if (!byte_element_2163){
#line 16160 "qb64pe.bas"
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2163=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2163=(byte_element_struct*)mem_static_malloc(12);
#line 16160 "qb64pe.bas"
}
