#line 1523 "utilities/type.bas"
void SUB_APPENDDYNMEMBERERASEEX(qbs*_SUB_APPENDDYNMEMBERERASEEX_STRING_DESC_SLOT,int32*_SUB_APPENDDYNMEMBERERASEEX_LONG_ELEM_BYTES,int32*_SUB_APPENDDYNMEMBERERASEEX_LONG_ELEM_UDT,int32*_SUB_APPENDDYNMEMBERERASEEX_LONG_ELEM_VARSTR,qbs*_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,int32*_SUB_APPENDDYNMEMBERERASEEX_LONG_LAYOUT_MODE){
#line 1523 "utilities/type.bas"
qbs *tqbs;
#line 1523 "utilities/type.bas"
ptrszint tmp_long;
#line 1523 "utilities/type.bas"
int32 tmp_fileno;
#line 1523 "utilities/type.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 1523 "utilities/type.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 1523 "utilities/type.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 1523 "utilities/type.bas"
#include "data327.txt"
#line 1523 "utilities/type.bas"
mem_lock *sf_mem_lock;
#line 1523 "utilities/type.bas"
new_mem_lock();
#line 1523 "utilities/type.bas"
sf_mem_lock=mem_lock_tmp;
#line 1523 "utilities/type.bas"
sf_mem_lock->type=3;
#line 1523 "utilities/type.bas"
libqb_check_stack();
#line 1523 "utilities/type.bas"
if (is_error_pending()) goto exit_subfunc;
#line 1524 "utilities/type.bas"
do{
#line 1524 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1524,"type.bas");}while(r);
#line 1525 "utilities/type.bas"
do{
#line 1525 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1525,"type.bas");}while(r);
#line 1527 "utilities/type.bas"
do{
#line 1527 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_CR,qbs_add(func_chr( 13 ),func_chr( 10 )));
#line 1527 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1527 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1527,"type.bas");}while(r);
#line 1528 "utilities/type.bas"
do{
#line 1528 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ELEM_IDX,qbs_new_txt_len("dyn_udt_erase_i",15));
#line 1528 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1528 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1528,"type.bas");}while(r);
#line 1530 "utilities/type.bas"
do{
#line 1530 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("{",1)));
#line 1530 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1530 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1530,"type.bas");}while(r);
#line 1531 "utilities/type.bas"
do{
#line 1531 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("ptrszint **dyn_udt_slot=(ptrszint**)(",37)),_SUB_APPENDDYNMEMBERERASEEX_STRING_DESC_SLOT),qbs_new_txt_len(");",2)));
#line 1531 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1531 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1531,"type.bas");}while(r);
#line 1532 "utilities/type.bas"
do{
#line 1532 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("ptrszint *dyn_udt_old=*dyn_udt_slot;",36)));
#line 1532 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1532 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1532,"type.bas");}while(r);
#line 1536 "utilities/type.bas"
do{
#line 1536 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("if (dyn_udt_old){",17)));
#line 1536 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1536 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1536,"type.bas");}while(r);
#line 1537 "utilities/type.bas"
S_43785:;
#line 1537 "utilities/type.bas"
if ((*_SUB_APPENDDYNMEMBERERASEEX_LONG_ELEM_VARSTR)||is_error_pending()){
#line 1537 "utilities/type.bas"
if(qbevent){evnt(28809,1537,"type.bas");if(r)goto S_43785;}
#line 1538 "utilities/type.bas"
do{
#line 1538 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("if (dyn_udt_old[0] && dyn_udt_old[0]!=(ptrszint)nothingvalue && dyn_udt_old[3]>0){",82)));
#line 1538 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1538 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1538,"type.bas");}while(r);
#line 1539 "utilities/type.bas"
do{
#line 1539 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("ptrszint dyn_udt_erase_total=1;",31)));
#line 1539 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1539 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1539,"type.bas");}while(r);
#line 1540 "utilities/type.bas"
do{
#line 1540 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("for(ptrszint dyn_udt_erase_dim=0;dyn_udt_erase_dim<dyn_udt_old[3];dyn_udt_erase_dim++){dyn_udt_erase_total*=dyn_udt_old[4+dyn_udt_erase_dim*4+1];}",146)));
#line 1540 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1540 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1540,"type.bas");}while(r);
#line 1541 "utilities/type.bas"
do{
#line 1541 "utilities/type.bas"
SUB_APPENDDYNSTRFREE(qbs_new_txt_len("(void*)dyn_udt_old[0]",21),qbs_new_txt_len("dyn_udt_erase_total",19),_SUB_APPENDDYNMEMBERERASEEX_LONG_ELEM_BYTES,_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC);
#line 1541 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1541 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1541,"type.bas");}while(r);
#line 1542 "utilities/type.bas"
do{
#line 1542 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("}",1)));
#line 1542 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1542 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1542,"type.bas");}while(r);
#line 1543 "utilities/type.bas"
S_43791:;
#line 1543 "utilities/type.bas"
}else{
#line 1543 "utilities/type.bas"
if (-(*_SUB_APPENDDYNMEMBERERASEEX_LONG_ELEM_UDT!= 0 )){
#line 1543 "utilities/type.bas"
if(qbevent){evnt(28809,1543,"type.bas");if(r)goto S_43791;}
#line 1544 "utilities/type.bas"
S_43792:;
#line 1544 "utilities/type.bas"
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_APPENDDYNMEMBERERASEEX_LONG_ELEM_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]|FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNMEMBERERASEEX_LONG_ELEM_UDT,_SUB_APPENDDYNMEMBERERASEEX_LONG_LAYOUT_MODE))||is_error_pending()){
#line 1544 "utilities/type.bas"
if(qbevent){evnt(28809,1544,"type.bas");if(r)goto S_43792;}
#line 1545 "utilities/type.bas"
do{
#line 1545 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("if (dyn_udt_old[0] && dyn_udt_old[0]!=(ptrszint)nothingvalue && dyn_udt_old[3]>0){",82)));
#line 1545 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1545 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1545,"type.bas");}while(r);
#line 1546 "utilities/type.bas"
do{
#line 1546 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("ptrszint dyn_udt_erase_total=1;",31)));
#line 1546 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1546 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1546,"type.bas");}while(r);
#line 1547 "utilities/type.bas"
do{
#line 1547 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("for(ptrszint dyn_udt_erase_dim=0;dyn_udt_erase_dim<dyn_udt_old[3];dyn_udt_erase_dim++){dyn_udt_erase_total*=dyn_udt_old[4+dyn_udt_erase_dim*4+1];}",146)));
#line 1547 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1547 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1547,"type.bas");}while(r);
#line 1548 "utilities/type.bas"
do{
#line 1548 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("for(ptrszint ",13)),_SUB_APPENDDYNMEMBERERASEEX_STRING_ELEM_IDX),qbs_new_txt_len("=0;",3)),_SUB_APPENDDYNMEMBERERASEEX_STRING_ELEM_IDX),qbs_new_txt_len("<dyn_udt_erase_total;",21)),_SUB_APPENDDYNMEMBERERASEEX_STRING_ELEM_IDX),qbs_new_txt_len("++){",4)));
#line 1548 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1548 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1548,"type.bas");}while(r);
#line 1549 "utilities/type.bas"
do{
#line 1549 "utilities/type.bas"
SUB_APPENDDYNUDTOWNFREEAT(qbs_new_txt_len("(void*)dyn_udt_old[0]",21),_SUB_APPENDDYNMEMBERERASEEX_LONG_ELEM_UDT,&(pass4420= 0 ),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNMEMBERERASEEX_LONG_ELEM_BYTES))),_SUB_APPENDDYNMEMBERERASEEX_STRING_ELEM_IDX,_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_LONG_LAYOUT_MODE);
#line 1549 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1549 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1549,"type.bas");}while(r);
#line 1550 "utilities/type.bas"
S_43798:;
#line 1550 "utilities/type.bas"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 1550 "utilities/type.bas"
if(qbevent){evnt(28809,1550,"type.bas");if(r)goto S_43798;}
#line 1550 "utilities/type.bas"
do{
#line 1550 "utilities/type.bas"
goto exit_subfunc;
#line 1550 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1550,"type.bas");}while(r);
#line 1550 "utilities/type.bas"
}
#line 1551 "utilities/type.bas"
do{
#line 1551 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("}",1)));
#line 1551 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1551 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1551,"type.bas");}while(r);
#line 1552 "utilities/type.bas"
do{
#line 1552 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("}",1)));
#line 1552 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1552 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1552,"type.bas");}while(r);
#line 1553 "utilities/type.bas"
}
#line 1554 "utilities/type.bas"
}
#line 1554 "utilities/type.bas"
}
#line 1555 "utilities/type.bas"
do{
#line 1555 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_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 1555 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1555 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1555,"type.bas");}while(r);
#line 1556 "utilities/type.bas"
do{
#line 1556 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_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 1556 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1556 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1556,"type.bas");}while(r);
#line 1557 "utilities/type.bas"
do{
#line 1557 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("free((void*)dyn_udt_old);",25)));
#line 1557 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1557 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1557,"type.bas");}while(r);
#line 1558 "utilities/type.bas"
do{
#line 1558 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("*dyn_udt_slot=NULL;",19)));
#line 1558 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1558 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1558,"type.bas");}while(r);
#line 1559 "utilities/type.bas"
do{
#line 1559 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("}",1)));
#line 1559 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1559 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1559,"type.bas");}while(r);
#line 1560 "utilities/type.bas"
do{
#line 1560 "utilities/type.bas"
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("}",1)));
#line 1560 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1560 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1560,"type.bas");}while(r);
#line 1561 "utilities/type.bas"
exit_subfunc:;
#line 1561 "utilities/type.bas"
free_mem_lock(sf_mem_lock);
#line 1561 "utilities/type.bas"
#include "free327.txt"
#line 1561 "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 1561 "utilities/type.bas"
cmem_sp=tmp_cmem_sp;
#line 1561 "utilities/type.bas"
}
