#line 1635 "utilities/type.bas"
void SUB_APPENDDYNMEMBERREDIM(qbs*_SUB_APPENDDYNMEMBERREDIM_STRING_PREP_PREFIX,int32*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS,qbs*_SUB_APPENDDYNMEMBERREDIM_STRING_DESC_SLOT,int32*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES,int32*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,int32*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_VARSTR,int32*_SUB_APPENDDYNMEMBERREDIM_LONG_REDIM_KIND,qbs*_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,int32*_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE){
#line 1635 "utilities/type.bas"
qbs *tqbs;
#line 1635 "utilities/type.bas"
ptrszint tmp_long;
#line 1635 "utilities/type.bas"
int32 tmp_fileno;
#line 1635 "utilities/type.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 1635 "utilities/type.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 1635 "utilities/type.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 1635 "utilities/type.bas"
#include "data329.txt"
#line 1635 "utilities/type.bas"
mem_lock *sf_mem_lock;
#line 1635 "utilities/type.bas"
new_mem_lock();
#line 1635 "utilities/type.bas"
sf_mem_lock=mem_lock_tmp;
#line 1635 "utilities/type.bas"
sf_mem_lock->type=3;
#line 1635 "utilities/type.bas"
libqb_check_stack();
#line 1635 "utilities/type.bas"
if (is_error_pending()) goto exit_subfunc;
#line 1643 "utilities/type.bas"
do{
#line 1643 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1643,"type.bas");}while(r);
#line 1644 "utilities/type.bas"
do{
#line 1644 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1644,"type.bas");}while(r);
#line 1645 "utilities/type.bas"
do{
#line 1645 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1645,"type.bas");}while(r);
#line 1646 "utilities/type.bas"
do{
#line 1646 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1646,"type.bas");}while(r);
#line 1647 "utilities/type.bas"
do{
#line 1647 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1647,"type.bas");}while(r);
#line 1648 "utilities/type.bas"
do{
#line 1648 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1648,"type.bas");}while(r);
#line 1650 "utilities/type.bas"
do{
#line 1650 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_CR,qbs_add(func_chr( 13 ),func_chr( 10 )));
#line 1650 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1650 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1650,"type.bas");}while(r);
#line 1651 "utilities/type.bas"
S_43880:;
#line 1651 "utilities/type.bas"
if ((-(*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS<= 0 ))||is_error_pending()){
#line 1651 "utilities/type.bas"
if(qbevent){evnt(28809,1651,"type.bas");if(r)goto S_43880;}
#line 1651 "utilities/type.bas"
do{
#line 1651 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Array bounds missing",20));
#line 1651 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1651 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1651,"type.bas");}while(r);
#line 1651 "utilities/type.bas"
do{
#line 1651 "utilities/type.bas"
goto exit_subfunc;
#line 1651 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1651,"type.bas");}while(r);
#line 1651 "utilities/type.bas"
}
#line 1653 "utilities/type.bas"
do{
#line 1653 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_DESC_NAME,qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_PREP_PREFIX,qbs_new_txt_len("_desc",5)));
#line 1653 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1653 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1653,"type.bas");}while(r);
#line 1654 "utilities/type.bas"
do{
#line 1654 "utilities/type.bas"
*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_SLOTS=( 4 **_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS)+( 4 )+( 1 );
#line 1654 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1654,"type.bas");}while(r);
#line 1656 "utilities/type.bas"
do{
#line 1656 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("{",1)));
#line 1656 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1656 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1656,"type.bas");}while(r);
#line 1657 "utilities/type.bas"
do{
#line 1657 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint **dyn_udt_slot=(ptrszint**)(",37)),_SUB_APPENDDYNMEMBERREDIM_STRING_DESC_SLOT),qbs_new_txt_len(");",2)));
#line 1657 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1657 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1657,"type.bas");}while(r);
#line 1658 "utilities/type.bas"
do{
#line 1658 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint *dyn_udt_old=*dyn_udt_slot;",36)));
#line 1658 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1658 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1658,"type.bas");}while(r);
#line 1659 "utilities/type.bas"
do{
#line 1659 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint *dyn_udt_new=(ptrszint*)calloc((size_t)",48)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_SLOTS)))),qbs_new_txt_len(",ptrsz);",8)));
#line 1659 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1659 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1659,"type.bas");}while(r);
#line 1660 "utilities/type.bas"
do{
#line 1660 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (!dyn_udt_new) error(257);",29)));
#line 1660 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1660 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1660,"type.bas");}while(r);
#line 1661 "utilities/type.bas"
do{
#line 1661 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("new_mem_lock();",15)));
#line 1661 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1661 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1661,"type.bas");}while(r);
#line 1662 "utilities/type.bas"
do{
#line 1662 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("mem_lock_tmp->type=4;",21)));
#line 1662 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1662 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1662,"type.bas");}while(r);
#line 1663 "utilities/type.bas"
do{
#line 1663 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_new[",12)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_SLOTS- 1 )))),qbs_new_txt_len("]=(ptrszint)mem_lock_tmp;",25)));
#line 1663 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1663 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1663,"type.bas");}while(r);
#line 1664 "utilities/type.bas"
do{
#line 1664 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_new[1]=0;",17)));
#line 1664 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1664 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1664,"type.bas");}while(r);
#line 1665 "utilities/type.bas"
do{
#line 1665 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_new[2]=1;",17)));
#line 1665 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1665 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1665,"type.bas");}while(r);
#line 1666 "utilities/type.bas"
do{
#line 1666 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_new[3]=",15)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS)))),qbs_new_txt_len(";",1)));
#line 1666 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1666 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1666,"type.bas");}while(r);
#line 1667 "utilities/type.bas"
do{
#line 1667 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint dyn_udt_total=1;",25)));
#line 1667 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1667 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1667,"type.bas");}while(r);
#line 1669 "utilities/type.bas"
S_43898:;
#line 1669 "utilities/type.bas"
fornext_value4431= 1 ;
#line 1669 "utilities/type.bas"
fornext_finalvalue4431=*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS;
#line 1669 "utilities/type.bas"
fornext_step4431= 1 ;
#line 1669 "utilities/type.bas"
if (fornext_step4431<0) fornext_step_negative4431=1; else fornext_step_negative4431=0;
#line 1669 "utilities/type.bas"
if (is_error_pending()) goto fornext_error4431;
#line 1669 "utilities/type.bas"
goto fornext_entrylabel4431;
#line 1669 "utilities/type.bas"
while(1){
#line 1669 "utilities/type.bas"
fornext_value4431=fornext_step4431+(*_SUB_APPENDDYNMEMBERREDIM_LONG_DIM_INDEX);
#line 1669 "utilities/type.bas"
fornext_entrylabel4431:
#line 1669 "utilities/type.bas"
*_SUB_APPENDDYNMEMBERREDIM_LONG_DIM_INDEX=fornext_value4431;
#line 1669 "utilities/type.bas"
if (fornext_step_negative4431){
#line 1669 "utilities/type.bas"
if (fornext_value4431<fornext_finalvalue4431) break;
#line 1669 "utilities/type.bas"
}else{
#line 1669 "utilities/type.bas"
if (fornext_value4431>fornext_finalvalue4431) break;
#line 1669 "utilities/type.bas"
}
#line 1669 "utilities/type.bas"
fornext_error4431:;
#line 1669 "utilities/type.bas"
if(qbevent){evnt(28809,1669,"type.bas");if(r)goto S_43898;}
#line 1670 "utilities/type.bas"
do{
#line 1670 "utilities/type.bas"
*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX=((*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS-*_SUB_APPENDDYNMEMBERREDIM_LONG_DIM_INDEX)* 4 )+( 4 );
#line 1670 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1670,"type.bas");}while(r);
#line 1671 "utilities/type.bas"
do{
#line 1671 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_new[",12)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX)))),qbs_new_txt_len("]=",2)),_SUB_APPENDDYNMEMBERREDIM_STRING_DESC_NAME),qbs_new_txt_len("[",1)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX)))),qbs_new_txt_len("];",2)));
#line 1671 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1671 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1671,"type.bas");}while(r);
#line 1672 "utilities/type.bas"
do{
#line 1672 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_new[",12)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX+ 1 )))),qbs_new_txt_len("]=",2)),_SUB_APPENDDYNMEMBERREDIM_STRING_DESC_NAME),qbs_new_txt_len("[",1)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX+ 1 )))),qbs_new_txt_len("];",2)));
#line 1672 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1672 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1672,"type.bas");}while(r);
#line 1673 "utilities/type.bas"
do{
#line 1673 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_new[",12)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX+ 2 )))),qbs_new_txt_len("]=",2)),_SUB_APPENDDYNMEMBERREDIM_STRING_DESC_NAME),qbs_new_txt_len("[",1)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX+ 2 )))),qbs_new_txt_len("];",2)));
#line 1673 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1673 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1673,"type.bas");}while(r);
#line 1674 "utilities/type.bas"
do{
#line 1674 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_new[",12)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX+ 3 )))),qbs_new_txt_len("]=0;",4)));
#line 1674 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1674 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1674,"type.bas");}while(r);
#line 1675 "utilities/type.bas"
do{
#line 1675 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_total*=dyn_udt_new[",27)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX+ 1 )))),qbs_new_txt_len("];",2)));
#line 1675 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1675 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1675,"type.bas");}while(r);
#line 1676 "utilities/type.bas"
fornext_continue_4430:;
#line 1676 "utilities/type.bas"
}
#line 1676 "utilities/type.bas"
fornext_exit_4430:;
#line 1681 "utilities/type.bas"
do{
#line 1681 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_new[0]=(ptrszint)calloc((size_t)(dyn_udt_total*",55)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES)))),qbs_new_txt_len("),1);",5)));
#line 1681 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1681 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1681,"type.bas");}while(r);
#line 1682 "utilities/type.bas"
do{
#line 1682 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (!dyn_udt_new[0]) error(257);",32)));
#line 1682 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1682 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1682,"type.bas");}while(r);
#line 1684 "utilities/type.bas"
S_43908:;
#line 1684 "utilities/type.bas"
if ((*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_VARSTR)||is_error_pending()){
#line 1684 "utilities/type.bas"
if(qbevent){evnt(28809,1684,"type.bas");if(r)goto S_43908;}
#line 1685 "utilities/type.bas"
do{
#line 1685 "utilities/type.bas"
SUB_APPENDDYNSTRINIT(qbs_new_txt_len("(void*)dyn_udt_new[0]",21),qbs_new_txt_len("dyn_udt_total",13),_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES,_SUB_APPENDDYNMEMBERREDIM_STRING_ACC);
#line 1685 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1685 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1685,"type.bas");}while(r);
#line 1686 "utilities/type.bas"
S_43910:;
#line 1686 "utilities/type.bas"
}else{
#line 1686 "utilities/type.bas"
if ((-(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT!= 0 ))&((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]|FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE)))){
#line 1686 "utilities/type.bas"
if(qbevent){evnt(28809,1686,"type.bas");if(r)goto S_43910;}
#line 1687 "utilities/type.bas"
S_43911:;
#line 1687 "utilities/type.bas"
if ((FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE))||is_error_pending()){
#line 1687 "utilities/type.bas"
if(qbevent){evnt(28809,1687,"type.bas");if(r)goto S_43911;}
#line 1687 "utilities/type.bas"
do{
#line 1687 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("unsigned char *dyn_udt_moved=NULL;",34)));
#line 1687 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1687 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1687,"type.bas");}while(r);
#line 1687 "utilities/type.bas"
}
#line 1688 "utilities/type.bas"
do{
#line 1688 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("for(ptrszint dyn_udt_own_init_i=0; dyn_udt_own_init_i<dyn_udt_total; dyn_udt_own_init_i++){",91)));
#line 1688 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1688 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1688,"type.bas");}while(r);
#line 1689 "utilities/type.bas"
do{
#line 1689 "utilities/type.bas"
SUB_APPENDDYNUDTOWNINITAT(qbs_new_txt_len("(void*)dyn_udt_new[0]",21),_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,&(pass4432= 0 ),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES))),qbs_new_txt_len("dyn_udt_own_init_i",18),_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE);
#line 1689 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1689 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1689,"type.bas");}while(r);
#line 1690 "utilities/type.bas"
S_43916:;
#line 1690 "utilities/type.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 1690 "utilities/type.bas"
if(qbevent){evnt(28809,1690,"type.bas");if(r)goto S_43916;}
#line 1690 "utilities/type.bas"
do{
#line 1690 "utilities/type.bas"
goto exit_subfunc;
#line 1690 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1690,"type.bas");}while(r);
#line 1690 "utilities/type.bas"
}
#line 1691 "utilities/type.bas"
do{
#line 1691 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1691 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1691 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1691,"type.bas");}while(r);
#line 1692 "utilities/type.bas"
}
#line 1692 "utilities/type.bas"
}
#line 1696 "utilities/type.bas"
S_43921:;
#line 1696 "utilities/type.bas"
if ((-(*_SUB_APPENDDYNMEMBERREDIM_LONG_REDIM_KIND== 2 ))||is_error_pending()){
#line 1696 "utilities/type.bas"
if(qbevent){evnt(28809,1696,"type.bas");if(r)goto S_43921;}
#line 1697 "utilities/type.bas"
do{
#line 1697 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_old && dyn_udt_old[0] && dyn_udt_old[0]!=(ptrszint)nothingvalue && dyn_udt_old[3]>0){",97)));
#line 1697 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1697 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1697,"type.bas");}while(r);
#line 1698 "utilities/type.bas"
do{
#line 1698 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint dyn_udt_old_total=1;",29)));
#line 1698 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1698 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1698,"type.bas");}while(r);
#line 1699 "utilities/type.bas"
do{
#line 1699 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("for(ptrszint dyn_udt_dim=0;dyn_udt_dim<dyn_udt_old[3];dyn_udt_dim++){",69)));
#line 1699 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1699 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1699,"type.bas");}while(r);
#line 1700 "utilities/type.bas"
do{
#line 1700 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_old_total*=dyn_udt_old[4+dyn_udt_dim*4+1];",50)));
#line 1700 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1700 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1700,"type.bas");}while(r);
#line 1701 "utilities/type.bas"
do{
#line 1701 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1701 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1701 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1701,"type.bas");}while(r);
#line 1702 "utilities/type.bas"
do{
#line 1702 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint dyn_udt_copy_total=(dyn_udt_old_total<dyn_udt_total)?dyn_udt_old_total:dyn_udt_total;",94)));
#line 1702 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1702 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1702,"type.bas");}while(r);
#line 1703 "utilities/type.bas"
S_43928:;
#line 1703 "utilities/type.bas"
if (((-(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT!= 0 ))&((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]|FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE))))||is_error_pending()){
#line 1703 "utilities/type.bas"
if(qbevent){evnt(28809,1703,"type.bas");if(r)goto S_43928;}
#line 1704 "utilities/type.bas"
do{
#line 1704 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("for(ptrszint dyn_udt_copy_i=0; dyn_udt_copy_i<dyn_udt_copy_total; dyn_udt_copy_i++){",84)));
#line 1704 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1704 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1704,"type.bas");}while(r);
#line 1705 "utilities/type.bas"
do{
#line 1705 "utilities/type.bas"
SUB_APPENDDYNUDTOWNSETAT(qbs_new_txt_len("(void*)dyn_udt_new[0]",21),qbs_new_txt_len("(void*)dyn_udt_old[0]",21),_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,&(pass4433= 0 ),&(pass4434= 0 ),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES))),qbs_new_txt_len("dyn_udt_copy_i",14),qbs_new_txt_len("dyn_udt_copy_i",14),_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE);
#line 1705 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1705 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1705,"type.bas");}while(r);
#line 1706 "utilities/type.bas"
S_43931:;
#line 1706 "utilities/type.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 1706 "utilities/type.bas"
if(qbevent){evnt(28809,1706,"type.bas");if(r)goto S_43931;}
#line 1706 "utilities/type.bas"
do{
#line 1706 "utilities/type.bas"
goto exit_subfunc;
#line 1706 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1706,"type.bas");}while(r);
#line 1706 "utilities/type.bas"
}
#line 1707 "utilities/type.bas"
do{
#line 1707 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1707 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1707 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1707,"type.bas");}while(r);
#line 1708 "utilities/type.bas"
S_43935:;
#line 1708 "utilities/type.bas"
}else{
#line 1708 "utilities/type.bas"
if (*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_VARSTR){
#line 1708 "utilities/type.bas"
if(qbevent){evnt(28809,1708,"type.bas");if(r)goto S_43935;}
#line 1709 "utilities/type.bas"
do{
#line 1709 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_copy_total>0){",26)));
#line 1709 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1709 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1709,"type.bas");}while(r);
#line 1710 "utilities/type.bas"
do{
#line 1710 "utilities/type.bas"
SUB_APPENDDYNSTRSET(qbs_new_txt_len("(void*)dyn_udt_new[0]",21),qbs_new_txt_len("(void*)dyn_udt_old[0]",21),qbs_new_txt_len("dyn_udt_copy_total",18),_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES,_SUB_APPENDDYNMEMBERREDIM_STRING_ACC);
#line 1710 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1710 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1710,"type.bas");}while(r);
#line 1711 "utilities/type.bas"
do{
#line 1711 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1711 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1711 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1711,"type.bas");}while(r);
#line 1712 "utilities/type.bas"
S_43939:;
#line 1712 "utilities/type.bas"
}else{
#line 1712 "utilities/type.bas"
if ((-(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT!= 0 ))&(FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE))){
#line 1712 "utilities/type.bas"
if(qbevent){evnt(28809,1712,"type.bas");if(r)goto S_43939;}
#line 1713 "utilities/type.bas"
do{
#line 1713 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_old_total>0){dyn_udt_moved=(unsigned char*)calloc((size_t)dyn_udt_old_total,1); if(!dyn_udt_moved) error(257);}",123)));
#line 1713 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1713 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1713,"type.bas");}while(r);
#line 1714 "utilities/type.bas"
do{
#line 1714 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("for(ptrszint dyn_udt_copy_i=0; dyn_udt_copy_i<dyn_udt_copy_total; dyn_udt_copy_i++){",84)));
#line 1714 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1714 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1714,"type.bas");}while(r);
#line 1715 "utilities/type.bas"
do{
#line 1715 "utilities/type.bas"
SUB_APPENDDYNUDTDESCFREEAT(qbs_new_txt_len("(void*)dyn_udt_new[0]",21),_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,&(pass4435= 0 ),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES))),qbs_new_txt_len("dyn_udt_copy_i",14),_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE);
#line 1715 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1715 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1715,"type.bas");}while(r);
#line 1716 "utilities/type.bas"
S_43943:;
#line 1716 "utilities/type.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 1716 "utilities/type.bas"
if(qbevent){evnt(28809,1716,"type.bas");if(r)goto S_43943;}
#line 1716 "utilities/type.bas"
do{
#line 1716 "utilities/type.bas"
goto exit_subfunc;
#line 1716 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1716,"type.bas");}while(r);
#line 1716 "utilities/type.bas"
}
#line 1717 "utilities/type.bas"
do{
#line 1717 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("memcpy(((uint8*)dyn_udt_new[0])+dyn_udt_copy_i*",47)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES)))),qbs_new_txt_len(",((uint8*)dyn_udt_old[0])+dyn_udt_copy_i*",41)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES)))),qbs_new_txt_len(",(size_t)",9)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES)))),qbs_new_txt_len(");",2)));
#line 1717 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1717 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1717,"type.bas");}while(r);
#line 1718 "utilities/type.bas"
do{
#line 1718 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_moved[dyn_udt_copy_i]=1;",32)));
#line 1718 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1718 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1718,"type.bas");}while(r);
#line 1719 "utilities/type.bas"
do{
#line 1719 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1719 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1719 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1719,"type.bas");}while(r);
#line 1720 "utilities/type.bas"
}else{
#line 1721 "utilities/type.bas"
do{
#line 1721 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_copy_total>0) memcpy((void*)dyn_udt_new[0],(void*)dyn_udt_old[0],(size_t)(dyn_udt_copy_total*",105)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES)))),qbs_new_txt_len("));",3)));
#line 1721 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1721 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1721,"type.bas");}while(r);
#line 1722 "utilities/type.bas"
}
#line 1722 "utilities/type.bas"
}
#line 1722 "utilities/type.bas"
}
#line 1723 "utilities/type.bas"
do{
#line 1723 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1723 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1723 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1723,"type.bas");}while(r);
#line 1726 "utilities/type.bas"
S_43953:;
#line 1726 "utilities/type.bas"
}else{
#line 1726 "utilities/type.bas"
if (-(*_SUB_APPENDDYNMEMBERREDIM_LONG_REDIM_KIND== 3 )){
#line 1726 "utilities/type.bas"
if(qbevent){evnt(28809,1726,"type.bas");if(r)goto S_43953;}
#line 1727 "utilities/type.bas"
do{
#line 1727 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_old && dyn_udt_old[0] && dyn_udt_old[0]!=(ptrszint)nothingvalue && dyn_udt_old[3]==",95)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS)))),qbs_new_txt_len("){",2)));
#line 1727 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1727 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1727,"type.bas");}while(r);
#line 1728 "utilities/type.bas"
S_43955:;
#line 1728 "utilities/type.bas"
if (((-(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT!= 0 ))&(FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE)))||is_error_pending()){
#line 1728 "utilities/type.bas"
if(qbevent){evnt(28809,1728,"type.bas");if(r)goto S_43955;}
#line 1729 "utilities/type.bas"
do{
#line 1729 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint dyn_udt_old_total=1;",29)));
#line 1729 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1729 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1729,"type.bas");}while(r);
#line 1730 "utilities/type.bas"
do{
#line 1730 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("for(ptrszint dyn_udt_old_dim=0;dyn_udt_old_dim<dyn_udt_old[3];dyn_udt_old_dim++){dyn_udt_old_total*=dyn_udt_old[4+dyn_udt_old_dim*4+1];}",136)));
#line 1730 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1730 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1730,"type.bas");}while(r);
#line 1731 "utilities/type.bas"
do{
#line 1731 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_old_total>0){dyn_udt_moved=(unsigned char*)calloc((size_t)dyn_udt_old_total,1); if(!dyn_udt_moved) error(257);}",123)));
#line 1731 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1731 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1731,"type.bas");}while(r);
#line 1732 "utilities/type.bas"
}
#line 1733 "utilities/type.bas"
do{
#line 1733 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint dyn_udt_retain_lo[",27)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS)))),qbs_new_txt_len("];",2)));
#line 1733 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1733 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1733,"type.bas");}while(r);
#line 1734 "utilities/type.bas"
do{
#line 1734 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint dyn_udt_retain_hi[",27)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS)))),qbs_new_txt_len("];",2)));
#line 1734 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1734 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1734,"type.bas");}while(r);
#line 1735 "utilities/type.bas"
do{
#line 1735 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint dyn_udt_retain_idx[",28)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS)))),qbs_new_txt_len("];",2)));
#line 1735 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1735 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1735,"type.bas");}while(r);
#line 1736 "utilities/type.bas"
do{
#line 1736 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint dyn_udt_retain_old_off;",32)));
#line 1736 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1736 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1736,"type.bas");}while(r);
#line 1737 "utilities/type.bas"
do{
#line 1737 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint dyn_udt_retain_new_off;",32)));
#line 1737 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1737 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1737,"type.bas");}while(r);
#line 1738 "utilities/type.bas"
do{
#line 1738 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint dyn_udt_retain_dim;",28)));
#line 1738 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1738 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1738,"type.bas");}while(r);
#line 1739 "utilities/type.bas"
do{
#line 1739 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("int dyn_udt_retain_any=1;",25)));
#line 1739 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1739 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1739,"type.bas");}while(r);
#line 1740 "utilities/type.bas"
S_43967:;
#line 1740 "utilities/type.bas"
fornext_value4437= 1 ;
#line 1740 "utilities/type.bas"
fornext_finalvalue4437=*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS;
#line 1740 "utilities/type.bas"
fornext_step4437= 1 ;
#line 1740 "utilities/type.bas"
if (fornext_step4437<0) fornext_step_negative4437=1; else fornext_step_negative4437=0;
#line 1740 "utilities/type.bas"
if (is_error_pending()) goto fornext_error4437;
#line 1740 "utilities/type.bas"
goto fornext_entrylabel4437;
#line 1740 "utilities/type.bas"
while(1){
#line 1740 "utilities/type.bas"
fornext_value4437=fornext_step4437+(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM);
#line 1740 "utilities/type.bas"
fornext_entrylabel4437:
#line 1740 "utilities/type.bas"
*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM=fornext_value4437;
#line 1740 "utilities/type.bas"
if (fornext_step_negative4437){
#line 1740 "utilities/type.bas"
if (fornext_value4437<fornext_finalvalue4437) break;
#line 1740 "utilities/type.bas"
}else{
#line 1740 "utilities/type.bas"
if (fornext_value4437>fornext_finalvalue4437) break;
#line 1740 "utilities/type.bas"
}
#line 1740 "utilities/type.bas"
fornext_error4437:;
#line 1740 "utilities/type.bas"
if(qbevent){evnt(28809,1740,"type.bas");if(r)goto S_43967;}
#line 1741 "utilities/type.bas"
do{
#line 1741 "utilities/type.bas"
*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX=((*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS-*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM)* 4 )+( 4 );
#line 1741 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1741,"type.bas");}while(r);
#line 1742 "utilities/type.bas"
do{
#line 1742 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_retain_lo[",18)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM- 1 )))),qbs_new_txt_len("]=dyn_udt_new[",14)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX)))),qbs_new_txt_len("];",2)));
#line 1742 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1742 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1742,"type.bas");}while(r);
#line 1743 "utilities/type.bas"
do{
#line 1743 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_old[",16)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX)))),qbs_new_txt_len("]>dyn_udt_retain_lo[",20)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM- 1 )))),qbs_new_txt_len("]) dyn_udt_retain_lo[",21)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM- 1 )))),qbs_new_txt_len("]=dyn_udt_old[",14)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX)))),qbs_new_txt_len("];",2)));
#line 1743 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1743 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1743,"type.bas");}while(r);
#line 1744 "utilities/type.bas"
do{
#line 1744 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_retain_hi[",18)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM- 1 )))),qbs_new_txt_len("]=dyn_udt_new[",14)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX)))),qbs_new_txt_len("]+(dyn_udt_new[",15)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX+ 1 )))),qbs_new_txt_len("]-1);",5)));
#line 1744 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1744 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1744,"type.bas");}while(r);
#line 1745 "utilities/type.bas"
do{
#line 1745 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,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(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if ((dyn_udt_old[",17)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX)))),qbs_new_txt_len("]+(dyn_udt_old[",15)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX+ 1 )))),qbs_new_txt_len("]-1))<dyn_udt_retain_hi[",24)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM- 1 )))),qbs_new_txt_len("]) dyn_udt_retain_hi[",21)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM- 1 )))),qbs_new_txt_len("]=dyn_udt_old[",14)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX)))),qbs_new_txt_len("]+(dyn_udt_old[",15)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX+ 1 )))),qbs_new_txt_len("]-1);",5)));
#line 1745 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1745 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1745,"type.bas");}while(r);
#line 1746 "utilities/type.bas"
do{
#line 1746 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_retain_hi[",22)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM- 1 )))),qbs_new_txt_len("]<dyn_udt_retain_lo[",20)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM- 1 )))),qbs_new_txt_len("]) dyn_udt_retain_any=0;",24)));
#line 1746 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1746 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1746,"type.bas");}while(r);
#line 1747 "utilities/type.bas"
fornext_continue_4436:;
#line 1747 "utilities/type.bas"
}
#line 1747 "utilities/type.bas"
fornext_exit_4436:;
#line 1748 "utilities/type.bas"
do{
#line 1748 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_retain_any){",24)));
#line 1748 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1748 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1748,"type.bas");}while(r);
#line 1749 "utilities/type.bas"
S_43976:;
#line 1749 "utilities/type.bas"
fornext_value4439= 1 ;
#line 1749 "utilities/type.bas"
fornext_finalvalue4439=*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS;
#line 1749 "utilities/type.bas"
fornext_step4439= 1 ;
#line 1749 "utilities/type.bas"
if (fornext_step4439<0) fornext_step_negative4439=1; else fornext_step_negative4439=0;
#line 1749 "utilities/type.bas"
if (is_error_pending()) goto fornext_error4439;
#line 1749 "utilities/type.bas"
goto fornext_entrylabel4439;
#line 1749 "utilities/type.bas"
while(1){
#line 1749 "utilities/type.bas"
fornext_value4439=fornext_step4439+(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM);
#line 1749 "utilities/type.bas"
fornext_entrylabel4439:
#line 1749 "utilities/type.bas"
*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM=fornext_value4439;
#line 1749 "utilities/type.bas"
if (fornext_step_negative4439){
#line 1749 "utilities/type.bas"
if (fornext_value4439<fornext_finalvalue4439) break;
#line 1749 "utilities/type.bas"
}else{
#line 1749 "utilities/type.bas"
if (fornext_value4439>fornext_finalvalue4439) break;
#line 1749 "utilities/type.bas"
}
#line 1749 "utilities/type.bas"
fornext_error4439:;
#line 1749 "utilities/type.bas"
if(qbevent){evnt(28809,1749,"type.bas");if(r)goto S_43976;}
#line 1750 "utilities/type.bas"
do{
#line 1750 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_retain_idx[",19)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM- 1 )))),qbs_new_txt_len("]=dyn_udt_retain_lo[",20)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM- 1 )))),qbs_new_txt_len("];",2)));
#line 1750 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1750 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1750,"type.bas");}while(r);
#line 1751 "utilities/type.bas"
fornext_continue_4438:;
#line 1751 "utilities/type.bas"
}
#line 1751 "utilities/type.bas"
fornext_exit_4438:;
#line 1752 "utilities/type.bas"
do{
#line 1752 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("for(;;){",8)));
#line 1752 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1752 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1752,"type.bas");}while(r);
#line 1753 "utilities/type.bas"
do{
#line 1753 "utilities/type.bas"
*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX=((*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS- 1 )* 4 )+( 4 );
#line 1753 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1753,"type.bas");}while(r);
#line 1754 "utilities/type.bas"
do{
#line 1754 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_retain_old_off=dyn_udt_retain_idx[0]-dyn_udt_old[",57)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX)))),qbs_new_txt_len("];",2)));
#line 1754 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1754 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1754,"type.bas");}while(r);
#line 1755 "utilities/type.bas"
do{
#line 1755 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_retain_new_off=dyn_udt_retain_idx[0]-dyn_udt_new[",57)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX)))),qbs_new_txt_len("];",2)));
#line 1755 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1755 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1755,"type.bas");}while(r);
#line 1756 "utilities/type.bas"
S_43983:;
#line 1756 "utilities/type.bas"
fornext_value4441= 2 ;
#line 1756 "utilities/type.bas"
fornext_finalvalue4441=*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS;
#line 1756 "utilities/type.bas"
fornext_step4441= 1 ;
#line 1756 "utilities/type.bas"
if (fornext_step4441<0) fornext_step_negative4441=1; else fornext_step_negative4441=0;
#line 1756 "utilities/type.bas"
if (is_error_pending()) goto fornext_error4441;
#line 1756 "utilities/type.bas"
goto fornext_entrylabel4441;
#line 1756 "utilities/type.bas"
while(1){
#line 1756 "utilities/type.bas"
fornext_value4441=fornext_step4441+(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM);
#line 1756 "utilities/type.bas"
fornext_entrylabel4441:
#line 1756 "utilities/type.bas"
*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM=fornext_value4441;
#line 1756 "utilities/type.bas"
if (fornext_step_negative4441){
#line 1756 "utilities/type.bas"
if (fornext_value4441<fornext_finalvalue4441) break;
#line 1756 "utilities/type.bas"
}else{
#line 1756 "utilities/type.bas"
if (fornext_value4441>fornext_finalvalue4441) break;
#line 1756 "utilities/type.bas"
}
#line 1756 "utilities/type.bas"
fornext_error4441:;
#line 1756 "utilities/type.bas"
if(qbevent){evnt(28809,1756,"type.bas");if(r)goto S_43983;}
#line 1757 "utilities/type.bas"
do{
#line 1757 "utilities/type.bas"
*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX=((*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS-*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM)* 4 )+( 4 );
#line 1757 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1757,"type.bas");}while(r);
#line 1758 "utilities/type.bas"
do{
#line 1758 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_retain_old_off+=(dyn_udt_retain_idx[",44)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM- 1 )))),qbs_new_txt_len("]-dyn_udt_old[",14)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX)))),qbs_new_txt_len("])*dyn_udt_old[",15)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX+ 2 )))),qbs_new_txt_len("];",2)));
#line 1758 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1758 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1758,"type.bas");}while(r);
#line 1759 "utilities/type.bas"
do{
#line 1759 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_retain_new_off+=(dyn_udt_retain_idx[",44)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_RETAIN_DIM- 1 )))),qbs_new_txt_len("]-dyn_udt_new[",14)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX)))),qbs_new_txt_len("])*dyn_udt_new[",15)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNMEMBERREDIM_LONG_DESC_INDEX+ 2 )))),qbs_new_txt_len("];",2)));
#line 1759 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1759 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1759,"type.bas");}while(r);
#line 1760 "utilities/type.bas"
fornext_continue_4440:;
#line 1760 "utilities/type.bas"
}
#line 1760 "utilities/type.bas"
fornext_exit_4440:;
#line 1761 "utilities/type.bas"
S_43988:;
#line 1761 "utilities/type.bas"
if (((-(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT!= 0 ))&((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]|FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE))))||is_error_pending()){
#line 1761 "utilities/type.bas"
if(qbevent){evnt(28809,1761,"type.bas");if(r)goto S_43988;}
#line 1762 "utilities/type.bas"
do{
#line 1762 "utilities/type.bas"
SUB_APPENDDYNUDTOWNSETAT(qbs_new_txt_len("(void*)dyn_udt_new[0]",21),qbs_new_txt_len("(void*)dyn_udt_old[0]",21),_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,&(pass4442= 0 ),&(pass4443= 0 ),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES))),qbs_new_txt_len("dyn_udt_retain_new_off",22),qbs_new_txt_len("dyn_udt_retain_old_off",22),_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE);
#line 1762 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1762 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1762,"type.bas");}while(r);
#line 1763 "utilities/type.bas"
S_43990:;
#line 1763 "utilities/type.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 1763 "utilities/type.bas"
if(qbevent){evnt(28809,1763,"type.bas");if(r)goto S_43990;}
#line 1763 "utilities/type.bas"
do{
#line 1763 "utilities/type.bas"
goto exit_subfunc;
#line 1763 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1763,"type.bas");}while(r);
#line 1763 "utilities/type.bas"
}
#line 1764 "utilities/type.bas"
S_43993:;
#line 1764 "utilities/type.bas"
}else{
#line 1764 "utilities/type.bas"
if (*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_VARSTR){
#line 1764 "utilities/type.bas"
if(qbevent){evnt(28809,1764,"type.bas");if(r)goto S_43993;}
#line 1765 "utilities/type.bas"
do{
#line 1765 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("qbs_set(*(qbs**)(((uint8*)dyn_udt_new[0])+dyn_udt_retain_new_off*",65)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES)))),qbs_new_txt_len("),*(qbs**)(((uint8*)dyn_udt_old[0])+dyn_udt_retain_old_off*",59)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES)))),qbs_new_txt_len("));",3)));
#line 1765 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1765 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1765,"type.bas");}while(r);
#line 1766 "utilities/type.bas"
S_43995:;
#line 1766 "utilities/type.bas"
}else{
#line 1766 "utilities/type.bas"
if ((-(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT!= 0 ))&(FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE))){
#line 1766 "utilities/type.bas"
if(qbevent){evnt(28809,1766,"type.bas");if(r)goto S_43995;}
#line 1767 "utilities/type.bas"
do{
#line 1767 "utilities/type.bas"
SUB_APPENDDYNUDTDESCFREEAT(qbs_new_txt_len("(void*)dyn_udt_new[0]",21),_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,&(pass4444= 0 ),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES))),qbs_new_txt_len("dyn_udt_retain_new_off",22),_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE);
#line 1767 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1767 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1767,"type.bas");}while(r);
#line 1768 "utilities/type.bas"
S_43997:;
#line 1768 "utilities/type.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 1768 "utilities/type.bas"
if(qbevent){evnt(28809,1768,"type.bas");if(r)goto S_43997;}
#line 1768 "utilities/type.bas"
do{
#line 1768 "utilities/type.bas"
goto exit_subfunc;
#line 1768 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1768,"type.bas");}while(r);
#line 1768 "utilities/type.bas"
}
#line 1769 "utilities/type.bas"
do{
#line 1769 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("memcpy(((uint8*)dyn_udt_new[0])+dyn_udt_retain_new_off*",55)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES)))),qbs_new_txt_len(",((uint8*)dyn_udt_old[0])+dyn_udt_retain_old_off*",49)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES)))),qbs_new_txt_len(",(size_t)",9)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES)))),qbs_new_txt_len(");",2)));
#line 1769 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1769 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1769,"type.bas");}while(r);
#line 1770 "utilities/type.bas"
do{
#line 1770 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_moved[dyn_udt_retain_old_off]=1;",40)));
#line 1770 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1770 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1770,"type.bas");}while(r);
#line 1771 "utilities/type.bas"
}else{
#line 1772 "utilities/type.bas"
do{
#line 1772 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("memcpy(((uint8*)dyn_udt_new[0])+dyn_udt_retain_new_off*",55)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES)))),qbs_new_txt_len(",((uint8*)dyn_udt_old[0])+dyn_udt_retain_old_off*",49)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES)))),qbs_new_txt_len(",(size_t)",9)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES)))),qbs_new_txt_len(");",2)));
#line 1772 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1772 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1772,"type.bas");}while(r);
#line 1773 "utilities/type.bas"
}
#line 1773 "utilities/type.bas"
}
#line 1773 "utilities/type.bas"
}
#line 1774 "utilities/type.bas"
do{
#line 1774 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_retain_dim=0;",21)));
#line 1774 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1774 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1774,"type.bas");}while(r);
#line 1775 "utilities/type.bas"
do{
#line 1775 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("while (dyn_udt_retain_dim<",26)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS)))),qbs_new_txt_len("){",2)));
#line 1775 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1775 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1775,"type.bas");}while(r);
#line 1776 "utilities/type.bas"
do{
#line 1776 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_retain_idx[dyn_udt_retain_dim]++;",41)));
#line 1776 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1776 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1776,"type.bas");}while(r);
#line 1777 "utilities/type.bas"
do{
#line 1777 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_retain_idx[dyn_udt_retain_dim]<=dyn_udt_retain_hi[dyn_udt_retain_dim]) break;",89)));
#line 1777 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1777 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1777,"type.bas");}while(r);
#line 1778 "utilities/type.bas"
do{
#line 1778 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_retain_idx[dyn_udt_retain_dim]=dyn_udt_retain_lo[dyn_udt_retain_dim];",77)));
#line 1778 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1778 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1778,"type.bas");}while(r);
#line 1779 "utilities/type.bas"
do{
#line 1779 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("dyn_udt_retain_dim++;",21)));
#line 1779 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1779 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1779,"type.bas");}while(r);
#line 1780 "utilities/type.bas"
do{
#line 1780 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1780 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1780 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1780,"type.bas");}while(r);
#line 1781 "utilities/type.bas"
do{
#line 1781 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_retain_dim==",24)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_TOTAL_DIMS)))),qbs_new_txt_len(") break;",8)));
#line 1781 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1781 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1781,"type.bas");}while(r);
#line 1782 "utilities/type.bas"
do{
#line 1782 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1782 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1782 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1782,"type.bas");}while(r);
#line 1783 "utilities/type.bas"
do{
#line 1783 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1783 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1783 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1783,"type.bas");}while(r);
#line 1784 "utilities/type.bas"
do{
#line 1784 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1784 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1784 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1784,"type.bas");}while(r);
#line 1785 "utilities/type.bas"
}
#line 1785 "utilities/type.bas"
}
#line 1787 "utilities/type.bas"
do{
#line 1787 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_old){",17)));
#line 1787 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1787 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1787,"type.bas");}while(r);
#line 1788 "utilities/type.bas"
S_44018:;
#line 1788 "utilities/type.bas"
if ((*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_VARSTR)||is_error_pending()){
#line 1788 "utilities/type.bas"
if(qbevent){evnt(28809,1788,"type.bas");if(r)goto S_44018;}
#line 1789 "utilities/type.bas"
do{
#line 1789 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_old[0] && dyn_udt_old[0]!=(ptrszint)nothingvalue && dyn_udt_old[3]>0){",82)));
#line 1789 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1789 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1789,"type.bas");}while(r);
#line 1790 "utilities/type.bas"
do{
#line 1790 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint dyn_udt_old_free_total=1;",34)));
#line 1790 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1790 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1790,"type.bas");}while(r);
#line 1791 "utilities/type.bas"
do{
#line 1791 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("for(ptrszint dyn_udt_old_free_dim=0;dyn_udt_old_free_dim<dyn_udt_old[3];dyn_udt_old_free_dim++){dyn_udt_old_free_total*=dyn_udt_old[4+dyn_udt_old_free_dim*4+1];}",161)));
#line 1791 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1791 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1791,"type.bas");}while(r);
#line 1792 "utilities/type.bas"
do{
#line 1792 "utilities/type.bas"
SUB_APPENDDYNSTRFREE(qbs_new_txt_len("(void*)dyn_udt_old[0]",21),qbs_new_txt_len("dyn_udt_old_free_total",22),_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES,_SUB_APPENDDYNMEMBERREDIM_STRING_ACC);
#line 1792 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1792 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1792,"type.bas");}while(r);
#line 1793 "utilities/type.bas"
do{
#line 1793 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1793 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1793 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1793,"type.bas");}while(r);
#line 1794 "utilities/type.bas"
S_44024:;
#line 1794 "utilities/type.bas"
}else{
#line 1794 "utilities/type.bas"
if ((-(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT!= 0 ))&((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]|FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE)))){
#line 1794 "utilities/type.bas"
if(qbevent){evnt(28809,1794,"type.bas");if(r)goto S_44024;}
#line 1795 "utilities/type.bas"
do{
#line 1795 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_old[0] && dyn_udt_old[0]!=(ptrszint)nothingvalue && dyn_udt_old[3]>0){",82)));
#line 1795 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1795 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1795,"type.bas");}while(r);
#line 1796 "utilities/type.bas"
do{
#line 1796 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("ptrszint dyn_udt_old_free_total=1;",34)));
#line 1796 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1796 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1796,"type.bas");}while(r);
#line 1797 "utilities/type.bas"
do{
#line 1797 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("for(ptrszint dyn_udt_old_free_dim=0;dyn_udt_old_free_dim<dyn_udt_old[3];dyn_udt_old_free_dim++){dyn_udt_old_free_total*=dyn_udt_old[4+dyn_udt_old_free_dim*4+1];}",161)));
#line 1797 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1797 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1797,"type.bas");}while(r);
#line 1798 "utilities/type.bas"
do{
#line 1798 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("for(ptrszint dyn_udt_old_free_i=0;dyn_udt_old_free_i<dyn_udt_old_free_total;dyn_udt_old_free_i++){",98)));
#line 1798 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1798 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1798,"type.bas");}while(r);
#line 1799 "utilities/type.bas"
do{
#line 1799 "utilities/type.bas"
SUB_APPENDDYNUDTOWNFREEAT(qbs_new_txt_len("(void*)dyn_udt_old[0]",21),_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,&(pass4445= 0 ),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_BYTES))),qbs_new_txt_len("dyn_udt_old_free_i",18),_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE);
#line 1799 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1799 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1799,"type.bas");}while(r);
#line 1800 "utilities/type.bas"
S_44030:;
#line 1800 "utilities/type.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 1800 "utilities/type.bas"
if(qbevent){evnt(28809,1800,"type.bas");if(r)goto S_44030;}
#line 1800 "utilities/type.bas"
do{
#line 1800 "utilities/type.bas"
goto exit_subfunc;
#line 1800 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1800,"type.bas");}while(r);
#line 1800 "utilities/type.bas"
}
#line 1801 "utilities/type.bas"
do{
#line 1801 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1801 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1801 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1801,"type.bas");}while(r);
#line 1802 "utilities/type.bas"
do{
#line 1802 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1802 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1802 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1802,"type.bas");}while(r);
#line 1803 "utilities/type.bas"
S_44035:;
#line 1803 "utilities/type.bas"
if ((FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNMEMBERREDIM_LONG_ELEM_UDT,_SUB_APPENDDYNMEMBERREDIM_LONG_LAYOUT_MODE))||is_error_pending()){
#line 1803 "utilities/type.bas"
if(qbevent){evnt(28809,1803,"type.bas");if(r)goto S_44035;}
#line 1803 "utilities/type.bas"
do{
#line 1803 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_moved) free((void*)dyn_udt_moved);",46)));
#line 1803 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1803 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1803,"type.bas");}while(r);
#line 1803 "utilities/type.bas"
}
#line 1804 "utilities/type.bas"
}
#line 1804 "utilities/type.bas"
}
#line 1805 "utilities/type.bas"
do{
#line 1805 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_old[0] && dyn_udt_old[0]!=(ptrszint)nothingvalue) free((void*)dyn_udt_old[0]);",90)));
#line 1805 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1805 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1805,"type.bas");}while(r);
#line 1806 "utilities/type.bas"
do{
#line 1806 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("if (dyn_udt_old[3]>0){ptrszint dyn_udt_lock_index=4*dyn_udt_old[3]+4; if (dyn_udt_old[dyn_udt_lock_index]) free_mem_lock((mem_lock*)dyn_udt_old[dyn_udt_lock_index]);}",166)));
#line 1806 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1806 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1806,"type.bas");}while(r);
#line 1807 "utilities/type.bas"
do{
#line 1807 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("free((void*)dyn_udt_old);",25)));
#line 1807 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1807 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1807,"type.bas");}while(r);
#line 1808 "utilities/type.bas"
do{
#line 1808 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1808 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1808 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1808,"type.bas");}while(r);
#line 1809 "utilities/type.bas"
do{
#line 1809 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("*dyn_udt_slot=dyn_udt_new;",26)));
#line 1809 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1809 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1809,"type.bas");}while(r);
#line 1810 "utilities/type.bas"
do{
#line 1810 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERREDIM_STRING_ACC,_SUB_APPENDDYNMEMBERREDIM_STRING_CR),qbs_new_txt_len("}",1)));
#line 1810 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1810 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1810,"type.bas");}while(r);
#line 1811 "utilities/type.bas"
exit_subfunc:;
#line 1811 "utilities/type.bas"
free_mem_lock(sf_mem_lock);
#line 1811 "utilities/type.bas"
#include "free329.txt"
#line 1811 "utilities/type.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 1811 "utilities/type.bas"
cmem_sp=tmp_cmem_sp;
#line 1811 "utilities/type.bas"
}
