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 "data20.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{

if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&2){
error(10);
}else{
if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&1){
if (!error_occurred) error(10);
}else{
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4]= 0 ;
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]=( 1000 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4]+1;
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[6]=1;
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]=(ptrszint)malloc(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]*8);
if (!_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]) error(257);
_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]|=1;
tmp_long=_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5];
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);
}
}
}
if(!qbevent)break;evnt(15784);}while(r);
do{

if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&2){
error(10);
}else{
if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&1){
if (!error_occurred) error(10);
}else{
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4]= 0 ;
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]=( 1000 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4]+1;
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[6]=1;
if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&4){
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]*2);
memset((void*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]),0,_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]*2);
}else{
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]=(ptrszint)calloc(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]*2,1);
if (!_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]) error(257);
}
_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]|=1;
}
}
if(!qbevent)break;evnt(15785);}while(r);
do{

if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&2){
error(10);
}else{
if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&1){
if (!error_occurred) error(10);
}else{
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4]= 0 ;
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]=( 1000 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4]+1;
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[6]=1;
if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&4){
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]=(ptrszint)cmem_dynamic_malloc(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]*4);
memset((void*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]),0,_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]*4);
}else{
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]=(ptrszint)calloc(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]*4,1);
if (!_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]) error(257);
}
_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]|=1;
}
}
if(!qbevent)break;evnt(15786);}while(r);
do{
qbs_set(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15789);}while(r);
do{
*_FUNC_EVALUATE_LONG_TYP= -1 ;
if(!qbevent)break;evnt(15790);}while(r);
S_18767:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(15792);if(r)goto S_18767;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2678;
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 skip2678;
skip2678:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(15792);}while(r);
}
S_18770:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_A2,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(15793);if(r)goto S_18770;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Syntax error",12));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15793);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15793);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_BLOCKN= 0 ;
if(!qbevent)break;evnt(15802);}while(r);
do{
*_FUNC_EVALUATE_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATE_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15803);}while(r);
do{
*_FUNC_EVALUATE_LONG_B= 0 ;
if(!qbevent)break;evnt(15804);}while(r);
S_18777:;
fornext_value2680= 1 ;
fornext_finalvalue2680=*_FUNC_EVALUATE_LONG_N;
fornext_step2680= 1 ;
if (fornext_step2680<0) fornext_step_negative2680=1; else fornext_step_negative2680=0;
if (is_error_pending()) goto fornext_error2680;
goto fornext_entrylabel2680;
while(1){
fornext_value2680=fornext_step2680+(*_FUNC_EVALUATE_LONG_I);
fornext_entrylabel2680:
*_FUNC_EVALUATE_LONG_I=fornext_value2680;
if (fornext_step_negative2680){
if (fornext_value2680<fornext_finalvalue2680) break;
}else{
if (fornext_value2680>fornext_finalvalue2680) break;
}
fornext_error2680:;
if(qbevent){evnt(15805);if(r)goto S_18777;}
LABEL_REEVALUATE:;
if(qbevent){evnt(15807);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(15812);}while(r);
S_18779:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(15815);if(r)goto S_18779;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2681;
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 skip2681;
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_I)), 1, 0, 1);
if (is_error_pending()) goto skip2681;
skip2681:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(15815);}while(r);
}
S_18782:;
if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_N))||is_error_pending()){
if(qbevent){evnt(15818);if(r)goto S_18782;}
do{
qbs_set(_FUNC_EVALUATE_STRING_NEXTL,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2682=*_FUNC_EVALUATE_LONG_I+ 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15818);}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(15818);}while(r);
}
S_18787:;
if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(15822);if(r)goto S_18787;}
S_18788:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(15824);if(r)goto S_18788;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2683;
sub_file_print(tmp_fileno,_FUNC_EVALUATE_STRING_L, 0, 0, 1);
if (is_error_pending()) goto skip2683;
skip2683:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(15824);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_L2,_FUNC_EVALUATE_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15826);}while(r);
S_18792:;
fornext_value2685= 1 ;
fornext_finalvalue2685= 4 ;
fornext_step2685= 1 ;
if (fornext_step2685<0) fornext_step_negative2685=1; else fornext_step_negative2685=0;
if (is_error_pending()) goto fornext_error2685;
goto fornext_entrylabel2685;
while(1){
fornext_value2685=fornext_step2685+(*_FUNC_EVALUATE_LONG_TRY_METHOD);
fornext_entrylabel2685:
*_FUNC_EVALUATE_LONG_TRY_METHOD=fornext_value2685;
if (fornext_step_negative2685){
if (fornext_value2685<fornext_finalvalue2685) break;
}else{
if (fornext_value2685>fornext_finalvalue2685) break;
}
fornext_error2685:;
if(qbevent){evnt(15827);if(r)goto S_18792;}
do{
qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15828);}while(r);
S_18794:;
if (((-(*_FUNC_EVALUATE_LONG_TRY_METHOD== 2 ))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD== 4 )))||is_error_pending()){
if(qbevent){evnt(15829);if(r)goto S_18794;}
S_18795:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15830);if(r)goto S_18795;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15830);}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(15831);}while(r);
S_18799:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15831);if(r)goto S_18799;}
do{
qbs_set(_FUNC_EVALUATE_STRING_DTYP,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15831);}while(r);
do{
*__LONG_ERROR_HAPPENED= 0 ;
if(!qbevent)break;evnt(15831);}while(r);
}
S_18803:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATE_STRING_DTYP->len== 0 )))||is_error_pending()){
if(qbevent){evnt(15832);if(r)goto S_18803;}
S_18804:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_L)== 0 )))||is_error_pending()){
if(qbevent){evnt(15833);if(r)goto S_18804;}
S_18805:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_EVALUATE_STRING_L)))||is_error_pending()){
if(qbevent){evnt(15834);if(r)goto S_18805;}
S_18806:;
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(15835);if(r)goto S_18806;}
do{
*_FUNC_EVALUATE_LONG_V= 27 ;
if(!qbevent)break;evnt(15835);}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(15835);}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(15836);}while(r);
}
}
}else{
do{
qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15840);}while(r);
}
}
do{
*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(_FUNC_EVALUATE_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15843);}while(r);
S_18819:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15844);if(r)goto S_18819;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15844);}while(r);
}
S_18822:;
while((*_FUNC_EVALUATE_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(15845);if(r)goto S_18822;}
S_18823:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(15847);if(r)goto S_18823;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2688;
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_TRY)), 1, 0, 1);
if (is_error_pending()) goto skip2688;
skip2688:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(15847);}while(r);
}
S_18826:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_NEXTL,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(15850);if(r)goto S_18826;}
S_18827:;
if ((*(int32*)(((char*)__UDT_ID)+(512)))||is_error_pending()){
if(qbevent){evnt(15851);if(r)goto S_18827;}
S_18828:;
if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||is_error_pending()){
if(qbevent){evnt(15852);if(r)goto S_18828;}
do{
*_FUNC_EVALUATE_LONG_ARRAYID=*__LONG_CURRENTID;
if(!qbevent)break;evnt(15853);}while(r);
do{
*__INTEGER_CONSTEQUATION= 0 ;
if(!qbevent)break;evnt(15854);}while(r);
do{
*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I+ 2 ;
if(!qbevent)break;evnt(15855);}while(r);
do{
*_FUNC_EVALUATE_LONG_B2= 0 ;
if(!qbevent)break;evnt(15856);}while(r);
LABEL_EVALNEXTELE3:;
if(qbevent){evnt(15857);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(15858);}while(r);
S_18834:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(15859);if(r)goto S_18834;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ;
if(!qbevent)break;evnt(15859);}while(r);
}
S_18837:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(15860);if(r)goto S_18837;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ;
if(!qbevent)break;evnt(15861);}while(r);
S_18839:;
if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||is_error_pending()){
if(qbevent){evnt(15862);if(r)goto S_18839;}
do{
qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_ARRAYREFERENCE(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass2689=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass2690=*_FUNC_EVALUATE_LONG_I2- 1 )),_FUNC_EVALUATE_LONG_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15863);}while(r);
S_18841:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15864);if(r)goto S_18841;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15864);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I2;
if(!qbevent)break;evnt(15865);}while(r);
S_18845:;
if ((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(15868);if(r)goto S_18845;}
do{
SUB_GETID(_FUNC_EVALUATE_LONG_ARRAYID);
if(!qbevent)break;evnt(15870);}while(r);
S_18847:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15871);if(r)goto S_18847;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15871);}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(15872);}while(r);
do{
*_FUNC_EVALUATE_LONG_U=*_FUNC_EVALUATE_LONG_TYP2& 511 ;
if(!qbevent)break;evnt(15874);}while(r);
do{
*_FUNC_EVALUATE_LONG_S=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATE_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/  8 ;
if(!qbevent)break;evnt(15875);}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(15876);}while(r);
do{
goto LABEL_EVALUDT;
if(!qbevent)break;evnt(15878);}while(r);
}
do{
goto LABEL_EVALEDNEXTELE3;
if(!qbevent)break;evnt(15881);}while(r);
}
}
do{
*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I2+ 1 ;
if(!qbevent)break;evnt(15884);}while(r);
do{
goto LABEL_EVALNEXTELE3;
if(!qbevent)break;evnt(15885);}while(r);
LABEL_EVALEDNEXTELE3:;
if(qbevent){evnt(15886);r=0;}
do{
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
if(!qbevent)break;evnt(15887);}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(15888);}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(15889);}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(15890);}while(r);
S_18865:;
if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(15891);if(r)goto S_18865;}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(15891);}while(r);
}
do{
goto LABEL_EVALED;
if(!qbevent)break;evnt(15892);}while(r);
}
}
}else{
S_18872:;
if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 )))||is_error_pending()){
if(qbevent){evnt(15900);if(r)goto S_18872;}
S_18873:;
if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||is_error_pending()){
if(qbevent){evnt(15901);if(r)goto S_18873;}
do{
*__INTEGER_CONSTEQUATION= 0 ;
if(!qbevent)break;evnt(15902);}while(r);
do{
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
if(!qbevent)break;evnt(15903);}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(15904);}while(r);
S_18877:;
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(15905);if(r)goto S_18877;}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(15905);}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(15906);}while(r);
do{
goto LABEL_EVALED;
if(!qbevent)break;evnt(15907);}while(r);
}
}
S_18884:;
if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)||is_error_pending()){
if(qbevent){evnt(15912);if(r)goto S_18884;}
S_18885:;
if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||is_error_pending()){
if(qbevent){evnt(15913);if(r)goto S_18885;}
do{
*__INTEGER_CONSTEQUATION= 0 ;
if(!qbevent)break;evnt(15914);}while(r);
do{
qbs_set(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15915);}while(r);
LABEL_EVALUDT:;
if(qbevent){evnt(15916);r=0;}
do{
*_FUNC_EVALUATE_LONG_B2= 0 ;
if(!qbevent)break;evnt(15917);}while(r);
do{
*_FUNC_EVALUATE_LONG_I3=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(15918);}while(r);
S_18890:;
fornext_value2693=*_FUNC_EVALUATE_LONG_I3;
fornext_finalvalue2693=*_FUNC_EVALUATE_LONG_N;
fornext_step2693= 1 ;
if (fornext_step2693<0) fornext_step_negative2693=1; else fornext_step_negative2693=0;
if (is_error_pending()) goto fornext_error2693;
goto fornext_entrylabel2693;
while(1){
fornext_value2693=fornext_step2693+(*_FUNC_EVALUATE_LONG_I2);
fornext_entrylabel2693:
*_FUNC_EVALUATE_LONG_I2=fornext_value2693;
if (fornext_step_negative2693){
if (fornext_value2693<fornext_finalvalue2693) break;
}else{
if (fornext_value2693>fornext_finalvalue2693) break;
}
fornext_error2693:;
if(qbevent){evnt(15919);if(r)goto S_18890;}
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(15920);}while(r);
S_18892:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(15921);if(r)goto S_18892;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ;
if(!qbevent)break;evnt(15921);}while(r);
}
S_18895:;
if ((-(*_FUNC_EVALUATE_LONG_B2== 0 ))||is_error_pending()){
if(qbevent){evnt(15922);if(r)goto S_18895;}
S_18896:;
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(15923);if(r)goto S_18896;}
do{
*_FUNC_EVALUATE_LONG_I4=*_FUNC_EVALUATE_LONG_I2- 1 ;
if(!qbevent)break;evnt(15924);}while(r);
do{
goto LABEL_GOTUDT;
if(!qbevent)break;evnt(15925);}while(r);
}
}
S_18901:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(15928);if(r)goto S_18901;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ;
if(!qbevent)break;evnt(15928);}while(r);
}
fornext_continue_2692:;
}
fornext_exit_2692:;
do{
*_FUNC_EVALUATE_LONG_I4=*_FUNC_EVALUATE_LONG_N;
if(!qbevent)break;evnt(15930);}while(r);
LABEL_GOTUDT:;
if(qbevent){evnt(15931);r=0;}
S_18906:;
if ((-(*_FUNC_EVALUATE_LONG_I4<*_FUNC_EVALUATE_LONG_I3))||is_error_pending()){
if(qbevent){evnt(15932);if(r)goto S_18906;}
do{
qbs_set(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15932);}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(15932);}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(15934);}while(r);
S_18912:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15935);if(r)goto S_18912;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15935);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I4;
if(!qbevent)break;evnt(15936);}while(r);
do{
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
if(!qbevent)break;evnt(15937);}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(15938);}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(15939);}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(15940);}while(r);
do{
goto LABEL_EVALED;
if(!qbevent)break;evnt(15943);}while(r);
}
}
}
S_18924:;
if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||is_error_pending()){
if(qbevent){evnt(15950);if(r)goto S_18924;}
do{
*__INTEGER_CONSTEQUATION= 0 ;
if(!qbevent)break;evnt(15951);}while(r);
S_18926:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2694=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(15952);if(r)goto S_18926;}
do{
*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I+ 2 ;
if(!qbevent)break;evnt(15953);}while(r);
do{
*_FUNC_EVALUATE_LONG_B2= 0 ;
if(!qbevent)break;evnt(15954);}while(r);
do{
*_FUNC_EVALUATE_LONG_ARGS= 1 ;
if(!qbevent)break;evnt(15955);}while(r);
LABEL_EVALNEXTELE:;
if(qbevent){evnt(15956);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(15957);}while(r);
S_18931:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(15958);if(r)goto S_18931;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ;
if(!qbevent)break;evnt(15958);}while(r);
}
S_18934:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(15959);if(r)goto S_18934;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ;
if(!qbevent)break;evnt(15960);}while(r);
S_18936:;
if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||is_error_pending()){
if(qbevent){evnt(15961);if(r)goto S_18936;}
S_18937:;
if ((-(*_FUNC_EVALUATE_LONG_I2==(*_FUNC_EVALUATE_LONG_I+ 2 )))||is_error_pending()){
if(qbevent){evnt(15962);if(r)goto S_18937;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected (...)",14));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15962);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15962);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass2695=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass2696=*_FUNC_EVALUATE_LONG_I2- 1 )),_FUNC_EVALUATE_LONG_ARGS,_FUNC_EVALUATE_LONG_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15963);}while(r);
S_18942:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15964);if(r)goto S_18942;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15964);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I2;
if(!qbevent)break;evnt(15965);}while(r);
do{
goto LABEL_EVALEDNEXTELE;
if(!qbevent)break;evnt(15966);}while(r);
}
}
S_18949:;
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(15969);if(r)goto S_18949;}
do{
*_FUNC_EVALUATE_LONG_ARGS=*_FUNC_EVALUATE_LONG_ARGS+ 1 ;
if(!qbevent)break;evnt(15969);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I2+ 1 ;
if(!qbevent)break;evnt(15970);}while(r);
do{
goto LABEL_EVALNEXTELE;
if(!qbevent)break;evnt(15971);}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(qbs_new_txt_len("",0),&(pass2697= 0 ),_FUNC_EVALUATE_LONG_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15974);}while(r);
S_18956:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15975);if(r)goto S_18956;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15975);}while(r);
}
}
LABEL_EVALEDNEXTELE:;
if(qbevent){evnt(15977);r=0;}
do{
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
if(!qbevent)break;evnt(15978);}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(15979);}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(15980);}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(15981);}while(r);
S_18964:;
if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(15982);if(r)goto S_18964;}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(15982);}while(r);
}
do{
goto LABEL_EVALED;
if(!qbevent)break;evnt(15983);}while(r);
}
S_18969:;
if ((-(*_FUNC_EVALUATE_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(15986);if(r)goto S_18969;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(15986);}while(r);
do{
*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(_FUNC_EVALUATE_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(15986);}while(r);
}else{
do{
*_FUNC_EVALUATE_LONG_TRY= 0 ;
if(!qbevent)break;evnt(15986);}while(r);
}
S_18975:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(15987);if(r)goto S_18975;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(15987);}while(r);
}
dl_continue_2687:;
}
dl_exit_2687:;
fornext_continue_2684:;
}
fornext_exit_2684:;
S_18980:;
if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_N))||is_error_pending()){
if(qbevent){evnt(15993);if(r)goto S_18980;}
S_18981:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2698=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(15994);if(r)goto S_18981;}
S_18982:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_L)== 0 )))||is_error_pending()){
if(qbevent){evnt(15995);if(r)goto S_18982;}
S_18983:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_EVALUATE_STRING_L)))||is_error_pending()){
if(qbevent){evnt(15996);if(r)goto S_18983;}
S_18984:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(15997);if(r)goto S_18984;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2699;
sub_file_print(tmp_fileno,qbs_new_txt_len("**************",14), 0, 0, 1);
if (is_error_pending()) goto skip2699;
skip2699:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(15998);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2700;
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 skip2700;
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_I)), 1, 0, 1);
if (is_error_pending()) goto skip2700;
skip2700:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(15999);}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2701;
sub_file_print(tmp_fileno,qbs_new_txt_len("**************",14), 0, 0, 1);
if (is_error_pending()) goto skip2701;
skip2701:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16000);}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(16002);}while(r);
S_18990:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16003);if(r)goto S_18990;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16003);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_NUME= 1 ;
if(!qbevent)break;evnt(16005);}while(r);
do{
*_FUNC_EVALUATE_LONG_B2= 0 ;
if(!qbevent)break;evnt(16006);}while(r);
S_18995:;
fornext_value2703=*_FUNC_EVALUATE_LONG_I+ 2 ;
fornext_finalvalue2703=*_FUNC_EVALUATE_LONG_N;
fornext_step2703= 1 ;
if (fornext_step2703<0) fornext_step_negative2703=1; else fornext_step_negative2703=0;
if (is_error_pending()) goto fornext_error2703;
goto fornext_entrylabel2703;
while(1){
fornext_value2703=fornext_step2703+(*_FUNC_EVALUATE_LONG_I2);
fornext_entrylabel2703:
*_FUNC_EVALUATE_LONG_I2=fornext_value2703;
if (fornext_step_negative2703){
if (fornext_value2703<fornext_finalvalue2703) break;
}else{
if (fornext_value2703>fornext_finalvalue2703) break;
}
fornext_error2703:;
if(qbevent){evnt(16007);if(r)goto S_18995;}
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(16008);}while(r);
S_18997:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(16009);if(r)goto S_18997;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ;
if(!qbevent)break;evnt(16009);}while(r);
}
S_19000:;
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(16010);if(r)goto S_19000;}
do{
*_FUNC_EVALUATE_LONG_NUME=*_FUNC_EVALUATE_LONG_NUME+ 1 ;
if(!qbevent)break;evnt(16010);}while(r);
}
S_19003:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(16011);if(r)goto S_19003;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ;
if(!qbevent)break;evnt(16011);}while(r);
}
S_19006:;
if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||is_error_pending()){
if(qbevent){evnt(16012);if(r)goto S_19006;}
do{
goto fornext_exit_2702;
if(!qbevent)break;evnt(16012);}while(r);
}
fornext_continue_2702:;
}
fornext_exit_2702:;
do{
qbs_set(_FUNC_EVALUATE_STRING_FAKEE,qbs_new_txt_len("10",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16014);}while(r);
S_19011:;
fornext_value2705= 2 ;
fornext_finalvalue2705=*_FUNC_EVALUATE_LONG_NUME;
fornext_step2705= 1 ;
if (fornext_step2705<0) fornext_step_negative2705=1; else fornext_step_negative2705=0;
if (is_error_pending()) goto fornext_error2705;
goto fornext_entrylabel2705;
while(1){
fornext_value2705=fornext_step2705+(*_FUNC_EVALUATE_LONG_I2);
fornext_entrylabel2705:
*_FUNC_EVALUATE_LONG_I2=fornext_value2705;
if (fornext_step_negative2705){
if (fornext_value2705<fornext_finalvalue2705) break;
}else{
if (fornext_value2705>fornext_finalvalue2705) break;
}
fornext_error2705:;
if(qbevent){evnt(16014);if(r)goto S_19011;}
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(16014);}while(r);
fornext_continue_2704:;
}
fornext_exit_2704:;
S_19014:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(16015);if(r)goto S_19014;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2706;
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 skip2706;
skip2706:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16015);}while(r);
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(16016);}while(r);
S_19018:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(_FUNC_EVALUATE_STRING_L)== 0 )))||is_error_pending()){
if(qbevent){evnt(16017);if(r)goto S_19018;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid array name",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16017);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16017);}while(r);
}
S_19022:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + (0) ))|FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPLARR)) + (0) )))||is_error_pending()){
if(qbevent){evnt(16018);if(r)goto S_19022;}
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(16018);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16018);}while(r);
}
S_19026:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16019);if(r)goto S_19026;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16019);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC;
if(!qbevent)break;evnt(16020);}while(r);
do{
*_FUNC_EVALUATE_LONG_METHOD= 1 ;
if(!qbevent)break;evnt(16021);}while(r);
S_19031:;
if ((*__LONG_SUBFUNCN)||is_error_pending()){
if(qbevent){evnt(16022);if(r)goto S_19031;}
do{
*__LONG_AUTOARRAY= 1 ;
if(!qbevent)break;evnt(16023);}while(r);
do{
*_FUNC_EVALUATE_LONG_XI= 1 ;
if(!qbevent)break;evnt(16026);}while(r);
S_19034:;
fornext_value2708= 1 ;
fornext_finalvalue2708=*__LONG_STATICARRAYLISTN;
fornext_step2708= 1 ;
if (fornext_step2708<0) fornext_step_negative2708=1; else fornext_step_negative2708=0;
if (is_error_pending()) goto fornext_error2708;
goto fornext_entrylabel2708;
while(1){
fornext_value2708=fornext_step2708+(*_FUNC_EVALUATE_LONG_X);
fornext_entrylabel2708:
*_FUNC_EVALUATE_LONG_X=fornext_value2708;
if (fornext_step_negative2708){
if (fornext_value2708<fornext_finalvalue2708) break;
}else{
if (fornext_value2708>fornext_finalvalue2708) break;
}
fornext_error2708:;
if(qbevent){evnt(16027);if(r)goto S_19034;}
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(16028);}while(r);
do{
*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ;
if(!qbevent)break;evnt(16028);}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(16029);}while(r);
do{
*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ;
if(!qbevent)break;evnt(16029);}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(16030);}while(r);
do{
*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ;
if(!qbevent)break;evnt(16030);}while(r);
S_19041:;
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(16032);if(r)goto S_19041;}
do{
qbs_set(_FUNC_EVALUATE_STRING_L3,_FUNC_EVALUATE_STRING_L2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16033);}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(16033);}while(r);
S_19044:;
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(16034);if(r)goto S_19044;}
S_19045:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16035);if(r)goto S_19045;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16035);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_VARNAME2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16037);}while(r);
do{
qbs_set(_FUNC_EVALUATE_STRING_DTYP,_FUNC_EVALUATE_STRING_TYP2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16038);}while(r);
do{
*_FUNC_EVALUATE_LONG_METHOD=*_FUNC_EVALUATE_LONG_DIMMETHOD2;
if(!qbevent)break;evnt(16039);}while(r);
do{
*__LONG_DIMSTATIC= 3 ;
if(!qbevent)break;evnt(16040);}while(r);
}
S_19053:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16042);if(r)goto S_19053;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16042);}while(r);
}
}
fornext_continue_2707:;
}
fornext_exit_2707:;
}
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(16046);}while(r);
S_19060:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16047);if(r)goto S_19060;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16047);}while(r);
}
do{
*__LONG_DIMSTATIC=*_FUNC_EVALUATE_LONG_OLDDIMSTATIC;
if(!qbevent)break;evnt(16048);}while(r);
S_19064:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(16049);if(r)goto S_19064;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2709;
sub_file_print(tmp_fileno,qbs_new_txt_len("#*#*#* dim2 has returned!!!",27), 0, 0, 1);
if (is_error_pending()) goto skip2709;
skip2709:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16049);}while(r);
}
do{
goto LABEL_REEVALUATE;
if(!qbevent)break;evnt(16050);}while(r);
}
}
}
}
do{
qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16056);}while(r);
}
S_19074:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L,qbs_new_txt_len("(",1))))||is_error_pending()){
if(qbevent){evnt(16060);if(r)goto S_19074;}
S_19075:;
if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(16061);if(r)goto S_19075;}
do{
*_FUNC_EVALUATE_LONG_I1=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(16061);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B+ 1 ;
if(!qbevent)break;evnt(16062);}while(r);
}
S_19080:;
if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(16065);if(r)goto S_19080;}
do{
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
if(!qbevent)break;evnt(16066);}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(16067);}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(16068);}while(r);
}
S_19085:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(16071);if(r)goto S_19085;}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B- 1 ;
if(!qbevent)break;evnt(16072);}while(r);
S_19087:;
if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||is_error_pending()){
if(qbevent){evnt(16073);if(r)goto S_19087;}
do{
qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATE(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I1,&(pass2710=*_FUNC_EVALUATE_LONG_I- 1 )),_FUNC_EVALUATE_LONG_TYP2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16074);}while(r);
S_19089:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16075);if(r)goto S_19089;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16075);}while(r);
}
S_19092:;
if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(16076);if(r)goto S_19092;}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(16076);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ;
if(!qbevent)break;evnt(16077);}while(r);
S_19096:;
if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(16078);if(r)goto S_19096;}
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(16079);}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(16081);}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(16083);}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(16084);}while(r);
}
}
LABEL_EVALED:;
if(qbevent){evnt(16087);r=0;}
fornext_continue_2679:;
}
fornext_exit_2679:;
do{
qbs_set(_FUNC_EVALUATE_STRING_R,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16090);}while(r);
S_19107:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(16092);if(r)goto S_19107;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2711;
sub_file_print(tmp_fileno,qbs_new_txt_len("evaluated blocks:",17), 0, 0, 0);
if (is_error_pending()) goto skip2711;
skip2711:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16092);}while(r);
}
S_19110:;
fornext_value2713= 1 ;
fornext_finalvalue2713=*_FUNC_EVALUATE_LONG_BLOCKN;
fornext_step2713= 1 ;
if (fornext_step2713<0) fornext_step_negative2713=1; else fornext_step_negative2713=0;
if (is_error_pending()) goto fornext_error2713;
goto fornext_entrylabel2713;
while(1){
fornext_value2713=fornext_step2713+(*_FUNC_EVALUATE_LONG_I);
fornext_entrylabel2713:
*_FUNC_EVALUATE_LONG_I=fornext_value2713;
if (fornext_step_negative2713){
if (fornext_value2713<fornext_finalvalue2713) break;
}else{
if (fornext_value2713>fornext_finalvalue2713) break;
}
fornext_error2713:;
if(qbevent){evnt(16093);if(r)goto S_19110;}
S_19111:;
if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_BLOCKN))||is_error_pending()){
if(qbevent){evnt(16094);if(r)goto S_19111;}
S_19112:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(16095);if(r)goto S_19112;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2714;
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 skip2714;
skip2714:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16095);}while(r);
}
}else{
S_19116:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(16097);if(r)goto S_19116;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2715;
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 skip2715;
skip2715:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16097);}while(r);
}
}
fornext_continue_2712:;
}
fornext_exit_2712:;
S_19121:;
fornext_value2717= 1 ;
fornext_finalvalue2717=*_FUNC_EVALUATE_LONG_BLOCKN;
fornext_step2717= 1 ;
if (fornext_step2717<0) fornext_step_negative2717=1; else fornext_step_negative2717=0;
if (is_error_pending()) goto fornext_error2717;
goto fornext_entrylabel2717;
while(1){
fornext_value2717=fornext_step2717+(*_FUNC_EVALUATE_LONG_I);
fornext_entrylabel2717:
*_FUNC_EVALUATE_LONG_I=fornext_value2717;
if (fornext_step_negative2717){
if (fornext_value2717<fornext_finalvalue2717) break;
}else{
if (fornext_value2717>fornext_finalvalue2717) break;
}
fornext_error2717:;
if(qbevent){evnt(16104);if(r)goto S_19121;}
S_19122:;
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(16105);if(r)goto S_19122;}
S_19123:;
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(16106);if(r)goto S_19123;}
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(16109);}while(r);
S_19125:;
if (((-(*_FUNC_EVALUATE_LONG_C== 45 ))|(((-(*_FUNC_EVALUATE_LONG_C>= 48 ))&(-(*_FUNC_EVALUATE_LONG_C<= 57 )))))||is_error_pending()){
if(qbevent){evnt(16110);if(r)goto S_19125;}
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(16111);}while(r);
do{
*_FUNC_EVALUATE_LONG_F= 0 ;
if(!qbevent)break;evnt(16113);}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(16114);}while(r);
S_19129:;
if ((*_FUNC_EVALUATE_LONG_X)||is_error_pending()){
if(qbevent){evnt(16115);if(r)goto S_19129;}
do{
*_FUNC_EVALUATE_LONG_F= 1 ;
if(!qbevent)break;evnt(16116);}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(16116);}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(16118);}while(r);
S_19134:;
if ((*_FUNC_EVALUATE_LONG_X)||is_error_pending()){
if(qbevent){evnt(16119);if(r)goto S_19134;}
do{
*_FUNC_EVALUATE_LONG_F= 2 ;
if(!qbevent)break;evnt(16120);}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(16120);}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(16122);}while(r);
S_19139:;
if ((*_FUNC_EVALUATE_LONG_X)||is_error_pending()){
if(qbevent){evnt(16123);if(r)goto S_19139;}
do{
*_FUNC_EVALUATE_LONG_F= 3 ;
if(!qbevent)break;evnt(16124);}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(16124);}while(r);
}
}
}
S_19145:;
if ((*_FUNC_EVALUATE_LONG_F)||is_error_pending()){
if(qbevent){evnt(16128);if(r)goto S_19145;}
S_19146:;
if (((-(*_FUNC_EVALUATE_LONG_F== 2 ))|(-(*_FUNC_EVALUATE_LONG_F== 3 )))||is_error_pending()){
if(qbevent){evnt(16130);if(r)goto S_19146;}
do{
sub_mid(_FUNC_EVALUATE_STRING_NUM,*_FUNC_EVALUATE_LONG_X, 1 ,qbs_new_txt_len("E",1),1);
if(!qbevent)break;evnt(16130);}while(r);
}
S_19149:;
if ((-(*_FUNC_EVALUATE_LONG_F== 3 ))||is_error_pending()){
if(qbevent){evnt(16131);if(r)goto S_19149;}
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(16131);}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(16134);}while(r);
S_19154:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16135);if(r)goto S_19154;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16135);}while(r);
}
S_19157:;
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(16136);if(r)goto S_19157;}
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(16136);}while(r);
}
S_19160:;
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])]& 511 )> 32 ))||is_error_pending()){
if(qbevent){evnt(16137);if(r)goto S_19160;}
S_19161:;
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(16138);if(r)goto S_19161;}
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(16138);}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(16138);}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(16141);}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(16142);}while(r);
do{
goto LABEL_EVALEDBLOCK;
if(!qbevent)break;evnt(16143);}while(r);
}
S_19172:;
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(16201);if(r)goto S_19172;}
S_19173:;
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(16202);if(r)goto S_19173;}
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(16203);}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(16205);}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(16207);}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(16208);}while(r);
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(16209);}while(r);
do{
goto LABEL_EVALEDBLOCK;
if(!qbevent)break;evnt(16210);}while(r);
}
S_19183:;
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(16214);if(r)goto S_19183;}
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(16215);}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(16217);}while(r);
S_19186:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16218);if(r)goto S_19186;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16218);}while(r);
}
S_19189:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATE_STRING_TYP->len== 0 )))||is_error_pending()){
if(qbevent){evnt(16221);if(r)goto S_19189;}
S_19190:;
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(16222);if(r)goto S_19190;}
do{
*_FUNC_EVALUATE_LONG_V= 27 ;
if(!qbevent)break;evnt(16222);}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(16222);}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(16223);}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(16227);}while(r);
S_19198:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16228);if(r)goto S_19198;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16228);}while(r);
}
S_19201:;
while((*_FUNC_EVALUATE_LONG_TRY)||is_error_pending()){
if(qbevent){evnt(16229);if(r)goto S_19201;}
S_19202:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(16230);if(r)goto S_19202;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2720;
sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_TRY)), 1, 0, 1);
if (is_error_pending()) goto skip2720;
skip2720:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16230);}while(r);
}
S_19205:;
if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 )))||is_error_pending()){
if(qbevent){evnt(16231);if(r)goto S_19205;}
do{
goto LABEL_SIMPLEVARFOUND;
if(!qbevent)break;evnt(16232);}while(r);
}
S_19208:;
if ((-(*_FUNC_EVALUATE_LONG_TRY== 2 ))||is_error_pending()){
if(qbevent){evnt(16234);if(r)goto S_19208;}
do{
*__INTEGER_FINDANOTHERID= 1 ;
if(!qbevent)break;evnt(16234);}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(16234);}while(r);
}else{
do{
*_FUNC_EVALUATE_LONG_TRY= 0 ;
if(!qbevent)break;evnt(16234);}while(r);
}
S_19214:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16235);if(r)goto S_19214;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16235);}while(r);
}
dl_continue_2719:;
}
dl_exit_2719:;
S_19218:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(16238);if(r)goto S_19218;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2721;
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 skip2721;
skip2721:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16238);}while(r);
}
do{
*__INTEGER_AUTOINCFORCEUSCORE= 1 ;
if(!qbevent)break;evnt(16239);}while(r);
S_19222:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(_FUNC_EVALUATE_STRING_X)== 0 )))||is_error_pending()){
if(qbevent){evnt(16240);if(r)goto S_19222;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid variable name",21));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16240);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16240);}while(r);
}
S_19226:;
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_OPTEXPL)) + (0) )))||is_error_pending()){
if(qbevent){evnt(16241);if(r)goto S_19226;}
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(16241);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16241);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_RETVAL=FUNC_DIM2(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP,&(pass2722= 1 ),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16242);}while(r);
do{
SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),__STRING_VWATCHNEWVARIABLE,&(pass2723= 0 ),&(pass2724= 3 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16243);}while(r);
S_19232:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16244);if(r)goto S_19232;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16244);}while(r);
}
LABEL_SIMPLEVARFOUND:;
if(qbevent){evnt(16246);r=0;}
do{
*__INTEGER_CONSTEQUATION= 0 ;
if(!qbevent)break;evnt(16247);}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(16248);}while(r);
S_19237:;
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(16249);if(r)goto S_19237;}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(16249);}while(r);
}
S_19240:;
if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||is_error_pending()){
if(qbevent){evnt(16250);if(r)goto S_19240;}
S_19241:;
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(16251);if(r)goto S_19241;}
do{
goto LABEL_RETURNPOINTER;
if(!qbevent)break;evnt(16251);}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])])),&(pass2725= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16254);}while(r);
S_19246:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16254);if(r)goto S_19246;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16254);}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(16255);}while(r);
do{
goto LABEL_EVALEDBLOCK;
if(!qbevent)break;evnt(16256);}while(r);
}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Invalid expression",18));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16258);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16258);}while(r);
}else{
S_19255:;
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(16261);if(r)goto S_19255;}
S_19256:;
if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||is_error_pending()){
if(qbevent){evnt(16262);if(r)goto S_19256;}
do{
goto LABEL_RETURNPOINTER;
if(!qbevent)break;evnt(16262);}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])])),&(pass2726= 0 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16266);}while(r);
S_19260:;
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
if(qbevent){evnt(16267);if(r)goto S_19260;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16267);}while(r);
}
}
}
}
LABEL_EVALEDBLOCK:;
if(qbevent){evnt(16273);r=0;}
fornext_continue_2716:;
}
fornext_exit_2716:;
S_19267:;
if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||is_error_pending()){
if(qbevent){evnt(16278);if(r)goto S_19267;}
S_19268:;
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(16279);if(r)goto S_19268;}
S_19269:;
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(16280);if(r)goto S_19269;}
LABEL_RETURNPOINTER:;
if(qbevent){evnt(16281);r=0;}
S_19270:;
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(16282);if(r)goto S_19270;}
do{
*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ;
if(!qbevent)break;evnt(16282);}while(r);
}
S_19273:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(16283);if(r)goto S_19273;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2727;
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 skip2727;
skip2727:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16283);}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(16284);}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(16285);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16286);}while(r);
}
}
}
S_19282:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(16299);if(r)goto S_19282;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2728;
sub_file_print(tmp_fileno,qbs_new_txt_len("applying operators:",19), 0, 0, 0);
if (is_error_pending()) goto skip2728;
skip2728:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16299);}while(r);
}
S_19285:;
if ((-(*_FUNC_EVALUATE_LONG_TYP== -1 ))||is_error_pending()){
if(qbevent){evnt(16302);if(r)goto S_19285;}
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(16303);}while(r);
S_19287:;
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(16306);if(r)goto S_19287;}
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(16307);}while(r);
}
}
do{
*_FUNC_EVALUATE_LONG_NONOP= 0 ;
if(!qbevent)break;evnt(16311);}while(r);
S_19292:;
fornext_value2730= 1 ;
fornext_finalvalue2730=*_FUNC_EVALUATE_LONG_BLOCKN;
fornext_step2730= 1 ;
if (fornext_step2730<0) fornext_step_negative2730=1; else fornext_step_negative2730=0;
if (is_error_pending()) goto fornext_error2730;
goto fornext_entrylabel2730;
while(1){
fornext_value2730=fornext_step2730+(*_FUNC_EVALUATE_LONG_I);
fornext_entrylabel2730:
*_FUNC_EVALUATE_LONG_I=fornext_value2730;
if (fornext_step_negative2730){
if (fornext_value2730<fornext_finalvalue2730) break;
}else{
if (fornext_value2730>fornext_finalvalue2730) break;
}
fornext_error2730:;
if(qbevent){evnt(16312);if(r)goto S_19292;}
S_19293:;
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(16314);if(r)goto S_19293;}
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(16315);}while(r);
S_19295:;
if ((*_FUNC_EVALUATE_LONG_ISOP)||is_error_pending()){
if(qbevent){evnt(16316);if(r)goto S_19295;}
do{
*_FUNC_EVALUATE_LONG_NONOP= 0 ;
if(!qbevent)break;evnt(16317);}while(r);
do{
*__INTEGER_CONSTEQUATION= 0 ;
if(!qbevent)break;evnt(16319);}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(16322);}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(16323);}while(r);
S_19300:;
if (((-(*_FUNC_EVALUATE_LONG_U!= 5 ))&(-(*_FUNC_EVALUATE_LONG_U!= 6 )))||is_error_pending()){
if(qbevent){evnt(16325);if(r)goto S_19300;}
do{
*_FUNC_EVALUATE_LONG_NONOP= 1 ;
if(!qbevent)break;evnt(16326);}while(r);
S_19302:;
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(16327);if(r)goto S_19302;}
S_19303:;
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(16328);if(r)goto S_19303;}
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(16328);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16328);}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(16329);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16329);}while(r);
}
}
S_19311:;
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(16332);if(r)goto S_19311;}
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(16332);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16332);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_OLDTYP=*_FUNC_EVALUATE_LONG_TYP;
if(!qbevent)break;evnt(16340);}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(16341);}while(r);
S_19317:;
if (((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING)== 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING)!= 0 )))||is_error_pending()){
if(qbevent){evnt(16353);if(r)goto S_19317;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16354);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16354);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_OFFSETMODE= 0 ;
if(!qbevent)break;evnt(16358);}while(r);
do{
*_FUNC_EVALUATE_LONG_OFFSETCVI= 0 ;
if(!qbevent)break;evnt(16359);}while(r);
S_19323:;
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISOFFSET)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISOFFSET)!= 0 )))||is_error_pending()){
if(qbevent){evnt(16360);if(r)goto S_19323;}
do{
*_FUNC_EVALUATE_LONG_OFFSETMODE= 2 ;
if(!qbevent)break;evnt(16361);}while(r);
S_19325:;
if ((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(16362);if(r)goto S_19325;}
S_19326:;
if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISUNSIGNED)== 0 ))||is_error_pending()){
if(qbevent){evnt(16363);if(r)goto S_19326;}
do{
*_FUNC_EVALUATE_LONG_OFFSETMODE= 1 ;
if(!qbevent)break;evnt(16363);}while(r);
}
}
S_19330:;
if ((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISOFFSET)||is_error_pending()){
if(qbevent){evnt(16365);if(r)goto S_19330;}
S_19331:;
if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISUNSIGNED)== 0 ))||is_error_pending()){
if(qbevent){evnt(16366);if(r)goto S_19331;}
do{
*_FUNC_EVALUATE_LONG_OFFSETMODE= 1 ;
if(!qbevent)break;evnt(16366);}while(r);
}
}
S_19335:;
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(16372);if(r)goto S_19335;}
S_19336:;
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(16373);if(r)goto S_19336;}
S_19337:;
if (((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(16375);if(r)goto S_19337;}
do{
*_FUNC_EVALUATE_LONG_OFFSETCVI= 1 ;
if(!qbevent)break;evnt(16376);}while(r);
S_19339:;
if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(16377);if(r)goto S_19339;}
do{
*_FUNC_EVALUATE_LONG_LHSTYP= 2 ;
if(!qbevent)break;evnt(16377);}while(r);
}
S_19342:;
if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(16378);if(r)goto S_19342;}
do{
*_FUNC_EVALUATE_LONG_RHSTYP= 2 ;
if(!qbevent)break;evnt(16378);}while(r);
}
}
}
S_19347:;
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(16381);if(r)goto S_19347;}
do{
*_FUNC_EVALUATE_LONG_OFFSETCVI= 1 ;
if(!qbevent)break;evnt(16383);}while(r);
S_19349:;
if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(16384);if(r)goto S_19349;}
do{
*_FUNC_EVALUATE_LONG_LHSTYP= 2 ;
if(!qbevent)break;evnt(16384);}while(r);
}
S_19352:;
if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(16385);if(r)goto S_19352;}
do{
*_FUNC_EVALUATE_LONG_RHSTYP= 2 ;
if(!qbevent)break;evnt(16385);}while(r);
}
}
}else{
S_19357:;
if ((*_FUNC_EVALUATE_LONG_LHSTYP& 2 )||is_error_pending()){
if(qbevent){evnt(16388);if(r)goto S_19357;}
do{
*_FUNC_EVALUATE_LONG_LHSTYP= 1 ;
if(!qbevent)break;evnt(16388);}while(r);
}
S_19360:;
if ((*_FUNC_EVALUATE_LONG_RHSTYP& 2 )||is_error_pending()){
if(qbevent){evnt(16389);if(r)goto S_19360;}
do{
*_FUNC_EVALUATE_LONG_RHSTYP= 1 ;
if(!qbevent)break;evnt(16389);}while(r);
}
}
S_19364:;
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 2 ))||is_error_pending()){
if(qbevent){evnt(16392);if(r)goto S_19364;}
do{
*_FUNC_EVALUATE_LONG_RESULT= 1 ;
if(!qbevent)break;evnt(16392);}while(r);
}
}
S_19368:;
if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(16399);if(r)goto S_19368;}
S_19369:;
if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 4 )== 0 ))||is_error_pending()){
if(qbevent){evnt(16400);if(r)goto S_19369;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert string to number",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16400);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16400);}while(r);
}
}else{
S_19374:;
if ((-(*_FUNC_EVALUATE_LONG_LHSTYP== 4 ))||is_error_pending()){
if(qbevent){evnt(16403);if(r)goto S_19374;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16403);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16403);}while(r);
}
S_19378:;
if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(16404);if(r)goto S_19378;}
S_19379:;
if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 2 )== 0 ))||is_error_pending()){
if(qbevent){evnt(16405);if(r)goto S_19379;}
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(16407);}while(r);
do{
*_FUNC_EVALUATE_LONG_OLDTYP= 64 ;
if(!qbevent)break;evnt(16408);}while(r);
}
}else{
S_19384:;
if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 1 )== 0 ))||is_error_pending()){
if(qbevent){evnt(16412);if(r)goto S_19384;}
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(16414);}while(r);
do{
*_FUNC_EVALUATE_LONG_OLDTYP= 256 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(16415);}while(r);
}
}
}
S_19390:;
if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(16420);if(r)goto S_19390;}
S_19391:;
if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 4 )== 0 ))||is_error_pending()){
if(qbevent){evnt(16421);if(r)goto S_19391;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert string to number",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16421);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16421);}while(r);
}
}else{
S_19396:;
if ((-(*_FUNC_EVALUATE_LONG_RHSTYP== 4 ))||is_error_pending()){
if(qbevent){evnt(16424);if(r)goto S_19396;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16424);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16424);}while(r);
}
S_19400:;
if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(16425);if(r)goto S_19400;}
S_19401:;
if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 2 )== 0 ))||is_error_pending()){
if(qbevent){evnt(16426);if(r)goto S_19401;}
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(16428);}while(r);
do{
*_FUNC_EVALUATE_LONG_NEWTYP= 64 ;
if(!qbevent)break;evnt(16429);}while(r);
}
}else{
S_19406:;
if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 1 )== 0 ))||is_error_pending()){
if(qbevent){evnt(16433);if(r)goto S_19406;}
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(16435);}while(r);
do{
*_FUNC_EVALUATE_LONG_NEWTYP= 256 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(16436);}while(r);
}
}
}
S_19412:;
if ((-(*_FUNC_EVALUATE_LONG_ISOP== 10 ))||is_error_pending()){
if(qbevent){evnt(16442);if(r)goto S_19412;}
S_19413:;
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(16452);if(r)goto S_19413;}
do{
*_FUNC_EVALUATE_LONG_S1=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ;
if(!qbevent)break;evnt(16453);}while(r);
do{
*_FUNC_EVALUATE_LONG_S2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ;
if(!qbevent)break;evnt(16453);}while(r);
S_19416:;
if ((-(*_FUNC_EVALUATE_LONG_S2<*_FUNC_EVALUATE_LONG_S1))||is_error_pending()){
if(qbevent){evnt(16454);if(r)goto S_19416;}
do{
*_FUNC_EVALUATE_LONG_S1=*_FUNC_EVALUATE_LONG_S2;
if(!qbevent)break;evnt(16454);}while(r);
}
S_19419:;
if ((-(*_FUNC_EVALUATE_LONG_S1== 32 ))||is_error_pending()){
if(qbevent){evnt(16455);if(r)goto S_19419;}
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(16456);}while(r);
do{
*_FUNC_EVALUATE_LONG_OLDTYP= 32 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(16456);}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(16457);}while(r);
do{
*_FUNC_EVALUATE_LONG_NEWTYP= 32 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(16457);}while(r);
}
S_19425:;
if ((-(*_FUNC_EVALUATE_LONG_S1== 64 ))||is_error_pending()){
if(qbevent){evnt(16459);if(r)goto S_19425;}
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(16460);}while(r);
do{
*_FUNC_EVALUATE_LONG_OLDTYP= 64 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(16460);}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(16461);}while(r);
do{
*_FUNC_EVALUATE_LONG_NEWTYP= 64 +*__LONG_ISFLOAT;
if(!qbevent)break;evnt(16461);}while(r);
}
}
}
do{
*_FUNC_EVALUATE_LONG_TYP=*_FUNC_EVALUATE_LONG_NEWTYP;
if(!qbevent)break;evnt(16466);}while(r);
S_19434:;
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISSTRING)== 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
if(qbevent){evnt(16473);if(r)goto S_19434;}
S_19435:;
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 )))||is_error_pending()){
if(qbevent){evnt(16474);if(r)goto S_19435;}
do{
*_FUNC_EVALUATE_LONG_B= 0 ;
if(!qbevent)break;evnt(16476);}while(r);
S_19437:;
if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(16476);if(r)goto S_19437;}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ;
if(!qbevent)break;evnt(16476);}while(r);
}
S_19440:;
if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(16477);if(r)goto S_19440;}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ;
if(!qbevent)break;evnt(16478);}while(r);
S_19442:;
if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||is_error_pending()){
if(qbevent){evnt(16478);if(r)goto S_19442;}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2;
if(!qbevent)break;evnt(16478);}while(r);
}
}
do{
*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+*_FUNC_EVALUATE_LONG_B;
if(!qbevent)break;evnt(16480);}while(r);
}else{
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ;
if(!qbevent)break;evnt(16485);}while(r);
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ;
if(!qbevent)break;evnt(16485);}while(r);
S_19450:;
if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||is_error_pending()){
if(qbevent){evnt(16485);if(r)goto S_19450;}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2;
if(!qbevent)break;evnt(16485);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_TYP= 64 ;
if(!qbevent)break;evnt(16486);}while(r);
S_19454:;
if ((-(*_FUNC_EVALUATE_LONG_B== 64 ))||is_error_pending()){
if(qbevent){evnt(16487);if(r)goto S_19454;}
S_19455:;
if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISUNSIGNED)!= 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISUNSIGNED)!= 0 )))||is_error_pending()){
if(qbevent){evnt(16488);if(r)goto S_19455;}
do{
*_FUNC_EVALUATE_LONG_TYP= 64 +*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(16488);}while(r);
}
}
}
}
S_19461:;
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 1 ))||is_error_pending()){
if(qbevent){evnt(16493);if(r)goto S_19461;}
S_19462:;
if (((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING)!= 0 )))||is_error_pending()){
if(qbevent){evnt(16494);if(r)goto S_19462;}
do{
*_FUNC_EVALUATE_LONG_TYP= 64 ;
if(!qbevent)break;evnt(16494);}while(r);
}
}
S_19466:;
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 2 ))||is_error_pending()){
if(qbevent){evnt(16496);if(r)goto S_19466;}
S_19467:;
if ((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT)== 0 ))||is_error_pending()){
if(qbevent){evnt(16497);if(r)goto S_19467;}
do{
*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+ 256 ;
if(!qbevent)break;evnt(16497);}while(r);
}
}
S_19471:;
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 4 ))||is_error_pending()){
if(qbevent){evnt(16499);if(r)goto S_19471;}
do{
*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISSTRING;
if(!qbevent)break;evnt(16500);}while(r);
}
S_19474:;
if ((-(*_FUNC_EVALUATE_LONG_RESULT== 8 ))||is_error_pending()){
if(qbevent){evnt(16502);if(r)goto S_19474;}
do{
*_FUNC_EVALUATE_LONG_TYP= 32 ;
if(!qbevent)break;evnt(16503);}while(r);
}
S_19477:;
if ((*_FUNC_EVALUATE_LONG_OFFSETMODE)||is_error_pending()){
if(qbevent){evnt(16507);if(r)goto S_19477;}
S_19478:;
if ((-(*_FUNC_EVALUATE_LONG_RESULT!= 8 ))||is_error_pending()){
if(qbevent){evnt(16508);if(r)goto S_19478;}
do{
*_FUNC_EVALUATE_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(16509);}while(r);
S_19480:;
if ((-(*_FUNC_EVALUATE_LONG_OFFSETMODE== 2 ))||is_error_pending()){
if(qbevent){evnt(16509);if(r)goto S_19480;}
do{
*_FUNC_EVALUATE_LONG_TYP=*_FUNC_EVALUATE_LONG_TYP+*__LONG_ISUNSIGNED;
if(!qbevent)break;evnt(16509);}while(r);
}
}
}
S_19485:;
if ((-(*_FUNC_EVALUATE_LONG_U== 2 ))||is_error_pending()){
if(qbevent){evnt(16514);if(r)goto S_19485;}
S_19486:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("pow2",4))))||is_error_pending()){
if(qbevent){evnt(16515);if(r)goto S_19486;}
S_19487:;
if ((*_FUNC_EVALUATE_LONG_OFFSETMODE)||is_error_pending()){
if(qbevent){evnt(16517);if(r)goto S_19487;}
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(16517);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16517);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ;
if(!qbevent)break;evnt(16521);}while(r);
S_19492:;
if ((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(16522);if(r)goto S_19492;}
}else{
S_19494:;
if ((-(*_FUNC_EVALUATE_LONG_B> 16 ))||is_error_pending()){
if(qbevent){evnt(16525);if(r)goto S_19494;}
do{
*_FUNC_EVALUATE_LONG_B= 64 ;
if(!qbevent)break;evnt(16525);}while(r);
}
S_19497:;
if ((-(*_FUNC_EVALUATE_LONG_B> 32 ))||is_error_pending()){
if(qbevent){evnt(16526);if(r)goto S_19497;}
do{
*_FUNC_EVALUATE_LONG_B= 256 ;
if(!qbevent)break;evnt(16526);}while(r);
}
S_19500:;
if ((-(*_FUNC_EVALUATE_LONG_B<= 16 ))||is_error_pending()){
if(qbevent){evnt(16527);if(r)goto S_19500;}
do{
*_FUNC_EVALUATE_LONG_B= 32 ;
if(!qbevent)break;evnt(16527);}while(r);
}
}
do{
*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ;
if(!qbevent)break;evnt(16529);}while(r);
S_19505:;
if ((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)||is_error_pending()){
if(qbevent){evnt(16530);if(r)goto S_19505;}
S_19506:;
if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||is_error_pending()){
if(qbevent){evnt(16531);if(r)goto S_19506;}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2;
if(!qbevent)break;evnt(16531);}while(r);
}
}else{
do{
*_FUNC_EVALUATE_LONG_B3= 32 ;
if(!qbevent)break;evnt(16533);}while(r);
S_19511:;
if ((-(*_FUNC_EVALUATE_LONG_B2> 16 ))||is_error_pending()){
if(qbevent){evnt(16534);if(r)goto S_19511;}
do{
*_FUNC_EVALUATE_LONG_B3= 64 ;
if(!qbevent)break;evnt(16534);}while(r);
}
S_19514:;
if ((-(*_FUNC_EVALUATE_LONG_B2> 32 ))||is_error_pending()){
if(qbevent){evnt(16535);if(r)goto S_19514;}
do{
*_FUNC_EVALUATE_LONG_B3= 256 ;
if(!qbevent)break;evnt(16535);}while(r);
}
S_19517:;
if ((-(*_FUNC_EVALUATE_LONG_B3>*_FUNC_EVALUATE_LONG_B))||is_error_pending()){
if(qbevent){evnt(16536);if(r)goto S_19517;}
do{
*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B3;
if(!qbevent)break;evnt(16536);}while(r);
}
}
do{
*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+*_FUNC_EVALUATE_LONG_B;
if(!qbevent)break;evnt(16538);}while(r);
}
}
S_19524:;
if ((-(*_FUNC_EVALUATE_LONG_U== 6 ))||is_error_pending()){
if(qbevent){evnt(16545);if(r)goto S_19524;}
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(16546);}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(16547);}while(r);
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(16547);}while(r);
do{
goto LABEL_OPERATORAPPLIED;
if(!qbevent)break;evnt(16547);}while(r);
}
S_19530:;
if ((-(*_FUNC_EVALUATE_LONG_U== 5 ))||is_error_pending()){
if(qbevent){evnt(16550);if(r)goto S_19530;}
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(16551);}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(16552);}while(r);
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(16552);}while(r);
do{
goto LABEL_OPERATORAPPLIED;
if(!qbevent)break;evnt(16552);}while(r);
}
S_19536:;
if ((-(*_FUNC_EVALUATE_LONG_U== 1 ))||is_error_pending()){
if(qbevent){evnt(16557);if(r)goto S_19536;}
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(16558);}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(16559);}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(16559);}while(r);
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(16559);}while(r);
do{
goto LABEL_OPERATORAPPLIED;
if(!qbevent)break;evnt(16559);}while(r);
}
S_19543:;
if ((-(*_FUNC_EVALUATE_LONG_U== 2 ))||is_error_pending()){
if(qbevent){evnt(16562);if(r)goto S_19543;}
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(16563);}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(16564);}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(16564);}while(r);
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(16564);}while(r);
do{
goto LABEL_OPERATORAPPLIED;
if(!qbevent)break;evnt(16564);}while(r);
}
S_19550:;
if ((-(*_FUNC_EVALUATE_LONG_U== 3 ))||is_error_pending()){
if(qbevent){evnt(16567);if(r)goto S_19550;}
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(16568);}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(16569);}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(16569);}while(r);
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(16569);}while(r);
do{
goto LABEL_OPERATORAPPLIED;
if(!qbevent)break;evnt(16569);}while(r);
}
S_19557:;
if ((-(*_FUNC_EVALUATE_LONG_U== 4 ))||is_error_pending()){
if(qbevent){evnt(16572);if(r)goto S_19557;}
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(16573);}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(16574);}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(16574);}while(r);
do{
*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ;
if(!qbevent)break;evnt(16574);}while(r);
do{
goto LABEL_OPERATORAPPLIED;
if(!qbevent)break;evnt(16574);}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(16579);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16579);}while(r);
LABEL_OPERATORAPPLIED:;
if(qbevent){evnt(16580);r=0;}
S_19566:;
if ((*_FUNC_EVALUATE_LONG_OFFSETCVI)||is_error_pending()){
if(qbevent){evnt(16582);if(r)goto S_19566;}
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(16582);}while(r);
do{
*_FUNC_EVALUATE_LONG_OFFSETCVI= 0 ;
if(!qbevent)break;evnt(16582);}while(r);
}
do{
*_FUNC_EVALUATE_LONG_OFFSETMODE= 0 ;
if(!qbevent)break;evnt(16583);}while(r);
}else{
do{
*_FUNC_EVALUATE_LONG_NONOP=*_FUNC_EVALUATE_LONG_NONOP+ 1 ;
if(!qbevent)break;evnt(16586);}while(r);
}
}else{
do{
*_FUNC_EVALUATE_LONG_NONOP=*_FUNC_EVALUATE_LONG_NONOP+ 1 ;
if(!qbevent)break;evnt(16589);}while(r);
}
S_19577:;
if ((-(*_FUNC_EVALUATE_LONG_NONOP> 1 ))||is_error_pending()){
if(qbevent){evnt(16591);if(r)goto S_19577;}
do{
SUB_GIVE_ERROR(qbs_new_txt_len("Expected operator in equation",29));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16591);}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(16591);}while(r);
}
fornext_continue_2729:;
}
fornext_exit_2729:;
S_19582:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(16593);if(r)goto S_19582;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2731;
sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0, 0, 1);
if (is_error_pending()) goto skip2731;
skip2731:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16593);}while(r);
}
S_19585:;
fornext_value2733= 1 ;
fornext_finalvalue2733=*_FUNC_EVALUATE_LONG_BLOCKN;
fornext_step2733= 1 ;
if (fornext_step2733<0) fornext_step_negative2733=1; else fornext_step_negative2733=0;
if (is_error_pending()) goto fornext_error2733;
goto fornext_entrylabel2733;
while(1){
fornext_value2733=fornext_step2733+(*_FUNC_EVALUATE_LONG_I);
fornext_entrylabel2733:
*_FUNC_EVALUATE_LONG_I=fornext_value2733;
if (fornext_step_negative2733){
if (fornext_value2733<fornext_finalvalue2733) break;
}else{
if (fornext_value2733>fornext_finalvalue2733) break;
}
fornext_error2733:;
if(qbevent){evnt(16596);if(r)goto S_19585;}
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(16597);}while(r);
fornext_continue_2732:;
}
fornext_exit_2732:;
S_19588:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(16600);if(r)goto S_19588;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2734;
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 skip2734;
skip2734:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16601);}while(r);
S_19590:;
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING))||is_error_pending()){
if(qbevent){evnt(16602);if(r)goto S_19590;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2735;
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISSTRING]",10), 0, 0, 0);
if (is_error_pending()) goto skip2735;
skip2735:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16602);}while(r);
}
S_19593:;
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(16603);if(r)goto S_19593;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2736;
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISFLOAT]",9), 0, 0, 0);
if (is_error_pending()) goto skip2736;
skip2736:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16603);}while(r);
}
S_19596:;
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISUNSIGNED))||is_error_pending()){
if(qbevent){evnt(16604);if(r)goto S_19596;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2737;
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISUNSIGNED]",12), 0, 0, 0);
if (is_error_pending()) goto skip2737;
skip2737:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16604);}while(r);
}
S_19599:;
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISPOINTER))||is_error_pending()){
if(qbevent){evnt(16605);if(r)goto S_19599;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2738;
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISPOINTER]",11), 0, 0, 0);
if (is_error_pending()) goto skip2738;
skip2738:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16605);}while(r);
}
S_19602:;
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFIXEDLENGTH))||is_error_pending()){
if(qbevent){evnt(16606);if(r)goto S_19602;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2739;
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISFIXEDLENGTH]",15), 0, 0, 0);
if (is_error_pending()) goto skip2739;
skip2739:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16606);}while(r);
}
S_19605:;
if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISINCONVENTIONALMEMORY))||is_error_pending()){
if(qbevent){evnt(16607);if(r)goto S_19605;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2740;
sub_file_print(tmp_fileno,qbs_new_txt_len("[ISINCONVENTIONALMEMORY]",24), 0, 0, 0);
if (is_error_pending()) goto skip2740;
skip2740:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16607);}while(r);
}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno= 9 ;
if (is_error_pending()) goto skip2741;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(size in bits=",14),qbs__tostr((int64)(*_FUNC_EVALUATE_LONG_TYP& 511 ),NULL,0)),qbs_new_txt_len(")",1)), 0, 0, 1);
if (is_error_pending()) goto skip2741;
skip2741:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(16608);}while(r);
}
do{
qbs_set(_FUNC_EVALUATE_STRING_EVALUATE,_FUNC_EVALUATE_STRING_R);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(16612);}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free20.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;
}
