int32 FUNC_ALLOCARRAY(qbs*_FUNC_ALLOCARRAY_STRING_N2,qbs*_FUNC_ALLOCARRAY_STRING_ELEMENTS,int32*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE,int32*_FUNC_ALLOCARRAY_LONG_UDT){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data10.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
*_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST=*__INTEGER_DIMSHARED;
if(!qbevent)break;evnt(14602);}while(r);
do{
*__INTEGER_DIMSHARED= 0 ;
if(!qbevent)break;evnt(14602);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_DYNARRMODE=*__LONG_UDT_ALLOC_DYNMODE;
if(!qbevent)break;evnt(14603);}while(r);
S_17219:;
if ((-(*__LONG_AUTOARRAY== 1 ))||is_error_pending()){
if(qbevent){evnt(14605);if(r)goto S_17219;}
do{
*__LONG_AUTOARRAY= 0 ;
if(!qbevent)break;evnt(14605);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_AUTOARY= 1 ;
if(!qbevent)break;evnt(14605);}while(r);
}
do{
*_FUNC_ALLOCARRAY_INTEGER_F12BUF=FUNC_CREATEBUF();
if(!qbevent)break;evnt(14607);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_STRING_ELEMENTS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14612);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_STRING_N2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14612);}while(r);
S_17226:;
if ((-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE== -2147483647 ))||is_error_pending()){
if(qbevent){evnt(14613);if(r)goto S_17226;}
do{
*_FUNC_ALLOCARRAY_LONG_STRINGARRAY= 1 ;
if(!qbevent)break;evnt(14613);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE= 8 ;
if(!qbevent)break;evnt(14613);}while(r);
}
S_17230:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ALLOCARRAY_STRING_E)== 63 )))||is_error_pending()){
if(qbevent){evnt(14615);if(r)goto S_17230;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP2),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14616);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_UNDEFINED= -1 ;
if(!qbevent)break;evnt(14617);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_NUME= 1 ;
if(!qbevent)break;evnt(14618);}while(r);
S_17234:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ALLOCARRAY_STRING_E->len== 1 )))||is_error_pending()){
if(qbevent){evnt(14619);if(r)goto S_17234;}
do{
goto LABEL_UNDEFINEDARRAY;
if(!qbevent)break;evnt(14619);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_UNDEFINED= 1 ;
if(!qbevent)break;evnt(14620);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_NUME=qbr(qbs_val<long double>(qbs_right(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_STRING_E->len- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14621);}while(r);
do{
goto LABEL_UNDEFINEDARRAY;
if(!qbevent)break;evnt(14622);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_NUME= 1 ;
if(!qbevent)break;evnt(14627);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_N=FUNC_NUMELEMENTS(_FUNC_ALLOCARRAY_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14628);}while(r);
S_17243:;
fornext_value2541= 1 ;
fornext_finalvalue2541=*_FUNC_ALLOCARRAY_LONG_N;
fornext_step2541= 1 ;
if (fornext_step2541<0) fornext_step_negative2541=1; else fornext_step_negative2541=0;
if (is_error_pending()) goto fornext_error2541;
goto fornext_entrylabel2541;
while(1){
fornext_value2541=fornext_step2541+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2541:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2541;
if (fornext_step_negative2541){
if (fornext_value2541<fornext_finalvalue2541) break;
}else{
if (fornext_value2541>fornext_finalvalue2541) break;
}
fornext_error2541:;
if(qbevent){evnt(14629);if(r)goto S_17243;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E2,FUNC_GETELEMENT(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14630);}while(r);
S_17245:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(14631);if(r)goto S_17245;}
do{
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B+ 1 ;
if(!qbevent)break;evnt(14631);}while(r);
}
S_17248:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_ALLOCARRAY_LONG_B== 0 ))&(qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(14632);if(r)goto S_17248;}
do{
*_FUNC_ALLOCARRAY_LONG_NUME=*_FUNC_ALLOCARRAY_LONG_NUME+ 1 ;
if(!qbevent)break;evnt(14632);}while(r);
}
S_17251:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(14633);if(r)goto S_17251;}
do{
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B- 1 ;
if(!qbevent)break;evnt(14633);}while(r);
}
fornext_continue_2540:;
}
fornext_exit_2540:;
S_17255:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(14635);if(r)goto S_17255;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2542;
sub_file_print(tmp_fileno,qbs_new_txt_len("numelements count:",18), 0, 0, 0);
if (is_error_pending()) goto skip2542;
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_ALLOCARRAY_LONG_NUME)), 1, 0, 1);
if (is_error_pending()) goto skip2542;
skip2542:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14635);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_DESCSTATIC= 0 ;
if(!qbevent)break;evnt(14637);}while(r);
S_17259:;
if ((*__LONG_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(14638);if(r)goto S_17259;}
S_17260:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))!=*_FUNC_ALLOCARRAY_LONG_NUME))||is_error_pending()){
if(qbevent){evnt(14639);if(r)goto S_17260;}
S_17261:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))== -1 ))||is_error_pending()){
if(qbevent){evnt(14641);if(r)goto S_17261;}
S_17262:;
if (((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))&(-(*_FUNC_ALLOCARRAY_LONG_NUME!=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])])))||is_error_pending()){
if(qbevent){evnt(14642);if(r)goto S_17262;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14642);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14642);}while(r);
}
S_17266:;
if ((-(*_FUNC_ALLOCARRAY_LONG_NUME== 1 ))||is_error_pending()){
if(qbevent){evnt(14643);if(r)goto S_17266;}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))= 1 ;
if(!qbevent)break;evnt(14643);}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+516)))= 1 ;
if(!qbevent)break;evnt(14643);}while(r);
}
do{
tmp_long=array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]);
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]=*_FUNC_ALLOCARRAY_LONG_NUME;
if(!qbevent)break;evnt(14644);}while(r);
}else{
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14646);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14646);}while(r);
}
}
S_17276:;
if ((*(int16*)(((char*)__UDT_ID)+((0+518))))||is_error_pending()){
if(qbevent){evnt(14650);if(r)goto S_17276;}
do{
*_FUNC_ALLOCARRAY_LONG_DESCSTATIC= 1 ;
if(!qbevent)break;evnt(14650);}while(r);
}
}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_new_txt_len("(",1),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14653);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_CR,qbs_add(func_chr( 13 ),func_chr( 10 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14655);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14656);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 1 ;
if(!qbevent)break;evnt(14657);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_EI=( 4 )+(*_FUNC_ALLOCARRAY_LONG_NUME* 4 )-( 4 );
if(!qbevent)break;evnt(14658);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_CURE= 1 ;
if(!qbevent)break;evnt(14659);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14660);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14660);}while(r);
S_17288:;
fornext_value2544= 1 ;
fornext_finalvalue2544=*_FUNC_ALLOCARRAY_LONG_N;
fornext_step2544= 1 ;
if (fornext_step2544<0) fornext_step_negative2544=1; else fornext_step_negative2544=0;
if (is_error_pending()) goto fornext_error2544;
goto fornext_entrylabel2544;
while(1){
fornext_value2544=fornext_step2544+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2544:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2544;
if (fornext_step_negative2544){
if (fornext_value2544<fornext_finalvalue2544) break;
}else{
if (fornext_value2544>fornext_finalvalue2544) break;
}
fornext_error2544:;
if(qbevent){evnt(14661);if(r)goto S_17288;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E2,FUNC_GETELEMENT(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14662);}while(r);
S_17290:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(14663);if(r)goto S_17290;}
do{
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B+ 1 ;
if(!qbevent)break;evnt(14663);}while(r);
}
S_17293:;
if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(",",1)))&(-(*_FUNC_ALLOCARRAY_LONG_B== 0 ))))|(-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))))||is_error_pending()){
if(qbevent){evnt(14664);if(r)goto S_17293;}
S_17294:;
if ((-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))||is_error_pending()){
if(qbevent){evnt(14665);if(r)goto S_17294;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_E3,__STRING1_SP),_FUNC_ALLOCARRAY_STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14665);}while(r);
}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_right(_FUNC_ALLOCARRAY_STRING_E3,_FUNC_ALLOCARRAY_STRING_E3->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14666);}while(r);
S_17298:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(14667);if(r)goto S_17298;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_right(_FUNC_ALLOCARRAY_STRING_E3BASE,_FUNC_ALLOCARRAY_STRING_E3BASE->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14667);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_BASEGIVEN= 1 ;
if(!qbevent)break;evnt(14671);}while(r);
S_17302:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(14672);if(r)goto S_17302;}
S_17303:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_ALLOCARRAY_STRING_E3)),qbs_new_txt_len("0",1))))||is_error_pending()){
if(qbevent){evnt(14676);if(r)goto S_17303;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14677);}while(r);
}else{
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs__tostr((int64)(*__INTEGER_OPTIONBASE+ 0 ),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14679);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_BASEGIVEN= 0 ;
if(!qbevent)break;evnt(14681);}while(r);
}
do{
*__INTEGER_CONSTEQUATION= 1 ;
if(!qbevent)break;evnt(14683);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_FIXOPERATIONORDER(_FUNC_ALLOCARRAY_STRING_E3BASE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14685);}while(r);
S_17312:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14686);if(r)goto S_17312;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14686);}while(r);
}
S_17315:;
if ((*_FUNC_ALLOCARRAY_LONG_BASEGIVEN)||is_error_pending()){
if(qbevent){evnt(14687);if(r)goto S_17315;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("To",2))),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14687);}while(r);
}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3BASE,&(pass2547= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14688);}while(r);
S_17319:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14689);if(r)goto S_17319;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14689);}while(r);
}
S_17322:;
if ((-(*__INTEGER_CONSTEQUATION== 0 ))||is_error_pending()){
if(qbevent){evnt(14691);if(r)goto S_17322;}
do{
*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 0 ;
if(!qbevent)break;evnt(14691);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_LOWER_BOUND_IS_CONST=*__INTEGER_CONSTEQUATION;
if(!qbevent)break;evnt(14692);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_EI),NULL,0)),qbs_new_txt_len("]=",2)),_FUNC_ALLOCARRAY_STRING_E3BASE),qbs_new_txt_len(";",1)),_FUNC_ALLOCARRAY_STRING_CR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14693);}while(r);
do{
*__INTEGER_CONSTEQUATION= 1 ;
if(!qbevent)break;evnt(14695);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,FUNC_FIXOPERATIONORDER(_FUNC_ALLOCARRAY_STRING_E3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14697);}while(r);
S_17329:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14698);if(r)goto S_17329;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14698);}while(r);
}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,__STRING_TLAYOUT),__STRING1_SP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14699);}while(r);
S_17333:;
if ((-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))||is_error_pending()){
if(qbevent){evnt(14700);if(r)goto S_17333;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(_FUNC_ALLOCARRAY_STRING_L,qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14700);}while(r);
}else{
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,qbs_new_txt_len(",",1)),__STRING1_SP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14700);}while(r);
}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3,&(pass2548= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14701);}while(r);
S_17339:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14702);if(r)goto S_17339;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14702);}while(r);
}
S_17342:;
if ((-(*__INTEGER_CONSTEQUATION== 0 ))||is_error_pending()){
if(qbevent){evnt(14704);if(r)goto S_17342;}
do{
*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 0 ;
if(!qbevent)break;evnt(14704);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_UPPER_BOUND_IS_CONST=*__INTEGER_CONSTEQUATION;
if(!qbevent)break;evnt(14705);}while(r);
S_17346:;
if ((*_FUNC_ALLOCARRAY_LONG_UPPER_BOUND_IS_CONST)||is_error_pending()){
if(qbevent){evnt(14709);if(r)goto S_17346;}
S_17347:;
if ((*_FUNC_ALLOCARRAY_LONG_BASEGIVEN)||is_error_pending()){
if(qbevent){evnt(14710);if(r)goto S_17347;}
S_17348:;
if ((*_FUNC_ALLOCARRAY_LONG_LOWER_BOUND_IS_CONST)||is_error_pending()){
if(qbevent){evnt(14711);if(r)goto S_17348;}
S_17349:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(_FUNC_ALLOCARRAY_STRING_E3)<qbs_val<long double>(_FUNC_ALLOCARRAY_STRING_E3BASE))))||is_error_pending()){
if(qbevent){evnt(14712);if(r)goto S_17349;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid array bounds",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14712);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14712);}while(r);
}
}
}else{
S_17355:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(_FUNC_ALLOCARRAY_STRING_E3)< 0 )))||is_error_pending()){
if(qbevent){evnt(14715);if(r)goto S_17355;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid array bounds",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14715);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14715);}while(r);
}
}
}
do{
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ;
if(!qbevent)break;evnt(14719);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_EI),NULL,0)),qbs_new_txt_len("]=(",3)),_FUNC_ALLOCARRAY_STRING_E3),qbs_new_txt_len(")-",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_EI- 1 ),NULL,0)),qbs_new_txt_len("]+1;",4)),_FUNC_ALLOCARRAY_STRING_CR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14720);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_EI),NULL,0)),qbs_new_txt_len("]<=0) error(5);",15)),_FUNC_ALLOCARRAY_STRING_CR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14721);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ;
if(!qbevent)break;evnt(14722);}while(r);
S_17365:;
if ((-(*_FUNC_ALLOCARRAY_LONG_CURE== 1 ))||is_error_pending()){
if(qbevent){evnt(14724);if(r)goto S_17365;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_EI),NULL,0)),qbs_new_txt_len("]=1;",4)),_FUNC_ALLOCARRAY_STRING_CR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14726);}while(r);
}else{
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_EI),NULL,0)),qbs_new_txt_len("]=",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_EI+ 4 ),NULL,0)),qbs_new_txt_len("]*",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_EI+ 3 ),NULL,0)),qbs_new_txt_len("];",2)),_FUNC_ALLOCARRAY_STRING_CR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14728);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ;
if(!qbevent)break;evnt(14730);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ;
if(!qbevent)break;evnt(14731);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI- 8 ;
if(!qbevent)break;evnt(14732);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_CURE=*_FUNC_ALLOCARRAY_LONG_CURE+ 1 ;
if(!qbevent)break;evnt(14733);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14734);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14734);}while(r);
do{
goto LABEL_AANEXTE;
if(!qbevent)break;evnt(14735);}while(r);
}
S_17378:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(14737);if(r)goto S_17378;}
do{
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B- 1 ;
if(!qbevent)break;evnt(14737);}while(r);
}
S_17381:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(_FUNC_ALLOCARRAY_STRING_E2),qbs_new_txt_len("TO",2)))&(-(*_FUNC_ALLOCARRAY_LONG_B== 0 ))))||is_error_pending()){
if(qbevent){evnt(14738);if(r)goto S_17381;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,_FUNC_ALLOCARRAY_STRING_E3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14739);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14740);}while(r);
}else{
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_E3,__STRING1_SP),_FUNC_ALLOCARRAY_STRING_E2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14742);}while(r);
}
LABEL_AANEXTE:;
if(qbevent){evnt(14744);r=0;}
fornext_continue_2543:;
}
fornext_exit_2543:;
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_left(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_SD->len- 2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14746);}while(r);
LABEL_UNDEFINEDARRAY:;
if(qbevent){evnt(14748);r=0;}
do{
*_FUNC_ALLOCARRAY_LONG_CMEM= 0 ;
if(!qbevent)break;evnt(14751);}while(r);
S_17390:;
if ((-(*__LONG_ARRAYDESC== 0 ))||is_error_pending()){
if(qbevent){evnt(14752);if(r)goto S_17390;}
S_17391:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(14753);if(r)goto S_17391;}
do{
*_FUNC_ALLOCARRAY_LONG_CMEM= 1 ;
if(!qbevent)break;evnt(14753);}while(r);
}
}else{
S_17395:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_ARRAYDESC)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(14755);if(r)goto S_17395;}
do{
*_FUNC_ALLOCARRAY_LONG_CMEM= 1 ;
if(!qbevent)break;evnt(14755);}while(r);
}
}
do{
*_FUNC_ALLOCARRAY_LONG_STATICARRAY=*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS;
if(!qbevent)break;evnt(14758);}while(r);
S_17400:;
if (((-(*__LONG_SUBFUNCN!= 0 ))&(-(*__LONG_DIMSTATIC== 0 )))||is_error_pending()){
if(qbevent){evnt(14759);if(r)goto S_17400;}
do{
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
if(!qbevent)break;evnt(14759);}while(r);
}
S_17403:;
if ((-(*__LONG_DIMSTATIC== 3 ))||is_error_pending()){
if(qbevent){evnt(14760);if(r)goto S_17403;}
do{
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
if(!qbevent)break;evnt(14760);}while(r);
}
S_17406:;
if ((*__INTEGER_DYNAMICMODE)||is_error_pending()){
if(qbevent){evnt(14761);if(r)goto S_17406;}
do{
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
if(!qbevent)break;evnt(14761);}while(r);
}
S_17409:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(14762);if(r)goto S_17409;}
do{
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
if(!qbevent)break;evnt(14762);}while(r);
}
S_17412:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(14763);if(r)goto S_17412;}
do{
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
if(!qbevent)break;evnt(14763);}while(r);
}
S_17415:;
if ((*__LONG_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(14765);if(r)goto S_17415;}
S_17416:;
if ((-(*_FUNC_ALLOCARRAY_LONG_STATICARRAY== 1 ))||is_error_pending()){
if(qbevent){evnt(14766);if(r)goto S_17416;}
S_17417:;
if ((*_FUNC_ALLOCARRAY_LONG_DESCSTATIC)||is_error_pending()){
if(qbevent){evnt(14767);if(r)goto S_17417;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot redefine a static array!",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14767);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14767);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
if(!qbevent)break;evnt(14768);}while(r);
}
}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14777);}while(r);
S_17425:;
if ((-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE< 0 ))||is_error_pending()){
if(qbevent){evnt(14778);if(r)goto S_17425;}
do{
*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE=-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE);
if(!qbevent)break;evnt(14779);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,qbs_add(qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE),NULL,0),qbs_new_txt_len("/8+1",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14780);}while(r);
}
S_17429:;
if ((-(*__LONG_ARRAYDESC== 0 ))||is_error_pending()){
if(qbevent){evnt(14785);if(r)goto S_17429;}
do{
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("ptrszint *",10),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("=NULL;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14786);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2550=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14787);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2551=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("=(ptrszint*)mem_static_malloc(",30)),qbs__tostr((int64)(( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )),NULL,0)),qbs_new_txt_len("*ptrsz);",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14788);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2552=*__LONG_DATATXTBUF),qbs_new_txt_len("new_mem_lock();",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14790);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2553=*__LONG_DATATXTBUF),qbs_new_txt_len("mem_lock_tmp->type=4;",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14791);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2554=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((ptrszint*)",12),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),qbs__tostr((int64)(( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )),NULL,0)),qbs_new_txt_len("]=(ptrszint)mem_lock_tmp;",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14792);}while(r);
}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14796);}while(r);
S_17438:;
fornext_value2556= 1 ;
fornext_finalvalue2556=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2556= 1 ;
if (fornext_step2556<0) fornext_step_negative2556=1; else fornext_step_negative2556=0;
if (is_error_pending()) goto fornext_error2556;
goto fornext_entrylabel2556;
while(1){
fornext_value2556=fornext_step2556+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2556:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2556;
if (fornext_step_negative2556){
if (fornext_value2556<fornext_finalvalue2556) break;
}else{
if (fornext_value2556>fornext_finalvalue2556) break;
}
fornext_error2556:;
if(qbevent){evnt(14797);if(r)goto S_17438;}
S_17439:;
if ((-(*_FUNC_ALLOCARRAY_LONG_I!= 1 ))||is_error_pending()){
if(qbevent){evnt(14798);if(r)goto S_17439;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("*",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14798);}while(r);
}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int64)((*_FUNC_ALLOCARRAY_LONG_I* 4 )-( 4 )+( 5 )),NULL,0)),qbs_new_txt_len("]",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14799);}while(r);
fornext_continue_2555:;
}
fornext_exit_2555:;
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ELESIZESTR,_FUNC_ALLOCARRAY_STRING_SIZESTR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14801);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("*",1)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14802);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_NEWSD,FUNC_STRREPLACE(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),qbs_new_txt_len("alloc_new_desc[",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14807);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_NEWELESIZESTR,FUNC_STRREPLACE(_FUNC_ALLOCARRAY_STRING_ELESIZESTR,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),qbs_new_txt_len("alloc_new_desc[",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14808);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_NEWSIZESTR,FUNC_STRREPLACE(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),qbs_new_txt_len("alloc_new_desc[",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14809);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_COMMITDESC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14810);}while(r);
S_17450:;
fornext_value2558= 4 ;
fornext_finalvalue2558=( 4 )+(*_FUNC_ALLOCARRAY_LONG_NUME* 4 )-( 1 );
fornext_step2558= 1 ;
if (fornext_step2558<0) fornext_step_negative2558=1; else fornext_step_negative2558=0;
if (is_error_pending()) goto fornext_error2558;
goto fornext_entrylabel2558;
while(1){
fornext_value2558=fornext_step2558+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2558:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2558;
if (fornext_step_negative2558){
if (fornext_value2558<fornext_finalvalue2558) break;
}else{
if (fornext_value2558>fornext_finalvalue2558) break;
}
fornext_error2558:;
if(qbevent){evnt(14811);if(r)goto S_17450;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_COMMITDESC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_COMMITDESC,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_I),NULL,0)),qbs_new_txt_len("]=alloc_new_desc[",17)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_I),NULL,0)),qbs_new_txt_len("];",2)),_FUNC_ALLOCARRAY_STRING_CR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14812);}while(r);
fornext_continue_2557:;
}
fornext_exit_2557:;
S_17453:;
if ((qbs_cleanup(qbs_tmp_base,_FUNC_ALLOCARRAY_STRING_COMMITDESC->len))||is_error_pending()){
if(qbevent){evnt(14814);if(r)goto S_17453;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_COMMITDESC,qbs_left(_FUNC_ALLOCARRAY_STRING_COMMITDESC,_FUNC_ALLOCARRAY_STRING_COMMITDESC->len- 2 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14814);}while(r);
}
S_17456:;
if ((*_FUNC_ALLOCARRAY_LONG_STATICARRAY)||is_error_pending()){
if(qbevent){evnt(14819);if(r)goto S_17456;}
do{
SUB_WRITEBUFLINE(&(pass2561=*__LONG_DATATXTBUF),_FUNC_ALLOCARRAY_STRING_SD);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14821);}while(r);
S_17458:;
if ((*_FUNC_ALLOCARRAY_LONG_CMEM&(-(*_FUNC_ALLOCARRAY_LONG_STRINGARRAY== 0 )))||is_error_pending()){
if(qbevent){evnt(14826);if(r)goto S_17458;}
do{
SUB_WRITEBUFLINE(&(pass2562=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)cmem_static_pointer;",34)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14829);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2563=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ((cmem_static_pointer+=((",28),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(")+15)&-16)>cmem_dynamic_base) error(257);",41)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14831);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2564=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ((",5),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(")>65536) error(257);",20)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14833);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2565=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),0,",7)),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14835);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2566=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=1+2+4;",10)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14837);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass2567=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)mem_static_malloc(",32)),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14840);}while(r);
S_17466:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
if(qbevent){evnt(14841);if(r)goto S_17466;}
do{
SUB_WRITEBUFLINE(&(pass2568=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14843);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2569=*__LONG_DATATXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14844);}while(r);
S_17469:;
if ((*_FUNC_ALLOCARRAY_LONG_CMEM)||is_error_pending()){
if(qbevent){evnt(14845);if(r)goto S_17469;}
do{
SUB_WRITEBUFLINE(&(pass2570=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("((uint64*)(",11),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);",42)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14846);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass2571=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("((uint64*)(",11),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=(uint64)qbs_new(0,0);",37)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14848);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2572=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14850);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass2573=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),0,",7)),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14853);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2574=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=1+2;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14855);}while(r);
}
S_17480:;
if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&(-(*_FUNC_ALLOCARRAY_LONG_DYNARRMODE!= 0 )))||is_error_pending()){
if(qbevent){evnt(14858);if(r)goto S_17480;}
S_17481:;
if ((FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_ALLOCARRAY_LONG_UDT,_FUNC_ALLOCARRAY_LONG_DYNARRMODE))||is_error_pending()){
if(qbevent){evnt(14859);if(r)goto S_17481;}
do{
SUB_WRITEBUFLINE(&(pass2575=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]|=8;",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14863);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2576=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14864);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2577=*__LONG_DATATXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14865);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14866);}while(r);
do{
SUB_APPENDDYNUDTDESCINIT(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2578= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC,_FUNC_ALLOCARRAY_LONG_DYNARRMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14867);}while(r);
S_17487:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14868);if(r)goto S_17487;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14868);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2579=*__LONG_DATATXTBUF),_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14869);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2580=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14870);}while(r);
}
}
S_17494:;
if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]&(~(((-(*_FUNC_ALLOCARRAY_LONG_DYNARRMODE!= 0 ))&(FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_ALLOCARRAY_LONG_UDT,_FUNC_ALLOCARRAY_LONG_DYNARRMODE))))))||is_error_pending()){
if(qbevent){evnt(14874);if(r)goto S_17494;}
do{
SUB_WRITEBUFLINE(&(pass2581=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14875);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2582=*__LONG_DATATXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14876);}while(r);
do{
SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2583= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14877);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2584=*__LONG_DATATXTBUF),_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14878);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2585=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14879);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2586=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14883);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY=*_FUNC_ALLOCARRAY_LONG_NUME+ 65536 ;
if(!qbevent)break;evnt(14884);}while(r);
}
S_17504:;
if ((-(*_FUNC_ALLOCARRAY_LONG_STATICARRAY== 0 ))||is_error_pending()){
if(qbevent){evnt(14889);if(r)goto S_17504;}
S_17505:;
if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== 0 ))||is_error_pending()){
if(qbevent){evnt(14891);if(r)goto S_17505;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (",4),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&2){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14896);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("error(10);",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14897);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14898);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("static int64 alloc_new_desc[",28),qbs__tostr((int64)(( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14903);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static uint64 alloc_req_elems;",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14904);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static uint64 alloc_req_bytes;",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14905);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static uint64 alloc_dim_value;",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14906);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static uint64 alloc_bytes_per_element;",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14907);}while(r);
S_17514:;
if ((-(*__INTEGER_REDIMOPTION== 0 ))||is_error_pending()){
if(qbevent){evnt(14908);if(r)goto S_17514;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (",4),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&1){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14909);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (!error_occurred) error(10);",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14910);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14911);}while(r);
}else{
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((mem_lock*)((ptrszint*)",24),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),qbs__tostr((int64)(( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )),NULL,0)),qbs_new_txt_len("])->id=(++mem_lock_id);",23)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14917);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static ptrszint preserve_old_ptr;",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14918);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static ptrszint preserve_old_flags;",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14919);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static uint64 preserve_old_total;",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14920);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static uint64 preserve_new_total;",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14921);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static uint64 preserve_copy_count;",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14922);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static ptrszint preserve_new_ptr;",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14923);}while(r);
S_17526:;
if ((-(*__INTEGER_REDIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(14924);if(r)goto S_17526;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static int32 preserve_any;",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14925);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("static int64 preserve_old_desc[",31),qbs__tostr((int64)(( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14926);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("static int64 preserve_lo[",25),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_NUME),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14927);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("static int64 preserve_hi[",25),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_NUME),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14928);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("static int64 preserve_idx[",26),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_NUME),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14929);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static int64 preserve_old_off;",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14930);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static int64 preserve_new_off;",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14931);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static ptrszint preserve_dim;",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14932);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (",4),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&1){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14935);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("preserve_old_ptr=",17),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0];",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14936);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("preserve_old_flags=",19),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2];",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14937);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("preserve_old_total=",19),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14938);}while(r);
S_17540:;
if ((-(*__INTEGER_REDIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(14939);if(r)goto S_17540;}
S_17541:;
fornext_value2588= 4 ;
fornext_finalvalue2588=( 4 )+(*_FUNC_ALLOCARRAY_LONG_NUME* 4 )-( 1 );
fornext_step2588= 1 ;
if (fornext_step2588<0) fornext_step_negative2588=1; else fornext_step_negative2588=0;
if (is_error_pending()) goto fornext_error2588;
goto fornext_entrylabel2588;
while(1){
fornext_value2588=fornext_step2588+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2588:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2588;
if (fornext_step_negative2588){
if (fornext_value2588<fornext_finalvalue2588) break;
}else{
if (fornext_value2588>fornext_finalvalue2588) break;
}
fornext_error2588:;
if(qbevent){evnt(14940);if(r)goto S_17541;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_old_desc[",18),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_I),NULL,0)),qbs_new_txt_len("]=",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_I),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14941);}while(r);
fornext_continue_2587:;
}
fornext_exit_2587:;
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14944);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;",108));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14945);}while(r);
S_17547:;
if ((-(*__INTEGER_REDIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(14946);if(r)goto S_17547;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_any=0;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14946);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14947);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_NEWSD);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14954);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("alloc_req_elems=1;",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14955);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("alloc_bytes_per_element=(uint64)(",33),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14956);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (!alloc_bytes_per_element) error(257);",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14957);}while(r);
S_17556:;
fornext_value2590= 1 ;
fornext_finalvalue2590=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2590= 1 ;
if (fornext_step2590<0) fornext_step_negative2590=1; else fornext_step_negative2590=0;
if (is_error_pending()) goto fornext_error2590;
goto fornext_entrylabel2590;
while(1){
fornext_value2590=fornext_step2590+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2590:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2590;
if (fornext_step_negative2590){
if (fornext_value2590<fornext_finalvalue2590) break;
}else{
if (fornext_value2590>fornext_finalvalue2590) break;
}
fornext_error2590:;
if(qbevent){evnt(14958);if(r)goto S_17556;}
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=(*_FUNC_ALLOCARRAY_LONG_I* 4 )-( 4 )+( 4 );
if(!qbevent)break;evnt(14959);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (((int64)((ptrszint)alloc_new_desc[",38),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("]))!=alloc_new_desc[",20)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("]) error(257);",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14960);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (alloc_new_desc[",19),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 1 ),NULL,0)),qbs_new_txt_len("]<0) error(257);",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14961);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (((int64)((ptrszint)alloc_new_desc[",38),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 1 ),NULL,0)),qbs_new_txt_len("]))!=alloc_new_desc[",20)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 1 ),NULL,0)),qbs_new_txt_len("]) error(257);",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14962);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (alloc_new_desc[",19),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("]<0) error(257);",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14963);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (((int64)((ptrszint)alloc_new_desc[",38),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("]))!=alloc_new_desc[",20)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("]) error(257);",14)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14964);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("alloc_dim_value=(uint64)alloc_new_desc[",39),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 1 ),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14965);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (alloc_dim_value){",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14966);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);",74));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14967);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("alloc_req_elems*=alloc_dim_value;",33));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14968);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14969);}while(r);
fornext_continue_2589:;
}
fornext_exit_2589:;
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);",82));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14971);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;",56));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14972);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);",71));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14973);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);",69));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14974);}while(r);
S_17573:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(14976);if(r)goto S_17573;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_new_total=alloc_req_elems;",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14977);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_copy_count=preserve_old_total;",39));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14978);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;",83));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14979);}while(r);
}
S_17578:;
if ((-(*__INTEGER_REDIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(14982);if(r)goto S_17578;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_any=(preserve_old_total!=0);",37));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14983);}while(r);
S_17580:;
fornext_value2592= 1 ;
fornext_finalvalue2592=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2592= 1 ;
if (fornext_step2592<0) fornext_step_negative2592=1; else fornext_step_negative2592=0;
if (is_error_pending()) goto fornext_error2592;
goto fornext_entrylabel2592;
while(1){
fornext_value2592=fornext_step2592+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2592:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2592;
if (fornext_step_negative2592){
if (fornext_value2592<fornext_finalvalue2592) break;
}else{
if (fornext_value2592>fornext_finalvalue2592) break;
}
fornext_error2592:;
if(qbevent){evnt(14984);if(r)goto S_17580;}
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME-*_FUNC_ALLOCARRAY_LONG_I)* 4 )+( 4 );
if(!qbevent)break;evnt(14985);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_lo[",12),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]=alloc_new_desc[",17)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14986);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (preserve_old_desc[",22),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("]>preserve_lo[",14)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]) preserve_lo[",15)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]=preserve_old_desc[",20)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14987);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_hi[",12),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]=alloc_new_desc[",17)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("]+(alloc_new_desc[",18)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 1 ),NULL,0)),qbs_new_txt_len("]-1);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14988);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((preserve_old_desc[",23),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("]+(preserve_old_desc[",21)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 1 ),NULL,0)),qbs_new_txt_len("]-1))<preserve_hi[",18)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]) preserve_hi[",15)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]=preserve_old_desc[",20)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("]+(preserve_old_desc[",21)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 1 ),NULL,0)),qbs_new_txt_len("]-1);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14989);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (preserve_hi[",16),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]<preserve_lo[",14)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]) preserve_any=0;",18)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14990);}while(r);
fornext_continue_2591:;
}
fornext_exit_2591:;
}
S_17589:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY|(((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 )))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]&(~(((-(*_FUNC_ALLOCARRAY_LONG_DYNARRMODE!= 0 ))&(FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_ALLOCARRAY_LONG_UDT,_FUNC_ALLOCARRAY_LONG_DYNARRMODE)))))))||is_error_pending()){
if(qbevent){evnt(14994);if(r)goto S_17589;}
S_17590:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(14998);if(r)goto S_17590;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_old_total){",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14999);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);",59));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15000);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (!preserve_new_ptr) error(257);",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15001);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=preserve_new_ptr;",21)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15002);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]|=1;",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15003);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=(ptrszint)alloc_req_elems;",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15004);}while(r);
S_17597:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
if(qbevent){evnt(15007);if(r)goto S_17597;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (",4),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&4){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15008);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("while(tmp_long--) ((uint64*)(",29),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);",42)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15009);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15010);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("while(tmp_long--) ((uint64*)(",29),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=(uint64)qbs_new(0,0);",37)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15011);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15012);}while(r);
}else{
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ZeroMemory((uint8*)(",20),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),tmp_long*",14)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15014);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15015);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15016);}while(r);
do{
SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2593= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15017);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("}",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15018);}while(r);
}
S_17610:;
if ((-(*__INTEGER_REDIMOPTION== 2 ))||is_error_pending()){
if(qbevent){evnt(15021);if(r)goto S_17610;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=preserve_copy_count;",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15022);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15023);}while(r);
S_17613:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
if(qbevent){evnt(15024);if(r)goto S_17613;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);",101));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15025);}while(r);
}else{
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15027);}while(r);
do{
SUB_COPY_PRESERVE_UDT_VARSTRINGS(qbs_new_txt_len("preserve_new_ptr",16),qbs_new_txt_len("preserve_old_ptr",16),_FUNC_ALLOCARRAY_LONG_UDT,qbs_add(qbs_add(qbs_new_txt_len("(tmp_long*",10),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(")",1)),qbs_add(qbs_add(qbs_new_txt_len("(tmp_long*",10),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(")",1)),_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15028);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15029);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15031);}while(r);
S_17621:;
}else{
if (-(*__INTEGER_REDIMOPTION== 3 )){
if(qbevent){evnt(15032);if(r)goto S_17621;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_any){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15034);}while(r);
S_17623:;
fornext_value2595= 0 ;
fornext_finalvalue2595=*_FUNC_ALLOCARRAY_LONG_NUME- 1 ;
fornext_step2595= 1 ;
if (fornext_step2595<0) fornext_step_negative2595=1; else fornext_step_negative2595=0;
if (is_error_pending()) goto fornext_error2595;
goto fornext_entrylabel2595;
while(1){
fornext_value2595=fornext_step2595+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2595:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2595;
if (fornext_step_negative2595){
if (fornext_value2595<fornext_finalvalue2595) break;
}else{
if (fornext_value2595>fornext_finalvalue2595) break;
}
fornext_error2595:;
if(qbevent){evnt(15035);if(r)goto S_17623;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_idx[",13),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_I),NULL,0)),qbs_new_txt_len("]=preserve_lo[",14)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_I),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15036);}while(r);
fornext_continue_2594:;
}
fornext_exit_2594:;
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("for(;;){",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15038);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME- 1 )* 4 )+( 4 );
if(!qbevent)break;evnt(15039);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("preserve_old_off=preserve_idx[0]-preserve_old_desc[",51),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15040);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("preserve_new_off=preserve_idx[0]-alloc_new_desc[",48),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15041);}while(r);
S_17630:;
fornext_value2597= 2 ;
fornext_finalvalue2597=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2597= 1 ;
if (fornext_step2597<0) fornext_step_negative2597=1; else fornext_step_negative2597=0;
if (is_error_pending()) goto fornext_error2597;
goto fornext_entrylabel2597;
while(1){
fornext_value2597=fornext_step2597+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2597:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2597;
if (fornext_step_negative2597){
if (fornext_value2597<fornext_finalvalue2597) break;
}else{
if (fornext_value2597>fornext_finalvalue2597) break;
}
fornext_error2597:;
if(qbevent){evnt(15042);if(r)goto S_17630;}
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME-*_FUNC_ALLOCARRAY_LONG_I)* 4 )+( 4 );
if(!qbevent)break;evnt(15043);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_old_off+=(preserve_idx[",32),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]-preserve_old_desc[",20)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("])*preserve_old_desc[",21)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15044);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_new_off+=(preserve_idx[",32),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]-alloc_new_desc[",17)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("])*alloc_new_desc[",18)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15045);}while(r);
fornext_continue_2596:;
}
fornext_exit_2596:;
S_17635:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
if(qbevent){evnt(15048);if(r)goto S_17635;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("qbs_set((qbs*)((uint64*)(preserve_new_ptr))[preserve_new_off],(qbs*)((uint64*)(preserve_old_ptr))[preserve_old_off]);",117));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15049);}while(r);
}else{
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15051);}while(r);
do{
SUB_COPY_PRESERVE_UDT_VARSTRINGS(qbs_new_txt_len("preserve_new_ptr",16),qbs_new_txt_len("preserve_old_ptr",16),_FUNC_ALLOCARRAY_LONG_UDT,qbs_add(qbs_add(qbs_new_txt_len("(preserve_new_off*",18),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(")",1)),qbs_add(qbs_add(qbs_new_txt_len("(preserve_old_off*",18),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(")",1)),_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15052);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15053);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_dim=0;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15056);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("while (preserve_dim<",20),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_NUME),NULL,0)),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15057);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_idx[preserve_dim]++;",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15058);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_idx[preserve_dim]<=preserve_hi[preserve_dim]) break;",65));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15059);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_idx[preserve_dim]=preserve_lo[preserve_dim];",53));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15060);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_dim++;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15061);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15062);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (preserve_dim==",18),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_NUME),NULL,0)),qbs_new_txt_len(") break;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15063);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15064);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15065);}while(r);
}
}
S_17653:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
if(qbevent){evnt(15069);if(r)goto S_17653;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=preserve_old_total;",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15070);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);",74));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15071);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("free((void*)(preserve_old_ptr));",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15072);}while(r);
}else{
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=preserve_old_ptr;",21)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15074);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=preserve_old_total;",28));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15075);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15076);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15077);}while(r);
do{
SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2598= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15078);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("}",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15079);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("free((void*)(preserve_old_ptr));",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15080);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=preserve_new_ptr;",21)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15083);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15084);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)malloc((size_t)alloc_req_bytes);",46)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15088);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]) error(257);",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15089);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]|=1;",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15090);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=(ptrszint)alloc_req_elems;",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15091);}while(r);
S_17673:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
if(qbevent){evnt(15095);if(r)goto S_17673;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (",4),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&4){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15096);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("while(tmp_long--) ((uint64*)(",29),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);",42)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15097);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15098);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("while(tmp_long--) ((uint64*)(",29),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=(uint64)qbs_new(0,0);",37)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15099);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15100);}while(r);
}else{
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ZeroMemory((uint8*)(",20),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),tmp_long*",14)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15102);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15103);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15104);}while(r);
do{
SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2599= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15105);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("}",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15106);}while(r);
}
S_17686:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(15109);if(r)goto S_17686;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15110);}while(r);
}
S_17689:;
if ((-(*__LONG_ARRAYDESC== 0 ))||is_error_pending()){
if(qbevent){evnt(15115);if(r)goto S_17689;}
do{
SUB_WRITEBUFLINE(&(pass2600=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&1){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15116);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2601=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15117);}while(r);
S_17692:;
if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
if(qbevent){evnt(15118);if(r)goto S_17692;}
do{
SUB_WRITEBUFLINE(&(pass2602=*__LONG_FREETXTBUF),qbs_new_txt_len("while(tmp_long--) {",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15119);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15120);}while(r);
do{
SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2603= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15121);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2604=*__LONG_FREETXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("}",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15122);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass2605=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while(tmp_long--) qbs_free((qbs*)((uint64*)(",44),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]);",17)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15124);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2606=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15126);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2607=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15127);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2608=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("free_mem_lock( (mem_lock*)((ptrszint*)",38),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),qbs__tostr((int64)(( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )),NULL,0)),qbs_new_txt_len("] );",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15129);}while(r);
}
}else{
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (",4),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&4){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15136);}while(r);
S_17706:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(15138);if(r)goto S_17706;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_old_total){",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15139);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);",72));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15140);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (!preserve_new_ptr) error(257);",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15141);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);",60));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15142);}while(r);
S_17711:;
if ((-(*__INTEGER_REDIMOPTION== 2 ))||is_error_pending()){
if(qbevent){evnt(15143);if(r)goto S_17711;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*",104),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15144);}while(r);
S_17713:;
}else{
if (-(*__INTEGER_REDIMOPTION== 3 )){
if(qbevent){evnt(15145);if(r)goto S_17713;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_any){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15146);}while(r);
S_17715:;
fornext_value2610= 0 ;
fornext_finalvalue2610=*_FUNC_ALLOCARRAY_LONG_NUME- 1 ;
fornext_step2610= 1 ;
if (fornext_step2610<0) fornext_step_negative2610=1; else fornext_step_negative2610=0;
if (is_error_pending()) goto fornext_error2610;
goto fornext_entrylabel2610;
while(1){
fornext_value2610=fornext_step2610+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2610:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2610;
if (fornext_step_negative2610){
if (fornext_value2610<fornext_finalvalue2610) break;
}else{
if (fornext_value2610>fornext_finalvalue2610) break;
}
fornext_error2610:;
if(qbevent){evnt(15147);if(r)goto S_17715;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_idx[",13),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_I),NULL,0)),qbs_new_txt_len("]=preserve_lo[",14)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_I),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15148);}while(r);
fornext_continue_2609:;
}
fornext_exit_2609:;
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("for(;;){",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15150);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME- 1 )* 4 )+( 4 );
if(!qbevent)break;evnt(15151);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("preserve_old_off=preserve_idx[0]-preserve_old_desc[",51),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15152);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("preserve_new_off=preserve_idx[0]-alloc_new_desc[",48),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15153);}while(r);
S_17722:;
fornext_value2612= 2 ;
fornext_finalvalue2612=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2612= 1 ;
if (fornext_step2612<0) fornext_step_negative2612=1; else fornext_step_negative2612=0;
if (is_error_pending()) goto fornext_error2612;
goto fornext_entrylabel2612;
while(1){
fornext_value2612=fornext_step2612+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2612:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2612;
if (fornext_step_negative2612){
if (fornext_value2612<fornext_finalvalue2612) break;
}else{
if (fornext_value2612>fornext_finalvalue2612) break;
}
fornext_error2612:;
if(qbevent){evnt(15154);if(r)goto S_17722;}
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME-*_FUNC_ALLOCARRAY_LONG_I)* 4 )+( 4 );
if(!qbevent)break;evnt(15155);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_old_off+=(preserve_idx[",32),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]-preserve_old_desc[",20)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("])*preserve_old_desc[",21)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15156);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_new_off+=(preserve_idx[",32),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]-alloc_new_desc[",17)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("])*alloc_new_desc[",18)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15157);}while(r);
fornext_continue_2611:;
}
fornext_exit_2611:;
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy(((uint8*)(preserve_new_ptr))+preserve_new_off*",53),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(",((uint8*)(preserve_old_ptr))+preserve_old_off*",47)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(",",1)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15159);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_dim=0;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15160);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("while (preserve_dim<",20),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_NUME),NULL,0)),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15161);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_idx[preserve_dim]++;",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15162);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_idx[preserve_dim]<=preserve_hi[preserve_dim]) break;",65));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15163);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_idx[preserve_dim]=preserve_lo[preserve_dim];",53));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15164);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_dim++;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15165);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15166);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (preserve_dim==",18),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_NUME),NULL,0)),qbs_new_txt_len(") break;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15167);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15168);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15169);}while(r);
}
}
S_17739:;
if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&(-(*_FUNC_ALLOCARRAY_LONG_DYNARRMODE!= 0 ))&(FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_ALLOCARRAY_LONG_UDT,_FUNC_ALLOCARRAY_LONG_DYNARRMODE)))||is_error_pending()){
if(qbevent){evnt(15171);if(r)goto S_17739;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_old_flags&8){",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15175);}while(r);
S_17741:;
if ((-(*__INTEGER_REDIMOPTION> 1 ))||is_error_pending()){
if(qbevent){evnt(15176);if(r)goto S_17741;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=preserve_new_ptr;",21)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15177);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]|=8;",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15178);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=(ptrszint)alloc_req_elems;",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15179);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15180);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15181);}while(r);
do{
SUB_APPENDDYNUDTDESCINIT(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2613= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC,_FUNC_ALLOCARRAY_LONG_DYNARRMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15182);}while(r);
S_17748:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15183);if(r)goto S_17748;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15183);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15184);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15185);}while(r);
S_17753:;
if ((-(*__INTEGER_REDIMOPTION== 2 ))||is_error_pending()){
if(qbevent){evnt(15186);if(r)goto S_17753;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=(ptrszint)preserve_copy_count;",39));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15187);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15188);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15189);}while(r);
do{
SUB_APPENDDYNUDTDESCCOPY(qbs_new_txt_len("preserve_new_ptr",16),qbs_new_txt_len("preserve_old_ptr",16),_FUNC_ALLOCARRAY_LONG_UDT,qbs_add(qbs_add(qbs_new_txt_len("(tmp_long*",10),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(")",1)),qbs_add(qbs_add(qbs_new_txt_len("(tmp_long*",10),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(")",1)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC,_FUNC_ALLOCARRAY_LONG_DYNARRMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15190);}while(r);
S_17758:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15191);if(r)goto S_17758;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15191);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15192);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15193);}while(r);
S_17763:;
}else{
if (-(*__INTEGER_REDIMOPTION== 3 )){
if(qbevent){evnt(15194);if(r)goto S_17763;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_any){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15195);}while(r);
S_17765:;
fornext_value2615= 0 ;
fornext_finalvalue2615=*_FUNC_ALLOCARRAY_LONG_NUME- 1 ;
fornext_step2615= 1 ;
if (fornext_step2615<0) fornext_step_negative2615=1; else fornext_step_negative2615=0;
if (is_error_pending()) goto fornext_error2615;
goto fornext_entrylabel2615;
while(1){
fornext_value2615=fornext_step2615+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2615:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2615;
if (fornext_step_negative2615){
if (fornext_value2615<fornext_finalvalue2615) break;
}else{
if (fornext_value2615>fornext_finalvalue2615) break;
}
fornext_error2615:;
if(qbevent){evnt(15196);if(r)goto S_17765;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_idx[",13),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_I),NULL,0)),qbs_new_txt_len("]=preserve_lo[",14)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_I),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15197);}while(r);
fornext_continue_2614:;
}
fornext_exit_2614:;
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("for(;;){",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15199);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME- 1 )* 4 )+( 4 );
if(!qbevent)break;evnt(15200);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("preserve_old_off=preserve_idx[0]-preserve_old_desc[",51),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15201);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("preserve_new_off=preserve_idx[0]-alloc_new_desc[",48),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15202);}while(r);
S_17772:;
fornext_value2617= 2 ;
fornext_finalvalue2617=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2617= 1 ;
if (fornext_step2617<0) fornext_step_negative2617=1; else fornext_step_negative2617=0;
if (is_error_pending()) goto fornext_error2617;
goto fornext_entrylabel2617;
while(1){
fornext_value2617=fornext_step2617+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2617:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2617;
if (fornext_step_negative2617){
if (fornext_value2617<fornext_finalvalue2617) break;
}else{
if (fornext_value2617>fornext_finalvalue2617) break;
}
fornext_error2617:;
if(qbevent){evnt(15203);if(r)goto S_17772;}
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME-*_FUNC_ALLOCARRAY_LONG_I)* 4 )+( 4 );
if(!qbevent)break;evnt(15204);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_old_off+=(preserve_idx[",32),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]-preserve_old_desc[",20)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("])*preserve_old_desc[",21)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15205);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_new_off+=(preserve_idx[",32),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]-alloc_new_desc[",17)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("])*alloc_new_desc[",18)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15206);}while(r);
fornext_continue_2616:;
}
fornext_exit_2616:;
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15208);}while(r);
do{
SUB_APPENDDYNUDTDESCCOPY(qbs_new_txt_len("preserve_new_ptr",16),qbs_new_txt_len("preserve_old_ptr",16),_FUNC_ALLOCARRAY_LONG_UDT,qbs_add(qbs_add(qbs_new_txt_len("(preserve_new_off*",18),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(")",1)),qbs_add(qbs_add(qbs_new_txt_len("(preserve_old_off*",18),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(")",1)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC,_FUNC_ALLOCARRAY_LONG_DYNARRMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15209);}while(r);
S_17779:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15210);if(r)goto S_17779;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15210);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15211);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_dim=0;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15212);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("while (preserve_dim<",20),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_NUME),NULL,0)),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15213);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_idx[preserve_dim]++;",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15214);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_idx[preserve_dim]<=preserve_hi[preserve_dim]) break;",65));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15215);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_idx[preserve_dim]=preserve_lo[preserve_dim];",53));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15216);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_dim++;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15217);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15218);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (preserve_dim==",18),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_NUME),NULL,0)),qbs_new_txt_len(") break;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15219);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15220);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15221);}while(r);
}
}
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=(ptrszint)preserve_old_total;",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15224);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15225);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15226);}while(r);
do{
SUB_APPENDDYNUDTDESCFREE(qbs_new_txt_len("preserve_old_ptr",16),_FUNC_ALLOCARRAY_LONG_UDT,&(pass2618= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC,_FUNC_ALLOCARRAY_LONG_DYNARRMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15227);}while(r);
S_17799:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15228);if(r)goto S_17799;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15228);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15229);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15230);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15231);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_old_flags&4){",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15233);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("cmem_dynamic_free((uint8*)(preserve_old_ptr));",46));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15234);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15235);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("free((void*)(preserve_old_ptr));",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15236);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15237);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=preserve_new_ptr;",21)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15238);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15239);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);",59)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15243);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]) error(257);",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15244);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),0,(size_t)alloc_req_bytes);",32)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15245);}while(r);
S_17817:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(15247);if(r)goto S_17817;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15248);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15251);}while(r);
S_17821:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(15253);if(r)goto S_17821;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_old_total){",24));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15254);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);",61));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15255);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (!preserve_new_ptr) error(257);",34));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15256);}while(r);
S_17825:;
if ((-(*__INTEGER_REDIMOPTION== 2 ))||is_error_pending()){
if(qbevent){evnt(15257);if(r)goto S_17825;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*",104),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15258);}while(r);
S_17827:;
}else{
if (-(*__INTEGER_REDIMOPTION== 3 )){
if(qbevent){evnt(15259);if(r)goto S_17827;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_any){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15260);}while(r);
S_17829:;
fornext_value2620= 0 ;
fornext_finalvalue2620=*_FUNC_ALLOCARRAY_LONG_NUME- 1 ;
fornext_step2620= 1 ;
if (fornext_step2620<0) fornext_step_negative2620=1; else fornext_step_negative2620=0;
if (is_error_pending()) goto fornext_error2620;
goto fornext_entrylabel2620;
while(1){
fornext_value2620=fornext_step2620+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2620:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2620;
if (fornext_step_negative2620){
if (fornext_value2620<fornext_finalvalue2620) break;
}else{
if (fornext_value2620>fornext_finalvalue2620) break;
}
fornext_error2620:;
if(qbevent){evnt(15261);if(r)goto S_17829;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_idx[",13),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_I),NULL,0)),qbs_new_txt_len("]=preserve_lo[",14)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_I),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15262);}while(r);
fornext_continue_2619:;
}
fornext_exit_2619:;
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("for(;;){",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15264);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME- 1 )* 4 )+( 4 );
if(!qbevent)break;evnt(15265);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("preserve_old_off=preserve_idx[0]-preserve_old_desc[",51),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15266);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("preserve_new_off=preserve_idx[0]-alloc_new_desc[",48),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15267);}while(r);
S_17836:;
fornext_value2622= 2 ;
fornext_finalvalue2622=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2622= 1 ;
if (fornext_step2622<0) fornext_step_negative2622=1; else fornext_step_negative2622=0;
if (is_error_pending()) goto fornext_error2622;
goto fornext_entrylabel2622;
while(1){
fornext_value2622=fornext_step2622+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2622:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2622;
if (fornext_step_negative2622){
if (fornext_value2622<fornext_finalvalue2622) break;
}else{
if (fornext_value2622>fornext_finalvalue2622) break;
}
fornext_error2622:;
if(qbevent){evnt(15268);if(r)goto S_17836;}
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME-*_FUNC_ALLOCARRAY_LONG_I)* 4 )+( 4 );
if(!qbevent)break;evnt(15269);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_old_off+=(preserve_idx[",32),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]-preserve_old_desc[",20)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("])*preserve_old_desc[",21)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15270);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_new_off+=(preserve_idx[",32),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]-alloc_new_desc[",17)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("])*alloc_new_desc[",18)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15271);}while(r);
fornext_continue_2621:;
}
fornext_exit_2621:;
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy(((uint8*)(preserve_new_ptr))+preserve_new_off*",53),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(",((uint8*)(preserve_old_ptr))+preserve_old_off*",47)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(",",1)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15273);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_dim=0;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15274);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("while (preserve_dim<",20),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_NUME),NULL,0)),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15275);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_idx[preserve_dim]++;",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15276);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_idx[preserve_dim]<=preserve_hi[preserve_dim]) break;",65));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15277);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_idx[preserve_dim]=preserve_lo[preserve_dim];",53));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15278);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_dim++;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15279);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15280);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (preserve_dim==",18),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_NUME),NULL,0)),qbs_new_txt_len(") break;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15281);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15282);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15283);}while(r);
}
}
S_17853:;
if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&(-(*_FUNC_ALLOCARRAY_LONG_DYNARRMODE!= 0 ))&(FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_ALLOCARRAY_LONG_UDT,_FUNC_ALLOCARRAY_LONG_DYNARRMODE)))||is_error_pending()){
if(qbevent){evnt(15285);if(r)goto S_17853;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_old_flags&8){",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15286);}while(r);
S_17855:;
if ((-(*__INTEGER_REDIMOPTION> 1 ))||is_error_pending()){
if(qbevent){evnt(15287);if(r)goto S_17855;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=preserve_new_ptr;",21)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15288);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]|=8;",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15289);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=(ptrszint)alloc_req_elems;",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15290);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15291);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15292);}while(r);
do{
SUB_APPENDDYNUDTDESCINIT(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2623= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC,_FUNC_ALLOCARRAY_LONG_DYNARRMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15293);}while(r);
S_17862:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15294);if(r)goto S_17862;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15294);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15295);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15296);}while(r);
S_17867:;
if ((-(*__INTEGER_REDIMOPTION== 2 ))||is_error_pending()){
if(qbevent){evnt(15297);if(r)goto S_17867;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=(ptrszint)preserve_copy_count;",39));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15298);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15299);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15300);}while(r);
do{
SUB_APPENDDYNUDTDESCCOPY(qbs_new_txt_len("preserve_new_ptr",16),qbs_new_txt_len("preserve_old_ptr",16),_FUNC_ALLOCARRAY_LONG_UDT,qbs_add(qbs_add(qbs_new_txt_len("(tmp_long*",10),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(")",1)),qbs_add(qbs_add(qbs_new_txt_len("(tmp_long*",10),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(")",1)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC,_FUNC_ALLOCARRAY_LONG_DYNARRMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15301);}while(r);
S_17872:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15302);if(r)goto S_17872;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15302);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15303);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15304);}while(r);
S_17877:;
}else{
if (-(*__INTEGER_REDIMOPTION== 3 )){
if(qbevent){evnt(15305);if(r)goto S_17877;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_any){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15306);}while(r);
S_17879:;
fornext_value2625= 0 ;
fornext_finalvalue2625=*_FUNC_ALLOCARRAY_LONG_NUME- 1 ;
fornext_step2625= 1 ;
if (fornext_step2625<0) fornext_step_negative2625=1; else fornext_step_negative2625=0;
if (is_error_pending()) goto fornext_error2625;
goto fornext_entrylabel2625;
while(1){
fornext_value2625=fornext_step2625+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2625:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2625;
if (fornext_step_negative2625){
if (fornext_value2625<fornext_finalvalue2625) break;
}else{
if (fornext_value2625>fornext_finalvalue2625) break;
}
fornext_error2625:;
if(qbevent){evnt(15307);if(r)goto S_17879;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_idx[",13),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_I),NULL,0)),qbs_new_txt_len("]=preserve_lo[",14)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_I),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15308);}while(r);
fornext_continue_2624:;
}
fornext_exit_2624:;
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("for(;;){",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15310);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME- 1 )* 4 )+( 4 );
if(!qbevent)break;evnt(15311);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("preserve_old_off=preserve_idx[0]-preserve_old_desc[",51),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15312);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("preserve_new_off=preserve_idx[0]-alloc_new_desc[",48),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15313);}while(r);
S_17886:;
fornext_value2627= 2 ;
fornext_finalvalue2627=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2627= 1 ;
if (fornext_step2627<0) fornext_step_negative2627=1; else fornext_step_negative2627=0;
if (is_error_pending()) goto fornext_error2627;
goto fornext_entrylabel2627;
while(1){
fornext_value2627=fornext_step2627+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2627:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2627;
if (fornext_step_negative2627){
if (fornext_value2627<fornext_finalvalue2627) break;
}else{
if (fornext_value2627>fornext_finalvalue2627) break;
}
fornext_error2627:;
if(qbevent){evnt(15314);if(r)goto S_17886;}
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME-*_FUNC_ALLOCARRAY_LONG_I)* 4 )+( 4 );
if(!qbevent)break;evnt(15315);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_old_off+=(preserve_idx[",32),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]-preserve_old_desc[",20)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("])*preserve_old_desc[",21)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15316);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_new_off+=(preserve_idx[",32),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_I- 1 ),NULL,0)),qbs_new_txt_len("]-alloc_new_desc[",17)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ARGI),NULL,0)),qbs_new_txt_len("])*alloc_new_desc[",18)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_ARGI+ 2 ),NULL,0)),qbs_new_txt_len("];",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15317);}while(r);
fornext_continue_2626:;
}
fornext_exit_2626:;
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15319);}while(r);
do{
SUB_APPENDDYNUDTDESCCOPY(qbs_new_txt_len("preserve_new_ptr",16),qbs_new_txt_len("preserve_old_ptr",16),_FUNC_ALLOCARRAY_LONG_UDT,qbs_add(qbs_add(qbs_new_txt_len("(preserve_new_off*",18),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(")",1)),qbs_add(qbs_add(qbs_new_txt_len("(preserve_old_off*",18),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(")",1)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC,_FUNC_ALLOCARRAY_LONG_DYNARRMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15320);}while(r);
S_17893:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15321);if(r)goto S_17893;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15321);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15322);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_dim=0;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15323);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("while (preserve_dim<",20),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_NUME),NULL,0)),qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15324);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_idx[preserve_dim]++;",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15325);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_idx[preserve_dim]<=preserve_hi[preserve_dim]) break;",65));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15326);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_idx[preserve_dim]=preserve_lo[preserve_dim];",53));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15327);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_dim++;",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15328);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15329);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (preserve_dim==",18),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_NUME),NULL,0)),qbs_new_txt_len(") break;",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15330);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15331);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15332);}while(r);
}
}
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=(ptrszint)preserve_old_total;",38));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15335);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15336);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15337);}while(r);
do{
SUB_APPENDDYNUDTDESCFREE(qbs_new_txt_len("preserve_old_ptr",16),_FUNC_ALLOCARRAY_LONG_UDT,&(pass2628= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC,_FUNC_ALLOCARRAY_LONG_DYNARRMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15338);}while(r);
S_17913:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15339);if(r)goto S_17913;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15339);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15340);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15341);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15342);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_old_flags&4){",26));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15344);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("cmem_dynamic_free((uint8*)(preserve_old_ptr));",46));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15345);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15346);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("free((void*)(preserve_old_ptr));",32));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15347);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15348);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=preserve_new_ptr;",21)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15349);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15350);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);",48)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15353);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]) error(257);",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15354);}while(r);
S_17930:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(15355);if(r)goto S_17930;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15356);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15360);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]|=1;",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15361);}while(r);
S_17935:;
if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&(-(*_FUNC_ALLOCARRAY_LONG_DYNARRMODE!= 0 )))||is_error_pending()){
if(qbevent){evnt(15363);if(r)goto S_17935;}
S_17936:;
if ((FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_ALLOCARRAY_LONG_UDT,_FUNC_ALLOCARRAY_LONG_DYNARRMODE))||is_error_pending()){
if(qbevent){evnt(15364);if(r)goto S_17936;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]|=8;",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15368);}while(r);
S_17938:;
if ((-(*__INTEGER_REDIMOPTION> 1 ))||is_error_pending()){
if(qbevent){evnt(15369);if(r)goto S_17938;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (!(preserve_old_total&&(preserve_old_flags&8))){",51));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15369);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=(ptrszint)alloc_req_elems;",35));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15370);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15371);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15372);}while(r);
do{
SUB_APPENDDYNUDTDESCINIT(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2629= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC,_FUNC_ALLOCARRAY_LONG_DYNARRMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15373);}while(r);
S_17945:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15374);if(r)goto S_17945;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15374);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15375);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15376);}while(r);
S_17950:;
if ((-(*__INTEGER_REDIMOPTION> 1 ))||is_error_pending()){
if(qbevent){evnt(15377);if(r)goto S_17950;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15377);}while(r);
}
}
}
S_17955:;
if ((-(*__LONG_ARRAYDESC== 0 ))||is_error_pending()){
if(qbevent){evnt(15382);if(r)goto S_17955;}
do{
SUB_WRITEBUFLINE(&(pass2630=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&1){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15383);}while(r);
S_17957:;
if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&(-(*_FUNC_ALLOCARRAY_LONG_DYNARRMODE!= 0 ))&(FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_ALLOCARRAY_LONG_UDT,_FUNC_ALLOCARRAY_LONG_DYNARRMODE)))||is_error_pending()){
if(qbevent){evnt(15384);if(r)goto S_17957;}
do{
SUB_WRITEBUFLINE(&(pass2631=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&8){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15388);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2632=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15389);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2633=*__LONG_FREETXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15390);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15391);}while(r);
do{
SUB_APPENDDYNUDTDESCFREE(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]",3)),_FUNC_ALLOCARRAY_LONG_UDT,&(pass2634= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC,_FUNC_ALLOCARRAY_LONG_DYNARRMODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15392);}while(r);
S_17963:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15393);if(r)goto S_17963;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15393);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2635=*__LONG_FREETXTBUF),_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15394);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2636=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15395);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2637=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15396);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2638=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&4){",7)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15398);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2639=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_dynamic_free((uint8*)(",27),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15399);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2640=*__LONG_FREETXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15400);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2641=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15401);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2642=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15402);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2643=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15403);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2644=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("free_mem_lock( (mem_lock*)((ptrszint*)",38),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),qbs__tostr((int64)(( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )),NULL,0)),qbs_new_txt_len("] );",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15405);}while(r);
}
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_COMMITDESC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15409);}while(r);
}
S_17981:;
if ((-(*__LONG_ARRAYDESC== 0 ))||is_error_pending()){
if(qbevent){evnt(15414);if(r)goto S_17981;}
S_17982:;
if ((*_FUNC_ALLOCARRAY_LONG_CMEM)||is_error_pending()){
if(qbevent){evnt(15416);if(r)goto S_17982;}
do{
SUB_WRITEBUFLINE(&(pass2645=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=4;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15416);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass2646=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=0;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15416);}while(r);
}
S_17987:;
fornext_value2648= 1 ;
fornext_finalvalue2648=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2648= 1 ;
if (fornext_step2648<0) fornext_step_negative2648=1; else fornext_step_negative2648=0;
if (is_error_pending()) goto fornext_error2648;
goto fornext_entrylabel2648;
while(1){
fornext_value2648=fornext_step2648+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2648:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2648;
if (fornext_step_negative2648){
if (fornext_value2648<fornext_finalvalue2648) break;
}else{
if (fornext_value2648>fornext_finalvalue2648) break;
}
fornext_error2648:;
if(qbevent){evnt(15418);if(r)goto S_17987;}
do{
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_I* 4 ;
if(!qbevent)break;evnt(15419);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2649=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_B),NULL,0)),qbs_new_txt_len("]=2147483647;",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15420);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2650=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_B+ 1 ),NULL,0)),qbs_new_txt_len("]=0;",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15421);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2651=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),qbs__tostr((int64)(*_FUNC_ALLOCARRAY_LONG_B+ 2 ),NULL,0)),qbs_new_txt_len("]=0;",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15422);}while(r);
fornext_continue_2647:;
}
fornext_exit_2647:;
S_17993:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
if(qbevent){evnt(15424);if(r)goto S_17993;}
do{
SUB_WRITEBUFLINE(&(pass2652=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)&nothingstring;",29)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15426);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass2653=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15429);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2654=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15431);}while(r);
}
S_18000:;
if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== 0 ))||is_error_pending()){
if(qbevent){evnt(15434);if(r)goto S_18000;}
S_18001:;
if ((-(*__INTEGER_REDIMOPTION== 0 ))||is_error_pending()){
if(qbevent){evnt(15436);if(r)goto S_18001;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15436);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15437);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY=*_FUNC_ALLOCARRAY_LONG_NUME;
if(!qbevent)break;evnt(15441);}while(r);
S_18007:;
if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== -1 ))||is_error_pending()){
if(qbevent){evnt(15442);if(r)goto S_18007;}
do{
*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY= -1 ;
if(!qbevent)break;evnt(15442);}while(r);
}
}
S_18011:;
if ((-(*_FUNC_ALLOCARRAY_LONG_AUTOARY== 0 ))||is_error_pending()){
if(qbevent){evnt(15446);if(r)goto S_18011;}
S_18012:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(15447);if(r)goto S_18012;}
do{
SUB_BUFINSERTBUF(&(pass2655=*__LONG_DATATXTBUF),_FUNC_ALLOCARRAY_INTEGER_F12BUF);
if(!qbevent)break;evnt(15448);}while(r);
}else{
do{
SUB_BUFINSERTBUF(&(pass2656=*__LONG_MAINTXTBUF),_FUNC_ALLOCARRAY_INTEGER_F12BUF);
if(!qbevent)break;evnt(15450);}while(r);
}
}
do{
SUB_DISPOSEBUF(_FUNC_ALLOCARRAY_INTEGER_F12BUF);
if(!qbevent)break;evnt(15462);}while(r);
do{
*__INTEGER_DIMSHARED=*_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST;
if(!qbevent)break;evnt(15464);}while(r);
do{
qbs_set(__STRING_TLAYOUT,_FUNC_ALLOCARRAY_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15466);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free10.txt"
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;
cmem_sp=tmp_cmem_sp;
return *_FUNC_ALLOCARRAY_LONG_ALLOCARRAY;
}
