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 "data9.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{
*_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST=*__INTEGER_DIMSHARED;
if(!qbevent)break;evnt(14082);}while(r);
do{
*__INTEGER_DIMSHARED= 0 ;
if(!qbevent)break;evnt(14082);}while(r);
S_16636:;
if ((-(*__LONG_AUTOARRAY== 1 ))||is_error_pending()){
if(qbevent){evnt(14084);if(r)goto S_16636;}
do{
*__LONG_AUTOARRAY= 0 ;
if(!qbevent)break;evnt(14084);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_AUTOARY= 1 ;
if(!qbevent)break;evnt(14084);}while(r);
}
do{
*_FUNC_ALLOCARRAY_INTEGER_F12BUF=FUNC_CREATEBUF();
if(!qbevent)break;evnt(14086);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_STRING_ELEMENTS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14091);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_STRING_N2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14091);}while(r);
S_16643:;
if ((-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE== -2147483647 ))||is_error_pending()){
if(qbevent){evnt(14092);if(r)goto S_16643;}
do{
*_FUNC_ALLOCARRAY_LONG_STRINGARRAY= 1 ;
if(!qbevent)break;evnt(14092);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE= 8 ;
if(!qbevent)break;evnt(14092);}while(r);
}
S_16647:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ALLOCARRAY_STRING_E)== 63 )))||is_error_pending()){
if(qbevent){evnt(14094);if(r)goto S_16647;}
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(14095);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_UNDEFINED= -1 ;
if(!qbevent)break;evnt(14096);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_NUME= 1 ;
if(!qbevent)break;evnt(14097);}while(r);
S_16651:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ALLOCARRAY_STRING_E->len== 1 )))||is_error_pending()){
if(qbevent){evnt(14098);if(r)goto S_16651;}
do{
goto LABEL_UNDEFINEDARRAY;
if(!qbevent)break;evnt(14098);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_UNDEFINED= 1 ;
if(!qbevent)break;evnt(14099);}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(14100);}while(r);
do{
goto LABEL_UNDEFINEDARRAY;
if(!qbevent)break;evnt(14101);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_NUME= 1 ;
if(!qbevent)break;evnt(14106);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_N=FUNC_NUMELEMENTS(_FUNC_ALLOCARRAY_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14107);}while(r);
S_16660:;
fornext_value2441= 1 ;
fornext_finalvalue2441=*_FUNC_ALLOCARRAY_LONG_N;
fornext_step2441= 1 ;
if (fornext_step2441<0) fornext_step_negative2441=1; else fornext_step_negative2441=0;
if (is_error_pending()) goto fornext_error2441;
goto fornext_entrylabel2441;
while(1){
fornext_value2441=fornext_step2441+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2441:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2441;
if (fornext_step_negative2441){
if (fornext_value2441<fornext_finalvalue2441) break;
}else{
if (fornext_value2441>fornext_finalvalue2441) break;
}
fornext_error2441:;
if(qbevent){evnt(14108);if(r)goto S_16660;}
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(14109);}while(r);
S_16662:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(14110);if(r)goto S_16662;}
do{
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B+ 1 ;
if(!qbevent)break;evnt(14110);}while(r);
}
S_16665:;
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(14111);if(r)goto S_16665;}
do{
*_FUNC_ALLOCARRAY_LONG_NUME=*_FUNC_ALLOCARRAY_LONG_NUME+ 1 ;
if(!qbevent)break;evnt(14111);}while(r);
}
S_16668:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(14112);if(r)goto S_16668;}
do{
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B- 1 ;
if(!qbevent)break;evnt(14112);}while(r);
}
fornext_continue_2440:;
}
fornext_exit_2440:;
S_16672:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(14114);if(r)goto S_16672;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2442;
sub_file_print(tmp_fileno,qbs_new_txt_len("numelements count:",18), 0, 0, 0);
if (is_error_pending()) goto skip2442;
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_ALLOCARRAY_LONG_NUME)), 1, 0, 1);
if (is_error_pending()) goto skip2442;
skip2442:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(14114);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_DESCSTATIC= 0 ;
if(!qbevent)break;evnt(14116);}while(r);
S_16676:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(14117);if(r)goto S_16676;}
S_16677:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))!=*_FUNC_ALLOCARRAY_LONG_NUME))||is_error_pending()){
if(qbevent){evnt(14118);if(r)goto S_16677;}
S_16678:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))== -1 ))||is_error_pending()){
if(qbevent){evnt(14120);if(r)goto S_16678;}
S_16679:;
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(14121);if(r)goto S_16679;}
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(14121);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14121);}while(r);
}
S_16683:;
if ((-(*_FUNC_ALLOCARRAY_LONG_NUME== 1 ))||is_error_pending()){
if(qbevent){evnt(14122);if(r)goto S_16683;}
do{
*(int16*)(((char*)__UDT_ID)+((0+516)))= 1 ;
if(!qbevent)break;evnt(14122);}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516)))= 1 ;
if(!qbevent)break;evnt(14122);}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(14123);}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(14125);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14125);}while(r);
}
}
S_16693:;
if ((*(int16*)(((char*)__UDT_ID)+((0+518))))||is_error_pending()){
if(qbevent){evnt(14129);if(r)goto S_16693;}
do{
*_FUNC_ALLOCARRAY_LONG_DESCSTATIC= 1 ;
if(!qbevent)break;evnt(14129);}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(14132);}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(14134);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14135);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 1 ;
if(!qbevent)break;evnt(14136);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_EI=( 4 )+(*_FUNC_ALLOCARRAY_LONG_NUME* 4 )-( 4 );
if(!qbevent)break;evnt(14137);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_CURE= 1 ;
if(!qbevent)break;evnt(14138);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14139);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14139);}while(r);
S_16705:;
fornext_value2444= 1 ;
fornext_finalvalue2444=*_FUNC_ALLOCARRAY_LONG_N;
fornext_step2444= 1 ;
if (fornext_step2444<0) fornext_step_negative2444=1; else fornext_step_negative2444=0;
if (is_error_pending()) goto fornext_error2444;
goto fornext_entrylabel2444;
while(1){
fornext_value2444=fornext_step2444+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2444:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2444;
if (fornext_step_negative2444){
if (fornext_value2444<fornext_finalvalue2444) break;
}else{
if (fornext_value2444>fornext_finalvalue2444) break;
}
fornext_error2444:;
if(qbevent){evnt(14140);if(r)goto S_16705;}
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(14141);}while(r);
S_16707:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(14142);if(r)goto S_16707;}
do{
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B+ 1 ;
if(!qbevent)break;evnt(14142);}while(r);
}
S_16710:;
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(14143);if(r)goto S_16710;}
S_16711:;
if ((-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))||is_error_pending()){
if(qbevent){evnt(14144);if(r)goto S_16711;}
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(14144);}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(14145);}while(r);
S_16715:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(14146);if(r)goto S_16715;}
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(14146);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_BASEGIVEN= 1 ;
if(!qbevent)break;evnt(14150);}while(r);
S_16719:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(14151);if(r)goto S_16719;}
S_16720:;
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(14155);if(r)goto S_16720;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("0",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14156);}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(14158);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_BASEGIVEN= 0 ;
if(!qbevent)break;evnt(14160);}while(r);
}
do{
*__INTEGER_CONSTEQUATION= 1 ;
if(!qbevent)break;evnt(14162);}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(14164);}while(r);
S_16729:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14165);if(r)goto S_16729;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14165);}while(r);
}
S_16732:;
if ((*_FUNC_ALLOCARRAY_LONG_BASEGIVEN)||is_error_pending()){
if(qbevent){evnt(14166);if(r)goto S_16732;}
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(14166);}while(r);
}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3BASE,&(pass2447= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14167);}while(r);
S_16736:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14168);if(r)goto S_16736;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14168);}while(r);
}
S_16739:;
if ((-(*__INTEGER_CONSTEQUATION== 0 ))||is_error_pending()){
if(qbevent){evnt(14170);if(r)goto S_16739;}
do{
*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 0 ;
if(!qbevent)break;evnt(14170);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_LOWER_BOUND_IS_CONST=*__INTEGER_CONSTEQUATION;
if(!qbevent)break;evnt(14171);}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(14172);}while(r);
do{
*__INTEGER_CONSTEQUATION= 1 ;
if(!qbevent)break;evnt(14174);}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(14176);}while(r);
S_16746:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14177);if(r)goto S_16746;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14177);}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(14178);}while(r);
S_16750:;
if ((-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))||is_error_pending()){
if(qbevent){evnt(14179);if(r)goto S_16750;}
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(14179);}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(14179);}while(r);
}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3,&(pass2448= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14180);}while(r);
S_16756:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14181);if(r)goto S_16756;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14181);}while(r);
}
S_16759:;
if ((-(*__INTEGER_CONSTEQUATION== 0 ))||is_error_pending()){
if(qbevent){evnt(14183);if(r)goto S_16759;}
do{
*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 0 ;
if(!qbevent)break;evnt(14183);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_UPPER_BOUND_IS_CONST=*__INTEGER_CONSTEQUATION;
if(!qbevent)break;evnt(14184);}while(r);
S_16763:;
if ((*_FUNC_ALLOCARRAY_LONG_UPPER_BOUND_IS_CONST)||is_error_pending()){
if(qbevent){evnt(14188);if(r)goto S_16763;}
S_16764:;
if ((*_FUNC_ALLOCARRAY_LONG_BASEGIVEN)||is_error_pending()){
if(qbevent){evnt(14189);if(r)goto S_16764;}
S_16765:;
if ((*_FUNC_ALLOCARRAY_LONG_LOWER_BOUND_IS_CONST)||is_error_pending()){
if(qbevent){evnt(14190);if(r)goto S_16765;}
S_16766:;
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(14191);if(r)goto S_16766;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid array bounds",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14191);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14191);}while(r);
}
}
}else{
S_16772:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(_FUNC_ALLOCARRAY_STRING_E3)< 0 )))||is_error_pending()){
if(qbevent){evnt(14194);if(r)goto S_16772;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid array bounds",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14194);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14194);}while(r);
}
}
}
do{
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ;
if(!qbevent)break;evnt(14198);}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(14199);}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(14200);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ;
if(!qbevent)break;evnt(14201);}while(r);
S_16782:;
if ((-(*_FUNC_ALLOCARRAY_LONG_CURE== 1 ))||is_error_pending()){
if(qbevent){evnt(14203);if(r)goto S_16782;}
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(14205);}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(14207);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ;
if(!qbevent)break;evnt(14209);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ;
if(!qbevent)break;evnt(14210);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI- 8 ;
if(!qbevent)break;evnt(14211);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_CURE=*_FUNC_ALLOCARRAY_LONG_CURE+ 1 ;
if(!qbevent)break;evnt(14212);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14213);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14213);}while(r);
do{
goto LABEL_AANEXTE;
if(!qbevent)break;evnt(14214);}while(r);
}
S_16795:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(14216);if(r)goto S_16795;}
do{
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B- 1 ;
if(!qbevent)break;evnt(14216);}while(r);
}
S_16798:;
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(14217);if(r)goto S_16798;}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,_FUNC_ALLOCARRAY_STRING_E3);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14218);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14219);}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(14221);}while(r);
}
LABEL_AANEXTE:;
if(qbevent){evnt(14223);r=0;}
fornext_continue_2443:;
}
fornext_exit_2443:;
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(14225);}while(r);
LABEL_UNDEFINEDARRAY:;
if(qbevent){evnt(14227);r=0;}
do{
*_FUNC_ALLOCARRAY_LONG_CMEM= 0 ;
if(!qbevent)break;evnt(14230);}while(r);
S_16807:;
if ((-(*__INTEGER_ARRAYDESC== 0 ))||is_error_pending()){
if(qbevent){evnt(14231);if(r)goto S_16807;}
S_16808:;
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(14232);if(r)goto S_16808;}
do{
*_FUNC_ALLOCARRAY_LONG_CMEM= 1 ;
if(!qbevent)break;evnt(14232);}while(r);
}
}else{
S_16812:;
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__INTEGER_ARRAYDESC)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
if(qbevent){evnt(14234);if(r)goto S_16812;}
do{
*_FUNC_ALLOCARRAY_LONG_CMEM= 1 ;
if(!qbevent)break;evnt(14234);}while(r);
}
}
do{
*_FUNC_ALLOCARRAY_LONG_STATICARRAY=*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS;
if(!qbevent)break;evnt(14237);}while(r);
S_16817:;
if (((-(*__LONG_SUBFUNCN!= 0 ))&(-(*__LONG_DIMSTATIC== 0 )))||is_error_pending()){
if(qbevent){evnt(14238);if(r)goto S_16817;}
do{
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
if(!qbevent)break;evnt(14238);}while(r);
}
S_16820:;
if ((-(*__LONG_DIMSTATIC== 3 ))||is_error_pending()){
if(qbevent){evnt(14239);if(r)goto S_16820;}
do{
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
if(!qbevent)break;evnt(14239);}while(r);
}
S_16823:;
if ((*__INTEGER_DYNAMICMODE)||is_error_pending()){
if(qbevent){evnt(14240);if(r)goto S_16823;}
do{
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
if(!qbevent)break;evnt(14240);}while(r);
}
S_16826:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(14241);if(r)goto S_16826;}
do{
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
if(!qbevent)break;evnt(14241);}while(r);
}
S_16829:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(14242);if(r)goto S_16829;}
do{
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
if(!qbevent)break;evnt(14242);}while(r);
}
S_16832:;
if ((*__INTEGER_ARRAYDESC)||is_error_pending()){
if(qbevent){evnt(14244);if(r)goto S_16832;}
S_16833:;
if ((-(*_FUNC_ALLOCARRAY_LONG_STATICARRAY== 1 ))||is_error_pending()){
if(qbevent){evnt(14245);if(r)goto S_16833;}
S_16834:;
if ((*_FUNC_ALLOCARRAY_LONG_DESCSTATIC)||is_error_pending()){
if(qbevent){evnt(14246);if(r)goto S_16834;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot redefine a static array!",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14246);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14246);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
if(!qbevent)break;evnt(14247);}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(14256);}while(r);
S_16842:;
if ((-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE< 0 ))||is_error_pending()){
if(qbevent){evnt(14257);if(r)goto S_16842;}
do{
*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE=-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE);
if(!qbevent)break;evnt(14258);}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(14259);}while(r);
}
S_16846:;
if ((-(*__INTEGER_ARRAYDESC== 0 ))||is_error_pending()){
if(qbevent){evnt(14264);if(r)goto S_16846;}
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(14265);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2450=*__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(14266);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2451=*__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(14267);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2452=*__LONG_DATATXTBUF),qbs_new_txt_len("new_mem_lock();",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14269);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2453=*__LONG_DATATXTBUF),qbs_new_txt_len("mem_lock_tmp->type=4;",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14270);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2454=*__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(14271);}while(r);
}
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14275);}while(r);
S_16855:;
fornext_value2456= 1 ;
fornext_finalvalue2456=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2456= 1 ;
if (fornext_step2456<0) fornext_step_negative2456=1; else fornext_step_negative2456=0;
if (is_error_pending()) goto fornext_error2456;
goto fornext_entrylabel2456;
while(1){
fornext_value2456=fornext_step2456+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2456:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2456;
if (fornext_step_negative2456){
if (fornext_value2456<fornext_finalvalue2456) break;
}else{
if (fornext_value2456>fornext_finalvalue2456) break;
}
fornext_error2456:;
if(qbevent){evnt(14276);if(r)goto S_16855;}
S_16856:;
if ((-(*_FUNC_ALLOCARRAY_LONG_I!= 1 ))||is_error_pending()){
if(qbevent){evnt(14277);if(r)goto S_16856;}
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(14277);}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(14278);}while(r);
fornext_continue_2455:;
}
fornext_exit_2455:;
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ELESIZESTR,_FUNC_ALLOCARRAY_STRING_SIZESTR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14280);}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(14281);}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(14286);}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(14287);}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(14288);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_COMMITDESC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14289);}while(r);
S_16867:;
fornext_value2458= 4 ;
fornext_finalvalue2458=( 4 )+(*_FUNC_ALLOCARRAY_LONG_NUME* 4 )-( 1 );
fornext_step2458= 1 ;
if (fornext_step2458<0) fornext_step_negative2458=1; else fornext_step_negative2458=0;
if (is_error_pending()) goto fornext_error2458;
goto fornext_entrylabel2458;
while(1){
fornext_value2458=fornext_step2458+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2458:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2458;
if (fornext_step_negative2458){
if (fornext_value2458<fornext_finalvalue2458) break;
}else{
if (fornext_value2458>fornext_finalvalue2458) break;
}
fornext_error2458:;
if(qbevent){evnt(14290);if(r)goto S_16867;}
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(14291);}while(r);
fornext_continue_2457:;
}
fornext_exit_2457:;
S_16870:;
if ((qbs_cleanup(qbs_tmp_base,_FUNC_ALLOCARRAY_STRING_COMMITDESC->len))||is_error_pending()){
if(qbevent){evnt(14293);if(r)goto S_16870;}
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(14293);}while(r);
}
S_16873:;
if ((*_FUNC_ALLOCARRAY_LONG_STATICARRAY)||is_error_pending()){
if(qbevent){evnt(14298);if(r)goto S_16873;}
do{
SUB_WRITEBUFLINE(&(pass2461=*__LONG_DATATXTBUF),_FUNC_ALLOCARRAY_STRING_SD);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14300);}while(r);
S_16875:;
if ((*_FUNC_ALLOCARRAY_LONG_CMEM&(-(*_FUNC_ALLOCARRAY_LONG_STRINGARRAY== 0 )))||is_error_pending()){
if(qbevent){evnt(14305);if(r)goto S_16875;}
do{
SUB_WRITEBUFLINE(&(pass2462=*__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(14308);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2463=*__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(14310);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2464=*__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(14312);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2465=*__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(14314);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2466=*__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(14316);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass2467=*__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(14319);}while(r);
S_16883:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
if(qbevent){evnt(14320);if(r)goto S_16883;}
do{
SUB_WRITEBUFLINE(&(pass2468=*__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(14322);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2469=*__LONG_DATATXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14323);}while(r);
S_16886:;
if ((*_FUNC_ALLOCARRAY_LONG_CMEM)||is_error_pending()){
if(qbevent){evnt(14324);if(r)goto S_16886;}
do{
SUB_WRITEBUFLINE(&(pass2470=*__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(14325);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass2471=*__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(14327);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2472=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14329);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass2473=*__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(14332);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2474=*__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(14334);}while(r);
}
S_16897:;
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(14337);if(r)goto S_16897;}
do{
SUB_WRITEBUFLINE(&(pass2475=*__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(14338);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2476=*__LONG_DATATXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14339);}while(r);
do{
SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2477= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14340);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2478=*__LONG_DATATXTBUF),_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14341);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2479=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14342);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2480=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14346);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY=*_FUNC_ALLOCARRAY_LONG_NUME+ 65536 ;
if(!qbevent)break;evnt(14347);}while(r);
}
S_16907:;
if ((-(*_FUNC_ALLOCARRAY_LONG_STATICARRAY== 0 ))||is_error_pending()){
if(qbevent){evnt(14352);if(r)goto S_16907;}
S_16908:;
if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== 0 ))||is_error_pending()){
if(qbevent){evnt(14354);if(r)goto S_16908;}
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(14359);}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(14360);}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(14361);}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(14366);}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(14367);}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(14368);}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(14369);}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(14370);}while(r);
S_16917:;
if ((-(*__INTEGER_REDIMOPTION== 0 ))||is_error_pending()){
if(qbevent){evnt(14371);if(r)goto S_16917;}
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(14372);}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(14373);}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(14374);}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(14380);}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(14381);}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(14382);}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(14383);}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(14384);}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(14385);}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(14386);}while(r);
S_16929:;
if ((-(*__INTEGER_REDIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(14387);if(r)goto S_16929;}
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(14388);}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(14389);}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(14390);}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(14391);}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(14392);}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(14393);}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(14394);}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(14395);}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(14398);}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(14399);}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(14400);}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(14401);}while(r);
S_16943:;
if ((-(*__INTEGER_REDIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(14402);if(r)goto S_16943;}
S_16944:;
fornext_value2482= 4 ;
fornext_finalvalue2482=( 4 )+(*_FUNC_ALLOCARRAY_LONG_NUME* 4 )-( 1 );
fornext_step2482= 1 ;
if (fornext_step2482<0) fornext_step_negative2482=1; else fornext_step_negative2482=0;
if (is_error_pending()) goto fornext_error2482;
goto fornext_entrylabel2482;
while(1){
fornext_value2482=fornext_step2482+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2482:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2482;
if (fornext_step_negative2482){
if (fornext_value2482<fornext_finalvalue2482) break;
}else{
if (fornext_value2482>fornext_finalvalue2482) break;
}
fornext_error2482:;
if(qbevent){evnt(14403);if(r)goto S_16944;}
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(14404);}while(r);
fornext_continue_2481:;
}
fornext_exit_2481:;
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14407);}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(14408);}while(r);
S_16950:;
if ((-(*__INTEGER_REDIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(14409);if(r)goto S_16950;}
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(14409);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14410);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_NEWSD);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14417);}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(14418);}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(14419);}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(14420);}while(r);
S_16959:;
fornext_value2484= 1 ;
fornext_finalvalue2484=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2484= 1 ;
if (fornext_step2484<0) fornext_step_negative2484=1; else fornext_step_negative2484=0;
if (is_error_pending()) goto fornext_error2484;
goto fornext_entrylabel2484;
while(1){
fornext_value2484=fornext_step2484+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2484:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2484;
if (fornext_step_negative2484){
if (fornext_value2484<fornext_finalvalue2484) break;
}else{
if (fornext_value2484>fornext_finalvalue2484) break;
}
fornext_error2484:;
if(qbevent){evnt(14421);if(r)goto S_16959;}
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=(*_FUNC_ALLOCARRAY_LONG_I* 4 )-( 4 )+( 4 );
if(!qbevent)break;evnt(14422);}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(14423);}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(14424);}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(14425);}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(14426);}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(14427);}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(14428);}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(14429);}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(14430);}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(14431);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14432);}while(r);
fornext_continue_2483:;
}
fornext_exit_2483:;
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(14434);}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(14435);}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(14436);}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(14437);}while(r);
S_16976:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(14439);if(r)goto S_16976;}
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(14440);}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(14441);}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(14442);}while(r);
}
S_16981:;
if ((-(*__INTEGER_REDIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(14445);if(r)goto S_16981;}
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(14446);}while(r);
S_16983:;
fornext_value2486= 1 ;
fornext_finalvalue2486=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2486= 1 ;
if (fornext_step2486<0) fornext_step_negative2486=1; else fornext_step_negative2486=0;
if (is_error_pending()) goto fornext_error2486;
goto fornext_entrylabel2486;
while(1){
fornext_value2486=fornext_step2486+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2486:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2486;
if (fornext_step_negative2486){
if (fornext_value2486<fornext_finalvalue2486) break;
}else{
if (fornext_value2486>fornext_finalvalue2486) break;
}
fornext_error2486:;
if(qbevent){evnt(14447);if(r)goto S_16983;}
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME-*_FUNC_ALLOCARRAY_LONG_I)* 4 )+( 4 );
if(!qbevent)break;evnt(14448);}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(14449);}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(14450);}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(14451);}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(14452);}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(14453);}while(r);
fornext_continue_2485:;
}
fornext_exit_2485:;
}
S_16992:;
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])]))||is_error_pending()){
if(qbevent){evnt(14457);if(r)goto S_16992;}
S_16993:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(14461);if(r)goto S_16993;}
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(14462);}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(14463);}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(14464);}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(14465);}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(14466);}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(14467);}while(r);
S_17000:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
if(qbevent){evnt(14470);if(r)goto S_17000;}
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(14471);}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(14472);}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(14473);}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(14474);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14475);}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(14477);}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(14478);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14479);}while(r);
do{
SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2487= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14480);}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(14481);}while(r);
}
S_17013:;
if ((-(*__INTEGER_REDIMOPTION== 2 ))||is_error_pending()){
if(qbevent){evnt(14484);if(r)goto S_17013;}
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(14485);}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(14486);}while(r);
S_17016:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
if(qbevent){evnt(14487);if(r)goto S_17016;}
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(14488);}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(14490);}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(14491);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14492);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14494);}while(r);
S_17024:;
}else{
if (-(*__INTEGER_REDIMOPTION== 3 )){
if(qbevent){evnt(14495);if(r)goto S_17024;}
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(14497);}while(r);
S_17026:;
fornext_value2489= 0 ;
fornext_finalvalue2489=*_FUNC_ALLOCARRAY_LONG_NUME- 1 ;
fornext_step2489= 1 ;
if (fornext_step2489<0) fornext_step_negative2489=1; else fornext_step_negative2489=0;
if (is_error_pending()) goto fornext_error2489;
goto fornext_entrylabel2489;
while(1){
fornext_value2489=fornext_step2489+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2489:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2489;
if (fornext_step_negative2489){
if (fornext_value2489<fornext_finalvalue2489) break;
}else{
if (fornext_value2489>fornext_finalvalue2489) break;
}
fornext_error2489:;
if(qbevent){evnt(14498);if(r)goto S_17026;}
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(14499);}while(r);
fornext_continue_2488:;
}
fornext_exit_2488:;
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("for(;;){",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14501);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME- 1 )* 4 )+( 4 );
if(!qbevent)break;evnt(14502);}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(14503);}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(14504);}while(r);
S_17033:;
fornext_value2491= 2 ;
fornext_finalvalue2491=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2491= 1 ;
if (fornext_step2491<0) fornext_step_negative2491=1; else fornext_step_negative2491=0;
if (is_error_pending()) goto fornext_error2491;
goto fornext_entrylabel2491;
while(1){
fornext_value2491=fornext_step2491+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2491:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2491;
if (fornext_step_negative2491){
if (fornext_value2491<fornext_finalvalue2491) break;
}else{
if (fornext_value2491>fornext_finalvalue2491) break;
}
fornext_error2491:;
if(qbevent){evnt(14505);if(r)goto S_17033;}
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME-*_FUNC_ALLOCARRAY_LONG_I)* 4 )+( 4 );
if(!qbevent)break;evnt(14506);}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(14507);}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(14508);}while(r);
fornext_continue_2490:;
}
fornext_exit_2490:;
S_17038:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
if(qbevent){evnt(14511);if(r)goto S_17038;}
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(14512);}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(14514);}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(14515);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14516);}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(14519);}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(14520);}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(14521);}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(14522);}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(14523);}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(14524);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14525);}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(14526);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14527);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14528);}while(r);
}
}
S_17056:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
if(qbevent){evnt(14532);if(r)goto S_17056;}
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(14533);}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(14534);}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(14535);}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(14537);}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(14538);}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(14539);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14540);}while(r);
do{
SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2492= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14541);}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(14542);}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(14543);}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(14546);}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(14547);}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(14551);}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(14552);}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(14553);}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(14554);}while(r);
S_17076:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
if(qbevent){evnt(14558);if(r)goto S_17076;}
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(14559);}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(14560);}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(14561);}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(14562);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14563);}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(14565);}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(14566);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14567);}while(r);
do{
SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2493= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14568);}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(14569);}while(r);
}
S_17089:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(14572);if(r)goto S_17089;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14573);}while(r);
}
S_17092:;
if ((-(*__INTEGER_ARRAYDESC== 0 ))||is_error_pending()){
if(qbevent){evnt(14578);if(r)goto S_17092;}
do{
SUB_WRITEBUFLINE(&(pass2494=*__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(14579);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2495=*__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(14580);}while(r);
S_17095:;
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(14581);if(r)goto S_17095;}
do{
SUB_WRITEBUFLINE(&(pass2496=*__LONG_FREETXTBUF),qbs_new_txt_len("while(tmp_long--) {",19));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14582);}while(r);
do{
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14583);}while(r);
do{
SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2497= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14584);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2498=*__LONG_FREETXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("}",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14585);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass2499=*__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(14587);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2500=*__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(14589);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2501=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14590);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2502=*__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(14592);}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(14599);}while(r);
S_17109:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(14601);if(r)goto S_17109;}
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(14602);}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(14603);}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(14604);}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(14605);}while(r);
S_17114:;
if ((-(*__INTEGER_REDIMOPTION== 2 ))||is_error_pending()){
if(qbevent){evnt(14606);if(r)goto S_17114;}
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(14607);}while(r);
S_17116:;
}else{
if (-(*__INTEGER_REDIMOPTION== 3 )){
if(qbevent){evnt(14608);if(r)goto S_17116;}
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(14609);}while(r);
S_17118:;
fornext_value2504= 0 ;
fornext_finalvalue2504=*_FUNC_ALLOCARRAY_LONG_NUME- 1 ;
fornext_step2504= 1 ;
if (fornext_step2504<0) fornext_step_negative2504=1; else fornext_step_negative2504=0;
if (is_error_pending()) goto fornext_error2504;
goto fornext_entrylabel2504;
while(1){
fornext_value2504=fornext_step2504+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2504:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2504;
if (fornext_step_negative2504){
if (fornext_value2504<fornext_finalvalue2504) break;
}else{
if (fornext_value2504>fornext_finalvalue2504) break;
}
fornext_error2504:;
if(qbevent){evnt(14610);if(r)goto S_17118;}
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(14611);}while(r);
fornext_continue_2503:;
}
fornext_exit_2503:;
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("for(;;){",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14613);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME- 1 )* 4 )+( 4 );
if(!qbevent)break;evnt(14614);}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(14615);}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(14616);}while(r);
S_17125:;
fornext_value2506= 2 ;
fornext_finalvalue2506=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2506= 1 ;
if (fornext_step2506<0) fornext_step_negative2506=1; else fornext_step_negative2506=0;
if (is_error_pending()) goto fornext_error2506;
goto fornext_entrylabel2506;
while(1){
fornext_value2506=fornext_step2506+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2506:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2506;
if (fornext_step_negative2506){
if (fornext_value2506<fornext_finalvalue2506) break;
}else{
if (fornext_value2506>fornext_finalvalue2506) break;
}
fornext_error2506:;
if(qbevent){evnt(14617);if(r)goto S_17125;}
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME-*_FUNC_ALLOCARRAY_LONG_I)* 4 )+( 4 );
if(!qbevent)break;evnt(14618);}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(14619);}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(14620);}while(r);
fornext_continue_2505:;
}
fornext_exit_2505:;
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(14622);}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(14623);}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(14624);}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(14625);}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(14626);}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(14627);}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(14628);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14629);}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(14630);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14631);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14632);}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(14634);}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(14635);}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(14636);}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(14637);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14638);}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(14639);}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(14640);}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(14644);}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(14645);}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(14646);}while(r);
S_17153:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(14648);if(r)goto S_17153;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14649);}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(14652);}while(r);
S_17157:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(14654);if(r)goto S_17157;}
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(14655);}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(14656);}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(14657);}while(r);
S_17161:;
if ((-(*__INTEGER_REDIMOPTION== 2 ))||is_error_pending()){
if(qbevent){evnt(14658);if(r)goto S_17161;}
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(14659);}while(r);
S_17163:;
}else{
if (-(*__INTEGER_REDIMOPTION== 3 )){
if(qbevent){evnt(14660);if(r)goto S_17163;}
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(14661);}while(r);
S_17165:;
fornext_value2508= 0 ;
fornext_finalvalue2508=*_FUNC_ALLOCARRAY_LONG_NUME- 1 ;
fornext_step2508= 1 ;
if (fornext_step2508<0) fornext_step_negative2508=1; else fornext_step_negative2508=0;
if (is_error_pending()) goto fornext_error2508;
goto fornext_entrylabel2508;
while(1){
fornext_value2508=fornext_step2508+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2508:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2508;
if (fornext_step_negative2508){
if (fornext_value2508<fornext_finalvalue2508) break;
}else{
if (fornext_value2508>fornext_finalvalue2508) break;
}
fornext_error2508:;
if(qbevent){evnt(14662);if(r)goto S_17165;}
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(14663);}while(r);
fornext_continue_2507:;
}
fornext_exit_2507:;
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("for(;;){",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14665);}while(r);
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME- 1 )* 4 )+( 4 );
if(!qbevent)break;evnt(14666);}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(14667);}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(14668);}while(r);
S_17172:;
fornext_value2510= 2 ;
fornext_finalvalue2510=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2510= 1 ;
if (fornext_step2510<0) fornext_step_negative2510=1; else fornext_step_negative2510=0;
if (is_error_pending()) goto fornext_error2510;
goto fornext_entrylabel2510;
while(1){
fornext_value2510=fornext_step2510+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2510:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2510;
if (fornext_step_negative2510){
if (fornext_value2510<fornext_finalvalue2510) break;
}else{
if (fornext_value2510>fornext_finalvalue2510) break;
}
fornext_error2510:;
if(qbevent){evnt(14669);if(r)goto S_17172;}
do{
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME-*_FUNC_ALLOCARRAY_LONG_I)* 4 )+( 4 );
if(!qbevent)break;evnt(14670);}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(14671);}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(14672);}while(r);
fornext_continue_2509:;
}
fornext_exit_2509:;
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(14674);}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(14675);}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(14676);}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(14677);}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(14678);}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(14679);}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(14680);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14681);}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(14682);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14683);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14684);}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(14686);}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(14687);}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(14688);}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(14689);}while(r);
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14690);}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(14691);}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(14692);}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(14695);}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(14696);}while(r);
S_17199:;
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
if(qbevent){evnt(14697);if(r)goto S_17199;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14698);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14702);}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(14703);}while(r);
S_17204:;
if ((-(*__INTEGER_ARRAYDESC== 0 ))||is_error_pending()){
if(qbevent){evnt(14706);if(r)goto S_17204;}
do{
SUB_WRITEBUFLINE(&(pass2511=*__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(14707);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2512=*__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(14708);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2513=*__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(14709);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2514=*__LONG_FREETXTBUF),qbs_new_txt_len("}else{",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14710);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2515=*__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(14711);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2516=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14712);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2517=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14713);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2518=*__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(14715);}while(r);
}
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_COMMITDESC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14719);}while(r);
}
S_17217:;
if ((-(*__INTEGER_ARRAYDESC== 0 ))||is_error_pending()){
if(qbevent){evnt(14724);if(r)goto S_17217;}
S_17218:;
if ((*_FUNC_ALLOCARRAY_LONG_CMEM)||is_error_pending()){
if(qbevent){evnt(14726);if(r)goto S_17218;}
do{
SUB_WRITEBUFLINE(&(pass2519=*__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(14726);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass2520=*__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(14726);}while(r);
}
S_17223:;
fornext_value2522= 1 ;
fornext_finalvalue2522=*_FUNC_ALLOCARRAY_LONG_NUME;
fornext_step2522= 1 ;
if (fornext_step2522<0) fornext_step_negative2522=1; else fornext_step_negative2522=0;
if (is_error_pending()) goto fornext_error2522;
goto fornext_entrylabel2522;
while(1){
fornext_value2522=fornext_step2522+(*_FUNC_ALLOCARRAY_LONG_I);
fornext_entrylabel2522:
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2522;
if (fornext_step_negative2522){
if (fornext_value2522<fornext_finalvalue2522) break;
}else{
if (fornext_value2522>fornext_finalvalue2522) break;
}
fornext_error2522:;
if(qbevent){evnt(14728);if(r)goto S_17223;}
do{
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_I* 4 ;
if(!qbevent)break;evnt(14729);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2523=*__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(14730);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2524=*__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(14731);}while(r);
do{
SUB_WRITEBUFLINE(&(pass2525=*__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(14732);}while(r);
fornext_continue_2521:;
}
fornext_exit_2521:;
S_17229:;
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
if(qbevent){evnt(14734);if(r)goto S_17229;}
do{
SUB_WRITEBUFLINE(&(pass2526=*__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(14736);}while(r);
}else{
do{
SUB_WRITEBUFLINE(&(pass2527=*__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(14739);}while(r);
}
do{
SUB_WRITEBUFLINE(&(pass2528=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14741);}while(r);
}
S_17236:;
if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== 0 ))||is_error_pending()){
if(qbevent){evnt(14744);if(r)goto S_17236;}
S_17237:;
if ((-(*__INTEGER_REDIMOPTION== 0 ))||is_error_pending()){
if(qbevent){evnt(14746);if(r)goto S_17237;}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14746);}while(r);
}
do{
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14747);}while(r);
}
do{
*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY=*_FUNC_ALLOCARRAY_LONG_NUME;
if(!qbevent)break;evnt(14751);}while(r);
S_17243:;
if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== -1 ))||is_error_pending()){
if(qbevent){evnt(14752);if(r)goto S_17243;}
do{
*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY= -1 ;
if(!qbevent)break;evnt(14752);}while(r);
}
}
S_17247:;
if ((-(*_FUNC_ALLOCARRAY_LONG_AUTOARY== 0 ))||is_error_pending()){
if(qbevent){evnt(14756);if(r)goto S_17247;}
S_17248:;
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
if(qbevent){evnt(14757);if(r)goto S_17248;}
do{
SUB_BUFINSERTBUF(&(pass2529=*__LONG_DATATXTBUF),_FUNC_ALLOCARRAY_INTEGER_F12BUF);
if(!qbevent)break;evnt(14758);}while(r);
}else{
do{
SUB_BUFINSERTBUF(&(pass2530=*__LONG_MAINTXTBUF),_FUNC_ALLOCARRAY_INTEGER_F12BUF);
if(!qbevent)break;evnt(14760);}while(r);
}
}
do{
SUB_DISPOSEBUF(_FUNC_ALLOCARRAY_INTEGER_F12BUF);
if(!qbevent)break;evnt(14772);}while(r);
do{
*__INTEGER_DIMSHARED=*_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST;
if(!qbevent)break;evnt(14774);}while(r);
do{
qbs_set(__STRING_TLAYOUT,_FUNC_ALLOCARRAY_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14776);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free9.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;
}
