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){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data290.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
if(!qbevent)break;evnt(28172,1733,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1734,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_CR,qbs_add(func_chr( 13 ),func_chr( 10 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1736,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ELEM_IDX,qbs_new_txt_len("dyn_udt_erase_i",15));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1737,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("{",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1739,"type.bas");}while(r);
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1740,"type.bas");}while(r);
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1741,"type.bas");}while(r);
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1745,"type.bas");}while(r);
S_42538:;
if ((*_SUB_APPENDDYNMEMBERERASEEX_LONG_ELEM_VARSTR)||is_error_pending()){
if(qbevent){evnt(28172,1746,"type.bas");if(r)goto S_42538;}
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1747,"type.bas");}while(r);
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1748,"type.bas");}while(r);
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1749,"type.bas");}while(r);
do{
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);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1750,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("}",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1751,"type.bas");}while(r);
S_42544:;
}else{
if (-(*_SUB_APPENDDYNMEMBERERASEEX_LONG_ELEM_UDT!= 0 )){
if(qbevent){evnt(28172,1752,"type.bas");if(r)goto S_42544;}
S_42545:;
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()){
if(qbevent){evnt(28172,1753,"type.bas");if(r)goto S_42545;}
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1754,"type.bas");}while(r);
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1755,"type.bas");}while(r);
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1756,"type.bas");}while(r);
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1757,"type.bas");}while(r);
do{
SUB_APPENDDYNUDTOWNFREEAT(qbs_new_txt_len("(void*)dyn_udt_old[0]",21),_SUB_APPENDDYNMEMBERERASEEX_LONG_ELEM_UDT,&(pass5092= 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);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1758,"type.bas");}while(r);
S_42551:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(28172,1759,"type.bas");if(r)goto S_42551;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,1759,"type.bas");}while(r);
}
do{
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("}",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1760,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("}",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1761,"type.bas");}while(r);
}
}
}
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1764,"type.bas");}while(r);
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1765,"type.bas");}while(r);
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1766,"type.bas");}while(r);
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1767,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("}",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1768,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNMEMBERERASEEX_STRING_ACC,_SUB_APPENDDYNMEMBERERASEEX_STRING_CR),qbs_new_txt_len("}",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1769,"type.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free290.txt"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
cmem_sp=tmp_cmem_sp;
}
