#line 14897 "qb64pe.bas"
int32 FUNC_ALLOCARRAY(qbs*_FUNC_ALLOCARRAY_STRING_N2,qbs*_FUNC_ALLOCARRAY_STRING_ELEMENTS,int32*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE,int32*_FUNC_ALLOCARRAY_LONG_UDT){
#line 14897 "qb64pe.bas"
qbs *tqbs;
#line 14897 "qb64pe.bas"
ptrszint tmp_long;
#line 14897 "qb64pe.bas"
int32 tmp_fileno;
#line 14897 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 14897 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 14897 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 14897 "qb64pe.bas"
#include "data13.txt"
#line 14897 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 14897 "qb64pe.bas"
new_mem_lock();
#line 14897 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 14897 "qb64pe.bas"
sf_mem_lock->type=3;
#line 14897 "qb64pe.bas"
libqb_check_stack();
#line 14897 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 14898 "qb64pe.bas"
do{
#line 14898 "qb64pe.bas"
if(!qbevent)break;evnt(14898);}while(r);
#line 14900 "qb64pe.bas"
do{
#line 14900 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST=*__INTEGER_DIMSHARED;
#line 14900 "qb64pe.bas"
if(!qbevent)break;evnt(14900);}while(r);
#line 14900 "qb64pe.bas"
do{
#line 14900 "qb64pe.bas"
*__INTEGER_DIMSHARED= 0 ;
#line 14900 "qb64pe.bas"
if(!qbevent)break;evnt(14900);}while(r);
#line 14901 "qb64pe.bas"
do{
#line 14901 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_DYNARRMODE=*__LONG_UDT_ALLOC_DYNMODE;
#line 14901 "qb64pe.bas"
if(!qbevent)break;evnt(14901);}while(r);
#line 14903 "qb64pe.bas"
S_17467:;
#line 14903 "qb64pe.bas"
if ((-(*__LONG_AUTOARRAY== 1 ))||is_error_pending()){
#line 14903 "qb64pe.bas"
if(qbevent){evnt(14903);if(r)goto S_17467;}
#line 14903 "qb64pe.bas"
do{
#line 14903 "qb64pe.bas"
*__LONG_AUTOARRAY= 0 ;
#line 14903 "qb64pe.bas"
if(!qbevent)break;evnt(14903);}while(r);
#line 14903 "qb64pe.bas"
do{
#line 14903 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_AUTOARY= 1 ;
#line 14903 "qb64pe.bas"
if(!qbevent)break;evnt(14903);}while(r);
#line 14903 "qb64pe.bas"
}
#line 14905 "qb64pe.bas"
do{
#line 14905 "qb64pe.bas"
*_FUNC_ALLOCARRAY_INTEGER_F12BUF=FUNC_CREATEBUF();
#line 14905 "qb64pe.bas"
if(!qbevent)break;evnt(14905);}while(r);
#line 14910 "qb64pe.bas"
do{
#line 14910 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_STRING_ELEMENTS);
#line 14910 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14910 "qb64pe.bas"
if(!qbevent)break;evnt(14910);}while(r);
#line 14910 "qb64pe.bas"
do{
#line 14910 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_STRING_N2);
#line 14910 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14910 "qb64pe.bas"
if(!qbevent)break;evnt(14910);}while(r);
#line 14911 "qb64pe.bas"
S_17474:;
#line 14911 "qb64pe.bas"
if ((-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE== -2147483647 ))||is_error_pending()){
#line 14911 "qb64pe.bas"
if(qbevent){evnt(14911);if(r)goto S_17474;}
#line 14911 "qb64pe.bas"
do{
#line 14911 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_STRINGARRAY= 1 ;
#line 14911 "qb64pe.bas"
if(!qbevent)break;evnt(14911);}while(r);
#line 14911 "qb64pe.bas"
do{
#line 14911 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE=qb_safe_idiv(*__LONG_TARGET_BITS, 8 );
#line 14911 "qb64pe.bas"
if(!qbevent)break;evnt(14911);}while(r);
#line 14911 "qb64pe.bas"
}
#line 14913 "qb64pe.bas"
S_17478:;
#line 14913 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ALLOCARRAY_STRING_E)== 63 )))||is_error_pending()){
#line 14913 "qb64pe.bas"
if(qbevent){evnt(14913);if(r)goto S_17478;}
#line 14914 "qb64pe.bas"
do{
#line 14914 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP2),qbs_new_txt_len(")",1)));
#line 14914 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14914 "qb64pe.bas"
if(!qbevent)break;evnt(14914);}while(r);
#line 14915 "qb64pe.bas"
do{
#line 14915 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_UNDEFINED= -1 ;
#line 14915 "qb64pe.bas"
if(!qbevent)break;evnt(14915);}while(r);
#line 14916 "qb64pe.bas"
do{
#line 14916 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_NUME= 1 ;
#line 14916 "qb64pe.bas"
if(!qbevent)break;evnt(14916);}while(r);
#line 14917 "qb64pe.bas"
S_17482:;
#line 14917 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ALLOCARRAY_STRING_E->len== 1 )))||is_error_pending()){
#line 14917 "qb64pe.bas"
if(qbevent){evnt(14917);if(r)goto S_17482;}
#line 14917 "qb64pe.bas"
do{
#line 14917 "qb64pe.bas"
goto LABEL_UNDEFINEDARRAY;
#line 14917 "qb64pe.bas"
if(!qbevent)break;evnt(14917);}while(r);
#line 14917 "qb64pe.bas"
}
#line 14918 "qb64pe.bas"
do{
#line 14918 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_UNDEFINED= 1 ;
#line 14918 "qb64pe.bas"
if(!qbevent)break;evnt(14918);}while(r);
#line 14919 "qb64pe.bas"
do{
#line 14919 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_NUME=qbr(qbs_val<long double>(qbs_right(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_STRING_E->len- 1 )));
#line 14919 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14919 "qb64pe.bas"
if(!qbevent)break;evnt(14919);}while(r);
#line 14920 "qb64pe.bas"
do{
#line 14920 "qb64pe.bas"
goto LABEL_UNDEFINEDARRAY;
#line 14920 "qb64pe.bas"
if(!qbevent)break;evnt(14920);}while(r);
#line 14921 "qb64pe.bas"
}
#line 14925 "qb64pe.bas"
do{
#line 14925 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_NUME= 1 ;
#line 14925 "qb64pe.bas"
if(!qbevent)break;evnt(14925);}while(r);
#line 14926 "qb64pe.bas"
do{
#line 14926 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_N=FUNC_NUMELEMENTS(_FUNC_ALLOCARRAY_STRING_E);
#line 14926 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14926 "qb64pe.bas"
if(!qbevent)break;evnt(14926);}while(r);
#line 14927 "qb64pe.bas"
S_17491:;
#line 14927 "qb64pe.bas"
fornext_value2050= 1 ;
#line 14927 "qb64pe.bas"
fornext_finalvalue2050=*_FUNC_ALLOCARRAY_LONG_N;
#line 14927 "qb64pe.bas"
fornext_step2050= 1 ;
#line 14927 "qb64pe.bas"
if (fornext_step2050<0) fornext_step_negative2050=1; else fornext_step_negative2050=0;
#line 14927 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2050;
#line 14927 "qb64pe.bas"
goto fornext_entrylabel2050;
#line 14927 "qb64pe.bas"
while(1){
#line 14927 "qb64pe.bas"
fornext_value2050=fornext_step2050+(*_FUNC_ALLOCARRAY_LONG_I);
#line 14927 "qb64pe.bas"
fornext_entrylabel2050:
#line 14927 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2050;
#line 14927 "qb64pe.bas"
if (fornext_step_negative2050){
#line 14927 "qb64pe.bas"
if (fornext_value2050<fornext_finalvalue2050) break;
#line 14927 "qb64pe.bas"
}else{
#line 14927 "qb64pe.bas"
if (fornext_value2050>fornext_finalvalue2050) break;
#line 14927 "qb64pe.bas"
}
#line 14927 "qb64pe.bas"
fornext_error2050:;
#line 14927 "qb64pe.bas"
if(qbevent){evnt(14927);if(r)goto S_17491;}
#line 14928 "qb64pe.bas"
do{
#line 14928 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E2,FUNC_GETELEMENT(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_LONG_I));
#line 14928 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14928 "qb64pe.bas"
if(!qbevent)break;evnt(14928);}while(r);
#line 14929 "qb64pe.bas"
S_17493:;
#line 14929 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 14929 "qb64pe.bas"
if(qbevent){evnt(14929);if(r)goto S_17493;}
#line 14929 "qb64pe.bas"
do{
#line 14929 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B+ 1 ;
#line 14929 "qb64pe.bas"
if(!qbevent)break;evnt(14929);}while(r);
#line 14929 "qb64pe.bas"
}
#line 14930 "qb64pe.bas"
S_17496:;
#line 14930 "qb64pe.bas"
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()){
#line 14930 "qb64pe.bas"
if(qbevent){evnt(14930);if(r)goto S_17496;}
#line 14930 "qb64pe.bas"
do{
#line 14930 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_NUME=*_FUNC_ALLOCARRAY_LONG_NUME+ 1 ;
#line 14930 "qb64pe.bas"
if(!qbevent)break;evnt(14930);}while(r);
#line 14930 "qb64pe.bas"
}
#line 14931 "qb64pe.bas"
S_17499:;
#line 14931 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 14931 "qb64pe.bas"
if(qbevent){evnt(14931);if(r)goto S_17499;}
#line 14931 "qb64pe.bas"
do{
#line 14931 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B- 1 ;
#line 14931 "qb64pe.bas"
if(!qbevent)break;evnt(14931);}while(r);
#line 14931 "qb64pe.bas"
}
#line 14932 "qb64pe.bas"
fornext_continue_2049:;
#line 14932 "qb64pe.bas"
}
#line 14932 "qb64pe.bas"
fornext_exit_2049:;
#line 14933 "qb64pe.bas"
S_17503:;
#line 14933 "qb64pe.bas"
if (( 0ll )||is_error_pending()){
#line 14933 "qb64pe.bas"
if(qbevent){evnt(14933);if(r)goto S_17503;}
#line 14933 "qb64pe.bas"
do{
#line 14933 "qb64pe.bas"
tab_spc_cr_size=2;
#line 14933 "qb64pe.bas"
tab_fileno=tmp_fileno= 9 ;
#line 14933 "qb64pe.bas"
if (is_error_pending()) goto skip2051;
#line 14933 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("numelements count:",18), 0, 0, 0);
#line 14933 "qb64pe.bas"
if (is_error_pending()) goto skip2051;
#line 14933 "qb64pe.bas"
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_ALLOCARRAY_LONG_NUME)), 1, 0, 1);
#line 14933 "qb64pe.bas"
if (is_error_pending()) goto skip2051;
#line 14933 "qb64pe.bas"
skip2051:
#line 14933 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14933 "qb64pe.bas"
tab_spc_cr_size=1;
#line 14933 "qb64pe.bas"
if(!qbevent)break;evnt(14933);}while(r);
#line 14933 "qb64pe.bas"
}
#line 14935 "qb64pe.bas"
do{
#line 14935 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_DESCSTATIC= 0 ;
#line 14935 "qb64pe.bas"
if(!qbevent)break;evnt(14935);}while(r);
#line 14936 "qb64pe.bas"
S_17507:;
#line 14936 "qb64pe.bas"
if ((*__LONG_ARRAYDESC)||is_error_pending()){
#line 14936 "qb64pe.bas"
if(qbevent){evnt(14936);if(r)goto S_17507;}
#line 14937 "qb64pe.bas"
S_17508:;
#line 14937 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))!=*_FUNC_ALLOCARRAY_LONG_NUME))||is_error_pending()){
#line 14937 "qb64pe.bas"
if(qbevent){evnt(14937);if(r)goto S_17508;}
#line 14939 "qb64pe.bas"
S_17509:;
#line 14939 "qb64pe.bas"
if ((-(*(int16*)(((char*)__UDT_ID)+((0+516)))== -1 ))||is_error_pending()){
#line 14939 "qb64pe.bas"
if(qbevent){evnt(14939);if(r)goto S_17509;}
#line 14940 "qb64pe.bas"
S_17510:;
#line 14940 "qb64pe.bas"
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()){
#line 14940 "qb64pe.bas"
if(qbevent){evnt(14940);if(r)goto S_17510;}
#line 14940 "qb64pe.bas"
do{
#line 14940 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50));
#line 14940 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14940 "qb64pe.bas"
if(!qbevent)break;evnt(14940);}while(r);
#line 14940 "qb64pe.bas"
do{
#line 14940 "qb64pe.bas"
goto exit_subfunc;
#line 14940 "qb64pe.bas"
if(!qbevent)break;evnt(14940);}while(r);
#line 14940 "qb64pe.bas"
}
#line 14941 "qb64pe.bas"
S_17514:;
#line 14941 "qb64pe.bas"
if ((-(*_FUNC_ALLOCARRAY_LONG_NUME== 1 ))||is_error_pending()){
#line 14941 "qb64pe.bas"
if(qbevent){evnt(14941);if(r)goto S_17514;}
#line 14941 "qb64pe.bas"
do{
#line 14941 "qb64pe.bas"
*(int16*)(((char*)__UDT_ID)+((0+516)))= 1 ;
#line 14941 "qb64pe.bas"
if(!qbevent)break;evnt(14941);}while(r);
#line 14941 "qb64pe.bas"
do{
#line 14941 "qb64pe.bas"
*(int16*)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+516)))= 1 ;
#line 14941 "qb64pe.bas"
if(!qbevent)break;evnt(14941);}while(r);
#line 14941 "qb64pe.bas"
}
#line 14942 "qb64pe.bas"
do{
#line 14942 "qb64pe.bas"
tmp_long=array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]);
#line 14942 "qb64pe.bas"
if (!is_error_pending()) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]=*_FUNC_ALLOCARRAY_LONG_NUME;
#line 14942 "qb64pe.bas"
if(!qbevent)break;evnt(14942);}while(r);
#line 14943 "qb64pe.bas"
}else{
#line 14944 "qb64pe.bas"
do{
#line 14944 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50));
#line 14944 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14944 "qb64pe.bas"
if(!qbevent)break;evnt(14944);}while(r);
#line 14944 "qb64pe.bas"
do{
#line 14944 "qb64pe.bas"
goto exit_subfunc;
#line 14944 "qb64pe.bas"
if(!qbevent)break;evnt(14944);}while(r);
#line 14945 "qb64pe.bas"
}
#line 14947 "qb64pe.bas"
}
#line 14948 "qb64pe.bas"
S_17524:;
#line 14948 "qb64pe.bas"
if ((*(int16*)(((char*)__UDT_ID)+((0+518))))||is_error_pending()){
#line 14948 "qb64pe.bas"
if(qbevent){evnt(14948);if(r)goto S_17524;}
#line 14948 "qb64pe.bas"
do{
#line 14948 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_DESCSTATIC= 1 ;
#line 14948 "qb64pe.bas"
if(!qbevent)break;evnt(14948);}while(r);
#line 14948 "qb64pe.bas"
}
#line 14949 "qb64pe.bas"
}
#line 14951 "qb64pe.bas"
do{
#line 14951 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_new_txt_len("(",1),__STRING1_SP2));
#line 14951 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14951 "qb64pe.bas"
if(!qbevent)break;evnt(14951);}while(r);
#line 14953 "qb64pe.bas"
do{
#line 14953 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_CR,qbs_add(func_chr( 13 ),func_chr( 10 )));
#line 14953 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14953 "qb64pe.bas"
if(!qbevent)break;evnt(14953);}while(r);
#line 14954 "qb64pe.bas"
do{
#line 14954 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_new_txt_len("",0));
#line 14954 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14954 "qb64pe.bas"
if(!qbevent)break;evnt(14954);}while(r);
#line 14955 "qb64pe.bas"
do{
#line 14955 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 1 ;
#line 14955 "qb64pe.bas"
if(!qbevent)break;evnt(14955);}while(r);
#line 14956 "qb64pe.bas"
do{
#line 14956 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_EI=( 4 )+(*_FUNC_ALLOCARRAY_LONG_NUME* 4 )-( 4 );
#line 14956 "qb64pe.bas"
if(!qbevent)break;evnt(14956);}while(r);
#line 14957 "qb64pe.bas"
do{
#line 14957 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_CURE= 1 ;
#line 14957 "qb64pe.bas"
if(!qbevent)break;evnt(14957);}while(r);
#line 14958 "qb64pe.bas"
do{
#line 14958 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0));
#line 14958 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14958 "qb64pe.bas"
if(!qbevent)break;evnt(14958);}while(r);
#line 14958 "qb64pe.bas"
do{
#line 14958 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0));
#line 14958 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14958 "qb64pe.bas"
if(!qbevent)break;evnt(14958);}while(r);
#line 14959 "qb64pe.bas"
S_17536:;
#line 14959 "qb64pe.bas"
fornext_value2053= 1 ;
#line 14959 "qb64pe.bas"
fornext_finalvalue2053=*_FUNC_ALLOCARRAY_LONG_N;
#line 14959 "qb64pe.bas"
fornext_step2053= 1 ;
#line 14959 "qb64pe.bas"
if (fornext_step2053<0) fornext_step_negative2053=1; else fornext_step_negative2053=0;
#line 14959 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2053;
#line 14959 "qb64pe.bas"
goto fornext_entrylabel2053;
#line 14959 "qb64pe.bas"
while(1){
#line 14959 "qb64pe.bas"
fornext_value2053=fornext_step2053+(*_FUNC_ALLOCARRAY_LONG_I);
#line 14959 "qb64pe.bas"
fornext_entrylabel2053:
#line 14959 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2053;
#line 14959 "qb64pe.bas"
if (fornext_step_negative2053){
#line 14959 "qb64pe.bas"
if (fornext_value2053<fornext_finalvalue2053) break;
#line 14959 "qb64pe.bas"
}else{
#line 14959 "qb64pe.bas"
if (fornext_value2053>fornext_finalvalue2053) break;
#line 14959 "qb64pe.bas"
}
#line 14959 "qb64pe.bas"
fornext_error2053:;
#line 14959 "qb64pe.bas"
if(qbevent){evnt(14959);if(r)goto S_17536;}
#line 14960 "qb64pe.bas"
do{
#line 14960 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E2,FUNC_GETELEMENT(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_LONG_I));
#line 14960 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14960 "qb64pe.bas"
if(!qbevent)break;evnt(14960);}while(r);
#line 14961 "qb64pe.bas"
S_17538:;
#line 14961 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
#line 14961 "qb64pe.bas"
if(qbevent){evnt(14961);if(r)goto S_17538;}
#line 14961 "qb64pe.bas"
do{
#line 14961 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B+ 1 ;
#line 14961 "qb64pe.bas"
if(!qbevent)break;evnt(14961);}while(r);
#line 14961 "qb64pe.bas"
}
#line 14962 "qb64pe.bas"
S_17541:;
#line 14962 "qb64pe.bas"
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()){
#line 14962 "qb64pe.bas"
if(qbevent){evnt(14962);if(r)goto S_17541;}
#line 14963 "qb64pe.bas"
S_17542:;
#line 14963 "qb64pe.bas"
if ((-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))||is_error_pending()){
#line 14963 "qb64pe.bas"
if(qbevent){evnt(14963);if(r)goto S_17542;}
#line 14963 "qb64pe.bas"
do{
#line 14963 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_E3,__STRING1_SP),_FUNC_ALLOCARRAY_STRING_E2));
#line 14963 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14963 "qb64pe.bas"
if(!qbevent)break;evnt(14963);}while(r);
#line 14963 "qb64pe.bas"
}
#line 14964 "qb64pe.bas"
do{
#line 14964 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_right(_FUNC_ALLOCARRAY_STRING_E3,_FUNC_ALLOCARRAY_STRING_E3->len- 1 ));
#line 14964 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14964 "qb64pe.bas"
if(!qbevent)break;evnt(14964);}while(r);
#line 14965 "qb64pe.bas"
S_17546:;
#line 14965 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 14965 "qb64pe.bas"
if(qbevent){evnt(14965);if(r)goto S_17546;}
#line 14965 "qb64pe.bas"
do{
#line 14965 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_right(_FUNC_ALLOCARRAY_STRING_E3BASE,_FUNC_ALLOCARRAY_STRING_E3BASE->len- 1 ));
#line 14965 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14965 "qb64pe.bas"
if(!qbevent)break;evnt(14965);}while(r);
#line 14965 "qb64pe.bas"
}
#line 14969 "qb64pe.bas"
do{
#line 14969 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_BASEGIVEN= 1 ;
#line 14969 "qb64pe.bas"
if(!qbevent)break;evnt(14969);}while(r);
#line 14970 "qb64pe.bas"
S_17550:;
#line 14970 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 14970 "qb64pe.bas"
if(qbevent){evnt(14970);if(r)goto S_17550;}
#line 14974 "qb64pe.bas"
S_17551:;
#line 14974 "qb64pe.bas"
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()){
#line 14974 "qb64pe.bas"
if(qbevent){evnt(14974);if(r)goto S_17551;}
#line 14975 "qb64pe.bas"
do{
#line 14975 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("0",1));
#line 14975 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14975 "qb64pe.bas"
if(!qbevent)break;evnt(14975);}while(r);
#line 14976 "qb64pe.bas"
}else{
#line 14977 "qb64pe.bas"
do{
#line 14977 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs__tostr((int64)(*__INTEGER_OPTIONBASE+ 0 ),NULL,0));
#line 14977 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14977 "qb64pe.bas"
if(!qbevent)break;evnt(14977);}while(r);
#line 14978 "qb64pe.bas"
}
#line 14979 "qb64pe.bas"
do{
#line 14979 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_BASEGIVEN= 0 ;
#line 14979 "qb64pe.bas"
if(!qbevent)break;evnt(14979);}while(r);
#line 14980 "qb64pe.bas"
}
#line 14981 "qb64pe.bas"
do{
#line 14981 "qb64pe.bas"
*__INTEGER_CONSTEQUATION= 1 ;
#line 14981 "qb64pe.bas"
if(!qbevent)break;evnt(14981);}while(r);
#line 14983 "qb64pe.bas"
do{
#line 14983 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_FIXOPERATIONORDER(_FUNC_ALLOCARRAY_STRING_E3BASE));
#line 14983 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14983 "qb64pe.bas"
if(!qbevent)break;evnt(14983);}while(r);
#line 14984 "qb64pe.bas"
S_17560:;
#line 14984 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 14984 "qb64pe.bas"
if(qbevent){evnt(14984);if(r)goto S_17560;}
#line 14984 "qb64pe.bas"
do{
#line 14984 "qb64pe.bas"
goto exit_subfunc;
#line 14984 "qb64pe.bas"
if(!qbevent)break;evnt(14984);}while(r);
#line 14984 "qb64pe.bas"
}
#line 14985 "qb64pe.bas"
S_17563:;
#line 14985 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_BASEGIVEN)||is_error_pending()){
#line 14985 "qb64pe.bas"
if(qbevent){evnt(14985);if(r)goto S_17563;}
#line 14985 "qb64pe.bas"
do{
#line 14985 "qb64pe.bas"
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));
#line 14985 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14985 "qb64pe.bas"
if(!qbevent)break;evnt(14985);}while(r);
#line 14985 "qb64pe.bas"
}
#line 14986 "qb64pe.bas"
do{
#line 14986 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3BASE,&(pass2056= 64 )));
#line 14986 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14986 "qb64pe.bas"
if(!qbevent)break;evnt(14986);}while(r);
#line 14987 "qb64pe.bas"
S_17567:;
#line 14987 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 14987 "qb64pe.bas"
if(qbevent){evnt(14987);if(r)goto S_17567;}
#line 14987 "qb64pe.bas"
do{
#line 14987 "qb64pe.bas"
goto exit_subfunc;
#line 14987 "qb64pe.bas"
if(!qbevent)break;evnt(14987);}while(r);
#line 14987 "qb64pe.bas"
}
#line 14989 "qb64pe.bas"
S_17570:;
#line 14989 "qb64pe.bas"
if ((-(*__INTEGER_CONSTEQUATION== 0 ))||is_error_pending()){
#line 14989 "qb64pe.bas"
if(qbevent){evnt(14989);if(r)goto S_17570;}
#line 14989 "qb64pe.bas"
do{
#line 14989 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 0 ;
#line 14989 "qb64pe.bas"
if(!qbevent)break;evnt(14989);}while(r);
#line 14989 "qb64pe.bas"
}
#line 14990 "qb64pe.bas"
do{
#line 14990 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_LOWER_BOUND_IS_CONST=*__INTEGER_CONSTEQUATION;
#line 14990 "qb64pe.bas"
if(!qbevent)break;evnt(14990);}while(r);
#line 14991 "qb64pe.bas"
do{
#line 14991 "qb64pe.bas"
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));
#line 14991 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14991 "qb64pe.bas"
if(!qbevent)break;evnt(14991);}while(r);
#line 14993 "qb64pe.bas"
do{
#line 14993 "qb64pe.bas"
*__INTEGER_CONSTEQUATION= 1 ;
#line 14993 "qb64pe.bas"
if(!qbevent)break;evnt(14993);}while(r);
#line 14995 "qb64pe.bas"
do{
#line 14995 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,FUNC_FIXOPERATIONORDER(_FUNC_ALLOCARRAY_STRING_E3));
#line 14995 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14995 "qb64pe.bas"
if(!qbevent)break;evnt(14995);}while(r);
#line 14996 "qb64pe.bas"
S_17577:;
#line 14996 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 14996 "qb64pe.bas"
if(qbevent){evnt(14996);if(r)goto S_17577;}
#line 14996 "qb64pe.bas"
do{
#line 14996 "qb64pe.bas"
goto exit_subfunc;
#line 14996 "qb64pe.bas"
if(!qbevent)break;evnt(14996);}while(r);
#line 14996 "qb64pe.bas"
}
#line 14997 "qb64pe.bas"
do{
#line 14997 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,__STRING_TLAYOUT),__STRING1_SP2));
#line 14997 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14997 "qb64pe.bas"
if(!qbevent)break;evnt(14997);}while(r);
#line 14998 "qb64pe.bas"
S_17581:;
#line 14998 "qb64pe.bas"
if ((-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))||is_error_pending()){
#line 14998 "qb64pe.bas"
if(qbevent){evnt(14998);if(r)goto S_17581;}
#line 14998 "qb64pe.bas"
do{
#line 14998 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(_FUNC_ALLOCARRAY_STRING_L,qbs_new_txt_len(")",1)));
#line 14998 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14998 "qb64pe.bas"
if(!qbevent)break;evnt(14998);}while(r);
#line 14998 "qb64pe.bas"
}else{
#line 14998 "qb64pe.bas"
do{
#line 14998 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,qbs_new_txt_len(",",1)),__STRING1_SP));
#line 14998 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14998 "qb64pe.bas"
if(!qbevent)break;evnt(14998);}while(r);
#line 14998 "qb64pe.bas"
}
#line 14999 "qb64pe.bas"
do{
#line 14999 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3,&(pass2057= 64 )));
#line 14999 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14999 "qb64pe.bas"
if(!qbevent)break;evnt(14999);}while(r);
#line 15000 "qb64pe.bas"
S_17587:;
#line 15000 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 15000 "qb64pe.bas"
if(qbevent){evnt(15000);if(r)goto S_17587;}
#line 15000 "qb64pe.bas"
do{
#line 15000 "qb64pe.bas"
goto exit_subfunc;
#line 15000 "qb64pe.bas"
if(!qbevent)break;evnt(15000);}while(r);
#line 15000 "qb64pe.bas"
}
#line 15002 "qb64pe.bas"
S_17590:;
#line 15002 "qb64pe.bas"
if ((-(*__INTEGER_CONSTEQUATION== 0 ))||is_error_pending()){
#line 15002 "qb64pe.bas"
if(qbevent){evnt(15002);if(r)goto S_17590;}
#line 15002 "qb64pe.bas"
do{
#line 15002 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 0 ;
#line 15002 "qb64pe.bas"
if(!qbevent)break;evnt(15002);}while(r);
#line 15002 "qb64pe.bas"
}
#line 15003 "qb64pe.bas"
do{
#line 15003 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_UPPER_BOUND_IS_CONST=*__INTEGER_CONSTEQUATION;
#line 15003 "qb64pe.bas"
if(!qbevent)break;evnt(15003);}while(r);
#line 15007 "qb64pe.bas"
S_17594:;
#line 15007 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_UPPER_BOUND_IS_CONST)||is_error_pending()){
#line 15007 "qb64pe.bas"
if(qbevent){evnt(15007);if(r)goto S_17594;}
#line 15008 "qb64pe.bas"
S_17595:;
#line 15008 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_BASEGIVEN)||is_error_pending()){
#line 15008 "qb64pe.bas"
if(qbevent){evnt(15008);if(r)goto S_17595;}
#line 15009 "qb64pe.bas"
S_17596:;
#line 15009 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_LOWER_BOUND_IS_CONST)||is_error_pending()){
#line 15009 "qb64pe.bas"
if(qbevent){evnt(15009);if(r)goto S_17596;}
#line 15010 "qb64pe.bas"
S_17597:;
#line 15010 "qb64pe.bas"
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()){
#line 15010 "qb64pe.bas"
if(qbevent){evnt(15010);if(r)goto S_17597;}
#line 15010 "qb64pe.bas"
do{
#line 15010 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid array bounds",20));
#line 15010 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15010 "qb64pe.bas"
if(!qbevent)break;evnt(15010);}while(r);
#line 15010 "qb64pe.bas"
do{
#line 15010 "qb64pe.bas"
goto exit_subfunc;
#line 15010 "qb64pe.bas"
if(!qbevent)break;evnt(15010);}while(r);
#line 15010 "qb64pe.bas"
}
#line 15011 "qb64pe.bas"
}
#line 15012 "qb64pe.bas"
}else{
#line 15013 "qb64pe.bas"
S_17603:;
#line 15013 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_val<long double>(_FUNC_ALLOCARRAY_STRING_E3)< 0 )))||is_error_pending()){
#line 15013 "qb64pe.bas"
if(qbevent){evnt(15013);if(r)goto S_17603;}
#line 15013 "qb64pe.bas"
do{
#line 15013 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid array bounds",20));
#line 15013 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15013 "qb64pe.bas"
if(!qbevent)break;evnt(15013);}while(r);
#line 15013 "qb64pe.bas"
do{
#line 15013 "qb64pe.bas"
goto exit_subfunc;
#line 15013 "qb64pe.bas"
if(!qbevent)break;evnt(15013);}while(r);
#line 15013 "qb64pe.bas"
}
#line 15014 "qb64pe.bas"
}
#line 15015 "qb64pe.bas"
}
#line 15017 "qb64pe.bas"
do{
#line 15017 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ;
#line 15017 "qb64pe.bas"
if(!qbevent)break;evnt(15017);}while(r);
#line 15018 "qb64pe.bas"
do{
#line 15018 "qb64pe.bas"
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));
#line 15018 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15018 "qb64pe.bas"
if(!qbevent)break;evnt(15018);}while(r);
#line 15019 "qb64pe.bas"
do{
#line 15019 "qb64pe.bas"
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));
#line 15019 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15019 "qb64pe.bas"
if(!qbevent)break;evnt(15019);}while(r);
#line 15020 "qb64pe.bas"
do{
#line 15020 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ;
#line 15020 "qb64pe.bas"
if(!qbevent)break;evnt(15020);}while(r);
#line 15022 "qb64pe.bas"
S_17613:;
#line 15022 "qb64pe.bas"
if ((-(*_FUNC_ALLOCARRAY_LONG_CURE== 1 ))||is_error_pending()){
#line 15022 "qb64pe.bas"
if(qbevent){evnt(15022);if(r)goto S_17613;}
#line 15024 "qb64pe.bas"
do{
#line 15024 "qb64pe.bas"
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));
#line 15024 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15024 "qb64pe.bas"
if(!qbevent)break;evnt(15024);}while(r);
#line 15025 "qb64pe.bas"
}else{
#line 15026 "qb64pe.bas"
do{
#line 15026 "qb64pe.bas"
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));
#line 15026 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15026 "qb64pe.bas"
if(!qbevent)break;evnt(15026);}while(r);
#line 15027 "qb64pe.bas"
}
#line 15028 "qb64pe.bas"
do{
#line 15028 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ;
#line 15028 "qb64pe.bas"
if(!qbevent)break;evnt(15028);}while(r);
#line 15029 "qb64pe.bas"
do{
#line 15029 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ;
#line 15029 "qb64pe.bas"
if(!qbevent)break;evnt(15029);}while(r);
#line 15030 "qb64pe.bas"
do{
#line 15030 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI- 8 ;
#line 15030 "qb64pe.bas"
if(!qbevent)break;evnt(15030);}while(r);
#line 15031 "qb64pe.bas"
do{
#line 15031 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_CURE=*_FUNC_ALLOCARRAY_LONG_CURE+ 1 ;
#line 15031 "qb64pe.bas"
if(!qbevent)break;evnt(15031);}while(r);
#line 15032 "qb64pe.bas"
do{
#line 15032 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0));
#line 15032 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15032 "qb64pe.bas"
if(!qbevent)break;evnt(15032);}while(r);
#line 15032 "qb64pe.bas"
do{
#line 15032 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0));
#line 15032 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15032 "qb64pe.bas"
if(!qbevent)break;evnt(15032);}while(r);
#line 15033 "qb64pe.bas"
do{
#line 15033 "qb64pe.bas"
goto LABEL_AANEXTE;
#line 15033 "qb64pe.bas"
if(!qbevent)break;evnt(15033);}while(r);
#line 15034 "qb64pe.bas"
}
#line 15035 "qb64pe.bas"
S_17626:;
#line 15035 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
#line 15035 "qb64pe.bas"
if(qbevent){evnt(15035);if(r)goto S_17626;}
#line 15035 "qb64pe.bas"
do{
#line 15035 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B- 1 ;
#line 15035 "qb64pe.bas"
if(!qbevent)break;evnt(15035);}while(r);
#line 15035 "qb64pe.bas"
}
#line 15036 "qb64pe.bas"
S_17629:;
#line 15036 "qb64pe.bas"
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()){
#line 15036 "qb64pe.bas"
if(qbevent){evnt(15036);if(r)goto S_17629;}
#line 15037 "qb64pe.bas"
do{
#line 15037 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,_FUNC_ALLOCARRAY_STRING_E3);
#line 15037 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15037 "qb64pe.bas"
if(!qbevent)break;evnt(15037);}while(r);
#line 15038 "qb64pe.bas"
do{
#line 15038 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0));
#line 15038 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15038 "qb64pe.bas"
if(!qbevent)break;evnt(15038);}while(r);
#line 15039 "qb64pe.bas"
}else{
#line 15040 "qb64pe.bas"
do{
#line 15040 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_E3,__STRING1_SP),_FUNC_ALLOCARRAY_STRING_E2));
#line 15040 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15040 "qb64pe.bas"
if(!qbevent)break;evnt(15040);}while(r);
#line 15041 "qb64pe.bas"
}
#line 15042 "qb64pe.bas"
LABEL_AANEXTE:;
#line 15042 "qb64pe.bas"
if(qbevent){evnt(15042);r=0;}
#line 15043 "qb64pe.bas"
fornext_continue_2052:;
#line 15043 "qb64pe.bas"
}
#line 15043 "qb64pe.bas"
fornext_exit_2052:;
#line 15044 "qb64pe.bas"
do{
#line 15044 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_left(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_SD->len- 2 ));
#line 15044 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15044 "qb64pe.bas"
if(!qbevent)break;evnt(15044);}while(r);
#line 15046 "qb64pe.bas"
LABEL_UNDEFINEDARRAY:;
#line 15046 "qb64pe.bas"
if(qbevent){evnt(15046);r=0;}
#line 15049 "qb64pe.bas"
do{
#line 15049 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_CMEM= 0 ;
#line 15049 "qb64pe.bas"
if(!qbevent)break;evnt(15049);}while(r);
#line 15050 "qb64pe.bas"
S_17638:;
#line 15050 "qb64pe.bas"
if ((-(*__LONG_ARRAYDESC== 0 ))||is_error_pending()){
#line 15050 "qb64pe.bas"
if(qbevent){evnt(15050);if(r)goto S_17638;}
#line 15051 "qb64pe.bas"
S_17639:;
#line 15051 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 15051 "qb64pe.bas"
if(qbevent){evnt(15051);if(r)goto S_17639;}
#line 15051 "qb64pe.bas"
do{
#line 15051 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_CMEM= 1 ;
#line 15051 "qb64pe.bas"
if(!qbevent)break;evnt(15051);}while(r);
#line 15051 "qb64pe.bas"
}
#line 15052 "qb64pe.bas"
}else{
#line 15053 "qb64pe.bas"
S_17643:;
#line 15053 "qb64pe.bas"
if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_ARRAYDESC)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||is_error_pending()){
#line 15053 "qb64pe.bas"
if(qbevent){evnt(15053);if(r)goto S_17643;}
#line 15053 "qb64pe.bas"
do{
#line 15053 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_CMEM= 1 ;
#line 15053 "qb64pe.bas"
if(!qbevent)break;evnt(15053);}while(r);
#line 15053 "qb64pe.bas"
}
#line 15054 "qb64pe.bas"
}
#line 15056 "qb64pe.bas"
do{
#line 15056 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_STATICARRAY=*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS;
#line 15056 "qb64pe.bas"
if(!qbevent)break;evnt(15056);}while(r);
#line 15057 "qb64pe.bas"
S_17648:;
#line 15057 "qb64pe.bas"
if (((-(*__LONG_SUBFUNCN!= 0 ))&(-(*__LONG_DIMSTATIC== 0 )))||is_error_pending()){
#line 15057 "qb64pe.bas"
if(qbevent){evnt(15057);if(r)goto S_17648;}
#line 15057 "qb64pe.bas"
do{
#line 15057 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
#line 15057 "qb64pe.bas"
if(!qbevent)break;evnt(15057);}while(r);
#line 15057 "qb64pe.bas"
}
#line 15058 "qb64pe.bas"
S_17651:;
#line 15058 "qb64pe.bas"
if ((-(*__LONG_DIMSTATIC== 3 ))||is_error_pending()){
#line 15058 "qb64pe.bas"
if(qbevent){evnt(15058);if(r)goto S_17651;}
#line 15058 "qb64pe.bas"
do{
#line 15058 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
#line 15058 "qb64pe.bas"
if(!qbevent)break;evnt(15058);}while(r);
#line 15058 "qb64pe.bas"
}
#line 15059 "qb64pe.bas"
S_17654:;
#line 15059 "qb64pe.bas"
if ((*__INTEGER_DYNAMICMODE)||is_error_pending()){
#line 15059 "qb64pe.bas"
if(qbevent){evnt(15059);if(r)goto S_17654;}
#line 15059 "qb64pe.bas"
do{
#line 15059 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
#line 15059 "qb64pe.bas"
if(!qbevent)break;evnt(15059);}while(r);
#line 15059 "qb64pe.bas"
}
#line 15060 "qb64pe.bas"
S_17657:;
#line 15060 "qb64pe.bas"
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
#line 15060 "qb64pe.bas"
if(qbevent){evnt(15060);if(r)goto S_17657;}
#line 15060 "qb64pe.bas"
do{
#line 15060 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
#line 15060 "qb64pe.bas"
if(!qbevent)break;evnt(15060);}while(r);
#line 15060 "qb64pe.bas"
}
#line 15061 "qb64pe.bas"
S_17660:;
#line 15061 "qb64pe.bas"
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
#line 15061 "qb64pe.bas"
if(qbevent){evnt(15061);if(r)goto S_17660;}
#line 15061 "qb64pe.bas"
do{
#line 15061 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
#line 15061 "qb64pe.bas"
if(!qbevent)break;evnt(15061);}while(r);
#line 15061 "qb64pe.bas"
}
#line 15063 "qb64pe.bas"
S_17663:;
#line 15063 "qb64pe.bas"
if ((*__LONG_ARRAYDESC)||is_error_pending()){
#line 15063 "qb64pe.bas"
if(qbevent){evnt(15063);if(r)goto S_17663;}
#line 15064 "qb64pe.bas"
S_17664:;
#line 15064 "qb64pe.bas"
if ((-(*_FUNC_ALLOCARRAY_LONG_STATICARRAY== 1 ))||is_error_pending()){
#line 15064 "qb64pe.bas"
if(qbevent){evnt(15064);if(r)goto S_17664;}
#line 15065 "qb64pe.bas"
S_17665:;
#line 15065 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_DESCSTATIC)||is_error_pending()){
#line 15065 "qb64pe.bas"
if(qbevent){evnt(15065);if(r)goto S_17665;}
#line 15065 "qb64pe.bas"
do{
#line 15065 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot redefine a static array!",31));
#line 15065 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15065 "qb64pe.bas"
if(!qbevent)break;evnt(15065);}while(r);
#line 15065 "qb64pe.bas"
do{
#line 15065 "qb64pe.bas"
goto exit_subfunc;
#line 15065 "qb64pe.bas"
if(!qbevent)break;evnt(15065);}while(r);
#line 15065 "qb64pe.bas"
}
#line 15066 "qb64pe.bas"
do{
#line 15066 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ;
#line 15066 "qb64pe.bas"
if(!qbevent)break;evnt(15066);}while(r);
#line 15067 "qb64pe.bas"
}
#line 15068 "qb64pe.bas"
}
#line 15079 "qb64pe.bas"
do{
#line 15079 "qb64pe.bas"
*_FUNC_ALLOCARRAY_INTEGER_BITARRAY= 0 ;
#line 15079 "qb64pe.bas"
if(!qbevent)break;evnt(15079);}while(r);
#line 15080 "qb64pe.bas"
do{
#line 15080 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE),NULL,0));
#line 15080 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15080 "qb64pe.bas"
if(!qbevent)break;evnt(15080);}while(r);
#line 15081 "qb64pe.bas"
S_17674:;
#line 15081 "qb64pe.bas"
if ((-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE< 0 ))||is_error_pending()){
#line 15081 "qb64pe.bas"
if(qbevent){evnt(15081);if(r)goto S_17674;}
#line 15082 "qb64pe.bas"
do{
#line 15082 "qb64pe.bas"
*_FUNC_ALLOCARRAY_INTEGER_BITARRAY= -1 ;
#line 15082 "qb64pe.bas"
if(!qbevent)break;evnt(15082);}while(r);
#line 15083 "qb64pe.bas"
do{
#line 15083 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE=-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE);
#line 15083 "qb64pe.bas"
if(!qbevent)break;evnt(15083);}while(r);
#line 15084 "qb64pe.bas"
do{
#line 15084 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,qbs_add(qbs__tostr((int32)(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE),NULL,0),qbs_new_txt_len("/8+1",4)));
#line 15084 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15084 "qb64pe.bas"
if(!qbevent)break;evnt(15084);}while(r);
#line 15085 "qb64pe.bas"
}
#line 15089 "qb64pe.bas"
S_17679:;
#line 15089 "qb64pe.bas"
if ((-(*__LONG_ARRAYDESC== 0 ))||is_error_pending()){
#line 15089 "qb64pe.bas"
if(qbevent){evnt(15089);if(r)goto S_17679;}
#line 15090 "qb64pe.bas"
do{
#line 15090 "qb64pe.bas"
SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("ptrszint *",10),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("=NULL;",6)));
#line 15090 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15090 "qb64pe.bas"
if(!qbevent)break;evnt(15090);}while(r);
#line 15091 "qb64pe.bas"
do{
#line 15091 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("){",2)));
#line 15091 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15091 "qb64pe.bas"
if(!qbevent)break;evnt(15091);}while(r);
#line 15092 "qb64pe.bas"
do{
#line 15092 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 15092 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15092 "qb64pe.bas"
if(!qbevent)break;evnt(15092);}while(r);
#line 15094 "qb64pe.bas"
do{
#line 15094 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("new_mem_lock();",15));
#line 15094 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15094 "qb64pe.bas"
if(!qbevent)break;evnt(15094);}while(r);
#line 15095 "qb64pe.bas"
do{
#line 15095 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("mem_lock_tmp->type=4;",21));
#line 15095 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15095 "qb64pe.bas"
if(!qbevent)break;evnt(15095);}while(r);
#line 15096 "qb64pe.bas"
do{
#line 15096 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 15096 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15096 "qb64pe.bas"
if(!qbevent)break;evnt(15096);}while(r);
#line 15097 "qb64pe.bas"
}
#line 15100 "qb64pe.bas"
do{
#line 15100 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("",0));
#line 15100 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15100 "qb64pe.bas"
if(!qbevent)break;evnt(15100);}while(r);
#line 15101 "qb64pe.bas"
S_17688:;
#line 15101 "qb64pe.bas"
fornext_value2060= 1 ;
#line 15101 "qb64pe.bas"
fornext_finalvalue2060=*_FUNC_ALLOCARRAY_LONG_NUME;
#line 15101 "qb64pe.bas"
fornext_step2060= 1 ;
#line 15101 "qb64pe.bas"
if (fornext_step2060<0) fornext_step_negative2060=1; else fornext_step_negative2060=0;
#line 15101 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2060;
#line 15101 "qb64pe.bas"
goto fornext_entrylabel2060;
#line 15101 "qb64pe.bas"
while(1){
#line 15101 "qb64pe.bas"
fornext_value2060=fornext_step2060+(*_FUNC_ALLOCARRAY_LONG_I);
#line 15101 "qb64pe.bas"
fornext_entrylabel2060:
#line 15101 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2060;
#line 15101 "qb64pe.bas"
if (fornext_step_negative2060){
#line 15101 "qb64pe.bas"
if (fornext_value2060<fornext_finalvalue2060) break;
#line 15101 "qb64pe.bas"
}else{
#line 15101 "qb64pe.bas"
if (fornext_value2060>fornext_finalvalue2060) break;
#line 15101 "qb64pe.bas"
}
#line 15101 "qb64pe.bas"
fornext_error2060:;
#line 15101 "qb64pe.bas"
if(qbevent){evnt(15101);if(r)goto S_17688;}
#line 15102 "qb64pe.bas"
S_17689:;
#line 15102 "qb64pe.bas"
if ((-(*_FUNC_ALLOCARRAY_LONG_I!= 1 ))||is_error_pending()){
#line 15102 "qb64pe.bas"
if(qbevent){evnt(15102);if(r)goto S_17689;}
#line 15102 "qb64pe.bas"
do{
#line 15102 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("*",1)));
#line 15102 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15102 "qb64pe.bas"
if(!qbevent)break;evnt(15102);}while(r);
#line 15102 "qb64pe.bas"
}
#line 15103 "qb64pe.bas"
do{
#line 15103 "qb64pe.bas"
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)));
#line 15103 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15103 "qb64pe.bas"
if(!qbevent)break;evnt(15103);}while(r);
#line 15104 "qb64pe.bas"
fornext_continue_2059:;
#line 15104 "qb64pe.bas"
}
#line 15104 "qb64pe.bas"
fornext_exit_2059:;
#line 15105 "qb64pe.bas"
do{
#line 15105 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_ELESIZESTR,_FUNC_ALLOCARRAY_STRING_SIZESTR);
#line 15105 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15105 "qb64pe.bas"
if(!qbevent)break;evnt(15105);}while(r);
#line 15106 "qb64pe.bas"
do{
#line 15106 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("*",1)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT));
#line 15106 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15106 "qb64pe.bas"
if(!qbevent)break;evnt(15106);}while(r);
#line 15111 "qb64pe.bas"
do{
#line 15111 "qb64pe.bas"
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)));
#line 15111 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15111 "qb64pe.bas"
if(!qbevent)break;evnt(15111);}while(r);
#line 15112 "qb64pe.bas"
do{
#line 15112 "qb64pe.bas"
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)));
#line 15112 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15112 "qb64pe.bas"
if(!qbevent)break;evnt(15112);}while(r);
#line 15113 "qb64pe.bas"
do{
#line 15113 "qb64pe.bas"
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)));
#line 15113 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15113 "qb64pe.bas"
if(!qbevent)break;evnt(15113);}while(r);
#line 15114 "qb64pe.bas"
do{
#line 15114 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_COMMITDESC,qbs_new_txt_len("",0));
#line 15114 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15114 "qb64pe.bas"
if(!qbevent)break;evnt(15114);}while(r);
#line 15115 "qb64pe.bas"
S_17700:;
#line 15115 "qb64pe.bas"
fornext_value2062= 4 ;
#line 15115 "qb64pe.bas"
fornext_finalvalue2062=( 4 )+(*_FUNC_ALLOCARRAY_LONG_NUME* 4 )-( 1 );
#line 15115 "qb64pe.bas"
fornext_step2062= 1 ;
#line 15115 "qb64pe.bas"
if (fornext_step2062<0) fornext_step_negative2062=1; else fornext_step_negative2062=0;
#line 15115 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2062;
#line 15115 "qb64pe.bas"
goto fornext_entrylabel2062;
#line 15115 "qb64pe.bas"
while(1){
#line 15115 "qb64pe.bas"
fornext_value2062=fornext_step2062+(*_FUNC_ALLOCARRAY_LONG_I);
#line 15115 "qb64pe.bas"
fornext_entrylabel2062:
#line 15115 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2062;
#line 15115 "qb64pe.bas"
if (fornext_step_negative2062){
#line 15115 "qb64pe.bas"
if (fornext_value2062<fornext_finalvalue2062) break;
#line 15115 "qb64pe.bas"
}else{
#line 15115 "qb64pe.bas"
if (fornext_value2062>fornext_finalvalue2062) break;
#line 15115 "qb64pe.bas"
}
#line 15115 "qb64pe.bas"
fornext_error2062:;
#line 15115 "qb64pe.bas"
if(qbevent){evnt(15115);if(r)goto S_17700;}
#line 15116 "qb64pe.bas"
do{
#line 15116 "qb64pe.bas"
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));
#line 15116 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15116 "qb64pe.bas"
if(!qbevent)break;evnt(15116);}while(r);
#line 15117 "qb64pe.bas"
fornext_continue_2061:;
#line 15117 "qb64pe.bas"
}
#line 15117 "qb64pe.bas"
fornext_exit_2061:;
#line 15118 "qb64pe.bas"
S_17703:;
#line 15118 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_FUNC_ALLOCARRAY_STRING_COMMITDESC->len))||is_error_pending()){
#line 15118 "qb64pe.bas"
if(qbevent){evnt(15118);if(r)goto S_17703;}
#line 15118 "qb64pe.bas"
do{
#line 15118 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_COMMITDESC,qbs_left(_FUNC_ALLOCARRAY_STRING_COMMITDESC,_FUNC_ALLOCARRAY_STRING_COMMITDESC->len- 2 ));
#line 15118 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15118 "qb64pe.bas"
if(!qbevent)break;evnt(15118);}while(r);
#line 15118 "qb64pe.bas"
}
#line 15123 "qb64pe.bas"
S_17706:;
#line 15123 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_STATICARRAY)||is_error_pending()){
#line 15123 "qb64pe.bas"
if(qbevent){evnt(15123);if(r)goto S_17706;}
#line 15125 "qb64pe.bas"
do{
#line 15125 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,_FUNC_ALLOCARRAY_STRING_SD);
#line 15125 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15125 "qb64pe.bas"
if(!qbevent)break;evnt(15125);}while(r);
#line 15130 "qb64pe.bas"
S_17708:;
#line 15130 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_CMEM&(-(*_FUNC_ALLOCARRAY_LONG_STRINGARRAY== 0 )))||is_error_pending()){
#line 15130 "qb64pe.bas"
if(qbevent){evnt(15130);if(r)goto S_17708;}
#line 15133 "qb64pe.bas"
do{
#line 15133 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)cmem_static_pointer;",34)));
#line 15133 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15133 "qb64pe.bas"
if(!qbevent)break;evnt(15133);}while(r);
#line 15135 "qb64pe.bas"
do{
#line 15135 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 15135 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15135 "qb64pe.bas"
if(!qbevent)break;evnt(15135);}while(r);
#line 15137 "qb64pe.bas"
do{
#line 15137 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("if ((",5),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(")>65536) error(257);",20)));
#line 15137 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15137 "qb64pe.bas"
if(!qbevent)break;evnt(15137);}while(r);
#line 15139 "qb64pe.bas"
do{
#line 15139 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 15139 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15139 "qb64pe.bas"
if(!qbevent)break;evnt(15139);}while(r);
#line 15141 "qb64pe.bas"
do{
#line 15141 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=1+2+4;",10)));
#line 15141 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15141 "qb64pe.bas"
if(!qbevent)break;evnt(15141);}while(r);
#line 15142 "qb64pe.bas"
}else{
#line 15144 "qb64pe.bas"
do{
#line 15144 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 15144 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15144 "qb64pe.bas"
if(!qbevent)break;evnt(15144);}while(r);
#line 15145 "qb64pe.bas"
S_17716:;
#line 15145 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
#line 15145 "qb64pe.bas"
if(qbevent){evnt(15145);if(r)goto S_17716;}
#line 15147 "qb64pe.bas"
do{
#line 15147 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)));
#line 15147 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15147 "qb64pe.bas"
if(!qbevent)break;evnt(15147);}while(r);
#line 15148 "qb64pe.bas"
do{
#line 15148 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("while(tmp_long--){",18));
#line 15148 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15148 "qb64pe.bas"
if(!qbevent)break;evnt(15148);}while(r);
#line 15149 "qb64pe.bas"
S_17719:;
#line 15149 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_CMEM)||is_error_pending()){
#line 15149 "qb64pe.bas"
if(qbevent){evnt(15149);if(r)goto S_17719;}
#line 15150 "qb64pe.bas"
do{
#line 15150 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("((qbs**)(",9),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=qbs_new_cmem(0,0);",34)));
#line 15150 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15150 "qb64pe.bas"
if(!qbevent)break;evnt(15150);}while(r);
#line 15151 "qb64pe.bas"
}else{
#line 15152 "qb64pe.bas"
do{
#line 15152 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("((qbs**)(",9),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=qbs_new(0,0);",29)));
#line 15152 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15152 "qb64pe.bas"
if(!qbevent)break;evnt(15152);}while(r);
#line 15153 "qb64pe.bas"
}
#line 15154 "qb64pe.bas"
do{
#line 15154 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 15154 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15154 "qb64pe.bas"
if(!qbevent)break;evnt(15154);}while(r);
#line 15155 "qb64pe.bas"
}else{
#line 15157 "qb64pe.bas"
do{
#line 15157 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 15157 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15157 "qb64pe.bas"
if(!qbevent)break;evnt(15157);}while(r);
#line 15158 "qb64pe.bas"
}
#line 15159 "qb64pe.bas"
do{
#line 15159 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=1+2;",8)));
#line 15159 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15159 "qb64pe.bas"
if(!qbevent)break;evnt(15159);}while(r);
#line 15160 "qb64pe.bas"
}
#line 15162 "qb64pe.bas"
S_17730:;
#line 15162 "qb64pe.bas"
if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&(-(*_FUNC_ALLOCARRAY_LONG_DYNARRMODE!= 0 )))||is_error_pending()){
#line 15162 "qb64pe.bas"
if(qbevent){evnt(15162);if(r)goto S_17730;}
#line 15163 "qb64pe.bas"
S_17731:;
#line 15163 "qb64pe.bas"
if ((FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_ALLOCARRAY_LONG_UDT,_FUNC_ALLOCARRAY_LONG_DYNARRMODE))||is_error_pending()){
#line 15163 "qb64pe.bas"
if(qbevent){evnt(15163);if(r)goto S_17731;}
#line 15167 "qb64pe.bas"
do{
#line 15167 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]|=8;",7)));
#line 15167 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15167 "qb64pe.bas"
if(!qbevent)break;evnt(15167);}while(r);
#line 15168 "qb64pe.bas"
do{
#line 15168 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)));
#line 15168 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15168 "qb64pe.bas"
if(!qbevent)break;evnt(15168);}while(r);
#line 15169 "qb64pe.bas"
do{
#line 15169 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("while(tmp_long--){",18));
#line 15169 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15169 "qb64pe.bas"
if(!qbevent)break;evnt(15169);}while(r);
#line 15170 "qb64pe.bas"
do{
#line 15170 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
#line 15170 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15170 "qb64pe.bas"
if(!qbevent)break;evnt(15170);}while(r);
#line 15171 "qb64pe.bas"
do{
#line 15171 "qb64pe.bas"
SUB_APPENDDYNUDTDESCINIT(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2065= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC,_FUNC_ALLOCARRAY_LONG_DYNARRMODE);
#line 15171 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15171 "qb64pe.bas"
if(!qbevent)break;evnt(15171);}while(r);
#line 15172 "qb64pe.bas"
S_17737:;
#line 15172 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 15172 "qb64pe.bas"
if(qbevent){evnt(15172);if(r)goto S_17737;}
#line 15172 "qb64pe.bas"
do{
#line 15172 "qb64pe.bas"
goto exit_subfunc;
#line 15172 "qb64pe.bas"
if(!qbevent)break;evnt(15172);}while(r);
#line 15172 "qb64pe.bas"
}
#line 15173 "qb64pe.bas"
do{
#line 15173 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,_FUNC_ALLOCARRAY_STRING_ACC);
#line 15173 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15173 "qb64pe.bas"
if(!qbevent)break;evnt(15173);}while(r);
#line 15174 "qb64pe.bas"
do{
#line 15174 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 15174 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15174 "qb64pe.bas"
if(!qbevent)break;evnt(15174);}while(r);
#line 15175 "qb64pe.bas"
}
#line 15176 "qb64pe.bas"
}
#line 15178 "qb64pe.bas"
S_17744:;
#line 15178 "qb64pe.bas"
if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]&(~(((-(*_FUNC_ALLOCARRAY_LONG_DYNARRMODE!= 0 ))&(FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_ALLOCARRAY_LONG_UDT,_FUNC_ALLOCARRAY_LONG_DYNARRMODE))))))||is_error_pending()){
#line 15178 "qb64pe.bas"
if(qbevent){evnt(15178);if(r)goto S_17744;}
#line 15179 "qb64pe.bas"
do{
#line 15179 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)));
#line 15179 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15179 "qb64pe.bas"
if(!qbevent)break;evnt(15179);}while(r);
#line 15180 "qb64pe.bas"
do{
#line 15180 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("while(tmp_long--){",18));
#line 15180 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15180 "qb64pe.bas"
if(!qbevent)break;evnt(15180);}while(r);
#line 15181 "qb64pe.bas"
do{
#line 15181 "qb64pe.bas"
SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2066= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
#line 15181 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15181 "qb64pe.bas"
if(!qbevent)break;evnt(15181);}while(r);
#line 15182 "qb64pe.bas"
do{
#line 15182 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,_FUNC_ALLOCARRAY_STRING_ACC);
#line 15182 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15182 "qb64pe.bas"
if(!qbevent)break;evnt(15182);}while(r);
#line 15183 "qb64pe.bas"
do{
#line 15183 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 15183 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15183 "qb64pe.bas"
if(!qbevent)break;evnt(15183);}while(r);
#line 15184 "qb64pe.bas"
}
#line 15187 "qb64pe.bas"
do{
#line 15187 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 15187 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15187 "qb64pe.bas"
if(!qbevent)break;evnt(15187);}while(r);
#line 15188 "qb64pe.bas"
do{
#line 15188 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY=*_FUNC_ALLOCARRAY_LONG_NUME+ 65536 ;
#line 15188 "qb64pe.bas"
if(!qbevent)break;evnt(15188);}while(r);
#line 15189 "qb64pe.bas"
}
#line 15193 "qb64pe.bas"
S_17754:;
#line 15193 "qb64pe.bas"
if ((-(*_FUNC_ALLOCARRAY_LONG_STATICARRAY== 0 ))||is_error_pending()){
#line 15193 "qb64pe.bas"
if(qbevent){evnt(15193);if(r)goto S_17754;}
#line 15195 "qb64pe.bas"
S_17755:;
#line 15195 "qb64pe.bas"
if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== 0 ))||is_error_pending()){
#line 15195 "qb64pe.bas"
if(qbevent){evnt(15195);if(r)goto S_17755;}
#line 15200 "qb64pe.bas"
do{
#line 15200 "qb64pe.bas"
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)));
#line 15200 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15200 "qb64pe.bas"
if(!qbevent)break;evnt(15200);}while(r);
#line 15201 "qb64pe.bas"
do{
#line 15201 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("error(10);",10));
#line 15201 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15201 "qb64pe.bas"
if(!qbevent)break;evnt(15201);}while(r);
#line 15202 "qb64pe.bas"
do{
#line 15202 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
#line 15202 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15202 "qb64pe.bas"
if(!qbevent)break;evnt(15202);}while(r);
#line 15207 "qb64pe.bas"
do{
#line 15207 "qb64pe.bas"
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)));
#line 15207 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15207 "qb64pe.bas"
if(!qbevent)break;evnt(15207);}while(r);
#line 15208 "qb64pe.bas"
do{
#line 15208 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static uint64 alloc_req_elems;",30));
#line 15208 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15208 "qb64pe.bas"
if(!qbevent)break;evnt(15208);}while(r);
#line 15209 "qb64pe.bas"
do{
#line 15209 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static uint64 alloc_req_bytes;",30));
#line 15209 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15209 "qb64pe.bas"
if(!qbevent)break;evnt(15209);}while(r);
#line 15210 "qb64pe.bas"
do{
#line 15210 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static uint64 alloc_dim_value;",30));
#line 15210 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15210 "qb64pe.bas"
if(!qbevent)break;evnt(15210);}while(r);
#line 15211 "qb64pe.bas"
do{
#line 15211 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static uint64 alloc_bytes_per_element;",38));
#line 15211 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15211 "qb64pe.bas"
if(!qbevent)break;evnt(15211);}while(r);
#line 15212 "qb64pe.bas"
S_17764:;
#line 15212 "qb64pe.bas"
if ((-(*__INTEGER_REDIMOPTION== 0 ))||is_error_pending()){
#line 15212 "qb64pe.bas"
if(qbevent){evnt(15212);if(r)goto S_17764;}
#line 15213 "qb64pe.bas"
do{
#line 15213 "qb64pe.bas"
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)));
#line 15213 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15213 "qb64pe.bas"
if(!qbevent)break;evnt(15213);}while(r);
#line 15214 "qb64pe.bas"
do{
#line 15214 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (!error_occurred) error(10);",31));
#line 15214 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15214 "qb64pe.bas"
if(!qbevent)break;evnt(15214);}while(r);
#line 15215 "qb64pe.bas"
do{
#line 15215 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
#line 15215 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15215 "qb64pe.bas"
if(!qbevent)break;evnt(15215);}while(r);
#line 15216 "qb64pe.bas"
}else{
#line 15221 "qb64pe.bas"
do{
#line 15221 "qb64pe.bas"
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)));
#line 15221 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15221 "qb64pe.bas"
if(!qbevent)break;evnt(15221);}while(r);
#line 15222 "qb64pe.bas"
do{
#line 15222 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static ptrszint preserve_old_ptr;",33));
#line 15222 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15222 "qb64pe.bas"
if(!qbevent)break;evnt(15222);}while(r);
#line 15223 "qb64pe.bas"
do{
#line 15223 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static ptrszint preserve_old_flags;",35));
#line 15223 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15223 "qb64pe.bas"
if(!qbevent)break;evnt(15223);}while(r);
#line 15224 "qb64pe.bas"
do{
#line 15224 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static uint64 preserve_old_total;",33));
#line 15224 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15224 "qb64pe.bas"
if(!qbevent)break;evnt(15224);}while(r);
#line 15225 "qb64pe.bas"
do{
#line 15225 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static uint64 preserve_new_total;",33));
#line 15225 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15225 "qb64pe.bas"
if(!qbevent)break;evnt(15225);}while(r);
#line 15226 "qb64pe.bas"
do{
#line 15226 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static uint64 preserve_copy_count;",34));
#line 15226 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15226 "qb64pe.bas"
if(!qbevent)break;evnt(15226);}while(r);
#line 15227 "qb64pe.bas"
do{
#line 15227 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static ptrszint preserve_new_ptr;",33));
#line 15227 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15227 "qb64pe.bas"
if(!qbevent)break;evnt(15227);}while(r);
#line 15228 "qb64pe.bas"
S_17776:;
#line 15228 "qb64pe.bas"
if ((-(*__INTEGER_REDIMOPTION== 3 ))||is_error_pending()){
#line 15228 "qb64pe.bas"
if(qbevent){evnt(15228);if(r)goto S_17776;}
#line 15229 "qb64pe.bas"
do{
#line 15229 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static int32 preserve_any;",26));
#line 15229 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15229 "qb64pe.bas"
if(!qbevent)break;evnt(15229);}while(r);
#line 15230 "qb64pe.bas"
do{
#line 15230 "qb64pe.bas"
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)));
#line 15230 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15230 "qb64pe.bas"
if(!qbevent)break;evnt(15230);}while(r);
#line 15231 "qb64pe.bas"
do{
#line 15231 "qb64pe.bas"
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)));
#line 15231 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15231 "qb64pe.bas"
if(!qbevent)break;evnt(15231);}while(r);
#line 15232 "qb64pe.bas"
do{
#line 15232 "qb64pe.bas"
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)));
#line 15232 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15232 "qb64pe.bas"
if(!qbevent)break;evnt(15232);}while(r);
#line 15233 "qb64pe.bas"
do{
#line 15233 "qb64pe.bas"
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)));
#line 15233 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15233 "qb64pe.bas"
if(!qbevent)break;evnt(15233);}while(r);
#line 15234 "qb64pe.bas"
do{
#line 15234 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static int64 preserve_old_off;",30));
#line 15234 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15234 "qb64pe.bas"
if(!qbevent)break;evnt(15234);}while(r);
#line 15235 "qb64pe.bas"
do{
#line 15235 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static int64 preserve_new_off;",30));
#line 15235 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15235 "qb64pe.bas"
if(!qbevent)break;evnt(15235);}while(r);
#line 15236 "qb64pe.bas"
do{
#line 15236 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("static ptrszint preserve_dim;",29));
#line 15236 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15236 "qb64pe.bas"
if(!qbevent)break;evnt(15236);}while(r);
#line 15237 "qb64pe.bas"
}
#line 15239 "qb64pe.bas"
do{
#line 15239 "qb64pe.bas"
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)));
#line 15239 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15239 "qb64pe.bas"
if(!qbevent)break;evnt(15239);}while(r);
#line 15240 "qb64pe.bas"
do{
#line 15240 "qb64pe.bas"
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)));
#line 15240 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15240 "qb64pe.bas"
if(!qbevent)break;evnt(15240);}while(r);
#line 15241 "qb64pe.bas"
do{
#line 15241 "qb64pe.bas"
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)));
#line 15241 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15241 "qb64pe.bas"
if(!qbevent)break;evnt(15241);}while(r);
#line 15242 "qb64pe.bas"
do{
#line 15242 "qb64pe.bas"
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)));
#line 15242 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15242 "qb64pe.bas"
if(!qbevent)break;evnt(15242);}while(r);
#line 15243 "qb64pe.bas"
S_17790:;
#line 15243 "qb64pe.bas"
if ((-(*__INTEGER_REDIMOPTION== 3 ))||is_error_pending()){
#line 15243 "qb64pe.bas"
if(qbevent){evnt(15243);if(r)goto S_17790;}
#line 15244 "qb64pe.bas"
S_17791:;
#line 15244 "qb64pe.bas"
fornext_value2068= 4 ;
#line 15244 "qb64pe.bas"
fornext_finalvalue2068=( 4 )+(*_FUNC_ALLOCARRAY_LONG_NUME* 4 )-( 1 );
#line 15244 "qb64pe.bas"
fornext_step2068= 1 ;
#line 15244 "qb64pe.bas"
if (fornext_step2068<0) fornext_step_negative2068=1; else fornext_step_negative2068=0;
#line 15244 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2068;
#line 15244 "qb64pe.bas"
goto fornext_entrylabel2068;
#line 15244 "qb64pe.bas"
while(1){
#line 15244 "qb64pe.bas"
fornext_value2068=fornext_step2068+(*_FUNC_ALLOCARRAY_LONG_I);
#line 15244 "qb64pe.bas"
fornext_entrylabel2068:
#line 15244 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2068;
#line 15244 "qb64pe.bas"
if (fornext_step_negative2068){
#line 15244 "qb64pe.bas"
if (fornext_value2068<fornext_finalvalue2068) break;
#line 15244 "qb64pe.bas"
}else{
#line 15244 "qb64pe.bas"
if (fornext_value2068>fornext_finalvalue2068) break;
#line 15244 "qb64pe.bas"
}
#line 15244 "qb64pe.bas"
fornext_error2068:;
#line 15244 "qb64pe.bas"
if(qbevent){evnt(15244);if(r)goto S_17791;}
#line 15245 "qb64pe.bas"
do{
#line 15245 "qb64pe.bas"
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)));
#line 15245 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15245 "qb64pe.bas"
if(!qbevent)break;evnt(15245);}while(r);
#line 15246 "qb64pe.bas"
fornext_continue_2067:;
#line 15246 "qb64pe.bas"
}
#line 15246 "qb64pe.bas"
fornext_exit_2067:;
#line 15247 "qb64pe.bas"
}
#line 15248 "qb64pe.bas"
do{
#line 15248 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
#line 15248 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15248 "qb64pe.bas"
if(!qbevent)break;evnt(15248);}while(r);
#line 15249 "qb64pe.bas"
do{
#line 15249 "qb64pe.bas"
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));
#line 15249 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15249 "qb64pe.bas"
if(!qbevent)break;evnt(15249);}while(r);
#line 15250 "qb64pe.bas"
S_17797:;
#line 15250 "qb64pe.bas"
if ((-(*__INTEGER_REDIMOPTION== 3 ))||is_error_pending()){
#line 15250 "qb64pe.bas"
if(qbevent){evnt(15250);if(r)goto S_17797;}
#line 15250 "qb64pe.bas"
do{
#line 15250 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_any=0;",15));
#line 15250 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15250 "qb64pe.bas"
if(!qbevent)break;evnt(15250);}while(r);
#line 15250 "qb64pe.bas"
}
#line 15251 "qb64pe.bas"
do{
#line 15251 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
#line 15251 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15251 "qb64pe.bas"
if(!qbevent)break;evnt(15251);}while(r);
#line 15253 "qb64pe.bas"
}
#line 15258 "qb64pe.bas"
do{
#line 15258 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_NEWSD);
#line 15258 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15258 "qb64pe.bas"
if(!qbevent)break;evnt(15258);}while(r);
#line 15259 "qb64pe.bas"
do{
#line 15259 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("alloc_req_elems=1;",18));
#line 15259 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15259 "qb64pe.bas"
if(!qbevent)break;evnt(15259);}while(r);
#line 15260 "qb64pe.bas"
do{
#line 15260 "qb64pe.bas"
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)));
#line 15260 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15260 "qb64pe.bas"
if(!qbevent)break;evnt(15260);}while(r);
#line 15261 "qb64pe.bas"
do{
#line 15261 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (!alloc_bytes_per_element) error(257);",41));
#line 15261 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15261 "qb64pe.bas"
if(!qbevent)break;evnt(15261);}while(r);
#line 15262 "qb64pe.bas"
S_17806:;
#line 15262 "qb64pe.bas"
fornext_value2070= 1 ;
#line 15262 "qb64pe.bas"
fornext_finalvalue2070=*_FUNC_ALLOCARRAY_LONG_NUME;
#line 15262 "qb64pe.bas"
fornext_step2070= 1 ;
#line 15262 "qb64pe.bas"
if (fornext_step2070<0) fornext_step_negative2070=1; else fornext_step_negative2070=0;
#line 15262 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2070;
#line 15262 "qb64pe.bas"
goto fornext_entrylabel2070;
#line 15262 "qb64pe.bas"
while(1){
#line 15262 "qb64pe.bas"
fornext_value2070=fornext_step2070+(*_FUNC_ALLOCARRAY_LONG_I);
#line 15262 "qb64pe.bas"
fornext_entrylabel2070:
#line 15262 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2070;
#line 15262 "qb64pe.bas"
if (fornext_step_negative2070){
#line 15262 "qb64pe.bas"
if (fornext_value2070<fornext_finalvalue2070) break;
#line 15262 "qb64pe.bas"
}else{
#line 15262 "qb64pe.bas"
if (fornext_value2070>fornext_finalvalue2070) break;
#line 15262 "qb64pe.bas"
}
#line 15262 "qb64pe.bas"
fornext_error2070:;
#line 15262 "qb64pe.bas"
if(qbevent){evnt(15262);if(r)goto S_17806;}
#line 15263 "qb64pe.bas"
do{
#line 15263 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_ARGI=(*_FUNC_ALLOCARRAY_LONG_I* 4 )-( 4 )+( 4 );
#line 15263 "qb64pe.bas"
if(!qbevent)break;evnt(15263);}while(r);
#line 15264 "qb64pe.bas"
do{
#line 15264 "qb64pe.bas"
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)));
#line 15264 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15264 "qb64pe.bas"
if(!qbevent)break;evnt(15264);}while(r);
#line 15265 "qb64pe.bas"
do{
#line 15265 "qb64pe.bas"
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)));
#line 15265 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15265 "qb64pe.bas"
if(!qbevent)break;evnt(15265);}while(r);
#line 15266 "qb64pe.bas"
do{
#line 15266 "qb64pe.bas"
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)));
#line 15266 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15266 "qb64pe.bas"
if(!qbevent)break;evnt(15266);}while(r);
#line 15267 "qb64pe.bas"
do{
#line 15267 "qb64pe.bas"
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)));
#line 15267 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15267 "qb64pe.bas"
if(!qbevent)break;evnt(15267);}while(r);
#line 15268 "qb64pe.bas"
do{
#line 15268 "qb64pe.bas"
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)));
#line 15268 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15268 "qb64pe.bas"
if(!qbevent)break;evnt(15268);}while(r);
#line 15269 "qb64pe.bas"
do{
#line 15269 "qb64pe.bas"
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)));
#line 15269 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15269 "qb64pe.bas"
if(!qbevent)break;evnt(15269);}while(r);
#line 15270 "qb64pe.bas"
do{
#line 15270 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (alloc_dim_value){",21));
#line 15270 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15270 "qb64pe.bas"
if(!qbevent)break;evnt(15270);}while(r);
#line 15271 "qb64pe.bas"
do{
#line 15271 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);",74));
#line 15271 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15271 "qb64pe.bas"
if(!qbevent)break;evnt(15271);}while(r);
#line 15272 "qb64pe.bas"
do{
#line 15272 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("alloc_req_elems*=alloc_dim_value;",33));
#line 15272 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15272 "qb64pe.bas"
if(!qbevent)break;evnt(15272);}while(r);
#line 15273 "qb64pe.bas"
do{
#line 15273 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
#line 15273 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15273 "qb64pe.bas"
if(!qbevent)break;evnt(15273);}while(r);
#line 15274 "qb64pe.bas"
fornext_continue_2069:;
#line 15274 "qb64pe.bas"
}
#line 15274 "qb64pe.bas"
fornext_exit_2069:;
#line 15275 "qb64pe.bas"
do{
#line 15275 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);",82));
#line 15275 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15275 "qb64pe.bas"
if(!qbevent)break;evnt(15275);}while(r);
#line 15276 "qb64pe.bas"
do{
#line 15276 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;",56));
#line 15276 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15276 "qb64pe.bas"
if(!qbevent)break;evnt(15276);}while(r);
#line 15277 "qb64pe.bas"
do{
#line 15277 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);",71));
#line 15277 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15277 "qb64pe.bas"
if(!qbevent)break;evnt(15277);}while(r);
#line 15278 "qb64pe.bas"
do{
#line 15278 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);",69));
#line 15278 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15278 "qb64pe.bas"
if(!qbevent)break;evnt(15278);}while(r);
#line 15280 "qb64pe.bas"
S_17823:;
#line 15280 "qb64pe.bas"
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
#line 15280 "qb64pe.bas"
if(qbevent){evnt(15280);if(r)goto S_17823;}
#line 15281 "qb64pe.bas"
do{
#line 15281 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_new_total=alloc_req_elems;",35));
#line 15281 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15281 "qb64pe.bas"
if(!qbevent)break;evnt(15281);}while(r);
#line 15282 "qb64pe.bas"
do{
#line 15282 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_copy_count=preserve_old_total;",39));
#line 15282 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15282 "qb64pe.bas"
if(!qbevent)break;evnt(15282);}while(r);
#line 15283 "qb64pe.bas"
do{
#line 15283 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;",83));
#line 15283 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15283 "qb64pe.bas"
if(!qbevent)break;evnt(15283);}while(r);
#line 15284 "qb64pe.bas"
}
#line 15286 "qb64pe.bas"
S_17828:;
#line 15286 "qb64pe.bas"
if ((-(*__INTEGER_REDIMOPTION== 3 ))||is_error_pending()){
#line 15286 "qb64pe.bas"
if(qbevent){evnt(15286);if(r)goto S_17828;}
#line 15287 "qb64pe.bas"
do{
#line 15287 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_any=(preserve_old_total!=0);",37));
#line 15287 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15287 "qb64pe.bas"
if(!qbevent)break;evnt(15287);}while(r);
#line 15288 "qb64pe.bas"
S_17830:;
#line 15288 "qb64pe.bas"
fornext_value2072= 1 ;
#line 15288 "qb64pe.bas"
fornext_finalvalue2072=*_FUNC_ALLOCARRAY_LONG_NUME;
#line 15288 "qb64pe.bas"
fornext_step2072= 1 ;
#line 15288 "qb64pe.bas"
if (fornext_step2072<0) fornext_step_negative2072=1; else fornext_step_negative2072=0;
#line 15288 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2072;
#line 15288 "qb64pe.bas"
goto fornext_entrylabel2072;
#line 15288 "qb64pe.bas"
while(1){
#line 15288 "qb64pe.bas"
fornext_value2072=fornext_step2072+(*_FUNC_ALLOCARRAY_LONG_I);
#line 15288 "qb64pe.bas"
fornext_entrylabel2072:
#line 15288 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2072;
#line 15288 "qb64pe.bas"
if (fornext_step_negative2072){
#line 15288 "qb64pe.bas"
if (fornext_value2072<fornext_finalvalue2072) break;
#line 15288 "qb64pe.bas"
}else{
#line 15288 "qb64pe.bas"
if (fornext_value2072>fornext_finalvalue2072) break;
#line 15288 "qb64pe.bas"
}
#line 15288 "qb64pe.bas"
fornext_error2072:;
#line 15288 "qb64pe.bas"
if(qbevent){evnt(15288);if(r)goto S_17830;}
#line 15289 "qb64pe.bas"
do{
#line 15289 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_ARGI=((*_FUNC_ALLOCARRAY_LONG_NUME-*_FUNC_ALLOCARRAY_LONG_I)* 4 )+( 4 );
#line 15289 "qb64pe.bas"
if(!qbevent)break;evnt(15289);}while(r);
#line 15290 "qb64pe.bas"
do{
#line 15290 "qb64pe.bas"
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)));
#line 15290 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15290 "qb64pe.bas"
if(!qbevent)break;evnt(15290);}while(r);
#line 15291 "qb64pe.bas"
do{
#line 15291 "qb64pe.bas"
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)));
#line 15291 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15291 "qb64pe.bas"
if(!qbevent)break;evnt(15291);}while(r);
#line 15292 "qb64pe.bas"
do{
#line 15292 "qb64pe.bas"
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)));
#line 15292 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15292 "qb64pe.bas"
if(!qbevent)break;evnt(15292);}while(r);
#line 15293 "qb64pe.bas"
do{
#line 15293 "qb64pe.bas"
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)));
#line 15293 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15293 "qb64pe.bas"
if(!qbevent)break;evnt(15293);}while(r);
#line 15294 "qb64pe.bas"
do{
#line 15294 "qb64pe.bas"
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)));
#line 15294 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15294 "qb64pe.bas"
if(!qbevent)break;evnt(15294);}while(r);
#line 15295 "qb64pe.bas"
fornext_continue_2071:;
#line 15295 "qb64pe.bas"
}
#line 15295 "qb64pe.bas"
fornext_exit_2071:;
#line 15296 "qb64pe.bas"
}
#line 15298 "qb64pe.bas"
S_17839:;
#line 15298 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY|(((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 )))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]&(~(((-(*_FUNC_ALLOCARRAY_LONG_DYNARRMODE!= 0 ))&(FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_ALLOCARRAY_LONG_UDT,_FUNC_ALLOCARRAY_LONG_DYNARRMODE)))))))||is_error_pending()){
#line 15298 "qb64pe.bas"
if(qbevent){evnt(15298);if(r)goto S_17839;}
#line 15302 "qb64pe.bas"
S_17840:;
#line 15302 "qb64pe.bas"
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
#line 15302 "qb64pe.bas"
if(qbevent){evnt(15302);if(r)goto S_17840;}
#line 15303 "qb64pe.bas"
do{
#line 15303 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_old_total){",24));
#line 15303 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15303 "qb64pe.bas"
if(!qbevent)break;evnt(15303);}while(r);
#line 15304 "qb64pe.bas"
do{
#line 15304 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);",59));
#line 15304 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15304 "qb64pe.bas"
if(!qbevent)break;evnt(15304);}while(r);
#line 15305 "qb64pe.bas"
do{
#line 15305 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (!preserve_new_ptr) error(257);",34));
#line 15305 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15305 "qb64pe.bas"
if(!qbevent)break;evnt(15305);}while(r);
#line 15306 "qb64pe.bas"
do{
#line 15306 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=preserve_new_ptr;",21)));
#line 15306 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15306 "qb64pe.bas"
if(!qbevent)break;evnt(15306);}while(r);
#line 15307 "qb64pe.bas"
do{
#line 15307 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]|=1;",7)));
#line 15307 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15307 "qb64pe.bas"
if(!qbevent)break;evnt(15307);}while(r);
#line 15308 "qb64pe.bas"
do{
#line 15308 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=(ptrszint)alloc_req_elems;",35));
#line 15308 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15308 "qb64pe.bas"
if(!qbevent)break;evnt(15308);}while(r);
#line 15311 "qb64pe.bas"
S_17847:;
#line 15311 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
#line 15311 "qb64pe.bas"
if(qbevent){evnt(15311);if(r)goto S_17847;}
#line 15312 "qb64pe.bas"
do{
#line 15312 "qb64pe.bas"
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)));
#line 15312 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15312 "qb64pe.bas"
if(!qbevent)break;evnt(15312);}while(r);
#line 15313 "qb64pe.bas"
do{
#line 15313 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("while(tmp_long--) ((qbs**)(",27),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=qbs_new_cmem(0,0);",34)));
#line 15313 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15313 "qb64pe.bas"
if(!qbevent)break;evnt(15313);}while(r);
#line 15314 "qb64pe.bas"
do{
#line 15314 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
#line 15314 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15314 "qb64pe.bas"
if(!qbevent)break;evnt(15314);}while(r);
#line 15315 "qb64pe.bas"
do{
#line 15315 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("while(tmp_long--) ((qbs**)(",27),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=qbs_new(0,0);",29)));
#line 15315 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15315 "qb64pe.bas"
if(!qbevent)break;evnt(15315);}while(r);
#line 15316 "qb64pe.bas"
do{
#line 15316 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
#line 15316 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15316 "qb64pe.bas"
if(!qbevent)break;evnt(15316);}while(r);
#line 15317 "qb64pe.bas"
}else{
#line 15318 "qb64pe.bas"
do{
#line 15318 "qb64pe.bas"
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)));
#line 15318 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15318 "qb64pe.bas"
if(!qbevent)break;evnt(15318);}while(r);
#line 15319 "qb64pe.bas"
do{
#line 15319 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
#line 15319 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15319 "qb64pe.bas"
if(!qbevent)break;evnt(15319);}while(r);
#line 15320 "qb64pe.bas"
do{
#line 15320 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
#line 15320 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15320 "qb64pe.bas"
if(!qbevent)break;evnt(15320);}while(r);
#line 15321 "qb64pe.bas"
do{
#line 15321 "qb64pe.bas"
SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2073= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
#line 15321 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15321 "qb64pe.bas"
if(!qbevent)break;evnt(15321);}while(r);
#line 15322 "qb64pe.bas"
do{
#line 15322 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("}",1)));
#line 15322 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15322 "qb64pe.bas"
if(!qbevent)break;evnt(15322);}while(r);
#line 15323 "qb64pe.bas"
}
#line 15325 "qb64pe.bas"
S_17860:;
#line 15325 "qb64pe.bas"
if ((-(*__INTEGER_REDIMOPTION== 2 ))||is_error_pending()){
#line 15325 "qb64pe.bas"
if(qbevent){evnt(15325);if(r)goto S_17860;}
#line 15326 "qb64pe.bas"
do{
#line 15326 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=preserve_copy_count;",29));
#line 15326 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15326 "qb64pe.bas"
if(!qbevent)break;evnt(15326);}while(r);
#line 15327 "qb64pe.bas"
do{
#line 15327 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
#line 15327 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15327 "qb64pe.bas"
if(!qbevent)break;evnt(15327);}while(r);
#line 15328 "qb64pe.bas"
S_17863:;
#line 15328 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
#line 15328 "qb64pe.bas"
if(qbevent){evnt(15328);if(r)goto S_17863;}
#line 15329 "qb64pe.bas"
do{
#line 15329 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);",85));
#line 15329 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15329 "qb64pe.bas"
if(!qbevent)break;evnt(15329);}while(r);
#line 15330 "qb64pe.bas"
}else{
#line 15331 "qb64pe.bas"
do{
#line 15331 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
#line 15331 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15331 "qb64pe.bas"
if(!qbevent)break;evnt(15331);}while(r);
#line 15332 "qb64pe.bas"
do{
#line 15332 "qb64pe.bas"
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);
#line 15332 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15332 "qb64pe.bas"
if(!qbevent)break;evnt(15332);}while(r);
#line 15333 "qb64pe.bas"
do{
#line 15333 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
#line 15333 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15333 "qb64pe.bas"
if(!qbevent)break;evnt(15333);}while(r);
#line 15334 "qb64pe.bas"
}
#line 15335 "qb64pe.bas"
do{
#line 15335 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
#line 15335 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15335 "qb64pe.bas"
if(!qbevent)break;evnt(15335);}while(r);
#line 15336 "qb64pe.bas"
S_17871:;
#line 15336 "qb64pe.bas"
}else{
#line 15336 "qb64pe.bas"
if (-(*__INTEGER_REDIMOPTION== 3 )){
#line 15336 "qb64pe.bas"
if(qbevent){evnt(15336);if(r)goto S_17871;}
#line 15338 "qb64pe.bas"
do{
#line 15338 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
#line 15338 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15338 "qb64pe.bas"
if(!qbevent)break;evnt(15338);}while(r);
#line 15339 "qb64pe.bas"
S_17873:;
#line 15339 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
#line 15339 "qb64pe.bas"
if(qbevent){evnt(15339);if(r)goto S_17873;}
#line 15340 "qb64pe.bas"
do{
#line 15340 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("qbs_set(((qbs**)(preserve_new_ptr))[preserve_new_off],((qbs**)(preserve_old_ptr))[preserve_old_off]);",101));
#line 15340 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15340 "qb64pe.bas"
if(!qbevent)break;evnt(15340);}while(r);
#line 15341 "qb64pe.bas"
}else{
#line 15342 "qb64pe.bas"
do{
#line 15342 "qb64pe.bas"
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);
#line 15342 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15342 "qb64pe.bas"
if(!qbevent)break;evnt(15342);}while(r);
#line 15343 "qb64pe.bas"
}
#line 15344 "qb64pe.bas"
do{
#line 15344 "qb64pe.bas"
SUB_APPENDRETAINCOORDINATEWALK(&(pass2074=*_FUNC_ALLOCARRAY_INTEGER_F12BUF),_FUNC_ALLOCARRAY_LONG_NUME,_FUNC_ALLOCARRAY_STRING_ACC);
#line 15344 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15344 "qb64pe.bas"
if(!qbevent)break;evnt(15344);}while(r);
#line 15345 "qb64pe.bas"
}
#line 15345 "qb64pe.bas"
}
#line 15348 "qb64pe.bas"
S_17880:;
#line 15348 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
#line 15348 "qb64pe.bas"
if(qbevent){evnt(15348);if(r)goto S_17880;}
#line 15349 "qb64pe.bas"
do{
#line 15349 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=preserve_old_total;",28));
#line 15349 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15349 "qb64pe.bas"
if(!qbevent)break;evnt(15349);}while(r);
#line 15350 "qb64pe.bas"
do{
#line 15350 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--) qbs_free(((qbs**)(preserve_old_ptr))[tmp_long]);",66));
#line 15350 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15350 "qb64pe.bas"
if(!qbevent)break;evnt(15350);}while(r);
#line 15351 "qb64pe.bas"
do{
#line 15351 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("free((void*)(preserve_old_ptr));",32));
#line 15351 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15351 "qb64pe.bas"
if(!qbevent)break;evnt(15351);}while(r);
#line 15352 "qb64pe.bas"
}else{
#line 15353 "qb64pe.bas"
do{
#line 15353 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=preserve_old_ptr;",21)));
#line 15353 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15353 "qb64pe.bas"
if(!qbevent)break;evnt(15353);}while(r);
#line 15354 "qb64pe.bas"
do{
#line 15354 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=preserve_old_total;",28));
#line 15354 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15354 "qb64pe.bas"
if(!qbevent)break;evnt(15354);}while(r);
#line 15355 "qb64pe.bas"
do{
#line 15355 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
#line 15355 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15355 "qb64pe.bas"
if(!qbevent)break;evnt(15355);}while(r);
#line 15356 "qb64pe.bas"
do{
#line 15356 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
#line 15356 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15356 "qb64pe.bas"
if(!qbevent)break;evnt(15356);}while(r);
#line 15357 "qb64pe.bas"
do{
#line 15357 "qb64pe.bas"
SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2075= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
#line 15357 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15357 "qb64pe.bas"
if(!qbevent)break;evnt(15357);}while(r);
#line 15358 "qb64pe.bas"
do{
#line 15358 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("}",1)));
#line 15358 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15358 "qb64pe.bas"
if(!qbevent)break;evnt(15358);}while(r);
#line 15359 "qb64pe.bas"
do{
#line 15359 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("free((void*)(preserve_old_ptr));",32));
#line 15359 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15359 "qb64pe.bas"
if(!qbevent)break;evnt(15359);}while(r);
#line 15360 "qb64pe.bas"
}
#line 15362 "qb64pe.bas"
do{
#line 15362 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=preserve_new_ptr;",21)));
#line 15362 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15362 "qb64pe.bas"
if(!qbevent)break;evnt(15362);}while(r);
#line 15363 "qb64pe.bas"
do{
#line 15363 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
#line 15363 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15363 "qb64pe.bas"
if(!qbevent)break;evnt(15363);}while(r);
#line 15364 "qb64pe.bas"
}
#line 15367 "qb64pe.bas"
do{
#line 15367 "qb64pe.bas"
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)));
#line 15367 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15367 "qb64pe.bas"
if(!qbevent)break;evnt(15367);}while(r);
#line 15368 "qb64pe.bas"
do{
#line 15368 "qb64pe.bas"
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)));
#line 15368 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15368 "qb64pe.bas"
if(!qbevent)break;evnt(15368);}while(r);
#line 15369 "qb64pe.bas"
do{
#line 15369 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]|=1;",7)));
#line 15369 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15369 "qb64pe.bas"
if(!qbevent)break;evnt(15369);}while(r);
#line 15370 "qb64pe.bas"
do{
#line 15370 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=(ptrszint)alloc_req_elems;",35));
#line 15370 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15370 "qb64pe.bas"
if(!qbevent)break;evnt(15370);}while(r);
#line 15374 "qb64pe.bas"
S_17900:;
#line 15374 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
#line 15374 "qb64pe.bas"
if(qbevent){evnt(15374);if(r)goto S_17900;}
#line 15375 "qb64pe.bas"
do{
#line 15375 "qb64pe.bas"
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)));
#line 15375 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15375 "qb64pe.bas"
if(!qbevent)break;evnt(15375);}while(r);
#line 15376 "qb64pe.bas"
do{
#line 15376 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("while(tmp_long--) ((qbs**)(",27),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=qbs_new_cmem(0,0);",34)));
#line 15376 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15376 "qb64pe.bas"
if(!qbevent)break;evnt(15376);}while(r);
#line 15377 "qb64pe.bas"
do{
#line 15377 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
#line 15377 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15377 "qb64pe.bas"
if(!qbevent)break;evnt(15377);}while(r);
#line 15378 "qb64pe.bas"
do{
#line 15378 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(qbs_add(qbs_new_txt_len("while(tmp_long--) ((qbs**)(",27),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=qbs_new(0,0);",29)));
#line 15378 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15378 "qb64pe.bas"
if(!qbevent)break;evnt(15378);}while(r);
#line 15379 "qb64pe.bas"
do{
#line 15379 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
#line 15379 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15379 "qb64pe.bas"
if(!qbevent)break;evnt(15379);}while(r);
#line 15380 "qb64pe.bas"
}else{
#line 15381 "qb64pe.bas"
do{
#line 15381 "qb64pe.bas"
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)));
#line 15381 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15381 "qb64pe.bas"
if(!qbevent)break;evnt(15381);}while(r);
#line 15382 "qb64pe.bas"
do{
#line 15382 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
#line 15382 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15382 "qb64pe.bas"
if(!qbevent)break;evnt(15382);}while(r);
#line 15383 "qb64pe.bas"
do{
#line 15383 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
#line 15383 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15383 "qb64pe.bas"
if(!qbevent)break;evnt(15383);}while(r);
#line 15384 "qb64pe.bas"
do{
#line 15384 "qb64pe.bas"
SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2076= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
#line 15384 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15384 "qb64pe.bas"
if(!qbevent)break;evnt(15384);}while(r);
#line 15385 "qb64pe.bas"
do{
#line 15385 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("}",1)));
#line 15385 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15385 "qb64pe.bas"
if(!qbevent)break;evnt(15385);}while(r);
#line 15386 "qb64pe.bas"
}
#line 15388 "qb64pe.bas"
S_17913:;
#line 15388 "qb64pe.bas"
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
#line 15388 "qb64pe.bas"
if(qbevent){evnt(15388);if(r)goto S_17913;}
#line 15389 "qb64pe.bas"
do{
#line 15389 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
#line 15389 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15389 "qb64pe.bas"
if(!qbevent)break;evnt(15389);}while(r);
#line 15390 "qb64pe.bas"
}
#line 15394 "qb64pe.bas"
S_17916:;
#line 15394 "qb64pe.bas"
if ((-(*__LONG_ARRAYDESC== 0 ))||is_error_pending()){
#line 15394 "qb64pe.bas"
if(qbevent){evnt(15394);if(r)goto S_17916;}
#line 15395 "qb64pe.bas"
do{
#line 15395 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2077=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&1){",7)));
#line 15395 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15395 "qb64pe.bas"
if(!qbevent)break;evnt(15395);}while(r);
#line 15396 "qb64pe.bas"
do{
#line 15396 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2078=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)));
#line 15396 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15396 "qb64pe.bas"
if(!qbevent)break;evnt(15396);}while(r);
#line 15397 "qb64pe.bas"
S_17919:;
#line 15397 "qb64pe.bas"
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()){
#line 15397 "qb64pe.bas"
if(qbevent){evnt(15397);if(r)goto S_17919;}
#line 15398 "qb64pe.bas"
do{
#line 15398 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2079=*__LONG_FREETXTBUF),qbs_new_txt_len("while(tmp_long--) {",19));
#line 15398 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15398 "qb64pe.bas"
if(!qbevent)break;evnt(15398);}while(r);
#line 15399 "qb64pe.bas"
do{
#line 15399 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
#line 15399 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15399 "qb64pe.bas"
if(!qbevent)break;evnt(15399);}while(r);
#line 15400 "qb64pe.bas"
do{
#line 15400 "qb64pe.bas"
SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2080= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC);
#line 15400 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15400 "qb64pe.bas"
if(!qbevent)break;evnt(15400);}while(r);
#line 15401 "qb64pe.bas"
do{
#line 15401 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2081=*__LONG_FREETXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("}",1)));
#line 15401 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15401 "qb64pe.bas"
if(!qbevent)break;evnt(15401);}while(r);
#line 15402 "qb64pe.bas"
}else{
#line 15403 "qb64pe.bas"
do{
#line 15403 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2082=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while(tmp_long--) qbs_free(((qbs**)(",36),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]);",17)));
#line 15403 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15403 "qb64pe.bas"
if(!qbevent)break;evnt(15403);}while(r);
#line 15404 "qb64pe.bas"
}
#line 15405 "qb64pe.bas"
do{
#line 15405 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2083=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6)));
#line 15405 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15405 "qb64pe.bas"
if(!qbevent)break;evnt(15405);}while(r);
#line 15406 "qb64pe.bas"
do{
#line 15406 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2084=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
#line 15406 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15406 "qb64pe.bas"
if(!qbevent)break;evnt(15406);}while(r);
#line 15408 "qb64pe.bas"
do{
#line 15408 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2085=*__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)));
#line 15408 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15408 "qb64pe.bas"
if(!qbevent)break;evnt(15408);}while(r);
#line 15409 "qb64pe.bas"
}
#line 15412 "qb64pe.bas"
}else{
#line 15415 "qb64pe.bas"
do{
#line 15415 "qb64pe.bas"
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)));
#line 15415 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15415 "qb64pe.bas"
if(!qbevent)break;evnt(15415);}while(r);
#line 15417 "qb64pe.bas"
S_17933:;
#line 15417 "qb64pe.bas"
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
#line 15417 "qb64pe.bas"
if(qbevent){evnt(15417);if(r)goto S_17933;}
#line 15418 "qb64pe.bas"
do{
#line 15418 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_old_total){",24));
#line 15418 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15418 "qb64pe.bas"
if(!qbevent)break;evnt(15418);}while(r);
#line 15419 "qb64pe.bas"
do{
#line 15419 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);",72));
#line 15419 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15419 "qb64pe.bas"
if(!qbevent)break;evnt(15419);}while(r);
#line 15420 "qb64pe.bas"
do{
#line 15420 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (!preserve_new_ptr) error(257);",34));
#line 15420 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15420 "qb64pe.bas"
if(!qbevent)break;evnt(15420);}while(r);
#line 15421 "qb64pe.bas"
do{
#line 15421 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);",60));
#line 15421 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15421 "qb64pe.bas"
if(!qbevent)break;evnt(15421);}while(r);
#line 15422 "qb64pe.bas"
do{
#line 15422 "qb64pe.bas"
SUB_APPENDRAWREDIMPRESERVE(&(pass2086=*_FUNC_ALLOCARRAY_INTEGER_F12BUF),_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_NUME,_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE,_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_LONG_UDT,_FUNC_ALLOCARRAY_LONG_DYNARRMODE,_FUNC_ALLOCARRAY_INTEGER_BITARRAY,&(pass2087=*__INTEGER_REDIMOPTION));
#line 15422 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15422 "qb64pe.bas"
if(!qbevent)break;evnt(15422);}while(r);
#line 15423 "qb64pe.bas"
S_17939:;
#line 15423 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 15423 "qb64pe.bas"
if(qbevent){evnt(15423);if(r)goto S_17939;}
#line 15423 "qb64pe.bas"
do{
#line 15423 "qb64pe.bas"
goto exit_subfunc;
#line 15423 "qb64pe.bas"
if(!qbevent)break;evnt(15423);}while(r);
#line 15423 "qb64pe.bas"
}
#line 15424 "qb64pe.bas"
do{
#line 15424 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
#line 15424 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15424 "qb64pe.bas"
if(!qbevent)break;evnt(15424);}while(r);
#line 15425 "qb64pe.bas"
}
#line 15428 "qb64pe.bas"
do{
#line 15428 "qb64pe.bas"
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)));
#line 15428 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15428 "qb64pe.bas"
if(!qbevent)break;evnt(15428);}while(r);
#line 15429 "qb64pe.bas"
do{
#line 15429 "qb64pe.bas"
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)));
#line 15429 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15429 "qb64pe.bas"
if(!qbevent)break;evnt(15429);}while(r);
#line 15430 "qb64pe.bas"
do{
#line 15430 "qb64pe.bas"
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)));
#line 15430 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15430 "qb64pe.bas"
if(!qbevent)break;evnt(15430);}while(r);
#line 15432 "qb64pe.bas"
S_17947:;
#line 15432 "qb64pe.bas"
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
#line 15432 "qb64pe.bas"
if(qbevent){evnt(15432);if(r)goto S_17947;}
#line 15433 "qb64pe.bas"
do{
#line 15433 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
#line 15433 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15433 "qb64pe.bas"
if(!qbevent)break;evnt(15433);}while(r);
#line 15434 "qb64pe.bas"
}
#line 15436 "qb64pe.bas"
do{
#line 15436 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
#line 15436 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15436 "qb64pe.bas"
if(!qbevent)break;evnt(15436);}while(r);
#line 15438 "qb64pe.bas"
S_17951:;
#line 15438 "qb64pe.bas"
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
#line 15438 "qb64pe.bas"
if(qbevent){evnt(15438);if(r)goto S_17951;}
#line 15439 "qb64pe.bas"
do{
#line 15439 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (preserve_old_total){",24));
#line 15439 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15439 "qb64pe.bas"
if(!qbevent)break;evnt(15439);}while(r);
#line 15440 "qb64pe.bas"
do{
#line 15440 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);",61));
#line 15440 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15440 "qb64pe.bas"
if(!qbevent)break;evnt(15440);}while(r);
#line 15441 "qb64pe.bas"
do{
#line 15441 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (!preserve_new_ptr) error(257);",34));
#line 15441 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15441 "qb64pe.bas"
if(!qbevent)break;evnt(15441);}while(r);
#line 15442 "qb64pe.bas"
do{
#line 15442 "qb64pe.bas"
SUB_APPENDRAWREDIMPRESERVE(&(pass2088=*_FUNC_ALLOCARRAY_INTEGER_F12BUF),_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_NUME,_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE,_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_LONG_UDT,_FUNC_ALLOCARRAY_LONG_DYNARRMODE,_FUNC_ALLOCARRAY_INTEGER_BITARRAY,&(pass2089=*__INTEGER_REDIMOPTION));
#line 15442 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15442 "qb64pe.bas"
if(!qbevent)break;evnt(15442);}while(r);
#line 15443 "qb64pe.bas"
S_17956:;
#line 15443 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 15443 "qb64pe.bas"
if(qbevent){evnt(15443);if(r)goto S_17956;}
#line 15443 "qb64pe.bas"
do{
#line 15443 "qb64pe.bas"
goto exit_subfunc;
#line 15443 "qb64pe.bas"
if(!qbevent)break;evnt(15443);}while(r);
#line 15443 "qb64pe.bas"
}
#line 15444 "qb64pe.bas"
do{
#line 15444 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}else{",6));
#line 15444 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15444 "qb64pe.bas"
if(!qbevent)break;evnt(15444);}while(r);
#line 15445 "qb64pe.bas"
}
#line 15447 "qb64pe.bas"
do{
#line 15447 "qb64pe.bas"
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)));
#line 15447 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15447 "qb64pe.bas"
if(!qbevent)break;evnt(15447);}while(r);
#line 15448 "qb64pe.bas"
do{
#line 15448 "qb64pe.bas"
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)));
#line 15448 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15448 "qb64pe.bas"
if(!qbevent)break;evnt(15448);}while(r);
#line 15449 "qb64pe.bas"
S_17963:;
#line 15449 "qb64pe.bas"
if ((*__INTEGER_REDIMOPTION)||is_error_pending()){
#line 15449 "qb64pe.bas"
if(qbevent){evnt(15449);if(r)goto S_17963;}
#line 15450 "qb64pe.bas"
do{
#line 15450 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
#line 15450 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15450 "qb64pe.bas"
if(!qbevent)break;evnt(15450);}while(r);
#line 15451 "qb64pe.bas"
}
#line 15454 "qb64pe.bas"
do{
#line 15454 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
#line 15454 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15454 "qb64pe.bas"
if(!qbevent)break;evnt(15454);}while(r);
#line 15455 "qb64pe.bas"
do{
#line 15455 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]|=1;",7)));
#line 15455 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15455 "qb64pe.bas"
if(!qbevent)break;evnt(15455);}while(r);
#line 15457 "qb64pe.bas"
S_17968:;
#line 15457 "qb64pe.bas"
if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&(-(*_FUNC_ALLOCARRAY_LONG_DYNARRMODE!= 0 )))||is_error_pending()){
#line 15457 "qb64pe.bas"
if(qbevent){evnt(15457);if(r)goto S_17968;}
#line 15458 "qb64pe.bas"
S_17969:;
#line 15458 "qb64pe.bas"
if ((FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_ALLOCARRAY_LONG_UDT,_FUNC_ALLOCARRAY_LONG_DYNARRMODE))||is_error_pending()){
#line 15458 "qb64pe.bas"
if(qbevent){evnt(15458);if(r)goto S_17969;}
#line 15462 "qb64pe.bas"
do{
#line 15462 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]|=8;",7)));
#line 15462 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15462 "qb64pe.bas"
if(!qbevent)break;evnt(15462);}while(r);
#line 15463 "qb64pe.bas"
S_17971:;
#line 15463 "qb64pe.bas"
if ((-(*__INTEGER_REDIMOPTION> 1 ))||is_error_pending()){
#line 15463 "qb64pe.bas"
if(qbevent){evnt(15463);if(r)goto S_17971;}
#line 15463 "qb64pe.bas"
do{
#line 15463 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("if (!(preserve_old_total&&(preserve_old_flags&8))){",51));
#line 15463 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15463 "qb64pe.bas"
if(!qbevent)break;evnt(15463);}while(r);
#line 15463 "qb64pe.bas"
}
#line 15464 "qb64pe.bas"
do{
#line 15464 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("tmp_long=(ptrszint)alloc_req_elems;",35));
#line 15464 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15464 "qb64pe.bas"
if(!qbevent)break;evnt(15464);}while(r);
#line 15465 "qb64pe.bas"
do{
#line 15465 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("while(tmp_long--){",18));
#line 15465 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15465 "qb64pe.bas"
if(!qbevent)break;evnt(15465);}while(r);
#line 15466 "qb64pe.bas"
do{
#line 15466 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
#line 15466 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15466 "qb64pe.bas"
if(!qbevent)break;evnt(15466);}while(r);
#line 15467 "qb64pe.bas"
do{
#line 15467 "qb64pe.bas"
SUB_APPENDDYNUDTDESCINIT(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2090= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC,_FUNC_ALLOCARRAY_LONG_DYNARRMODE);
#line 15467 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15467 "qb64pe.bas"
if(!qbevent)break;evnt(15467);}while(r);
#line 15468 "qb64pe.bas"
S_17978:;
#line 15468 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 15468 "qb64pe.bas"
if(qbevent){evnt(15468);if(r)goto S_17978;}
#line 15468 "qb64pe.bas"
do{
#line 15468 "qb64pe.bas"
goto exit_subfunc;
#line 15468 "qb64pe.bas"
if(!qbevent)break;evnt(15468);}while(r);
#line 15468 "qb64pe.bas"
}
#line 15469 "qb64pe.bas"
do{
#line 15469 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_ACC);
#line 15469 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15469 "qb64pe.bas"
if(!qbevent)break;evnt(15469);}while(r);
#line 15470 "qb64pe.bas"
do{
#line 15470 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
#line 15470 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15470 "qb64pe.bas"
if(!qbevent)break;evnt(15470);}while(r);
#line 15471 "qb64pe.bas"
S_17983:;
#line 15471 "qb64pe.bas"
if ((-(*__INTEGER_REDIMOPTION> 1 ))||is_error_pending()){
#line 15471 "qb64pe.bas"
if(qbevent){evnt(15471);if(r)goto S_17983;}
#line 15471 "qb64pe.bas"
do{
#line 15471 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
#line 15471 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15471 "qb64pe.bas"
if(!qbevent)break;evnt(15471);}while(r);
#line 15471 "qb64pe.bas"
}
#line 15472 "qb64pe.bas"
}
#line 15473 "qb64pe.bas"
}
#line 15476 "qb64pe.bas"
S_17988:;
#line 15476 "qb64pe.bas"
if ((-(*__LONG_ARRAYDESC== 0 ))||is_error_pending()){
#line 15476 "qb64pe.bas"
if(qbevent){evnt(15476);if(r)goto S_17988;}
#line 15477 "qb64pe.bas"
do{
#line 15477 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2091=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&1){",7)));
#line 15477 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15477 "qb64pe.bas"
if(!qbevent)break;evnt(15477);}while(r);
#line 15478 "qb64pe.bas"
S_17990:;
#line 15478 "qb64pe.bas"
if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&(-(*_FUNC_ALLOCARRAY_LONG_DYNARRMODE!= 0 ))&(FUNC_UDTDYNHASMEMBERARRAYS(_FUNC_ALLOCARRAY_LONG_UDT,_FUNC_ALLOCARRAY_LONG_DYNARRMODE)))||is_error_pending()){
#line 15478 "qb64pe.bas"
if(qbevent){evnt(15478);if(r)goto S_17990;}
#line 15482 "qb64pe.bas"
do{
#line 15482 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2092=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&8){",7)));
#line 15482 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15482 "qb64pe.bas"
if(!qbevent)break;evnt(15482);}while(r);
#line 15483 "qb64pe.bas"
do{
#line 15483 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2093=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1)));
#line 15483 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15483 "qb64pe.bas"
if(!qbevent)break;evnt(15483);}while(r);
#line 15484 "qb64pe.bas"
do{
#line 15484 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2094=*__LONG_FREETXTBUF),qbs_new_txt_len("while(tmp_long--){",18));
#line 15484 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15484 "qb64pe.bas"
if(!qbevent)break;evnt(15484);}while(r);
#line 15485 "qb64pe.bas"
do{
#line 15485 "qb64pe.bas"
qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0));
#line 15485 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15485 "qb64pe.bas"
if(!qbevent)break;evnt(15485);}while(r);
#line 15486 "qb64pe.bas"
do{
#line 15486 "qb64pe.bas"
SUB_APPENDDYNUDTDESCFREE(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]",3)),_FUNC_ALLOCARRAY_LONG_UDT,&(pass2095= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC,_FUNC_ALLOCARRAY_LONG_DYNARRMODE);
#line 15486 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15486 "qb64pe.bas"
if(!qbevent)break;evnt(15486);}while(r);
#line 15487 "qb64pe.bas"
S_17996:;
#line 15487 "qb64pe.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 15487 "qb64pe.bas"
if(qbevent){evnt(15487);if(r)goto S_17996;}
#line 15487 "qb64pe.bas"
do{
#line 15487 "qb64pe.bas"
goto exit_subfunc;
#line 15487 "qb64pe.bas"
if(!qbevent)break;evnt(15487);}while(r);
#line 15487 "qb64pe.bas"
}
#line 15488 "qb64pe.bas"
do{
#line 15488 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2096=*__LONG_FREETXTBUF),_FUNC_ALLOCARRAY_STRING_ACC);
#line 15488 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15488 "qb64pe.bas"
if(!qbevent)break;evnt(15488);}while(r);
#line 15489 "qb64pe.bas"
do{
#line 15489 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2097=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
#line 15489 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15489 "qb64pe.bas"
if(!qbevent)break;evnt(15489);}while(r);
#line 15490 "qb64pe.bas"
do{
#line 15490 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2098=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
#line 15490 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15490 "qb64pe.bas"
if(!qbevent)break;evnt(15490);}while(r);
#line 15491 "qb64pe.bas"
}
#line 15492 "qb64pe.bas"
do{
#line 15492 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2099=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (",4),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&4){",7)));
#line 15492 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15492 "qb64pe.bas"
if(!qbevent)break;evnt(15492);}while(r);
#line 15493 "qb64pe.bas"
do{
#line 15493 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2100=*__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)));
#line 15493 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15493 "qb64pe.bas"
if(!qbevent)break;evnt(15493);}while(r);
#line 15494 "qb64pe.bas"
do{
#line 15494 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2101=*__LONG_FREETXTBUF),qbs_new_txt_len("}else{",6));
#line 15494 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15494 "qb64pe.bas"
if(!qbevent)break;evnt(15494);}while(r);
#line 15495 "qb64pe.bas"
do{
#line 15495 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2102=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6)));
#line 15495 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15495 "qb64pe.bas"
if(!qbevent)break;evnt(15495);}while(r);
#line 15496 "qb64pe.bas"
do{
#line 15496 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2103=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
#line 15496 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15496 "qb64pe.bas"
if(!qbevent)break;evnt(15496);}while(r);
#line 15497 "qb64pe.bas"
do{
#line 15497 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2104=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1));
#line 15497 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15497 "qb64pe.bas"
if(!qbevent)break;evnt(15497);}while(r);
#line 15499 "qb64pe.bas"
do{
#line 15499 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2105=*__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)));
#line 15499 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15499 "qb64pe.bas"
if(!qbevent)break;evnt(15499);}while(r);
#line 15500 "qb64pe.bas"
}
#line 15501 "qb64pe.bas"
}
#line 15503 "qb64pe.bas"
do{
#line 15503 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,_FUNC_ALLOCARRAY_STRING_COMMITDESC);
#line 15503 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15503 "qb64pe.bas"
if(!qbevent)break;evnt(15503);}while(r);
#line 15505 "qb64pe.bas"
}
#line 15508 "qb64pe.bas"
S_18014:;
#line 15508 "qb64pe.bas"
if ((-(*__LONG_ARRAYDESC== 0 ))||is_error_pending()){
#line 15508 "qb64pe.bas"
if(qbevent){evnt(15508);if(r)goto S_18014;}
#line 15510 "qb64pe.bas"
S_18015:;
#line 15510 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_CMEM)||is_error_pending()){
#line 15510 "qb64pe.bas"
if(qbevent){evnt(15510);if(r)goto S_18015;}
#line 15510 "qb64pe.bas"
do{
#line 15510 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=4;",6)));
#line 15510 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15510 "qb64pe.bas"
if(!qbevent)break;evnt(15510);}while(r);
#line 15510 "qb64pe.bas"
}else{
#line 15510 "qb64pe.bas"
do{
#line 15510 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=0;",6)));
#line 15510 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15510 "qb64pe.bas"
if(!qbevent)break;evnt(15510);}while(r);
#line 15510 "qb64pe.bas"
}
#line 15512 "qb64pe.bas"
S_18020:;
#line 15512 "qb64pe.bas"
fornext_value2107= 1 ;
#line 15512 "qb64pe.bas"
fornext_finalvalue2107=*_FUNC_ALLOCARRAY_LONG_NUME;
#line 15512 "qb64pe.bas"
fornext_step2107= 1 ;
#line 15512 "qb64pe.bas"
if (fornext_step2107<0) fornext_step_negative2107=1; else fornext_step_negative2107=0;
#line 15512 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2107;
#line 15512 "qb64pe.bas"
goto fornext_entrylabel2107;
#line 15512 "qb64pe.bas"
while(1){
#line 15512 "qb64pe.bas"
fornext_value2107=fornext_step2107+(*_FUNC_ALLOCARRAY_LONG_I);
#line 15512 "qb64pe.bas"
fornext_entrylabel2107:
#line 15512 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_I=fornext_value2107;
#line 15512 "qb64pe.bas"
if (fornext_step_negative2107){
#line 15512 "qb64pe.bas"
if (fornext_value2107<fornext_finalvalue2107) break;
#line 15512 "qb64pe.bas"
}else{
#line 15512 "qb64pe.bas"
if (fornext_value2107>fornext_finalvalue2107) break;
#line 15512 "qb64pe.bas"
}
#line 15512 "qb64pe.bas"
fornext_error2107:;
#line 15512 "qb64pe.bas"
if(qbevent){evnt(15512);if(r)goto S_18020;}
#line 15513 "qb64pe.bas"
do{
#line 15513 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_I* 4 ;
#line 15513 "qb64pe.bas"
if(!qbevent)break;evnt(15513);}while(r);
#line 15514 "qb64pe.bas"
do{
#line 15514 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 15514 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15514 "qb64pe.bas"
if(!qbevent)break;evnt(15514);}while(r);
#line 15515 "qb64pe.bas"
do{
#line 15515 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 15515 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15515 "qb64pe.bas"
if(!qbevent)break;evnt(15515);}while(r);
#line 15516 "qb64pe.bas"
do{
#line 15516 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__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)));
#line 15516 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15516 "qb64pe.bas"
if(!qbevent)break;evnt(15516);}while(r);
#line 15517 "qb64pe.bas"
fornext_continue_2106:;
#line 15517 "qb64pe.bas"
}
#line 15517 "qb64pe.bas"
fornext_exit_2106:;
#line 15518 "qb64pe.bas"
S_18026:;
#line 15518 "qb64pe.bas"
if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||is_error_pending()){
#line 15518 "qb64pe.bas"
if(qbevent){evnt(15518);if(r)goto S_18026;}
#line 15520 "qb64pe.bas"
do{
#line 15520 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)&nothingstring;",29)));
#line 15520 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15520 "qb64pe.bas"
if(!qbevent)break;evnt(15520);}while(r);
#line 15521 "qb64pe.bas"
}else{
#line 15523 "qb64pe.bas"
do{
#line 15523 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27)));
#line 15523 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15523 "qb64pe.bas"
if(!qbevent)break;evnt(15523);}while(r);
#line 15524 "qb64pe.bas"
}
#line 15525 "qb64pe.bas"
do{
#line 15525 "qb64pe.bas"
SUB_WRITEBUFLINECPP(__LONG_DATATXTBUF,qbs_new_txt_len("}",1));
#line 15525 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15525 "qb64pe.bas"
if(!qbevent)break;evnt(15525);}while(r);
#line 15526 "qb64pe.bas"
}
#line 15528 "qb64pe.bas"
S_18033:;
#line 15528 "qb64pe.bas"
if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== 0 ))||is_error_pending()){
#line 15528 "qb64pe.bas"
if(qbevent){evnt(15528);if(r)goto S_18033;}
#line 15530 "qb64pe.bas"
S_18034:;
#line 15530 "qb64pe.bas"
if ((-(*__INTEGER_REDIMOPTION== 0 ))||is_error_pending()){
#line 15530 "qb64pe.bas"
if(qbevent){evnt(15530);if(r)goto S_18034;}
#line 15530 "qb64pe.bas"
do{
#line 15530 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
#line 15530 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15530 "qb64pe.bas"
if(!qbevent)break;evnt(15530);}while(r);
#line 15530 "qb64pe.bas"
}
#line 15531 "qb64pe.bas"
do{
#line 15531 "qb64pe.bas"
SUB_WRITEBUFLINE(_FUNC_ALLOCARRAY_INTEGER_F12BUF,qbs_new_txt_len("}",1));
#line 15531 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15531 "qb64pe.bas"
if(!qbevent)break;evnt(15531);}while(r);
#line 15533 "qb64pe.bas"
}
#line 15535 "qb64pe.bas"
do{
#line 15535 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY=*_FUNC_ALLOCARRAY_LONG_NUME;
#line 15535 "qb64pe.bas"
if(!qbevent)break;evnt(15535);}while(r);
#line 15536 "qb64pe.bas"
S_18040:;
#line 15536 "qb64pe.bas"
if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== -1 ))||is_error_pending()){
#line 15536 "qb64pe.bas"
if(qbevent){evnt(15536);if(r)goto S_18040;}
#line 15536 "qb64pe.bas"
do{
#line 15536 "qb64pe.bas"
*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY= -1 ;
#line 15536 "qb64pe.bas"
if(!qbevent)break;evnt(15536);}while(r);
#line 15536 "qb64pe.bas"
}
#line 15538 "qb64pe.bas"
}
#line 15540 "qb64pe.bas"
S_18044:;
#line 15540 "qb64pe.bas"
if ((-(*_FUNC_ALLOCARRAY_LONG_AUTOARY== 0 ))||is_error_pending()){
#line 15540 "qb64pe.bas"
if(qbevent){evnt(15540);if(r)goto S_18044;}
#line 15541 "qb64pe.bas"
S_18045:;
#line 15541 "qb64pe.bas"
if ((-(*__INTEGER_DIMOPTION== 3 ))||is_error_pending()){
#line 15541 "qb64pe.bas"
if(qbevent){evnt(15541);if(r)goto S_18045;}
#line 15542 "qb64pe.bas"
do{
#line 15542 "qb64pe.bas"
SUB_BUFINSERTBUF(&(pass2108=*__LONG_DATATXTBUF),_FUNC_ALLOCARRAY_INTEGER_F12BUF);
#line 15542 "qb64pe.bas"
if(!qbevent)break;evnt(15542);}while(r);
#line 15543 "qb64pe.bas"
}else{
#line 15544 "qb64pe.bas"
do{
#line 15544 "qb64pe.bas"
SUB_BUFINSERTBUF(&(pass2109=*__LONG_MAINTXTBUF),_FUNC_ALLOCARRAY_INTEGER_F12BUF);
#line 15544 "qb64pe.bas"
if(!qbevent)break;evnt(15544);}while(r);
#line 15545 "qb64pe.bas"
}
#line 15546 "qb64pe.bas"
}
#line 15556 "qb64pe.bas"
do{
#line 15556 "qb64pe.bas"
SUB_DISPOSEBUF(_FUNC_ALLOCARRAY_INTEGER_F12BUF);
#line 15556 "qb64pe.bas"
if(!qbevent)break;evnt(15556);}while(r);
#line 15558 "qb64pe.bas"
do{
#line 15558 "qb64pe.bas"
*__INTEGER_DIMSHARED=*_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST;
#line 15558 "qb64pe.bas"
if(!qbevent)break;evnt(15558);}while(r);
#line 15560 "qb64pe.bas"
do{
#line 15560 "qb64pe.bas"
qbs_set(__STRING_TLAYOUT,_FUNC_ALLOCARRAY_STRING_L);
#line 15560 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 15560 "qb64pe.bas"
if(!qbevent)break;evnt(15560);}while(r);
#line 15561 "qb64pe.bas"
exit_subfunc:;
#line 15561 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 15561 "qb64pe.bas"
#include "free13.txt"
#line 15561 "qb64pe.bas"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
#line 15561 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 15561 "qb64pe.bas"
return *_FUNC_ALLOCARRAY_LONG_ALLOCARRAY;
#line 15561 "qb64pe.bas"
}
