#line 18972 "qb64pe.bas"
int16 FUNC_ISWHOLEMEMBERARRAYREF(qbs*_FUNC_ISWHOLEMEMBERARRAYREF_STRING_ENCODED,int32*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_SOURCE_TYPE){
#line 18972 "qb64pe.bas"
qbs *tqbs;
#line 18972 "qb64pe.bas"
ptrszint tmp_long;
#line 18972 "qb64pe.bas"
int32 tmp_fileno;
#line 18972 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 18972 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 18972 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 18972 "qb64pe.bas"
#include "data59.txt"
#line 18972 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 18972 "qb64pe.bas"
new_mem_lock();
#line 18972 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 18972 "qb64pe.bas"
sf_mem_lock->type=3;
#line 18972 "qb64pe.bas"
libqb_check_stack();
#line 18972 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 18973 "qb64pe.bas"
S_21946:;
#line 18973 "qb64pe.bas"
if ((-((*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_SOURCE_TYPE&*__LONG_ISREFERENCE)== 0 ))||is_error_pending()){
#line 18973 "qb64pe.bas"
if(qbevent){evnt(18973);if(r)goto S_21946;}
#line 18973 "qb64pe.bas"
do{
#line 18973 "qb64pe.bas"
goto exit_subfunc;
#line 18973 "qb64pe.bas"
if(!qbevent)break;evnt(18973);}while(r);
#line 18973 "qb64pe.bas"
}
#line 18974 "qb64pe.bas"
S_21949:;
#line 18974 "qb64pe.bas"
if ((-((*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_SOURCE_TYPE&*__LONG_ISARRAY)== 0 ))||is_error_pending()){
#line 18974 "qb64pe.bas"
if(qbevent){evnt(18974);if(r)goto S_21949;}
#line 18974 "qb64pe.bas"
do{
#line 18974 "qb64pe.bas"
goto exit_subfunc;
#line 18974 "qb64pe.bas"
if(!qbevent)break;evnt(18974);}while(r);
#line 18974 "qb64pe.bas"
}
#line 18976 "qb64pe.bas"
do{
#line 18976 "qb64pe.bas"
*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_FIRST_SEP=func_instr(NULL,_FUNC_ISWHOLEMEMBERARRAYREF_STRING_ENCODED,__STRING1_SP3,0);
#line 18976 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18976 "qb64pe.bas"
if(!qbevent)break;evnt(18976);}while(r);
#line 18977 "qb64pe.bas"
S_21953:;
#line 18977 "qb64pe.bas"
if ((-(*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_FIRST_SEP== 0 ))||is_error_pending()){
#line 18977 "qb64pe.bas"
if(qbevent){evnt(18977);if(r)goto S_21953;}
#line 18977 "qb64pe.bas"
do{
#line 18977 "qb64pe.bas"
goto exit_subfunc;
#line 18977 "qb64pe.bas"
if(!qbevent)break;evnt(18977);}while(r);
#line 18977 "qb64pe.bas"
}
#line 18978 "qb64pe.bas"
do{
#line 18978 "qb64pe.bas"
*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_SECOND_SEP=func_instr(*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_FIRST_SEP+1,_FUNC_ISWHOLEMEMBERARRAYREF_STRING_ENCODED,__STRING1_SP3,0|1);
#line 18978 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18978 "qb64pe.bas"
if(!qbevent)break;evnt(18978);}while(r);
#line 18979 "qb64pe.bas"
S_21957:;
#line 18979 "qb64pe.bas"
if ((-(*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_SECOND_SEP== 0 ))||is_error_pending()){
#line 18979 "qb64pe.bas"
if(qbevent){evnt(18979);if(r)goto S_21957;}
#line 18979 "qb64pe.bas"
do{
#line 18979 "qb64pe.bas"
goto exit_subfunc;
#line 18979 "qb64pe.bas"
if(!qbevent)break;evnt(18979);}while(r);
#line 18979 "qb64pe.bas"
}
#line 18980 "qb64pe.bas"
do{
#line 18980 "qb64pe.bas"
*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_THIRD_SEP=func_instr(*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_SECOND_SEP+1,_FUNC_ISWHOLEMEMBERARRAYREF_STRING_ENCODED,__STRING1_SP3,0|1);
#line 18980 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18980 "qb64pe.bas"
if(!qbevent)break;evnt(18980);}while(r);
#line 18981 "qb64pe.bas"
S_21961:;
#line 18981 "qb64pe.bas"
if ((-(*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_THIRD_SEP== 0 ))||is_error_pending()){
#line 18981 "qb64pe.bas"
if(qbevent){evnt(18981);if(r)goto S_21961;}
#line 18981 "qb64pe.bas"
do{
#line 18981 "qb64pe.bas"
goto exit_subfunc;
#line 18981 "qb64pe.bas"
if(!qbevent)break;evnt(18981);}while(r);
#line 18981 "qb64pe.bas"
}
#line 18983 "qb64pe.bas"
do{
#line 18983 "qb64pe.bas"
*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_FINAL_MEMBER_ID=qbr(qbs_val<long double>(func_mid(_FUNC_ISWHOLEMEMBERARRAYREF_STRING_ENCODED,*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_SECOND_SEP+1,*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_THIRD_SEP-*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_SECOND_SEP-1,0|1)));
#line 18983 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 18983 "qb64pe.bas"
if(!qbevent)break;evnt(18983);}while(r);
#line 18984 "qb64pe.bas"
S_21965:;
#line 18984 "qb64pe.bas"
if ((-(*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_FINAL_MEMBER_ID<= 0 ))||is_error_pending()){
#line 18984 "qb64pe.bas"
if(qbevent){evnt(18984);if(r)goto S_21965;}
#line 18984 "qb64pe.bas"
do{
#line 18984 "qb64pe.bas"
goto exit_subfunc;
#line 18984 "qb64pe.bas"
if(!qbevent)break;evnt(18984);}while(r);
#line 18984 "qb64pe.bas"
}
#line 18985 "qb64pe.bas"
S_21968:;
#line 18985 "qb64pe.bas"
if ((((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_FUNC_ISWHOLEMEMBERARRAYREF_LONG_FINAL_MEMBER_ID)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])||is_error_pending()){
#line 18985 "qb64pe.bas"
if(qbevent){evnt(18985);if(r)goto S_21968;}
#line 18985 "qb64pe.bas"
do{
#line 18985 "qb64pe.bas"
*_FUNC_ISWHOLEMEMBERARRAYREF_INTEGER_ISWHOLEMEMBERARRAYREF= -1 ;
#line 18985 "qb64pe.bas"
if(!qbevent)break;evnt(18985);}while(r);
#line 18985 "qb64pe.bas"
}
#line 18986 "qb64pe.bas"
exit_subfunc:;
#line 18986 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 18986 "qb64pe.bas"
#include "free59.txt"
#line 18986 "qb64pe.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 18986 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 18986 "qb64pe.bas"
return *_FUNC_ISWHOLEMEMBERARRAYREF_INTEGER_ISWHOLEMEMBERARRAYREF;
#line 18986 "qb64pe.bas"
}
