void SUB_APPENDDYNUDTDESCFREEAT(qbs*_SUB_APPENDDYNUDTDESCFREEAT_STRING_DATA_EXPR,int32*_SUB_APPENDDYNUDTDESCFREEAT_LONG_UDT_INDEX,int32*_SUB_APPENDDYNUDTDESCFREEAT_LONG_ROOT_OFFSET,qbs*_SUB_APPENDDYNUDTDESCFREEAT_STRING_BYTESPERELEMENT,qbs*_SUB_APPENDDYNUDTDESCFREEAT_STRING_INDEX_EXPR,qbs*_SUB_APPENDDYNUDTDESCFREEAT_STRING_ACC,int32*_SUB_APPENDDYNUDTDESCFREEAT_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 "data287.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,1680,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1681,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1682,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1683,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1684,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1685,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1686,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1687,"type.bas");}while(r);
do{
*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_APPENDDYNUDTDESCFREEAT_LONG_UDT_INDEX)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])];
if(!qbevent)break;evnt(28172,1689,"type.bas");}while(r);
S_42493:;
while((*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID)||is_error_pending()){
if(qbevent){evnt(28172,1690,"type.bas");if(r)goto S_42493;}
do{
*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_OFFSET=*_SUB_APPENDDYNUDTDESCFREEAT_LONG_ROOT_OFFSET+(qb_safe_idiv(FUNC_UDTDYNMEMBEROFFSET(_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID), 8 ));
if(!qbevent)break;evnt(28172,1691,"type.bas");}while(r);
S_42495:;
if ((FUNC_UDTMEMBERDYNDESC(_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID))||is_error_pending()){
if(qbevent){evnt(28172,1693,"type.bas");if(r)goto S_42495;}
do{
qbs_set(_SUB_APPENDDYNUDTDESCFREEAT_STRING_MEMBER_SLOT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((uint8*)(",10),_SUB_APPENDDYNUDTDESCFREEAT_STRING_DATA_EXPR),qbs_new_txt_len(")+",2)),_SUB_APPENDDYNUDTDESCFREEAT_STRING_BYTESPERELEMENT),qbs_new_txt_len("*(",2)),_SUB_APPENDDYNUDTDESCFREEAT_STRING_INDEX_EXPR),qbs_new_txt_len(")+",2)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_OFFSET)))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1694,"type.bas");}while(r);
do{
*_SUB_APPENDDYNUDTDESCFREEAT_LONG_ELEM_BYTES=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID);
if(!qbevent)break;evnt(28172,1695,"type.bas");}while(r);
do{
*_SUB_APPENDDYNUDTDESCFREEAT_LONG_NESTED_UDT= 0 ;
if(!qbevent)break;evnt(28172,1696,"type.bas");}while(r);
S_42499:;
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)!= 0 ))||is_error_pending()){
if(qbevent){evnt(28172,1697,"type.bas");if(r)goto S_42499;}
do{
*_SUB_APPENDDYNUDTDESCFREEAT_LONG_NESTED_UDT=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ;
if(!qbevent)break;evnt(28172,1697,"type.bas");}while(r);
}
do{
SUB_APPENDDYNMEMBERERASEEX(_SUB_APPENDDYNUDTDESCFREEAT_STRING_MEMBER_SLOT,_SUB_APPENDDYNUDTDESCFREEAT_LONG_ELEM_BYTES,_SUB_APPENDDYNUDTDESCFREEAT_LONG_NESTED_UDT,&(pass5079=FUNC_DYNMEMVARSTR(_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID)),_SUB_APPENDDYNUDTDESCFREEAT_STRING_ACC,_SUB_APPENDDYNUDTDESCFREEAT_LONG_LAYOUT_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1698,"type.bas");}while(r);
S_42503:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(28172,1699,"type.bas");if(r)goto S_42503;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,1699,"type.bas");}while(r);
}
S_42506:;
}else{
if (((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]){
if(qbevent){evnt(28172,1700,"type.bas");if(r)goto S_42506;}
S_42507:;
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)!= 0 ))||is_error_pending()){
if(qbevent){evnt(28172,1701,"type.bas");if(r)goto S_42507;}
do{
*_SUB_APPENDDYNUDTDESCFREEAT_LONG_NESTED_UDT=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ;
if(!qbevent)break;evnt(28172,1702,"type.bas");}while(r);
S_42509:;
if ((FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNUDTDESCFREEAT_LONG_NESTED_UDT,_SUB_APPENDDYNUDTDESCFREEAT_LONG_LAYOUT_MODE))||is_error_pending()){
if(qbevent){evnt(28172,1703,"type.bas");if(r)goto S_42509;}
do{
*_SUB_APPENDDYNUDTDESCFREEAT_LONG_INLINE_BYTES=FUNC_UDTDYNINLINEELEMBYTES(_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID,_SUB_APPENDDYNUDTDESCFREEAT_LONG_LAYOUT_MODE);
if(!qbevent)break;evnt(28172,1704,"type.bas");}while(r);
S_42511:;
fornext_value5081= 0 ;
fornext_finalvalue5081=((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]- 1 ;
fornext_step5081= 1 ;
if (fornext_step5081<0) fornext_step_negative5081=1; else fornext_step_negative5081=0;
if (is_error_pending()) goto fornext_error5081;
goto fornext_entrylabel5081;
while(1){
fornext_value5081=fornext_step5081+(*_SUB_APPENDDYNUDTDESCFREEAT_LONG_ARRAY_IDX);
fornext_entrylabel5081:
*_SUB_APPENDDYNUDTDESCFREEAT_LONG_ARRAY_IDX=fornext_value5081;
if (fornext_step_negative5081){
if (fornext_value5081<fornext_finalvalue5081) break;
}else{
if (fornext_value5081>fornext_finalvalue5081) break;
}
fornext_error5081:;
if(qbevent){evnt(28172,1705,"type.bas");if(r)goto S_42511;}
do{
*_SUB_APPENDDYNUDTDESCFREEAT_LONG_ARRAY_OFFSET=*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_OFFSET+(*_SUB_APPENDDYNUDTDESCFREEAT_LONG_ARRAY_IDX**_SUB_APPENDDYNUDTDESCFREEAT_LONG_INLINE_BYTES);
if(!qbevent)break;evnt(28172,1706,"type.bas");}while(r);
do{
SUB_APPENDDYNUDTDESCFREEAT(_SUB_APPENDDYNUDTDESCFREEAT_STRING_DATA_EXPR,_SUB_APPENDDYNUDTDESCFREEAT_LONG_NESTED_UDT,_SUB_APPENDDYNUDTDESCFREEAT_LONG_ARRAY_OFFSET,_SUB_APPENDDYNUDTDESCFREEAT_STRING_BYTESPERELEMENT,_SUB_APPENDDYNUDTDESCFREEAT_STRING_INDEX_EXPR,_SUB_APPENDDYNUDTDESCFREEAT_STRING_ACC,_SUB_APPENDDYNUDTDESCFREEAT_LONG_LAYOUT_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1707,"type.bas");}while(r);
S_42514:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(28172,1708,"type.bas");if(r)goto S_42514;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,1708,"type.bas");}while(r);
}
fornext_continue_5080:;
}
fornext_exit_5080:;
}
}
S_42520:;
}else{
if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){
if(qbevent){evnt(28172,1712,"type.bas");if(r)goto S_42520;}
do{
SUB_APPENDDYNUDTDESCFREEAT(_SUB_APPENDDYNUDTDESCFREEAT_STRING_DATA_EXPR,&(pass5082=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ),_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_OFFSET,_SUB_APPENDDYNUDTDESCFREEAT_STRING_BYTESPERELEMENT,_SUB_APPENDDYNUDTDESCFREEAT_STRING_INDEX_EXPR,_SUB_APPENDDYNUDTDESCFREEAT_STRING_ACC,_SUB_APPENDDYNUDTDESCFREEAT_LONG_LAYOUT_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1713,"type.bas");}while(r);
S_42522:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(28172,1714,"type.bas");if(r)goto S_42522;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,1714,"type.bas");}while(r);
}
}
}
}
do{
*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_APPENDDYNUDTDESCFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])];
if(!qbevent)break;evnt(28172,1717,"type.bas");}while(r);
dl_continue_5078:;
}
dl_exit_5078:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free287.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;
}
