qbs* FUNC_EVALUATE(qbs*_FUNC_EVALUATE_STRING_A2,int32*_FUNC_EVALUATE_LONG_TYP){
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 "data54.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 (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]) error(257);
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4]=alloc_new_desc[4];
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]=alloc_new_desc[5];
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[6]=alloc_new_desc[6];
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(18855);}while(r);
do{
if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(2);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&4){
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]) error(257);
memset((void*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]),0,(size_t)alloc_req_bytes);
}else{
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]) error(257);
}
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]|=1;
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4]=alloc_new_desc[4];
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]=alloc_new_desc[5];
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[6]=alloc_new_desc[6];
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(18856);}while(r);
do{
if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 1000 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&4){
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]) error(257);
memset((void*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]),0,(size_t)alloc_req_bytes);
}else{
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]) error(257);
}
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]|=1;
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4]=alloc_new_desc[4];
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]=alloc_new_desc[5];
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[6]=alloc_new_desc[6];
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(18857);}while(r);
do{
qbs_set(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18860);}while(r);
do{
*_FUNC_EVALUATE_LONG_TYP= -1 ;
if(!qbevent)break;evnt(18861);}while(r);
S_21909:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(18863);if(r)goto S_21909;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3228;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluating:[",12),_FUNC_EVALUATE_STRING_A2),qbs_new_txt_len("]",1)), 0, 0, 1);
if (is_error_pending()) goto skip3228;
skip3228:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(18863);}while(r);
}
S_21912:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_A2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(18864);if(r)goto S_21912;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Syntax error",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18864);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18864);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_BLOCKN= 0 ;
if(!qbevent)break;evnt(18873);}while(r);
do{
*_FUNC_EVALUATE_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATE_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18874);}while(r);
do{
*_FUNC_EVALUATE_LONG_B= 0 ;
if(!qbevent)break;evnt(18875);}while(r);
S_21919:;
fornext_value3230= 1 ;
fornext_finalvalue3230=*_FUNC_EVALUATE_LONG_N;
fornext_step3230= 1 ;
if (fornext_step3230<0) fornext_step_negative3230=1; else fornext_step_negative3230=0;
if (is_error_pending()) goto fornext_error3230;
goto fornext_entrylabel3230;
while(1){
fornext_value3230=fornext_step3230+(*_FUNC_EVALUATE_LONG_I);
fornext_entrylabel3230:
*_FUNC_EVALUATE_LONG_I=fornext_value3230;
if (fornext_step_negative3230){
if (fornext_value3230<fornext_finalvalue3230) break;
}else{
if (fornext_value3230>fornext_finalvalue3230) break;
}
fornext_error3230:;
if(qbevent){evnt(18876);if(r)goto S_21919;}
LABEL_REEVALUATE:;
if(qbevent){evnt(18878);r=0;}
do{
qbs_set(_FUNC_EVALUATE_STRING_L,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18883);}while(r);
S_21921:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(18886);if(r)goto S_21921;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3231;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#*#*#* reevaluating:",20),_FUNC_EVALUATE_STRING_L), 0, 1, 0);
if (is_error_pending()) goto skip3231;
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_I)), 1, 0, 1);
if (is_error_pending()) goto skip3231;
skip3231:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(18886);}while(r);
}
S_21924:;
if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_N))||is_error_pending()){
if(qbevent){evnt(18889);if(r)goto S_21924;}
do{
qbs_set(_FUNC_EVALUATE_STRING_NEXTL,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass3232=*_FUNC_EVALUATE_LONG_I+ 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18889);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATE_STRING_NEXTL,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18889);}while(r);
}
S_21929:;
if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(18893);if(r)goto S_21929;}
S_21930:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(18895);if(r)goto S_21930;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3233;
sub_file_print(tmp_fileno,_FUNC_EVALUATE_STRING_L, 0, 0, 1);
if (is_error_pending()) goto skip3233;
skip3233:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(18895);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_L2,_FUNC_EVALUATE_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18897);}while(r);
S_21934:;
fornext_value3235= 1 ;
fornext_finalvalue3235= 4 ;
fornext_step3235= 1 ;
if (fornext_step3235<0) fornext_step_negative3235=1; else fornext_step_negative3235=0;
if (is_error_pending()) goto fornext_error3235;
goto fornext_entrylabel3235;
while(1){
fornext_value3235=fornext_step3235+(*_FUNC_EVALUATE_LONG_TRY_METHOD);
fornext_entrylabel3235:
*_FUNC_EVALUATE_LONG_TRY_METHOD=fornext_value3235;
if (fornext_step_negative3235){
if (fornext_value3235<fornext_finalvalue3235) break;
}else{
if (fornext_value3235>fornext_finalvalue3235) break;
}
fornext_error3235:;
if(qbevent){evnt(18898);if(r)goto S_21934;}
do{
qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18899);}while(r);
S_21936:;
if (((-(*_FUNC_EVALUATE_LONG_TRY_METHOD== 2 ))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD== 4 )))||is_error_pending()){
if(qbevent){evnt(18900);if(r)goto S_21936;}
S_21937:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18901);if(r)goto S_21937;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18901);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18902);}while(r);
S_21941:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18902);if(r)goto S_21941;}
do{
qbs_set(_FUNC_EVALUATE_STRING_DTYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18902);}while(r);
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(18902);}while(r);
}
S_21945:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATE_STRING_DTYP->len== 0 )))||is_error_pending()){
if(qbevent){evnt(18903);if(r)goto S_21945;}
S_21946:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_L)== 0 )))||is_error_pending()){
if(qbevent){evnt(18904);if(r)goto S_21946;}
S_21947:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_EVALUATE_STRING_L)))||is_error_pending()){
if(qbevent){evnt(18905);if(r)goto S_21947;}
S_21948:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_STRING_L, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(18906);if(r)goto S_21948;}
do{
*_FUNC_EVALUATE_LONG_V= 27 ;
if(!qbevent)break;evnt(18906);}while(r);
}else{
do{
*_FUNC_EVALUATE_LONG_V=qbs_asc(qbs_ucase(_FUNC_EVALUATE_STRING_L))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18906);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_L,qbs_add(_FUNC_EVALUATE_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_EVALUATE_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18907);}while(r);
}
}
}else{
do{
qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18911);}while(r);
}
}
do{
*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(_FUNC_EVALUATE_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18914);}while(r);
S_21961:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18915);if(r)goto S_21961;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18915);}while(r);
}
S_21964:;
while((*_FUNC_EVALUATE_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(18916);if(r)goto S_21964;}
S_21965:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(18918);if(r)goto S_21965;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3238;
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_TRY)), 1, 0, 1);
if (is_error_pending()) goto skip3238;
skip3238:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(18918);}while(r);
}
S_21968:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_NEXTL,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(18921);if(r)goto S_21968;}
S_21969:;
if ((*(int32*)(((char*)__UDT_ID)+((0+512))))||is_error_pending()){
if(qbevent){evnt(18922);if(r)goto S_21969;}
S_21970:;
if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+((0+2645)))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||is_error_pending()){
if(qbevent){evnt(18923);if(r)goto S_21970;}
do{
*_FUNC_EVALUATE_LONG_ARRAYID=*__LONG_CURRENTID;
if(!qbevent)break;evnt(18924);}while(r);
do{
*__INTEGER_CONSTEQUATION= 0 ;
if(!qbevent)break;evnt(18925);}while(r);
do{
*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I+ 2 ;
if(!qbevent)break;evnt(18926);}while(r);
do{
*_FUNC_EVALUATE_LONG_B2= 0 ;
if(!qbevent)break;evnt(18927);}while(r);
LABEL_EVALNEXTELE3:;
if(qbevent){evnt(18928);r=0;}
do{
qbs_set(_FUNC_EVALUATE_STRING_L2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18929);}while(r);
S_21976:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(18930);if(r)goto S_21976;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ;
if(!qbevent)break;evnt(18930);}while(r);
}
S_21979:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(18931);if(r)goto S_21979;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ;
if(!qbevent)break;evnt(18932);}while(r);
S_21981:;
if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||is_error_pending()){
if(qbevent){evnt(18933);if(r)goto S_21981;}
do{
qbs_set(_FUNC_EVALUATE_STRING_ARRAYINDEXES,FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass3239=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass3240=*_FUNC_EVALUATE_LONG_I2- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18934);}while(r);
do{
qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_ARRAYREFERENCE(_FUNC_EVALUATE_STRING_ARRAYINDEXES,_FUNC_EVALUATE_LONG_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18935);}while(r);
S_21984:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18936);if(r)goto S_21984;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18936);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I2;
if(!qbevent)break;evnt(18937);}while(r);
S_21988:;
if ((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(18940);if(r)goto S_21988;}
S_21989:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_ARRAYINDEXES,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(18946);if(r)goto S_21989;}
S_21990:;
if ((-(*_FUNC_EVALUATE_LONG_I2<*_FUNC_EVALUATE_LONG_N))||is_error_pending()){
if(qbevent){evnt(18947);if(r)goto S_21990;}
S_21991:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass3241=*_FUNC_EVALUATE_LONG_I2+ 1 )),qbs_new_txt_len(".",1))))||is_error_pending()){
if(qbevent){evnt(18948);if(r)goto S_21991;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected array index",20));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18948);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18948);}while(r);
}
}
}
do{
SUB_GETID(_FUNC_EVALUATE_LONG_ARRAYID);
if(!qbevent)break;evnt(18953);}while(r);
S_21998:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(18954);if(r)goto S_21998;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(18954);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_O,qbs_right(_FUNC_EVALUATE_STRING_C,_FUNC_EVALUATE_STRING_C->len-func_instr(NULL,_FUNC_EVALUATE_STRING_C,__STRING1_SP3,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18955);}while(r);
do{
*_FUNC_EVALUATE_LONG_U=*_FUNC_EVALUATE_LONG_TYP2& 4095ll ;
if(!qbevent)break;evnt(18957);}while(r);
do{
*_FUNC_EVALUATE_LONG_S=qb_safe_idiv(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATE_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])], 8 );
if(!qbevent)break;evnt(18958);}while(r);
S_22004:;
if ((*(int16*)(((char*)__UDT_ID)+((0+520))))||is_error_pending()){
if(qbevent){evnt(18959);if(r)goto S_22004;}
do{
*_FUNC_EVALUATE_LONG_S=qb_safe_idiv(FUNC_UDTDYNLAYOUTSIZE(_FUNC_EVALUATE_LONG_U), 8 );
if(!qbevent)break;evnt(18959);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_O,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATE_STRING_O),qbs_new_txt_len(")*",2)),qbs__tostr((int32)(*_FUNC_EVALUATE_LONG_S),NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18960);}while(r);
do{
goto LABEL_EVALUDT;
if(!qbevent)break;evnt(18962);}while(r);
}
do{
goto LABEL_EVALEDNEXTELE3;
if(!qbevent)break;evnt(18965);}while(r);
}
}
do{
*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I2+ 1 ;
if(!qbevent)break;evnt(18968);}while(r);
do{
goto LABEL_EVALNEXTELE3;
if(!qbevent)break;evnt(18969);}while(r);
LABEL_EVALEDNEXTELE3:;
if(qbevent){evnt(18970);r=0;}
do{
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
if(!qbevent)break;evnt(18971);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18972);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ;
if(!qbevent)break;evnt(18973);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2;
if(!qbevent)break;evnt(18974);}while(r);
S_22019:;
if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18975);if(r)goto S_22019;}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(18975);}while(r);
}
do{
goto LABEL_EVALED;
if(!qbevent)break;evnt(18976);}while(r);
}
}
}else{
S_22026:;
if (((-(*(int32*)(((char*)__UDT_ID)+((0+540)))!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISUDT)== 0 )))||is_error_pending()){
if(qbevent){evnt(18984);if(r)goto S_22026;}
S_22027:;
if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+((0+2645)))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||is_error_pending()){
if(qbevent){evnt(18985);if(r)goto S_22027;}
do{
*__INTEGER_CONSTEQUATION= 0 ;
if(!qbevent)break;evnt(18986);}while(r);
do{
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
if(!qbevent)break;evnt(18987);}while(r);
do{
SUB_MAKEIDREFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18988);}while(r);
S_22031:;
if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(18989);if(r)goto S_22031;}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(18989);}while(r);
}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ;
if(!qbevent)break;evnt(18990);}while(r);
do{
goto LABEL_EVALED;
if(!qbevent)break;evnt(18991);}while(r);
}
}
S_22038:;
if ((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(18996);if(r)goto S_22038;}
S_22039:;
if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+((0+2645)))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||is_error_pending()){
if(qbevent){evnt(18997);if(r)goto S_22039;}
do{
*__INTEGER_CONSTEQUATION= 0 ;
if(!qbevent)break;evnt(18998);}while(r);
do{
qbs_set(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(18999);}while(r);
LABEL_EVALUDT:;
if(qbevent){evnt(19000);r=0;}
do{
*_FUNC_EVALUATE_LONG_B2= 0 ;
if(!qbevent)break;evnt(19001);}while(r);
do{
*_FUNC_EVALUATE_LONG_I3=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(19002);}while(r);
S_22044:;
fornext_value3244=*_FUNC_EVALUATE_LONG_I3;
fornext_finalvalue3244=*_FUNC_EVALUATE_LONG_N;
fornext_step3244= 1 ;
if (fornext_step3244<0) fornext_step_negative3244=1; else fornext_step_negative3244=0;
if (is_error_pending()) goto fornext_error3244;
goto fornext_entrylabel3244;
while(1){
fornext_value3244=fornext_step3244+(*_FUNC_EVALUATE_LONG_I2);
fornext_entrylabel3244:
*_FUNC_EVALUATE_LONG_I2=fornext_value3244;
if (fornext_step_negative3244){
if (fornext_value3244<fornext_finalvalue3244) break;
}else{
if (fornext_value3244>fornext_finalvalue3244) break;
}
fornext_error3244:;
if(qbevent){evnt(19003);if(r)goto S_22044;}
do{
qbs_set(_FUNC_EVALUATE_STRING_E2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19004);}while(r);
S_22046:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(19005);if(r)goto S_22046;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ;
if(!qbevent)break;evnt(19005);}while(r);
}
S_22049:;
if ((-(*_FUNC_EVALUATE_LONG_B2== 0 ))||is_error_pending()){
if(qbevent){evnt(19006);if(r)goto S_22049;}
S_22050:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len(")",1)))|(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_E2))))||is_error_pending()){
if(qbevent){evnt(19007);if(r)goto S_22050;}
do{
*_FUNC_EVALUATE_LONG_I4=*_FUNC_EVALUATE_LONG_I2- 1 ;
if(!qbevent)break;evnt(19008);}while(r);
do{
goto LABEL_GOTUDT;
if(!qbevent)break;evnt(19009);}while(r);
}
}
S_22055:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(19012);if(r)goto S_22055;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ;
if(!qbevent)break;evnt(19012);}while(r);
}
fornext_continue_3243:;
}
fornext_exit_3243:;
do{
*_FUNC_EVALUATE_LONG_I4=*_FUNC_EVALUATE_LONG_N;
if(!qbevent)break;evnt(19014);}while(r);
LABEL_GOTUDT:;
if(qbevent){evnt(19015);r=0;}
S_22060:;
if ((-(*_FUNC_EVALUATE_LONG_I4<*_FUNC_EVALUATE_LONG_I3))||is_error_pending()){
if(qbevent){evnt(19016);if(r)goto S_22060;}
do{
qbs_set(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19016);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I3,_FUNC_EVALUATE_LONG_I4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19016);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_UDTREFERENCE(_FUNC_EVALUATE_STRING_O,_FUNC_EVALUATE_STRING_E,_FUNC_EVALUATE_LONG_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19018);}while(r);
S_22066:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19019);if(r)goto S_22066;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19019);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I4;
if(!qbevent)break;evnt(19020);}while(r);
do{
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
if(!qbevent)break;evnt(19021);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_E);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19022);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ;
if(!qbevent)break;evnt(19023);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2;
if(!qbevent)break;evnt(19024);}while(r);
do{
goto LABEL_EVALED;
if(!qbevent)break;evnt(19027);}while(r);
}
}
}
S_22078:;
if ((-(*(int16*)(((char*)__UDT_ID)+((0+548)))== 1 ))||is_error_pending()){
if(qbevent){evnt(19034);if(r)goto S_22078;}
do{
*__INTEGER_CONSTEQUATION= 0 ;
if(!qbevent)break;evnt(19035);}while(r);
S_22080:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass3245=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(19036);if(r)goto S_22080;}
do{
*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I+ 2 ;
if(!qbevent)break;evnt(19037);}while(r);
do{
*_FUNC_EVALUATE_LONG_B2= 0 ;
if(!qbevent)break;evnt(19038);}while(r);
do{
*_FUNC_EVALUATE_LONG_ARGS= 1 ;
if(!qbevent)break;evnt(19039);}while(r);
LABEL_EVALNEXTELE:;
if(qbevent){evnt(19040);r=0;}
do{
qbs_set(_FUNC_EVALUATE_STRING_L2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19041);}while(r);
S_22085:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(19042);if(r)goto S_22085;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ;
if(!qbevent)break;evnt(19042);}while(r);
}
S_22088:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(19043);if(r)goto S_22088;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ;
if(!qbevent)break;evnt(19044);}while(r);
S_22090:;
if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||is_error_pending()){
if(qbevent){evnt(19045);if(r)goto S_22090;}
S_22091:;
if ((-(*_FUNC_EVALUATE_LONG_I2==(*_FUNC_EVALUATE_LONG_I+ 2 )))||is_error_pending()){
if(qbevent){evnt(19046);if(r)goto S_22091;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected (...)",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19046);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19046);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass3246=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass3247=*_FUNC_EVALUATE_LONG_I2- 1 )),_FUNC_EVALUATE_LONG_ARGS,_FUNC_EVALUATE_LONG_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19047);}while(r);
S_22096:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19048);if(r)goto S_22096;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19048);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I2;
if(!qbevent)break;evnt(19049);}while(r);
do{
goto LABEL_EVALEDNEXTELE;
if(!qbevent)break;evnt(19050);}while(r);
}
}
S_22103:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(",",1)))&(-(*_FUNC_EVALUATE_LONG_B2== 0 ))))||is_error_pending()){
if(qbevent){evnt(19053);if(r)goto S_22103;}
do{
*_FUNC_EVALUATE_LONG_ARGS=*_FUNC_EVALUATE_LONG_ARGS+ 1 ;
if(!qbevent)break;evnt(19053);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I2+ 1 ;
if(!qbevent)break;evnt(19054);}while(r);
do{
goto LABEL_EVALNEXTELE;
if(!qbevent)break;evnt(19055);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(qbs_new_txt_len("",0),&(pass3248= 0 ),_FUNC_EVALUATE_LONG_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19058);}while(r);
S_22110:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19059);if(r)goto S_22110;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19059);}while(r);
}
}
LABEL_EVALEDNEXTELE:;
if(qbevent){evnt(19061);r=0;}
do{
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
if(!qbevent)break;evnt(19062);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19063);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ;
if(!qbevent)break;evnt(19064);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2;
if(!qbevent)break;evnt(19065);}while(r);
S_22118:;
if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(19066);if(r)goto S_22118;}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(19066);}while(r);
}
do{
goto LABEL_EVALED;
if(!qbevent)break;evnt(19067);}while(r);
}
S_22123:;
if ((-(*_FUNC_EVALUATE_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(19070);if(r)goto S_22123;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(19070);}while(r);
do{
*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(_FUNC_EVALUATE_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19070);}while(r);
}else{
do{
*_FUNC_EVALUATE_LONG_TRY= 0 ;
if(!qbevent)break;evnt(19070);}while(r);
}
S_22129:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19071);if(r)goto S_22129;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19071);}while(r);
}
dl_continue_3237:;
}
dl_exit_3237:;
fornext_continue_3234:;
}
fornext_exit_3234:;
S_22134:;
if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_N))||is_error_pending()){
if(qbevent){evnt(19077);if(r)goto S_22134;}
S_22135:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass3249=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(19078);if(r)goto S_22135;}
S_22136:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_L)== 0 )))||is_error_pending()){
if(qbevent){evnt(19079);if(r)goto S_22136;}
S_22137:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_EVALUATE_STRING_L)))||is_error_pending()){
if(qbevent){evnt(19080);if(r)goto S_22137;}
S_22138:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19081);if(r)goto S_22138;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3250;
sub_file_print(tmp_fileno,qbs_new_txt_len("**************",14), 0, 0, 1);
if (is_error_pending()) goto skip3250;
skip3250:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19082);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3251;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("about to auto-create array:",27),_FUNC_EVALUATE_STRING_L), 0, 1, 0);
if (is_error_pending()) goto skip3251;
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_I)), 1, 0, 1);
if (is_error_pending()) goto skip3251;
skip3251:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19083);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3252;
sub_file_print(tmp_fileno,qbs_new_txt_len("**************",14), 0, 0, 1);
if (is_error_pending()) goto skip3252;
skip3252:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19084);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19086);}while(r);
S_22144:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19087);if(r)goto S_22144;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19087);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_NUME= 1 ;
if(!qbevent)break;evnt(19089);}while(r);
do{
*_FUNC_EVALUATE_LONG_B2= 0 ;
if(!qbevent)break;evnt(19090);}while(r);
S_22149:;
fornext_value3254=*_FUNC_EVALUATE_LONG_I+ 2 ;
fornext_finalvalue3254=*_FUNC_EVALUATE_LONG_N;
fornext_step3254= 1 ;
if (fornext_step3254<0) fornext_step_negative3254=1; else fornext_step_negative3254=0;
if (is_error_pending()) goto fornext_error3254;
goto fornext_entrylabel3254;
while(1){
fornext_value3254=fornext_step3254+(*_FUNC_EVALUATE_LONG_I2);
fornext_entrylabel3254:
*_FUNC_EVALUATE_LONG_I2=fornext_value3254;
if (fornext_step_negative3254){
if (fornext_value3254<fornext_finalvalue3254) break;
}else{
if (fornext_value3254>fornext_finalvalue3254) break;
}
fornext_error3254:;
if(qbevent){evnt(19091);if(r)goto S_22149;}
do{
qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19092);}while(r);
S_22151:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(19093);if(r)goto S_22151;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ;
if(!qbevent)break;evnt(19093);}while(r);
}
S_22154:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALUATE_LONG_B2== 0 ))&(qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len(",",1)))))||is_error_pending()){
if(qbevent){evnt(19094);if(r)goto S_22154;}
do{
*_FUNC_EVALUATE_LONG_NUME=*_FUNC_EVALUATE_LONG_NUME+ 1 ;
if(!qbevent)break;evnt(19094);}while(r);
}
S_22157:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(19095);if(r)goto S_22157;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ;
if(!qbevent)break;evnt(19095);}while(r);
}
S_22160:;
if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||is_error_pending()){
if(qbevent){evnt(19096);if(r)goto S_22160;}
do{
goto fornext_exit_3253;
if(!qbevent)break;evnt(19096);}while(r);
}
fornext_continue_3253:;
}
fornext_exit_3253:;
do{
qbs_set(_FUNC_EVALUATE_STRING_FAKEE,qbs_new_txt_len("10",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19098);}while(r);
S_22165:;
fornext_value3256= 2 ;
fornext_finalvalue3256=*_FUNC_EVALUATE_LONG_NUME;
fornext_step3256= 1 ;
if (fornext_step3256<0) fornext_step_negative3256=1; else fornext_step_negative3256=0;
if (is_error_pending()) goto fornext_error3256;
goto fornext_entrylabel3256;
while(1){
fornext_value3256=fornext_step3256+(*_FUNC_EVALUATE_LONG_I2);
fornext_entrylabel3256:
*_FUNC_EVALUATE_LONG_I2=fornext_value3256;
if (fornext_step_negative3256){
if (fornext_value3256<fornext_finalvalue3256) break;
}else{
if (fornext_value3256>fornext_finalvalue3256) break;
}
fornext_error3256:;
if(qbevent){evnt(19098);if(r)goto S_22165;}
do{
qbs_set(_FUNC_EVALUATE_STRING_FAKEE,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_FAKEE,__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),qbs_new_txt_len("10",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19098);}while(r);
fornext_continue_3255:;
}
fornext_exit_3255:;
S_22168:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19099);if(r)goto S_22168;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3257;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("evaluate:creating undefined array using dim2(",45),_FUNC_EVALUATE_STRING_L),qbs_new_txt_len(",",1)),_FUNC_EVALUATE_STRING_DTYP),qbs_new_txt_len(",1,",3)),_FUNC_EVALUATE_STRING_FAKEE),qbs_new_txt_len(")",1)), 0, 0, 1);
if (is_error_pending()) goto skip3257;
skip3257:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19099);}while(r);
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(19100);}while(r);
S_22172:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(_FUNC_EVALUATE_STRING_L)== 0 )))||is_error_pending()){
if(qbevent){evnt(19101);if(r)goto S_22172;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid array name",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19101);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19101);}while(r);
}
S_22176:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) ))|FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(19102);if(r)goto S_22176;}
do{
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Array '",7),_FUNC_EVALUATE_STRING_L),qbs_new_txt_len("' (",3)),FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_DTYP)),qbs_new_txt_len(") not defined",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19102);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19102);}while(r);
}
S_22180:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19103);if(r)goto S_22180;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19103);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC;
if(!qbevent)break;evnt(19104);}while(r);
do{
*_FUNC_EVALUATE_LONG_METHOD= 1 ;
if(!qbevent)break;evnt(19105);}while(r);
S_22185:;
if ((*__LONG_SUBFUNCN)||is_error_pending()){
if(qbevent){evnt(19106);if(r)goto S_22185;}
do{
*__LONG_AUTOARRAY= 1 ;
if(!qbevent)break;evnt(19107);}while(r);
do{
*_FUNC_EVALUATE_LONG_XI= 1 ;
if(!qbevent)break;evnt(19110);}while(r);
S_22188:;
fornext_value3259= 1 ;
fornext_finalvalue3259=*__LONG_STATICARRAYLISTN;
fornext_step3259= 1 ;
if (fornext_step3259<0) fornext_step_negative3259=1; else fornext_step_negative3259=0;
if (is_error_pending()) goto fornext_error3259;
goto fornext_entrylabel3259;
while(1){
fornext_value3259=fornext_step3259+(*_FUNC_EVALUATE_LONG_X);
fornext_entrylabel3259:
*_FUNC_EVALUATE_LONG_X=fornext_value3259;
if (fornext_step_negative3259){
if (fornext_value3259<fornext_finalvalue3259) break;
}else{
if (fornext_value3259>fornext_finalvalue3259) break;
}
fornext_error3259:;
if(qbevent){evnt(19111);if(r)goto S_22188;}
do{
qbs_set(_FUNC_EVALUATE_STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19112);}while(r);
do{
*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ;
if(!qbevent)break;evnt(19112);}while(r);
do{
qbs_set(_FUNC_EVALUATE_STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19113);}while(r);
do{
*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ;
if(!qbevent)break;evnt(19113);}while(r);
do{
*_FUNC_EVALUATE_LONG_DIMMETHOD2=qbr(qbs_val<long double>(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19114);}while(r);
do{
*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ;
if(!qbevent)break;evnt(19114);}while(r);
S_22195:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_EVALUATE_STRING_L),qbs_ucase(_FUNC_EVALUATE_STRING_VARNAME2))))||is_error_pending()){
if(qbevent){evnt(19116);if(r)goto S_22195;}
do{
qbs_set(_FUNC_EVALUATE_STRING_L3,_FUNC_EVALUATE_STRING_L2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19117);}while(r);
do{
qbs_set(_FUNC_EVALUATE_STRING_S,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19117);}while(r);
S_22198:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_DTYP),_FUNC_EVALUATE_STRING_TYP2))|(((-(*_FUNC_EVALUATE_LONG_DIMMETHOD2== 0 ))&(qbs_equal(_FUNC_EVALUATE_STRING_S,qbs_new_txt_len("",0)))))))||is_error_pending()){
if(qbevent){evnt(19118);if(r)goto S_22198;}
S_22199:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19119);if(r)goto S_22199;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19119);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_VARNAME2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19121);}while(r);
do{
qbs_set(_FUNC_EVALUATE_STRING_DTYP,_FUNC_EVALUATE_STRING_TYP2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19122);}while(r);
do{
*_FUNC_EVALUATE_LONG_METHOD=*_FUNC_EVALUATE_LONG_DIMMETHOD2;
if(!qbevent)break;evnt(19123);}while(r);
do{
*__LONG_DIMSTATIC= 3 ;
if(!qbevent)break;evnt(19124);}while(r);
}
S_22207:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19126);if(r)goto S_22207;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19126);}while(r);
}
}
fornext_continue_3258:;
}
fornext_exit_3258:;
}
do{
*_FUNC_EVALUATE_LONG_IGNORE=FUNC_DIM2(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_DTYP,_FUNC_EVALUATE_LONG_METHOD,_FUNC_EVALUATE_STRING_FAKEE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19130);}while(r);
S_22214:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19131);if(r)goto S_22214;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19131);}while(r);
}
do{
*__LONG_DIMSTATIC=*_FUNC_EVALUATE_LONG_OLDDIMSTATIC;
if(!qbevent)break;evnt(19132);}while(r);
S_22218:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19133);if(r)goto S_22218;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3260;
sub_file_print(tmp_fileno,qbs_new_txt_len("#*#*#* dim2 has returned!!!",27), 0, 0, 1);
if (is_error_pending()) goto skip3260;
skip3260:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19133);}while(r);
}
do{
goto LABEL_REEVALUATE;
if(!qbevent)break;evnt(19134);}while(r);
}
}
}
}
do{
qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19140);}while(r);
}
S_22228:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(19144);if(r)goto S_22228;}
S_22229:;
if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(19145);if(r)goto S_22229;}
do{
*_FUNC_EVALUATE_LONG_I1=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(19145);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B+ 1 ;
if(!qbevent)break;evnt(19146);}while(r);
}
S_22234:;
if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(19149);if(r)goto S_22234;}
do{
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
if(!qbevent)break;evnt(19150);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19151);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(19152);}while(r);
}
S_22239:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(19155);if(r)goto S_22239;}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B- 1 ;
if(!qbevent)break;evnt(19156);}while(r);
S_22241:;
if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(19157);if(r)goto S_22241;}
do{
qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATE(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I1,&(pass3261=*_FUNC_EVALUATE_LONG_I- 1 )),_FUNC_EVALUATE_LONG_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19158);}while(r);
S_22243:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19159);if(r)goto S_22243;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19159);}while(r);
}
S_22246:;
if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(19160);if(r)goto S_22246;}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(19160);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
if(!qbevent)break;evnt(19161);}while(r);
S_22250:;
if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(19162);if(r)goto S_22250;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_C);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19163);}while(r);
}else{
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATE_STRING_C),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19165);}while(r);
}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(19167);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2;
if(!qbevent)break;evnt(19168);}while(r);
}
}
LABEL_EVALED:;
if(qbevent){evnt(19171);r=0;}
fornext_continue_3229:;
}
fornext_exit_3229:;
do{
qbs_set(_FUNC_EVALUATE_STRING_R,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19174);}while(r);
S_22261:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19176);if(r)goto S_22261;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3262;
sub_file_print(tmp_fileno,qbs_new_txt_len("evaluated blocks:",17), 0, 0, 0);
if (is_error_pending()) goto skip3262;
skip3262:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19176);}while(r);
}
S_22264:;
fornext_value3264= 1 ;
fornext_finalvalue3264=*_FUNC_EVALUATE_LONG_BLOCKN;
fornext_step3264= 1 ;
if (fornext_step3264<0) fornext_step_negative3264=1; else fornext_step_negative3264=0;
if (is_error_pending()) goto fornext_error3264;
goto fornext_entrylabel3264;
while(1){
fornext_value3264=fornext_step3264+(*_FUNC_EVALUATE_LONG_I);
fornext_entrylabel3264:
*_FUNC_EVALUATE_LONG_I=fornext_value3264;
if (fornext_step_negative3264){
if (fornext_value3264<fornext_finalvalue3264) break;
}else{
if (fornext_value3264>fornext_finalvalue3264) break;
}
fornext_error3264:;
if(qbevent){evnt(19177);if(r)goto S_22264;}
S_22265:;
if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_BLOCKN))||is_error_pending()){
if(qbevent){evnt(19178);if(r)goto S_22265;}
S_22266:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19179);if(r)goto S_22266;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3265;
sub_file_print(tmp_fileno,qbs_add(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),func_chr( 219 )), 0, 0, 0);
if (is_error_pending()) goto skip3265;
skip3265:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19179);}while(r);
}
}else{
S_22270:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19181);if(r)goto S_22270;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3266;
sub_file_print(tmp_fileno,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 0, 0, 1);
if (is_error_pending()) goto skip3266;
skip3266:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19181);}while(r);
}
}
fornext_continue_3263:;
}
fornext_exit_3263:;
S_22275:;
fornext_value3268= 1 ;
fornext_finalvalue3268=*_FUNC_EVALUATE_LONG_BLOCKN;
fornext_step3268= 1 ;
if (fornext_step3268<0) fornext_step_negative3268=1; else fornext_step_negative3268=0;
if (is_error_pending()) goto fornext_error3268;
goto fornext_entrylabel3268;
while(1){
fornext_value3268=fornext_step3268+(*_FUNC_EVALUATE_LONG_I);
fornext_entrylabel3268:
*_FUNC_EVALUATE_LONG_I=fornext_value3268;
if (fornext_step_negative3268){
if (fornext_value3268<fornext_finalvalue3268) break;
}else{
if (fornext_value3268>fornext_finalvalue3268) break;
}
fornext_error3268:;
if(qbevent){evnt(19188);if(r)goto S_22275;}
S_22276:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))== 0 )))||is_error_pending()){
if(qbevent){evnt(19189);if(r)goto S_22276;}
S_22277:;
if ((-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(19190);if(r)goto S_22277;}
do{
*_FUNC_EVALUATE_LONG_C=qbs_asc(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19193);}while(r);
S_22279:;
if (((-(*_FUNC_EVALUATE_LONG_C== 45 ))|(((-(*_FUNC_EVALUATE_LONG_C>= 48 ))&(-(*_FUNC_EVALUATE_LONG_C<= 57 )))))||is_error_pending()){
if(qbevent){evnt(19194);if(r)goto S_22279;}
do{
qbs_set(_FUNC_EVALUATE_STRING_NUM,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19195);}while(r);
do{
*_FUNC_EVALUATE_LONG_F= 0 ;
if(!qbevent)break;evnt(19197);}while(r);
do{
*_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("E",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19198);}while(r);
S_22283:;
if ((*_FUNC_EVALUATE_LONG_X)||is_error_pending()){
if(qbevent){evnt(19199);if(r)goto S_22283;}
do{
*_FUNC_EVALUATE_LONG_F= 1 ;
if(!qbevent)break;evnt(19200);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_SINGLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19200);}while(r);
}else{
do{
*_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("D",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19202);}while(r);
S_22288:;
if ((*_FUNC_EVALUATE_LONG_X)||is_error_pending()){
if(qbevent){evnt(19203);if(r)goto S_22288;}
do{
*_FUNC_EVALUATE_LONG_F= 2 ;
if(!qbevent)break;evnt(19204);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19204);}while(r);
}else{
do{
*_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("F",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19206);}while(r);
S_22293:;
if ((*_FUNC_EVALUATE_LONG_X)||is_error_pending()){
if(qbevent){evnt(19207);if(r)goto S_22293;}
do{
*_FUNC_EVALUATE_LONG_F= 3 ;
if(!qbevent)break;evnt(19208);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19208);}while(r);
}
}
}
S_22299:;
if ((*_FUNC_EVALUATE_LONG_F)||is_error_pending()){
if(qbevent){evnt(19212);if(r)goto S_22299;}
S_22300:;
if (((-(*_FUNC_EVALUATE_LONG_F== 2 ))|(-(*_FUNC_EVALUATE_LONG_F== 3 )))||is_error_pending()){
if(qbevent){evnt(19214);if(r)goto S_22300;}
do{
sub_mid(_FUNC_EVALUATE_STRING_NUM,*_FUNC_EVALUATE_LONG_X, 1 ,qbs_new_txt_len("E",1),1);
if(!qbevent)break;evnt(19214);}while(r);
}
S_22303:;
if ((-(*_FUNC_EVALUATE_LONG_F== 3 ))||is_error_pending()){
if(qbevent){evnt(19215);if(r)goto S_22303;}
do{
qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("L",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19215);}while(r);
}
}else{
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=FUNC_TYPNAME2TYP(FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_NUM));
if(!qbevent)break;evnt(19218);}while(r);
S_22308:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19219);if(r)goto S_22308;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19219);}while(r);
}
S_22311:;
if ((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISPOINTER)||is_error_pending()){
if(qbevent){evnt(19220);if(r)goto S_22311;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19220);}while(r);
}
S_22314:;
if ((-((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]& 4095ll )> 32 ))||is_error_pending()){
if(qbevent){evnt(19221);if(r)goto S_22314;}
S_22315:;
if ((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISUNSIGNED)||is_error_pending()){
if(qbevent){evnt(19222);if(r)goto S_22315;}
do{
qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("ull",3)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19222);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("ll",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19222);}while(r);
}
}
}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",1),_FUNC_EVALUATE_STRING_NUM),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19225);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(19226);}while(r);
do{
goto LABEL_EVALEDBLOCK;
if(!qbevent)break;evnt(19227);}while(r);
}
S_22326:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(19285);if(r)goto S_22326;}
S_22327:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 1 ),func_chr( 34 ))))||is_error_pending()){
if(qbevent){evnt(19286);if(r)goto S_22327;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt_len(",16),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19287);}while(r);
}else{
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt(",12),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19289);}while(r);
}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]);
if (!is_error_pending()) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_ISSTRING;
if(!qbevent)break;evnt(19291);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(19292);}while(r);
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(19293);}while(r);
do{
goto LABEL_EVALEDBLOCK;
if(!qbevent)break;evnt(19294);}while(r);
}
S_22337:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))))||is_error_pending()){
if(qbevent){evnt(19298);if(r)goto S_22337;}
do{
qbs_set(_FUNC_EVALUATE_STRING_X,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19299);}while(r);
do{
qbs_set(_FUNC_EVALUATE_STRING_TYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_X));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19301);}while(r);
S_22340:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19302);if(r)goto S_22340;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19302);}while(r);
}
S_22343:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATE_STRING_TYP->len== 0 )))||is_error_pending()){
if(qbevent){evnt(19305);if(r)goto S_22343;}
S_22344:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_STRING_X, 1 ),qbs_new_txt_len("_",1))))||is_error_pending()){
if(qbevent){evnt(19306);if(r)goto S_22344;}
do{
*_FUNC_EVALUATE_LONG_V= 27 ;
if(!qbevent)break;evnt(19306);}while(r);
}else{
do{
*_FUNC_EVALUATE_LONG_V=qbs_asc(qbs_ucase(_FUNC_EVALUATE_STRING_X))- 64 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19306);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_TYP,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_EVALUATE_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19307);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19311);}while(r);
S_22352:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19312);if(r)goto S_22352;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19312);}while(r);
}
S_22355:;
while((*_FUNC_EVALUATE_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(19313);if(r)goto S_22355;}
S_22356:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19314);if(r)goto S_22356;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3271;
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_TRY)), 1, 0, 1);
if (is_error_pending()) goto skip3271;
skip3271:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19314);}while(r);
}
S_22359:;
if (((-(*(int32*)(((char*)__UDT_ID)+((0+540)))!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+((0+540)))&*__LONG_ISUDT)== 0 )))||is_error_pending()){
if(qbevent){evnt(19315);if(r)goto S_22359;}
do{
goto LABEL_SIMPLEVARFOUND;
if(!qbevent)break;evnt(19316);}while(r);
}
S_22362:;
if ((-(*_FUNC_EVALUATE_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(19318);if(r)goto S_22362;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(19318);}while(r);
do{
*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19318);}while(r);
}else{
do{
*_FUNC_EVALUATE_LONG_TRY= 0 ;
if(!qbevent)break;evnt(19318);}while(r);
}
S_22368:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19319);if(r)goto S_22368;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19319);}while(r);
}
dl_continue_3270:;
}
dl_exit_3270:;
S_22372:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19322);if(r)goto S_22372;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3272;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("CREATING VARIABLE:",18),_FUNC_EVALUATE_STRING_X), 0, 0, 1);
if (is_error_pending()) goto skip3272;
skip3272:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19322);}while(r);
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(19323);}while(r);
S_22376:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(_FUNC_EVALUATE_STRING_X)== 0 )))||is_error_pending()){
if(qbevent){evnt(19324);if(r)goto S_22376;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid variable name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19324);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19324);}while(r);
}
S_22380:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + ((0+0)) )))||is_error_pending()){
if(qbevent){evnt(19325);if(r)goto S_22380;}
do{
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Variable '",10),_FUNC_EVALUATE_STRING_X),qbs_new_txt_len("' (",3)),FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_TYP)),qbs_new_txt_len(") not defined",13)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19325);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19325);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_RETVAL=FUNC_DIM2(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP,&(pass3273= 1 ),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19326);}while(r);
do{
SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),__STRING_VWATCHNEWVARIABLE,&(pass3274= 0 ),&(pass3275= 3 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19327);}while(r);
S_22386:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19328);if(r)goto S_22386;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19328);}while(r);
}
LABEL_SIMPLEVARFOUND:;
if(qbevent){evnt(19330);r=0;}
do{
*__INTEGER_CONSTEQUATION= 0 ;
if(!qbevent)break;evnt(19331);}while(r);
do{
SUB_MAKEIDREFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19332);}while(r);
S_22391:;
if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(19333);if(r)goto S_22391;}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(19333);}while(r);
}
S_22394:;
if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||is_error_pending()){
if(qbevent){evnt(19334);if(r)goto S_22394;}
S_22395:;
if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(19335);if(r)goto S_22395;}
do{
goto LABEL_RETURNPOINTER;
if(!qbevent)break;evnt(19335);}while(r);
}
}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_REFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])),&(pass3276= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19338);}while(r);
S_22400:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19338);if(r)goto S_22400;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19338);}while(r);
}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]);
if (!is_error_pending()) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ;
if(!qbevent)break;evnt(19339);}while(r);
do{
goto LABEL_EVALEDBLOCK;
if(!qbevent)break;evnt(19340);}while(r);
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid expression",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19342);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19342);}while(r);
}else{
S_22409:;
if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(19345);if(r)goto S_22409;}
S_22410:;
if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||is_error_pending()){
if(qbevent){evnt(19346);if(r)goto S_22410;}
do{
goto LABEL_RETURNPOINTER;
if(!qbevent)break;evnt(19346);}while(r);
}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_REFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])),&(pass3277= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19350);}while(r);
S_22414:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(19351);if(r)goto S_22414;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19351);}while(r);
}
}
}
}
LABEL_EVALEDBLOCK:;
if(qbevent){evnt(19357);r=0;}
fornext_continue_3267:;
}
fornext_exit_3267:;
S_22421:;
if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||is_error_pending()){
if(qbevent){evnt(19362);if(r)goto S_22421;}
S_22422:;
if ((((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])])||is_error_pending()){
if(qbevent){evnt(19363);if(r)goto S_22422;}
S_22423:;
if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||is_error_pending()){
if(qbevent){evnt(19364);if(r)goto S_22423;}
LABEL_RETURNPOINTER:;
if(qbevent){evnt(19365);r=0;}
S_22424:;
if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(19366);if(r)goto S_22424;}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(19366);}while(r);
}
S_22427:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19367);if(r)goto S_22427;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3278;
sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("evaluated reference:",20),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))), 0, 0, 1);
if (is_error_pending()) goto skip3278;
skip3278:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19367);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])];
if(!qbevent)break;evnt(19368);}while(r);
do{
qbs_set(_FUNC_EVALUATE_STRING_EVALUATE,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19369);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19370);}while(r);
}
}
}
S_22436:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19383);if(r)goto S_22436;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3279;
sub_file_print(tmp_fileno,qbs_new_txt_len("applying operators:",19), 0, 0, 0);
if (is_error_pending()) goto skip3279;
skip3279:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19383);}while(r);
}
S_22439:;
if ((-(*_FUNC_EVALUATE_LONG_TYP== -1 ))||is_error_pending()){
if(qbevent){evnt(19386);if(r)goto S_22439;}
do{
*_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])];
if(!qbevent)break;evnt(19387);}while(r);
S_22441:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))))||is_error_pending()){
if(qbevent){evnt(19390);if(r)goto S_22441;}
do{
*_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])];
if(!qbevent)break;evnt(19391);}while(r);
}
}
do{
*_FUNC_EVALUATE_LONG_NONOP= 0 ;
if(!qbevent)break;evnt(19395);}while(r);
S_22446:;
fornext_value3281= 1 ;
fornext_finalvalue3281=*_FUNC_EVALUATE_LONG_BLOCKN;
fornext_step3281= 1 ;
if (fornext_step3281<0) fornext_step_negative3281=1; else fornext_step_negative3281=0;
if (is_error_pending()) goto fornext_error3281;
goto fornext_entrylabel3281;
while(1){
fornext_value3281=fornext_step3281+(*_FUNC_EVALUATE_LONG_I);
fornext_entrylabel3281:
*_FUNC_EVALUATE_LONG_I=fornext_value3281;
if (fornext_step_negative3281){
if (fornext_value3281<fornext_finalvalue3281) break;
}else{
if (fornext_value3281>fornext_finalvalue3281) break;
}
fornext_error3281:;
if(qbevent){evnt(19396);if(r)goto S_22446;}
S_22447:;
if ((-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(19398);if(r)goto S_22447;}
do{
*_FUNC_EVALUATE_LONG_ISOP=FUNC_ISOPERATOR(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19399);}while(r);
S_22449:;
if ((*_FUNC_EVALUATE_LONG_ISOP)||is_error_pending()){
if(qbevent){evnt(19400);if(r)goto S_22449;}
do{
*_FUNC_EVALUATE_LONG_NONOP= 0 ;
if(!qbevent)break;evnt(19401);}while(r);
do{
*__INTEGER_CONSTEQUATION= 0 ;
if(!qbevent)break;evnt(19403);}while(r);
do{
qbs_set(_FUNC_EVALUATE_STRING_O,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19406);}while(r);
do{
*_FUNC_EVALUATE_LONG_U=FUNC_OPERATORUSAGE(_FUNC_EVALUATE_STRING_O,_FUNC_EVALUATE_LONG_TYP,_FUNC_EVALUATE_STRING_I,_FUNC_EVALUATE_LONG_LHSTYP,_FUNC_EVALUATE_LONG_RHSTYP,_FUNC_EVALUATE_LONG_RESULT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19407);}while(r);
S_22454:;
if (((-(*_FUNC_EVALUATE_LONG_U!= 5 ))&(-(*_FUNC_EVALUATE_LONG_U!= 6 )))||is_error_pending()){
if(qbevent){evnt(19409);if(r)goto S_22454;}
do{
*_FUNC_EVALUATE_LONG_NONOP= 1 ;
if(!qbevent)break;evnt(19410);}while(r);
S_22456:;
if (((-(*_FUNC_EVALUATE_LONG_I== 1 ))|(-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(19411);if(r)goto S_22456;}
S_22457:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALUATE_LONG_I== 1 ))&(-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))&(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("-",1)))))||is_error_pending()){
if(qbevent){evnt(19412);if(r)goto S_22457;}
do{
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19412);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19412);}while(r);
}
do{
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value before '",32),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19413);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19413);}while(r);
}
}
S_22465:;
if (((-(*_FUNC_EVALUATE_LONG_I==*_FUNC_EVALUATE_LONG_BLOCKN))|(-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 )))||is_error_pending()){
if(qbevent){evnt(19416);if(r)goto S_22465;}
do{
SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19416);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19416);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_OLDTYP=*_FUNC_EVALUATE_LONG_TYP;
if(!qbevent)break;evnt(19424);}while(r);
do{
*_FUNC_EVALUATE_LONG_NEWTYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])];
if(!qbevent)break;evnt(19425);}while(r);
S_22471:;
if (((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING)== 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING)!= 0 )))||is_error_pending()){
if(qbevent){evnt(19437);if(r)goto S_22471;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19438);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19438);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_OFFSETMODE= 0 ;
if(!qbevent)break;evnt(19442);}while(r);
do{
*_FUNC_EVALUATE_LONG_OFFSETCVI= 0 ;
if(!qbevent)break;evnt(19443);}while(r);
S_22477:;
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISOFFSET)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISOFFSET)!= 0 )))||is_error_pending()){
if(qbevent){evnt(19444);if(r)goto S_22477;}
do{
*_FUNC_EVALUATE_LONG_OFFSETMODE= 2 ;
if(!qbevent)break;evnt(19445);}while(r);
S_22479:;
if ((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(19446);if(r)goto S_22479;}
S_22480:;
if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISUNSIGNED)== 0 ))||is_error_pending()){
if(qbevent){evnt(19447);if(r)goto S_22480;}
do{
*_FUNC_EVALUATE_LONG_OFFSETMODE= 1 ;
if(!qbevent)break;evnt(19447);}while(r);
}
}
S_22484:;
if ((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(19449);if(r)goto S_22484;}
S_22485:;
if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISUNSIGNED)== 0 ))||is_error_pending()){
if(qbevent){evnt(19450);if(r)goto S_22485;}
do{
*_FUNC_EVALUATE_LONG_OFFSETMODE= 1 ;
if(!qbevent)break;evnt(19450);}while(r);
}
}
S_22489:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("*",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("/",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||is_error_pending()){
if(qbevent){evnt(19456);if(r)goto S_22489;}
S_22490:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("*",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||is_error_pending()){
if(qbevent){evnt(19457);if(r)goto S_22490;}
S_22491:;
if (((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(19459);if(r)goto S_22491;}
do{
*_FUNC_EVALUATE_LONG_OFFSETCVI= 1 ;
if(!qbevent)break;evnt(19460);}while(r);
S_22493:;
if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(19461);if(r)goto S_22493;}
do{
*_FUNC_EVALUATE_LONG_LHSTYP= 2 ;
if(!qbevent)break;evnt(19461);}while(r);
}
S_22496:;
if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(19462);if(r)goto S_22496;}
do{
*_FUNC_EVALUATE_LONG_RHSTYP= 2 ;
if(!qbevent)break;evnt(19462);}while(r);
}
}
}
S_22501:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("/",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||is_error_pending()){
if(qbevent){evnt(19465);if(r)goto S_22501;}
do{
*_FUNC_EVALUATE_LONG_OFFSETCVI= 1 ;
if(!qbevent)break;evnt(19467);}while(r);
S_22503:;
if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(19468);if(r)goto S_22503;}
do{
*_FUNC_EVALUATE_LONG_LHSTYP= 2 ;
if(!qbevent)break;evnt(19468);}while(r);
}
S_22506:;
if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(19469);if(r)goto S_22506;}
do{
*_FUNC_EVALUATE_LONG_RHSTYP= 2 ;
if(!qbevent)break;evnt(19469);}while(r);
}
}
}else{
S_22511:;
if ((*_FUNC_EVALUATE_LONG_LHSTYP& 2 )||is_error_pending()){
if(qbevent){evnt(19472);if(r)goto S_22511;}
do{
*_FUNC_EVALUATE_LONG_LHSTYP= 1 ;
if(!qbevent)break;evnt(19472);}while(r);
}
S_22514:;
if ((*_FUNC_EVALUATE_LONG_RHSTYP& 2 )||is_error_pending()){
if(qbevent){evnt(19473);if(r)goto S_22514;}
do{
*_FUNC_EVALUATE_LONG_RHSTYP= 1 ;
if(!qbevent)break;evnt(19473);}while(r);
}
}
S_22518:;
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 2 ))||is_error_pending()){
if(qbevent){evnt(19476);if(r)goto S_22518;}
do{
*_FUNC_EVALUATE_LONG_RESULT= 1 ;
if(!qbevent)break;evnt(19476);}while(r);
}
}
S_22522:;
if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(19483);if(r)goto S_22522;}
S_22523:;
if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 4 )== 0 ))||is_error_pending()){
if(qbevent){evnt(19484);if(r)goto S_22523;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert string to number",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19484);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19484);}while(r);
}
}else{
S_22528:;
if ((-(*_FUNC_EVALUATE_LONG_LHSTYP== 4 ))||is_error_pending()){
if(qbevent){evnt(19487);if(r)goto S_22528;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19487);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19487);}while(r);
}
S_22532:;
if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(19488);if(r)goto S_22532;}
S_22533:;
if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 2 )== 0 ))||is_error_pending()){
if(qbevent){evnt(19489);if(r)goto S_22533;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19491);}while(r);
do{
*_FUNC_EVALUATE_LONG_OLDTYP= 64 ;
if(!qbevent)break;evnt(19492);}while(r);
}
}else{
S_22538:;
if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 1 )== 0 ))||is_error_pending()){
if(qbevent){evnt(19496);if(r)goto S_22538;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((long double)(",15),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19498);}while(r);
do{
*_FUNC_EVALUATE_LONG_OLDTYP= 256 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(19499);}while(r);
}
}
}
S_22544:;
if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(19504);if(r)goto S_22544;}
S_22545:;
if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 4 )== 0 ))||is_error_pending()){
if(qbevent){evnt(19505);if(r)goto S_22545;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert string to number",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19505);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19505);}while(r);
}
}else{
S_22550:;
if ((-(*_FUNC_EVALUATE_LONG_RHSTYP== 4 ))||is_error_pending()){
if(qbevent){evnt(19508);if(r)goto S_22550;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19508);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19508);}while(r);
}
S_22554:;
if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(19509);if(r)goto S_22554;}
S_22555:;
if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 2 )== 0 ))||is_error_pending()){
if(qbevent){evnt(19510);if(r)goto S_22555;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19512);}while(r);
do{
*_FUNC_EVALUATE_LONG_NEWTYP= 64 ;
if(!qbevent)break;evnt(19513);}while(r);
}
}else{
S_22560:;
if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 1 )== 0 ))||is_error_pending()){
if(qbevent){evnt(19517);if(r)goto S_22560;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((long double)(",15),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19519);}while(r);
do{
*_FUNC_EVALUATE_LONG_NEWTYP= 256 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(19520);}while(r);
}
}
}
S_22566:;
if ((-(*_FUNC_EVALUATE_LONG_ISOP== 10 ))||is_error_pending()){
if(qbevent){evnt(19526);if(r)goto S_22566;}
S_22567:;
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(19536);if(r)goto S_22567;}
do{
*_FUNC_EVALUATE_LONG_S1=*_FUNC_EVALUATE_LONG_OLDTYP& 4095ll ;
if(!qbevent)break;evnt(19537);}while(r);
do{
*_FUNC_EVALUATE_LONG_S2=*_FUNC_EVALUATE_LONG_NEWTYP& 4095ll ;
if(!qbevent)break;evnt(19537);}while(r);
S_22570:;
if ((-(*_FUNC_EVALUATE_LONG_S2<*_FUNC_EVALUATE_LONG_S1))||is_error_pending()){
if(qbevent){evnt(19538);if(r)goto S_22570;}
do{
*_FUNC_EVALUATE_LONG_S1=*_FUNC_EVALUATE_LONG_S2;
if(!qbevent)break;evnt(19538);}while(r);
}
S_22573:;
if ((-(*_FUNC_EVALUATE_LONG_S1== 32 ))||is_error_pending()){
if(qbevent){evnt(19539);if(r)goto S_22573;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((float)(",9),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19540);}while(r);
do{
*_FUNC_EVALUATE_LONG_OLDTYP= 32 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(19540);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((float)(",9),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19541);}while(r);
do{
*_FUNC_EVALUATE_LONG_NEWTYP= 32 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(19541);}while(r);
}
S_22579:;
if ((-(*_FUNC_EVALUATE_LONG_S1== 64 ))||is_error_pending()){
if(qbevent){evnt(19543);if(r)goto S_22579;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19544);}while(r);
do{
*_FUNC_EVALUATE_LONG_OLDTYP= 64 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(19544);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19545);}while(r);
do{
*_FUNC_EVALUATE_LONG_NEWTYP= 64 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(19545);}while(r);
}
}
}
do{
*_FUNC_EVALUATE_LONG_TYP=*_FUNC_EVALUATE_LONG_NEWTYP;
if(!qbevent)break;evnt(19550);}while(r);
S_22588:;
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISSTRING)== 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
if(qbevent){evnt(19557);if(r)goto S_22588;}
S_22589:;
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(19558);if(r)goto S_22589;}
do{
*_FUNC_EVALUATE_LONG_B= 0 ;
if(!qbevent)break;evnt(19560);}while(r);
S_22591:;
if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(19560);if(r)goto S_22591;}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 4095ll ;
if(!qbevent)break;evnt(19560);}while(r);
}
S_22594:;
if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(19561);if(r)goto S_22594;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 4095ll ;
if(!qbevent)break;evnt(19562);}while(r);
S_22596:;
if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||is_error_pending()){
if(qbevent){evnt(19562);if(r)goto S_22596;}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2;
if(!qbevent)break;evnt(19562);}while(r);
}
}
do{
*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+*_FUNC_EVALUATE_LONG_B;
if(!qbevent)break;evnt(19564);}while(r);
}else{
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 4095ll ;
if(!qbevent)break;evnt(19569);}while(r);
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 4095ll ;
if(!qbevent)break;evnt(19569);}while(r);
S_22604:;
if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||is_error_pending()){
if(qbevent){evnt(19569);if(r)goto S_22604;}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2;
if(!qbevent)break;evnt(19569);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_TYP= 64 ;
if(!qbevent)break;evnt(19570);}while(r);
S_22608:;
if ((-(*_FUNC_EVALUATE_LONG_B== 64 ))||is_error_pending()){
if(qbevent){evnt(19571);if(r)goto S_22608;}
S_22609:;
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISUNSIGNED)!= 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISUNSIGNED)!= 0 )))||is_error_pending()){
if(qbevent){evnt(19572);if(r)goto S_22609;}
do{
*_FUNC_EVALUATE_LONG_TYP= 64 +*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(19572);}while(r);
}
}
}
}
S_22615:;
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 1 ))||is_error_pending()){
if(qbevent){evnt(19577);if(r)goto S_22615;}
S_22616:;
if (((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING)!= 0 )))||is_error_pending()){
if(qbevent){evnt(19578);if(r)goto S_22616;}
do{
*_FUNC_EVALUATE_LONG_TYP= 64 ;
if(!qbevent)break;evnt(19578);}while(r);
}
}
S_22620:;
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 2 ))||is_error_pending()){
if(qbevent){evnt(19580);if(r)goto S_22620;}
S_22621:;
if ((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(19581);if(r)goto S_22621;}
do{
*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+ 256 ;
if(!qbevent)break;evnt(19581);}while(r);
}
}
S_22625:;
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 4 ))||is_error_pending()){
if(qbevent){evnt(19583);if(r)goto S_22625;}
do{
*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISSTRING;
if(!qbevent)break;evnt(19584);}while(r);
}
S_22628:;
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 8 ))||is_error_pending()){
if(qbevent){evnt(19586);if(r)goto S_22628;}
do{
*_FUNC_EVALUATE_LONG_TYP= 32 ;
if(!qbevent)break;evnt(19587);}while(r);
}
S_22631:;
if ((*_FUNC_EVALUATE_LONG_OFFSETMODE)||is_error_pending()){
if(qbevent){evnt(19591);if(r)goto S_22631;}
S_22632:;
if ((-(*_FUNC_EVALUATE_LONG_RESULT!= 8 ))||is_error_pending()){
if(qbevent){evnt(19592);if(r)goto S_22632;}
do{
*_FUNC_EVALUATE_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(19593);}while(r);
S_22634:;
if ((-(*_FUNC_EVALUATE_LONG_OFFSETMODE== 2 ))||is_error_pending()){
if(qbevent){evnt(19593);if(r)goto S_22634;}
do{
*_FUNC_EVALUATE_LONG_TYP=*_FUNC_EVALUATE_LONG_TYP+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(19593);}while(r);
}
}
}
S_22639:;
if ((-(*_FUNC_EVALUATE_LONG_U== 2 ))||is_error_pending()){
if(qbevent){evnt(19598);if(r)goto S_22639;}
S_22640:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("pow2",4))))||is_error_pending()){
if(qbevent){evnt(19599);if(r)goto S_22640;}
S_22641:;
if ((*_FUNC_EVALUATE_LONG_OFFSETMODE)||is_error_pending()){
if(qbevent){evnt(19601);if(r)goto S_22641;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Operator '^' cannot be used with an _OFFSET",43));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19601);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19601);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 4095ll ;
if(!qbevent)break;evnt(19605);}while(r);
S_22646:;
if ((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(19606);if(r)goto S_22646;}
}else{
S_22648:;
if ((-(*_FUNC_EVALUATE_LONG_B> 16 ))||is_error_pending()){
if(qbevent){evnt(19609);if(r)goto S_22648;}
do{
*_FUNC_EVALUATE_LONG_B= 64 ;
if(!qbevent)break;evnt(19609);}while(r);
}
S_22651:;
if ((-(*_FUNC_EVALUATE_LONG_B> 32 ))||is_error_pending()){
if(qbevent){evnt(19610);if(r)goto S_22651;}
do{
*_FUNC_EVALUATE_LONG_B= 256 ;
if(!qbevent)break;evnt(19610);}while(r);
}
S_22654:;
if ((-(*_FUNC_EVALUATE_LONG_B<= 16 ))||is_error_pending()){
if(qbevent){evnt(19611);if(r)goto S_22654;}
do{
*_FUNC_EVALUATE_LONG_B= 32 ;
if(!qbevent)break;evnt(19611);}while(r);
}
}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 4095ll ;
if(!qbevent)break;evnt(19613);}while(r);
S_22659:;
if ((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(19614);if(r)goto S_22659;}
S_22660:;
if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||is_error_pending()){
if(qbevent){evnt(19615);if(r)goto S_22660;}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2;
if(!qbevent)break;evnt(19615);}while(r);
}
}else{
do{
*_FUNC_EVALUATE_LONG_B3= 32 ;
if(!qbevent)break;evnt(19617);}while(r);
S_22665:;
if ((-(*_FUNC_EVALUATE_LONG_B2> 16 ))||is_error_pending()){
if(qbevent){evnt(19618);if(r)goto S_22665;}
do{
*_FUNC_EVALUATE_LONG_B3= 64 ;
if(!qbevent)break;evnt(19618);}while(r);
}
S_22668:;
if ((-(*_FUNC_EVALUATE_LONG_B2> 32 ))||is_error_pending()){
if(qbevent){evnt(19619);if(r)goto S_22668;}
do{
*_FUNC_EVALUATE_LONG_B3= 256 ;
if(!qbevent)break;evnt(19619);}while(r);
}
S_22671:;
if ((-(*_FUNC_EVALUATE_LONG_B3>*_FUNC_EVALUATE_LONG_B))||is_error_pending()){
if(qbevent){evnt(19620);if(r)goto S_22671;}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B3;
if(!qbevent)break;evnt(19620);}while(r);
}
}
do{
*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+*_FUNC_EVALUATE_LONG_B;
if(!qbevent)break;evnt(19622);}while(r);
}
}
S_22678:;
if ((-(*_FUNC_EVALUATE_LONG_U== 6 ))||is_error_pending()){
if(qbevent){evnt(19629);if(r)goto S_22678;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("-(",2),_FUNC_EVALUATE_STRING_I),qbs_new_txt_len("(",1)),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1)),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19630);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19631);}while(r);
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(19631);}while(r);
do{
goto LABEL_OPERATORAPPLIED;
if(!qbevent)break;evnt(19631);}while(r);
}
S_22684:;
if ((-(*_FUNC_EVALUATE_LONG_U== 5 ))||is_error_pending()){
if(qbevent){evnt(19634);if(r)goto S_22684;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("(",1)),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19635);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19636);}while(r);
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(19636);}while(r);
do{
goto LABEL_OPERATORAPPLIED;
if(!qbevent)break;evnt(19636);}while(r);
}
S_22690:;
if ((-(*_FUNC_EVALUATE_LONG_U== 1 ))||is_error_pending()){
if(qbevent){evnt(19641);if(r)goto S_22690;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),_FUNC_EVALUATE_STRING_I),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19642);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19643);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19643);}while(r);
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(19643);}while(r);
do{
goto LABEL_OPERATORAPPLIED;
if(!qbevent)break;evnt(19643);}while(r);
}
S_22697:;
if ((-(*_FUNC_EVALUATE_LONG_U== 2 ))||is_error_pending()){
if(qbevent){evnt(19646);if(r)goto S_22697;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("(",1)),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(",",1)),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19647);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19648);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19648);}while(r);
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(19648);}while(r);
do{
goto LABEL_OPERATORAPPLIED;
if(!qbevent)break;evnt(19648);}while(r);
}
S_22704:;
if ((-(*_FUNC_EVALUATE_LONG_U== 3 ))||is_error_pending()){
if(qbevent){evnt(19651);if(r)goto S_22704;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("-(",2),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),_FUNC_EVALUATE_STRING_I),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19652);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19653);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19653);}while(r);
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(19653);}while(r);
do{
goto LABEL_OPERATORAPPLIED;
if(!qbevent)break;evnt(19653);}while(r);
}
S_22711:;
if ((-(*_FUNC_EVALUATE_LONG_U== 4 ))||is_error_pending()){
if(qbevent){evnt(19656);if(r)goto S_22711;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),_FUNC_EVALUATE_STRING_I),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19657);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19658);}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19658);}while(r);
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(19658);}while(r);
do{
goto LABEL_OPERATORAPPLIED;
if(!qbevent)break;evnt(19658);}while(r);
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("ERROR: Operator could not be applied correctly!",47));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19663);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19663);}while(r);
LABEL_OPERATORAPPLIED:;
if(qbevent){evnt(19664);r=0;}
S_22720:;
if ((*_FUNC_EVALUATE_LONG_OFFSETCVI)||is_error_pending()){
if(qbevent){evnt(19666);if(r)goto S_22720;}
do{
tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19666);}while(r);
do{
*_FUNC_EVALUATE_LONG_OFFSETCVI= 0 ;
if(!qbevent)break;evnt(19666);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_OFFSETMODE= 0 ;
if(!qbevent)break;evnt(19667);}while(r);
}else{
do{
*_FUNC_EVALUATE_LONG_NONOP=*_FUNC_EVALUATE_LONG_NONOP+ 1 ;
if(!qbevent)break;evnt(19670);}while(r);
}
}else{
do{
*_FUNC_EVALUATE_LONG_NONOP=*_FUNC_EVALUATE_LONG_NONOP+ 1 ;
if(!qbevent)break;evnt(19673);}while(r);
}
S_22731:;
if ((-(*_FUNC_EVALUATE_LONG_NONOP> 1 ))||is_error_pending()){
if(qbevent){evnt(19675);if(r)goto S_22731;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected operator in equation",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19675);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(19675);}while(r);
}
fornext_continue_3280:;
}
fornext_exit_3280:;
S_22736:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19677);if(r)goto S_22736;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3282;
sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0, 0, 1);
if (is_error_pending()) goto skip3282;
skip3282:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19677);}while(r);
}
S_22739:;
fornext_value3284= 1 ;
fornext_finalvalue3284=*_FUNC_EVALUATE_LONG_BLOCKN;
fornext_step3284= 1 ;
if (fornext_step3284<0) fornext_step_negative3284=1; else fornext_step_negative3284=0;
if (is_error_pending()) goto fornext_error3284;
goto fornext_entrylabel3284;
while(1){
fornext_value3284=fornext_step3284+(*_FUNC_EVALUATE_LONG_I);
fornext_entrylabel3284:
*_FUNC_EVALUATE_LONG_I=fornext_value3284;
if (fornext_step_negative3284){
if (fornext_value3284<fornext_finalvalue3284) break;
}else{
if (fornext_value3284>fornext_finalvalue3284) break;
}
fornext_error3284:;
if(qbevent){evnt(19680);if(r)goto S_22739;}
do{
qbs_set(_FUNC_EVALUATE_STRING_R,qbs_add(_FUNC_EVALUATE_STRING_R,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19681);}while(r);
fornext_continue_3283:;
}
fornext_exit_3283:;
S_22742:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(19684);if(r)goto S_22742;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3285;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluated:",10),_FUNC_EVALUATE_STRING_R),qbs_new_txt_len(" AS TYPE:",9)), 0, 0, 0);
if (is_error_pending()) goto skip3285;
skip3285:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19685);}while(r);
S_22744:;
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(19686);if(r)goto S_22744;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3286;
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISSTRING]",10), 0, 0, 0);
if (is_error_pending()) goto skip3286;
skip3286:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19686);}while(r);
}
S_22747:;
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(19687);if(r)goto S_22747;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3287;
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISFLOAT]",9), 0, 0, 0);
if (is_error_pending()) goto skip3287;
skip3287:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19687);}while(r);
}
S_22750:;
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(19688);if(r)goto S_22750;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3288;
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISUNSIGNED]",12), 0, 0, 0);
if (is_error_pending()) goto skip3288;
skip3288:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19688);}while(r);
}
S_22753:;
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(19689);if(r)goto S_22753;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3289;
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISPOINTER]",11), 0, 0, 0);
if (is_error_pending()) goto skip3289;
skip3289:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19689);}while(r);
}
S_22756:;
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(19690);if(r)goto S_22756;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3290;
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISFIXEDLENGTH]",15), 0, 0, 0);
if (is_error_pending()) goto skip3290;
skip3290:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19690);}while(r);
}
S_22759:;
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISINCONVENTIONALMEMORY))||is_error_pending()){
if(qbevent){evnt(19691);if(r)goto S_22759;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3291;
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISINCONVENTIONALMEMORY]",24), 0, 0, 0);
if (is_error_pending()) goto skip3291;
skip3291:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19691);}while(r);
}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip3292;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(size in bits=",14),qbs__tostr((int64)(*_FUNC_EVALUATE_LONG_TYP& 4095ll ),NULL,0)),qbs_new_txt_len(")",1)), 0, 0, 1);
if (is_error_pending()) goto skip3292;
skip3292:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(19692);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_EVALUATE,_FUNC_EVALUATE_STRING_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(19696);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free54.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;
qbs_maketmp(_FUNC_EVALUATE_STRING_EVALUATE);return _FUNC_EVALUATE_STRING_EVALUATE;
}
