#line 1000 "utilities/type.bas"
int16 FUNC_UDTDYNHASVARDESC(int32*_FUNC_UDTDYNHASVARDESC_LONG_UDT_INDEX,int32*_FUNC_UDTDYNHASVARDESC_LONG_LAYOUT_MODE){
#line 1000 "utilities/type.bas"
qbs *tqbs;
#line 1000 "utilities/type.bas"
ptrszint tmp_long;
#line 1000 "utilities/type.bas"
int32 tmp_fileno;
#line 1000 "utilities/type.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 1000 "utilities/type.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 1000 "utilities/type.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 1000 "utilities/type.bas"
#include "data305.txt"
#line 1000 "utilities/type.bas"
mem_lock *sf_mem_lock;
#line 1000 "utilities/type.bas"
new_mem_lock();
#line 1000 "utilities/type.bas"
sf_mem_lock=mem_lock_tmp;
#line 1000 "utilities/type.bas"
sf_mem_lock->type=3;
#line 1000 "utilities/type.bas"
libqb_check_stack();
#line 1000 "utilities/type.bas"
if (is_error_pending()) goto exit_subfunc;
#line 1001 "utilities/type.bas"
do{
#line 1001 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1001,"type.bas");}while(r);
#line 1002 "utilities/type.bas"
do{
#line 1002 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1002,"type.bas");}while(r);
#line 1004 "utilities/type.bas"
do{
#line 1004 "utilities/type.bas"
*_FUNC_UDTDYNHASVARDESC_LONG_MEMBER_ID=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_UDTDYNHASVARDESC_LONG_UDT_INDEX)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])];
#line 1004 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1004,"type.bas");}while(r);
#line 1005 "utilities/type.bas"
S_43390:;
#line 1005 "utilities/type.bas"
while((*_FUNC_UDTDYNHASVARDESC_LONG_MEMBER_ID)||is_error_pending()){
#line 1005 "utilities/type.bas"
if(qbevent){evnt(28809,1005,"type.bas");if(r)goto S_43390;}
#line 1006 "utilities/type.bas"
S_43391:;
#line 1006 "utilities/type.bas"
if ((FUNC_UDTMEMBERDYNDESC(_FUNC_UDTDYNHASVARDESC_LONG_MEMBER_ID))||is_error_pending()){
#line 1006 "utilities/type.bas"
if(qbevent){evnt(28809,1006,"type.bas");if(r)goto S_43391;}
#line 1007 "utilities/type.bas"
do{
#line 1007 "utilities/type.bas"
*_FUNC_UDTDYNHASVARDESC_LONG_SEEN_DYN= -1 ;
#line 1007 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1007,"type.bas");}while(r);
#line 1008 "utilities/type.bas"
S_43393:;
#line 1008 "utilities/type.bas"
if ((FUNC_DYNMEMVARSTR(_FUNC_UDTDYNHASVARDESC_LONG_MEMBER_ID))||is_error_pending()){
#line 1008 "utilities/type.bas"
if(qbevent){evnt(28809,1008,"type.bas");if(r)goto S_43393;}
#line 1009 "utilities/type.bas"
do{
#line 1009 "utilities/type.bas"
*_FUNC_UDTDYNHASVARDESC_INTEGER_UDTDYNHASVARDESC= -1 ;
#line 1009 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1009,"type.bas");}while(r);
#line 1010 "utilities/type.bas"
do{
#line 1010 "utilities/type.bas"
goto exit_subfunc;
#line 1010 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1010,"type.bas");}while(r);
#line 1011 "utilities/type.bas"
}
#line 1012 "utilities/type.bas"
S_43397:;
#line 1012 "utilities/type.bas"
if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_UDTDYNHASVARDESC_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)!= 0 ))||is_error_pending()){
#line 1012 "utilities/type.bas"
if(qbevent){evnt(28809,1012,"type.bas");if(r)goto S_43397;}
#line 1013 "utilities/type.bas"
do{
#line 1013 "utilities/type.bas"
*_FUNC_UDTDYNHASVARDESC_LONG_NESTED_UDT=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_UDTDYNHASVARDESC_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ;
#line 1013 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1013,"type.bas");}while(r);
#line 1014 "utilities/type.bas"
S_43399:;
#line 1014 "utilities/type.bas"
if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_UDTDYNHASVARDESC_LONG_NESTED_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||is_error_pending()){
#line 1014 "utilities/type.bas"
if(qbevent){evnt(28809,1014,"type.bas");if(r)goto S_43399;}
#line 1015 "utilities/type.bas"
do{
#line 1015 "utilities/type.bas"
*_FUNC_UDTDYNHASVARDESC_INTEGER_UDTDYNHASVARDESC= -1 ;
#line 1015 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1015,"type.bas");}while(r);
#line 1016 "utilities/type.bas"
do{
#line 1016 "utilities/type.bas"
goto exit_subfunc;
#line 1016 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1016,"type.bas");}while(r);
#line 1017 "utilities/type.bas"
}
#line 1018 "utilities/type.bas"
S_43403:;
#line 1018 "utilities/type.bas"
if ((FUNC_UDTDYNHASVARDESC(_FUNC_UDTDYNHASVARDESC_LONG_NESTED_UDT,_FUNC_UDTDYNHASVARDESC_LONG_LAYOUT_MODE))||is_error_pending()){
#line 1018 "utilities/type.bas"
if(qbevent){evnt(28809,1018,"type.bas");if(r)goto S_43403;}
#line 1019 "utilities/type.bas"
do{
#line 1019 "utilities/type.bas"
*_FUNC_UDTDYNHASVARDESC_INTEGER_UDTDYNHASVARDESC= -1 ;
#line 1019 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1019,"type.bas");}while(r);
#line 1020 "utilities/type.bas"
do{
#line 1020 "utilities/type.bas"
goto exit_subfunc;
#line 1020 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1020,"type.bas");}while(r);
#line 1021 "utilities/type.bas"
}
#line 1022 "utilities/type.bas"
}
#line 1023 "utilities/type.bas"
S_43408:;
#line 1023 "utilities/type.bas"
}else{
#line 1023 "utilities/type.bas"
if (-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_UDTDYNHASVARDESC_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)!= 0 )){
#line 1023 "utilities/type.bas"
if(qbevent){evnt(28809,1023,"type.bas");if(r)goto S_43408;}
#line 1024 "utilities/type.bas"
do{
#line 1024 "utilities/type.bas"
*_FUNC_UDTDYNHASVARDESC_LONG_NESTED_UDT=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_UDTDYNHASVARDESC_LONG_MEMBER_ID)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 4095ll ;
#line 1024 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1024,"type.bas");}while(r);
#line 1025 "utilities/type.bas"
S_43410:;
#line 1025 "utilities/type.bas"
if ((FUNC_UDTDYNHASVARDESC(_FUNC_UDTDYNHASVARDESC_LONG_NESTED_UDT,_FUNC_UDTDYNHASVARDESC_LONG_LAYOUT_MODE))||is_error_pending()){
#line 1025 "utilities/type.bas"
if(qbevent){evnt(28809,1025,"type.bas");if(r)goto S_43410;}
#line 1026 "utilities/type.bas"
do{
#line 1026 "utilities/type.bas"
*_FUNC_UDTDYNHASVARDESC_INTEGER_UDTDYNHASVARDESC= -1 ;
#line 1026 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1026,"type.bas");}while(r);
#line 1027 "utilities/type.bas"
do{
#line 1027 "utilities/type.bas"
goto exit_subfunc;
#line 1027 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1027,"type.bas");}while(r);
#line 1028 "utilities/type.bas"
}
#line 1029 "utilities/type.bas"
}
#line 1029 "utilities/type.bas"
}
#line 1030 "utilities/type.bas"
do{
#line 1030 "utilities/type.bas"
*_FUNC_UDTDYNHASVARDESC_LONG_MEMBER_ID=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_FUNC_UDTDYNHASVARDESC_LONG_MEMBER_ID)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])];
#line 1030 "utilities/type.bas"
if(!qbevent)break;evnt(28809,1030,"type.bas");}while(r);
#line 1031 "utilities/type.bas"
dl_continue_4293:;
#line 1031 "utilities/type.bas"
}
#line 1031 "utilities/type.bas"
dl_exit_4293:;
#line 1032 "utilities/type.bas"
exit_subfunc:;
#line 1032 "utilities/type.bas"
free_mem_lock(sf_mem_lock);
#line 1032 "utilities/type.bas"
#include "free305.txt"
#line 1032 "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 1032 "utilities/type.bas"
cmem_sp=tmp_cmem_sp;
#line 1032 "utilities/type.bas"
return *_FUNC_UDTDYNHASVARDESC_INTEGER_UDTDYNHASVARDESC;
#line 1032 "utilities/type.bas"
}
