void SUB_APPENDDYNUDTDESCINITAT(qbs*_SUB_APPENDDYNUDTDESCINITAT_STRING_DATA_EXPR,int32*_SUB_APPENDDYNUDTDESCINITAT_LONG_UDT_INDEX,int32*_SUB_APPENDDYNUDTDESCINITAT_LONG_ROOT_OFFSET,qbs*_SUB_APPENDDYNUDTDESCINITAT_STRING_BYTESPERELEMENT,qbs*_SUB_APPENDDYNUDTDESCINITAT_STRING_INDEX_EXPR,qbs*_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,int32*_SUB_APPENDDYNUDTDESCINITAT_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 "data285.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,1549,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1550,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1551,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1552,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1553,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1554,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1555,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1556,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1557,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1558,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1559,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1560,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1561,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1562,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1563,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1564,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1565,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1566,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1567,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1568,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1569,"type.bas");}while(r);
do{
if(!qbevent)break;evnt(28172,1570,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_CR,qbs_add(func_chr( 13 ),func_chr( 10 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1572,"type.bas");}while(r);
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_APPENDDYNUDTDESCINITAT_LONG_UDT_INDEX)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])];
if(!qbevent)break;evnt(28172,1573,"type.bas");}while(r);
S_42398:;
while((*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)||is_error_pending()){
if(qbevent){evnt(28172,1574,"type.bas");if(r)goto S_42398;}
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_OFFSET=*_SUB_APPENDDYNUDTDESCINITAT_LONG_ROOT_OFFSET+(qb_safe_idiv(FUNC_UDTDYNMEMBEROFFSET(_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID), 8 ));
if(!qbevent)break;evnt(28172,1575,"type.bas");}while(r);
S_42400:;
if ((FUNC_UDTMEMBERDYNDESC(_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID))||is_error_pending()){
if(qbevent){evnt(28172,1577,"type.bas");if(r)goto S_42400;}
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_ELEM_BYTES=FUNC_UDT_DYN_ARRAY_ELEM_BYTES(_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID);
if(!qbevent)break;evnt(28172,1581,"type.bas");}while(r);
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_DIMS_COUNT=((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])];
if(!qbevent)break;evnt(28172,1582,"type.bas");}while(r);
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_DESC_SLOTS=( 4 **_SUB_APPENDDYNUDTDESCINITAT_LONG_DIMS_COUNT)+( 4 )+( 1 );
if(!qbevent)break;evnt(28172,1583,"type.bas");}while(r);
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_COUNT_TOTAL= 1 ;
if(!qbevent)break;evnt(28172,1584,"type.bas");}while(r);
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_DESC_POS= 1 ;
if(!qbevent)break;evnt(28172,1585,"type.bas");}while(r);
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_STRIDE_VAL= 1 ;
if(!qbevent)break;evnt(28172,1586,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_MEMBER_DESC,((qbs*)(((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[array_check((*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1587,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_MEMBER_PTR,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((ptrszint**)((uint8*)(",23),_SUB_APPENDDYNUDTDESCINITAT_STRING_DATA_EXPR),qbs_new_txt_len(")+",2)),_SUB_APPENDDYNUDTDESCINITAT_STRING_BYTESPERELEMENT),qbs_new_txt_len("*(",2)),_SUB_APPENDDYNUDTDESCINITAT_STRING_INDEX_EXPR),qbs_new_txt_len(")+",2)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_OFFSET)))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1588,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_DESC_VAR,qbs_new_txt_len("dyn_udt_desc",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1589,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),qbs_new_txt_len("{",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1591,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),qbs_new_txt_len("ptrszint **dyn_udt_slot=",24)),_SUB_APPENDDYNUDTDESCINITAT_STRING_MEMBER_PTR),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1592,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),qbs_new_txt_len("ptrszint *dyn_udt_desc=(ptrszint*)calloc((size_t)",49)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_DESC_SLOTS)))),qbs_new_txt_len(",ptrsz);",8)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1593,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),qbs_new_txt_len("if (!dyn_udt_desc) error(257);",30)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1594,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),qbs_new_txt_len("*dyn_udt_slot=dyn_udt_desc;",27)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1595,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),qbs_new_txt_len("new_mem_lock();",15)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1596,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),qbs_new_txt_len("mem_lock_tmp->type=4;",21)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1597,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),_SUB_APPENDDYNUDTDESCINITAT_STRING_DESC_VAR),qbs_new_txt_len("[",1)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_DESC_SLOTS- 1 )))),qbs_new_txt_len("]=(ptrszint)mem_lock_tmp;",25)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1598,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),_SUB_APPENDDYNUDTDESCINITAT_STRING_DESC_VAR),qbs_new_txt_len("[1]=0;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1599,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),_SUB_APPENDDYNUDTDESCINITAT_STRING_DESC_VAR),qbs_new_txt_len("[2]=1;",6)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1600,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),_SUB_APPENDDYNUDTDESCINITAT_STRING_DESC_VAR),qbs_new_txt_len("[3]=",4)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_DIMS_COUNT)))),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1601,"type.bas");}while(r);
S_42421:;
fornext_value5066= 1 ;
fornext_finalvalue5066=*_SUB_APPENDDYNUDTDESCINITAT_LONG_DIMS_COUNT;
fornext_step5066= 1 ;
if (fornext_step5066<0) fornext_step_negative5066=1; else fornext_step_negative5066=0;
if (is_error_pending()) goto fornext_error5066;
goto fornext_entrylabel5066;
while(1){
fornext_value5066=fornext_step5066+(*_SUB_APPENDDYNUDTDESCINITAT_LONG_DIM_IDX);
fornext_entrylabel5066:
*_SUB_APPENDDYNUDTDESCINITAT_LONG_DIM_IDX=fornext_value5066;
if (fornext_step_negative5066){
if (fornext_value5066<fornext_finalvalue5066) break;
}else{
if (fornext_value5066>fornext_finalvalue5066) break;
}
fornext_error5066:;
if(qbevent){evnt(28172,1606,"type.bas");if(r)goto S_42421;}
S_42422:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_PARSENEXTUDTARRAYDESCRIPTORDIM(_SUB_APPENDDYNUDTDESCINITAT_STRING_MEMBER_DESC,_SUB_APPENDDYNUDTDESCINITAT_LONG_DESC_POS,_SUB_APPENDDYNUDTDESCINITAT_LONG_LOWER_VAL,_SUB_APPENDDYNUDTDESCINITAT_LONG_COUNT_VAL)== 0 )))||is_error_pending()){
if(qbevent){evnt(28172,1607,"type.bas");if(r)goto S_42422;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot process the declared bounds of this TYPE member array",60));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1608,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,1609,"type.bas");}while(r);
}
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_DESC_IDX=((*_SUB_APPENDDYNUDTDESCINITAT_LONG_DIMS_COUNT-*_SUB_APPENDDYNUDTDESCINITAT_LONG_DIM_IDX)* 4 )+( 4 );
if(!qbevent)break;evnt(28172,1611,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),_SUB_APPENDDYNUDTDESCINITAT_STRING_DESC_VAR),qbs_new_txt_len("[",1)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_DESC_IDX)))),qbs_new_txt_len("]=",2)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_LOWER_VAL)))),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1612,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),_SUB_APPENDDYNUDTDESCINITAT_STRING_DESC_VAR),qbs_new_txt_len("[",1)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_DESC_IDX+ 1 )))),qbs_new_txt_len("]=",2)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_COUNT_VAL)))),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1613,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),_SUB_APPENDDYNUDTDESCINITAT_STRING_DESC_VAR),qbs_new_txt_len("[",1)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_DESC_IDX+ 2 )))),qbs_new_txt_len("]=",2)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_STRIDE_VAL)))),qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1614,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),_SUB_APPENDDYNUDTDESCINITAT_STRING_DESC_VAR),qbs_new_txt_len("[",1)),qbs_ltrim(qbs_str((int64)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_DESC_IDX+ 3 )))),qbs_new_txt_len("]=0;",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1615,"type.bas");}while(r);
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_STRIDE_VAL=*_SUB_APPENDDYNUDTDESCINITAT_LONG_STRIDE_VAL**_SUB_APPENDDYNUDTDESCINITAT_LONG_COUNT_VAL;
if(!qbevent)break;evnt(28172,1616,"type.bas");}while(r);
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_COUNT_TOTAL=*_SUB_APPENDDYNUDTDESCINITAT_LONG_COUNT_TOTAL**_SUB_APPENDDYNUDTDESCINITAT_LONG_COUNT_VAL;
if(!qbevent)break;evnt(28172,1617,"type.bas");}while(r);
fornext_continue_5065:;
}
fornext_exit_5065:;
S_42434:;
if ((-(*_SUB_APPENDDYNUDTDESCINITAT_LONG_COUNT_TOTAL!=((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]))||is_error_pending()){
if(qbevent){evnt(28172,1620,"type.bas");if(r)goto S_42434;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot process the declared bounds of this TYPE member array",60));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1621,"type.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,1622,"type.bas");}while(r);
}
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),_SUB_APPENDDYNUDTDESCINITAT_STRING_DESC_VAR),qbs_new_txt_len("[0]=(ptrszint)calloc((size_t)(",30)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_COUNT_TOTAL)))),qbs_new_txt_len("*",1)),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_ELEM_BYTES)))),qbs_new_txt_len("),1);",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1625,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),qbs_new_txt_len("if (!",5)),_SUB_APPENDDYNUDTDESCINITAT_STRING_DESC_VAR),qbs_new_txt_len("[0]) error(257);",16)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1626,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_TOTAL_EXPR,qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_COUNT_TOTAL))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1627,"type.bas");}while(r);
S_42441:;
if ((FUNC_DYNMEMVARSTR(_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID))||is_error_pending()){
if(qbevent){evnt(28172,1629,"type.bas");if(r)goto S_42441;}
do{
SUB_APPENDDYNSTRINIT(qbs_add(qbs_add(qbs_new_txt_len("(void*)",7),_SUB_APPENDDYNUDTDESCINITAT_STRING_DESC_VAR),qbs_new_txt_len("[0]",3)),_SUB_APPENDDYNUDTDESCINITAT_STRING_TOTAL_EXPR,_SUB_APPENDDYNUDTDESCINITAT_LONG_ELEM_BYTES,_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1630,"type.bas");}while(r);
}
S_42444:;
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)!= 0 ))||is_error_pending()){
if(qbevent){evnt(28172,1633,"type.bas");if(r)goto S_42444;}
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_NESTED_UDT=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ;
if(!qbevent)break;evnt(28172,1634,"type.bas");}while(r);
S_42446:;
if ((FUNC_DYNMEMUDTVARSTR(_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)|FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNUDTDESCINITAT_LONG_NESTED_UDT,_SUB_APPENDDYNUDTDESCINITAT_LONG_LAYOUT_MODE))||is_error_pending()){
if(qbevent){evnt(28172,1635,"type.bas");if(r)goto S_42446;}
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ELEM_IDX,qbs_add(qbs_new_txt_len("dyn_udt_own_m",13),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1636,"type.bas");}while(r);
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),qbs_new_txt_len("for(ptrszint ",13)),_SUB_APPENDDYNUDTDESCINITAT_STRING_ELEM_IDX),qbs_new_txt_len("=0;",3)),_SUB_APPENDDYNUDTDESCINITAT_STRING_ELEM_IDX),qbs_new_txt_len("<",1)),_SUB_APPENDDYNUDTDESCINITAT_STRING_TOTAL_EXPR),qbs_new_txt_len(";",1)),_SUB_APPENDDYNUDTDESCINITAT_STRING_ELEM_IDX),qbs_new_txt_len("++){",4)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1637,"type.bas");}while(r);
do{
SUB_APPENDDYNUDTOWNINITAT(qbs_add(qbs_add(qbs_new_txt_len("(void*)",7),_SUB_APPENDDYNUDTDESCINITAT_STRING_DESC_VAR),qbs_new_txt_len("[0]",3)),_SUB_APPENDDYNUDTDESCINITAT_LONG_NESTED_UDT,&(pass5067= 0 ),qbs_ltrim(qbs_str((int32)(*_SUB_APPENDDYNUDTDESCINITAT_LONG_ELEM_BYTES))),_SUB_APPENDDYNUDTDESCINITAT_STRING_ELEM_IDX,_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_LONG_LAYOUT_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1638,"type.bas");}while(r);
S_42450:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(28172,1639,"type.bas");if(r)goto S_42450;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,1639,"type.bas");}while(r);
}
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),qbs_new_txt_len("}",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1640,"type.bas");}while(r);
}
}
do{
qbs_set(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,qbs_add(qbs_add(_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_STRING_CR),qbs_new_txt_len("}",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1644,"type.bas");}while(r);
S_42457:;
}else{
if (((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]){
if(qbevent){evnt(28172,1645,"type.bas");if(r)goto S_42457;}
S_42458:;
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)!= 0 ))||is_error_pending()){
if(qbevent){evnt(28172,1646,"type.bas");if(r)goto S_42458;}
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_NESTED_UDT=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ;
if(!qbevent)break;evnt(28172,1647,"type.bas");}while(r);
S_42460:;
if ((FUNC_UDTDYNHASMEMBERARRAYS(_SUB_APPENDDYNUDTDESCINITAT_LONG_NESTED_UDT,_SUB_APPENDDYNUDTDESCINITAT_LONG_LAYOUT_MODE))||is_error_pending()){
if(qbevent){evnt(28172,1648,"type.bas");if(r)goto S_42460;}
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_INLINE_BYTES=FUNC_UDTDYNINLINEELEMBYTES(_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID,_SUB_APPENDDYNUDTDESCINITAT_LONG_LAYOUT_MODE);
if(!qbevent)break;evnt(28172,1649,"type.bas");}while(r);
S_42462:;
fornext_value5069= 0 ;
fornext_finalvalue5069=((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])]- 1 ;
fornext_step5069= 1 ;
if (fornext_step5069<0) fornext_step_negative5069=1; else fornext_step_negative5069=0;
if (is_error_pending()) goto fornext_error5069;
goto fornext_entrylabel5069;
while(1){
fornext_value5069=fornext_step5069+(*_SUB_APPENDDYNUDTDESCINITAT_LONG_ARRAY_IDX);
fornext_entrylabel5069:
*_SUB_APPENDDYNUDTDESCINITAT_LONG_ARRAY_IDX=fornext_value5069;
if (fornext_step_negative5069){
if (fornext_value5069<fornext_finalvalue5069) break;
}else{
if (fornext_value5069>fornext_finalvalue5069) break;
}
fornext_error5069:;
if(qbevent){evnt(28172,1650,"type.bas");if(r)goto S_42462;}
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_ARRAY_OFFSET=*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_OFFSET+(*_SUB_APPENDDYNUDTDESCINITAT_LONG_ARRAY_IDX**_SUB_APPENDDYNUDTDESCINITAT_LONG_INLINE_BYTES);
if(!qbevent)break;evnt(28172,1651,"type.bas");}while(r);
do{
SUB_APPENDDYNUDTDESCINITAT(_SUB_APPENDDYNUDTDESCINITAT_STRING_DATA_EXPR,_SUB_APPENDDYNUDTDESCINITAT_LONG_NESTED_UDT,_SUB_APPENDDYNUDTDESCINITAT_LONG_ARRAY_OFFSET,_SUB_APPENDDYNUDTDESCINITAT_STRING_BYTESPERELEMENT,_SUB_APPENDDYNUDTDESCINITAT_STRING_INDEX_EXPR,_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_LONG_LAYOUT_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1652,"type.bas");}while(r);
S_42465:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(28172,1653,"type.bas");if(r)goto S_42465;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,1653,"type.bas");}while(r);
}
fornext_continue_5068:;
}
fornext_exit_5068:;
}
}
S_42471:;
}else{
if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){
if(qbevent){evnt(28172,1657,"type.bas");if(r)goto S_42471;}
do{
SUB_APPENDDYNUDTDESCINITAT(_SUB_APPENDDYNUDTDESCINITAT_STRING_DATA_EXPR,&(pass5070=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ),_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_OFFSET,_SUB_APPENDDYNUDTDESCINITAT_STRING_BYTESPERELEMENT,_SUB_APPENDDYNUDTDESCINITAT_STRING_INDEX_EXPR,_SUB_APPENDDYNUDTDESCINITAT_STRING_ACC,_SUB_APPENDDYNUDTDESCINITAT_LONG_LAYOUT_MODE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,1658,"type.bas");}while(r);
S_42473:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(28172,1659,"type.bas");if(r)goto S_42473;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28172,1659,"type.bas");}while(r);
}
}
}
}
do{
*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_APPENDDYNUDTDESCINITAT_LONG_MEMBER_ID)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])];
if(!qbevent)break;evnt(28172,1662,"type.bas");}while(r);
dl_continue_5064:;
}
dl_exit_5064:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free285.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;
}
