int32 FUNC_PARSEUDTARRAYBOUNDSEX(qbs*_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_INDEXES,int32*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_EFFECTIVE_OPTIONBASE,int32*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_LOWER_BOUND,int32*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_ELEMENT_COUNT,int32*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIMENSION_COUNT,qbs*_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DESCRIPTOR){
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 "data13.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_N=FUNC_NUMELEMENTS(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_INDEXES);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14951);}while(r);
S_17376:;
if ((-(*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_N== 0 ))||is_error_pending()){
if(qbevent){evnt(14952);if(r)goto S_17376;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Array bounds missing",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14952);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14952);}while(r);
}
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_LOWER_BOUND= 0 ;
if(!qbevent)break;evnt(14954);}while(r);
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_ELEMENT_COUNT= 1 ;
if(!qbevent)break;evnt(14955);}while(r);
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIMENSION_COUNT= 0 ;
if(!qbevent)break;evnt(14956);}while(r);
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DESCRIPTOR,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14957);}while(r);
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_B= 0 ;
if(!qbevent)break;evnt(14959);}while(r);
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_FIRSTI= 1 ;
if(!qbevent)break;evnt(14960);}while(r);
S_17386:;
fornext_value2549= 1 ;
fornext_finalvalue2549=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_N;
fornext_step2549= 1 ;
if (fornext_step2549<0) fornext_step_negative2549=1; else fornext_step_negative2549=0;
if (is_error_pending()) goto fornext_error2549;
goto fornext_entrylabel2549;
while(1){
fornext_value2549=fornext_step2549+(*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_I);
fornext_entrylabel2549:
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_I=fornext_value2549;
if (fornext_step_negative2549){
if (fornext_value2549<fornext_finalvalue2549) break;
}else{
if (fornext_value2549>fornext_finalvalue2549) break;
}
fornext_error2549:;
if(qbevent){evnt(14961);if(r)goto S_17386;}
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_E,FUNC_GETELEMENT(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_INDEXES,_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14962);}while(r);
S_17388:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(14963);if(r)goto S_17388;}
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_B=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_B+ 1 ;
if(!qbevent)break;evnt(14963);}while(r);
}
S_17391:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(14964);if(r)goto S_17391;}
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_B=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_B- 1 ;
if(!qbevent)break;evnt(14964);}while(r);
}
S_17394:;
if ((qbs_cleanup(qbs_tmp_base,(((-(*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_B== 0 ))&(qbs_equal(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_E,qbs_new_txt_len(",",1)))))|(-(*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_I==*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_N))))||is_error_pending()){
if(qbevent){evnt(14965);if(r)goto S_17394;}
S_17395:;
if ((-(*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_I==*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_N))||is_error_pending()){
if(qbevent){evnt(14966);if(r)goto S_17395;}
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DIM_EXPR,FUNC_GETELEMENTS(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_INDEXES,_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_FIRSTI,_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14967);}while(r);
}else{
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DIM_EXPR,FUNC_GETELEMENTS(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_INDEXES,_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_FIRSTI,&(pass2550=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_I- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14969);}while(r);
}
S_17400:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DIM_EXPR,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(14971);if(r)goto S_17400;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid array bounds",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14971);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14971);}while(r);
}
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DN=FUNC_NUMELEMENTS(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DIM_EXPR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14973);}while(r);
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_TO_POS= 0 ;
if(!qbevent)break;evnt(14974);}while(r);
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_B2= 0 ;
if(!qbevent)break;evnt(14975);}while(r);
S_17407:;
fornext_value2552= 1 ;
fornext_finalvalue2552=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DN;
fornext_step2552= 1 ;
if (fornext_step2552<0) fornext_step_negative2552=1; else fornext_step_negative2552=0;
if (is_error_pending()) goto fornext_error2552;
goto fornext_entrylabel2552;
while(1){
fornext_value2552=fornext_step2552+(*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DI);
fornext_entrylabel2552:
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DI=fornext_value2552;
if (fornext_step_negative2552){
if (fornext_value2552<fornext_finalvalue2552) break;
}else{
if (fornext_value2552>fornext_finalvalue2552) break;
}
fornext_error2552:;
if(qbevent){evnt(14976);if(r)goto S_17407;}
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_E2,FUNC_GETELEMENT(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DIM_EXPR,_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14977);}while(r);
S_17409:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(14978);if(r)goto S_17409;}
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_B2=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_B2+ 1 ;
if(!qbevent)break;evnt(14978);}while(r);
}
S_17412:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(14979);if(r)goto S_17412;}
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_B2=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_B2- 1 ;
if(!qbevent)break;evnt(14979);}while(r);
}
S_17415:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_B2== 0 ))&(qbs_equal(qbs_ucase(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_E2),qbs_new_txt_len("TO",2)))))||is_error_pending()){
if(qbevent){evnt(14980);if(r)goto S_17415;}
S_17416:;
if ((*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_TO_POS)||is_error_pending()){
if(qbevent){evnt(14981);if(r)goto S_17416;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid array bounds",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14981);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14981);}while(r);
}
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_TO_POS=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DI;
if(!qbevent)break;evnt(14982);}while(r);
}
fornext_continue_2551:;
}
fornext_exit_2551:;
S_17423:;
if ((*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_TO_POS)||is_error_pending()){
if(qbevent){evnt(14986);if(r)goto S_17423;}
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_LOWER_EXPR,FUNC_GETELEMENTS(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DIM_EXPR,&(pass2553= 1 ),&(pass2554=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_TO_POS- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14987);}while(r);
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_UPPER_EXPR,FUNC_GETELEMENTS(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DIM_EXPR,&(pass2555=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_TO_POS+ 1 ),_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DN));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14988);}while(r);
S_17426:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_LOWER_EXPR,qbs_new_txt_len("",0)))|(qbs_equal(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_UPPER_EXPR,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(14989);if(r)goto S_17426;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid array bounds",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14989);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14989);}while(r);
}
}else{
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_LOWER_EXPR,qbs__tostr((int64)(*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_EFFECTIVE_OPTIONBASE+ 0 ),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14991);}while(r);
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_UPPER_EXPR,_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DIM_EXPR);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14992);}while(r);
}
do{
*__INTEGER_CONSTEQUATION= 1 ;
if(!qbevent)break;evnt(14995);}while(r);
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_LOWER_EXPR,FUNC_FIXOPERATIONORDER(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_LOWER_EXPR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14996);}while(r);
S_17436:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14997);if(r)goto S_17436;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14997);}while(r);
}
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_LOWER_TXT,FUNC_EVALUATETOTYP(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_LOWER_EXPR,&(pass2556= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(14998);}while(r);
S_17440:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(14999);if(r)goto S_17440;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(14999);}while(r);
}
S_17443:;
if ((-(*__INTEGER_CONSTEQUATION== 0 ))||is_error_pending()){
if(qbevent){evnt(15000);if(r)goto S_17443;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("TYPE member array bounds must be constant",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15000);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15000);}while(r);
}
do{
*__INTEGER_CONSTEQUATION= 1 ;
if(!qbevent)break;evnt(15002);}while(r);
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_UPPER_EXPR,FUNC_FIXOPERATIONORDER(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_UPPER_EXPR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15003);}while(r);
S_17449:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15004);if(r)goto S_17449;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15004);}while(r);
}
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_UPPER_TXT,FUNC_EVALUATETOTYP(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_UPPER_EXPR,&(pass2557= 64 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15005);}while(r);
S_17453:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15006);if(r)goto S_17453;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15006);}while(r);
}
S_17456:;
if ((-(*__INTEGER_CONSTEQUATION== 0 ))||is_error_pending()){
if(qbevent){evnt(15007);if(r)goto S_17456;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("TYPE member array bounds must be constant",41));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15007);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15007);}while(r);
}
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIM_LOWER=qbr(qbs_val<long double>(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_LOWER_TXT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15009);}while(r);
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIM_UPPER=qbr(qbs_val<long double>(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_UPPER_TXT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15010);}while(r);
S_17462:;
if ((-(*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIM_UPPER<*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIM_LOWER))||is_error_pending()){
if(qbevent){evnt(15011);if(r)goto S_17462;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid array bounds",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15011);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15011);}while(r);
}
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIM_ELEMENTS=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIM_UPPER-*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIM_LOWER+ 1 ;
if(!qbevent)break;evnt(15013);}while(r);
S_17467:;
if ((-(*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIM_ELEMENTS<= 0 ))||is_error_pending()){
if(qbevent){evnt(15014);if(r)goto S_17467;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid array bounds",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15014);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15014);}while(r);
}
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DIM_LOWER_TXT,qbs_ltrim(qbs_str((int32)(*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIM_LOWER))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15016);}while(r);
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DIM_ELEMENTS_TXT,qbs_ltrim(qbs_str((int32)(*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIM_ELEMENTS))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15017);}while(r);
S_17473:;
if ((-(*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIMENSION_COUNT== 0 ))||is_error_pending()){
if(qbevent){evnt(15019);if(r)goto S_17473;}
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_LOWER_BOUND=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIM_LOWER;
if(!qbevent)break;evnt(15019);}while(r);
}
S_17476:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DESCRIPTOR,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(15020);if(r)goto S_17476;}
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DESCRIPTOR,qbs_add(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DESCRIPTOR,qbs_new_txt_len(";",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15020);}while(r);
}
do{
qbs_set(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DESCRIPTOR,qbs_add(qbs_add(qbs_add(_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DESCRIPTOR,_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DIM_LOWER_TXT),qbs_new_txt_len(",",1)),_FUNC_PARSEUDTARRAYBOUNDSEX_STRING_DIM_ELEMENTS_TXT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15021);}while(r);
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_ELEMENT_COUNT=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_ELEMENT_COUNT**_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIM_ELEMENTS;
if(!qbevent)break;evnt(15022);}while(r);
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIMENSION_COUNT=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIMENSION_COUNT+ 1 ;
if(!qbevent)break;evnt(15023);}while(r);
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_FIRSTI=*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_I+ 1 ;
if(!qbevent)break;evnt(15024);}while(r);
}
fornext_continue_2548:;
}
fornext_exit_2548:;
S_17485:;
if ((-(*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_DIMENSION_COUNT== 0 ))||is_error_pending()){
if(qbevent){evnt(15028);if(r)goto S_17485;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Array bounds missing",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15028);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15028);}while(r);
}
do{
*_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_PARSEUDTARRAYBOUNDSEX= -1 ;
if(!qbevent)break;evnt(15030);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free13.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;
return *_FUNC_PARSEUDTARRAYBOUNDSEX_LONG_PARSEUDTARRAYBOUNDSEX;
}
