void SUB_APPENDDYNUDTOWNFREEAT(qbs*_SUB_APPENDDYNUDTOWNFREEAT_STRING_BASE_EXPR,int32*_SUB_APPENDDYNUDTOWNFREEAT_LONG_UDT_INDEX,int32*_SUB_APPENDDYNUDTOWNFREEAT_LONG_ROOT_OFFSET,qbs*_SUB_APPENDDYNUDTOWNFREEAT_STRING_ELEM_BYTES,qbs*_SUB_APPENDDYNUDTOWNFREEAT_STRING_INDEX_EXPR,qbs*_SUB_APPENDDYNUDTOWNFREEAT_STRING_ACC,int32*_SUB_APPENDDYNUDTOWNFREEAT_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 "data281.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,1336,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1337,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1338,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1339,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1340,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1341,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1342,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1343,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTOWNFREEAT_STRING_CR,qbs_add(func_chr( 13 ),func_chr( 10 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1345,"type.bas");}while(r);
do{
*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_UDT_INDEX)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])];
if(!qbevent)break;evnt(28172,1346,"type.bas");}while(r);
S_42186:;
while((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID)||is_error_pending()){
if(qbevent){evnt(28172,1347,"type.bas");if(r)goto S_42186;}
do{
*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_OFFSET=*_SUB_APPENDDYNUDTOWNFREEAT_LONG_ROOT_OFFSET+(qb_safe_idiv(FUNC_UDTDYNMEMBEROFFSET(_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID), 8 ));
if(!qbevent)break;evnt(28172,1348,"type.bas");}while(r);
S_42188:;
if ((FUNC_UDTMEMBERDYNDESC(_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID))||is_error_pending()){
if(qbevent){evnt(28172,1349,"type.bas");if(r)goto S_42188;}
S_42189:;
if ((-(*_SUB_APPENDDYNUDTOWNFREEAT_LONG_DESC_FREED== 0 ))||is_error_pending()){
if(qbevent){evnt(28172,1350,"type.bas");if(r)goto S_42189;}
do{
SUB_APPENDDYNUDTDESCFREEAT(_SUB_APPENDDYNUDTOWNFREEAT_STRING_BASE_EXPR,_SUB_APPENDDYNUDTOWNFREEAT_LONG_UDT_INDEX,_SUB_APPENDDYNUDTOWNFREEAT_LONG_ROOT_OFFSET,_SUB_APPENDDYNUDTOWNFREEAT_STRING_ELEM_BYTES,_SUB_APPENDDYNUDTOWNFREEAT_STRING_INDEX_EXPR,_SUB_APPENDDYNUDTOWNFREEAT_STRING_ACC,_SUB_APPENDDYNUDTOWNFREEAT_LONG_LAYOUT_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1351,"type.bas");}while(r);
S_42191:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(28172,1352,"type.bas");if(r)goto S_42191;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,1352,"type.bas");}while(r);
}
do{
*_SUB_APPENDDYNUDTOWNFREEAT_LONG_DESC_FREED= -1 ;
if(!qbevent)break;evnt(28172,1353,"type.bas");}while(r);
}
S_42196:;
}else{
if (((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]){
if(qbevent){evnt(28172,1355,"type.bas");if(r)goto S_42196;}
do{
*_SUB_APPENDDYNUDTOWNFREEAT_LONG_ELEM_STEP=FUNC_UDTDYNINLINEELEMBYTES(_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID,_SUB_APPENDDYNUDTOWNFREEAT_LONG_LAYOUT_MODE);
if(!qbevent)break;evnt(28172,1356,"type.bas");}while(r);
S_42198:;
if (((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)!= 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 )))||is_error_pending()){
if(qbevent){evnt(28172,1357,"type.bas");if(r)goto S_42198;}
do{
*_SUB_APPENDDYNUDTOWNFREEAT_LONG_ELEM_STEP=FUNC_UDT_ARRAY_MEMBER_BYTES(_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID);
if(!qbevent)break;evnt(28172,1358,"type.bas");}while(r);
S_42200:;
fornext_value5029= 0 ;
fornext_finalvalue5029=((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]- 1 ;
fornext_step5029= 1 ;
if (fornext_step5029<0) fornext_step_negative5029=1; else fornext_step_negative5029=0;
if (is_error_pending()) goto fornext_error5029;
goto fornext_entrylabel5029;
while(1){
fornext_value5029=fornext_step5029+(*_SUB_APPENDDYNUDTOWNFREEAT_LONG_ARRAY_IDX);
fornext_entrylabel5029:
*_SUB_APPENDDYNUDTOWNFREEAT_LONG_ARRAY_IDX=fornext_value5029;
if (fornext_step_negative5029){
if (fornext_value5029<fornext_finalvalue5029) break;
}else{
if (fornext_value5029>fornext_finalvalue5029) break;
}
fornext_error5029:;
if(qbevent){evnt(28172,1359,"type.bas");if(r)goto S_42200;}
do{
*_SUB_APPENDDYNUDTOWNFREEAT_LONG_ARRAY_OFFSET=*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_OFFSET+(*_SUB_APPENDDYNUDTOWNFREEAT_LONG_ARRAY_IDX**_SUB_APPENDDYNUDTOWNFREEAT_LONG_ELEM_STEP);
if(!qbevent)break;evnt(28172,1360,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTOWNFREEAT_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTOWNFREEAT_STRING_ACC,_SUB_APPENDDYNUDTOWNFREEAT_STRING_CR),qbs_new_txt_len("qbs_free(*(qbs**)(((uint8*)(",28)),_SUB_APPENDDYNUDTOWNFREEAT_STRING_BASE_EXPR),qbs_new_txt_len("))+",3)),_SUB_APPENDDYNUDTOWNFREEAT_STRING_ELEM_BYTES),qbs_new_txt_len("*(",2)),_SUB_APPENDDYNUDTOWNFREEAT_STRING_INDEX_EXPR),qbs_new_txt_len(")+",2)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTOWNFREEAT_LONG_ARRAY_OFFSET)))),qbs_new_txt_len("));",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1361,"type.bas");}while(r);
fornext_continue_5028:;
}
fornext_exit_5028:;
S_42204:;
}else{
if (-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)!= 0 )){
if(qbevent){evnt(28172,1363,"type.bas");if(r)goto S_42204;}
do{
*_SUB_APPENDDYNUDTOWNFREEAT_LONG_NESTED_UDT=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ;
if(!qbevent)break;evnt(28172,1364,"type.bas");}while(r);
S_42206:;
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_NESTED_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]|FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNUDTOWNFREEAT_LONG_NESTED_UDT,_SUB_APPENDDYNUDTOWNFREEAT_LONG_LAYOUT_MODE))||is_error_pending()){
if(qbevent){evnt(28172,1365,"type.bas");if(r)goto S_42206;}
S_42207:;
fornext_value5031= 0 ;
fornext_finalvalue5031=((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]- 1 ;
fornext_step5031= 1 ;
if (fornext_step5031<0) fornext_step_negative5031=1; else fornext_step_negative5031=0;
if (is_error_pending()) goto fornext_error5031;
goto fornext_entrylabel5031;
while(1){
fornext_value5031=fornext_step5031+(*_SUB_APPENDDYNUDTOWNFREEAT_LONG_ARRAY_IDX);
fornext_entrylabel5031:
*_SUB_APPENDDYNUDTOWNFREEAT_LONG_ARRAY_IDX=fornext_value5031;
if (fornext_step_negative5031){
if (fornext_value5031<fornext_finalvalue5031) break;
}else{
if (fornext_value5031>fornext_finalvalue5031) break;
}
fornext_error5031:;
if(qbevent){evnt(28172,1366,"type.bas");if(r)goto S_42207;}
do{
*_SUB_APPENDDYNUDTOWNFREEAT_LONG_ARRAY_OFFSET=*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_OFFSET+(*_SUB_APPENDDYNUDTOWNFREEAT_LONG_ARRAY_IDX**_SUB_APPENDDYNUDTOWNFREEAT_LONG_ELEM_STEP);
if(!qbevent)break;evnt(28172,1367,"type.bas");}while(r);
do{
SUB_APPENDDYNUDTOWNFREEAT(_SUB_APPENDDYNUDTOWNFREEAT_STRING_BASE_EXPR,_SUB_APPENDDYNUDTOWNFREEAT_LONG_NESTED_UDT,_SUB_APPENDDYNUDTOWNFREEAT_LONG_ARRAY_OFFSET,_SUB_APPENDDYNUDTOWNFREEAT_STRING_ELEM_BYTES,_SUB_APPENDDYNUDTOWNFREEAT_STRING_INDEX_EXPR,_SUB_APPENDDYNUDTOWNFREEAT_STRING_ACC,_SUB_APPENDDYNUDTOWNFREEAT_LONG_LAYOUT_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1368,"type.bas");}while(r);
S_42210:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(28172,1369,"type.bas");if(r)goto S_42210;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,1369,"type.bas");}while(r);
}
fornext_continue_5030:;
}
fornext_exit_5030:;
}
}
}
S_42216:;
}else{
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)!= 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))){
if(qbevent){evnt(28172,1373,"type.bas");if(r)goto S_42216;}
do{
qbs_set(_SUB_APPENDDYNUDTOWNFREEAT_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTOWNFREEAT_STRING_ACC,_SUB_APPENDDYNUDTOWNFREEAT_STRING_CR),qbs_new_txt_len("qbs_free(*(qbs**)(((uint8*)(",28)),_SUB_APPENDDYNUDTOWNFREEAT_STRING_BASE_EXPR),qbs_new_txt_len("))+",3)),_SUB_APPENDDYNUDTOWNFREEAT_STRING_ELEM_BYTES),qbs_new_txt_len("*(",2)),_SUB_APPENDDYNUDTOWNFREEAT_STRING_INDEX_EXPR),qbs_new_txt_len(")+",2)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_OFFSET)))),qbs_new_txt_len("));",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1374,"type.bas");}while(r);
S_42218:;
}else{
if (-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)!= 0 )){
if(qbevent){evnt(28172,1375,"type.bas");if(r)goto S_42218;}
do{
*_SUB_APPENDDYNUDTOWNFREEAT_LONG_NESTED_UDT=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ;
if(!qbevent)break;evnt(28172,1376,"type.bas");}while(r);
S_42220:;
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_NESTED_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]|FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNUDTOWNFREEAT_LONG_NESTED_UDT,_SUB_APPENDDYNUDTOWNFREEAT_LONG_LAYOUT_MODE))||is_error_pending()){
if(qbevent){evnt(28172,1377,"type.bas");if(r)goto S_42220;}
do{
SUB_APPENDDYNUDTOWNFREEAT(_SUB_APPENDDYNUDTOWNFREEAT_STRING_BASE_EXPR,_SUB_APPENDDYNUDTOWNFREEAT_LONG_NESTED_UDT,_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_OFFSET,_SUB_APPENDDYNUDTOWNFREEAT_STRING_ELEM_BYTES,_SUB_APPENDDYNUDTOWNFREEAT_STRING_INDEX_EXPR,_SUB_APPENDDYNUDTOWNFREEAT_STRING_ACC,_SUB_APPENDDYNUDTOWNFREEAT_LONG_LAYOUT_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1378,"type.bas");}while(r);
S_42222:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(28172,1379,"type.bas");if(r)goto S_42222;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,1379,"type.bas");}while(r);
}
}
}
}
}
}
do{
*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_APPENDDYNUDTOWNFREEAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])];
if(!qbevent)break;evnt(28172,1382,"type.bas");}while(r);
dl_continue_5027:;
}
dl_exit_5027:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free281.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;
}
