int32 FUNC_RELATION(qbs*_FUNC_RELATION_STRING_EXP,void*_FUNC_RELATION_UDT_STATE){
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 "data191.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;
S_36679:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(25756,404,"const_eval.bas");if(r)goto S_36679;}
do{
sub__echo(qbs_new_txt_len("Relation",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,404,"const_eval.bas");}while(r);
}
S_36682:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_TERM(_FUNC_RELATION_STRING_EXP,(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ))== 0 )))||is_error_pending()){
if(qbevent){evnt(25756,405,"const_eval.bas");if(r)goto S_36682;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,405,"const_eval.bas");}while(r);
}
do{
if(!qbevent)break;evnt(25756,407,"const_eval.bas");}while(r);
do{
memcpy((((char*)_FUNC_RELATION_UDT_NUM)+((0+0))+ 0),(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))+ 0), 32);
memcpy((((char*)_FUNC_RELATION_UDT_NUM)+((0+0))+ 32),(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))+ 32), 8);
memcpy((((char*)_FUNC_RELATION_UDT_NUM)+((0+0))+ 40),(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))+ 40), 8);
qbs_set(*(qbs**)(((char*)_FUNC_RELATION_UDT_NUM)+((0+0))+ 48), *(qbs**)(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))+ 48));
memcpy((((char*)_FUNC_RELATION_UDT_NUM)+((0+0))+ 56),(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))+ 56), 4);
if(!qbevent)break;evnt(25756,408,"const_eval.bas");}while(r);
S_36687:;
do{
if(qbevent){evnt(25756,410,"const_eval.bas");if(r)goto S_36687;}
do{
qbs_set(_FUNC_RELATION_STRING_ELE,FUNC_PEEKNEXTELEMENT(_FUNC_RELATION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ),(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+4)) )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,411,"const_eval.bas");}while(r);
S_36689:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len("<>",2)))|(qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len("><",2)))))||is_error_pending()){
if(qbevent){evnt(25756,412,"const_eval.bas");if(r)goto S_36689;}
do{
qbs_set(_FUNC_RELATION_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_RELATION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ),(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+4)) )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,413,"const_eval.bas");}while(r);
S_36691:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_TERM(_FUNC_RELATION_STRING_EXP,(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ))== 0 )))||is_error_pending()){
if(qbevent){evnt(25756,414,"const_eval.bas");if(r)goto S_36691;}
do{
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ),qbs_new_txt_len("<>",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,414,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,414,"const_eval.bas");}while(r);
}
S_36695:;
if (((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+56)))&*__LONG_ISFLOAT)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+64)))&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(25756,416,"const_eval.bas");if(r)goto S_36695;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4327=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4328=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+0)))!=*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))))));
if(!qbevent)break;evnt(25756,417,"const_eval.bas");}while(r);
S_36697:;
}else{
if ((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+56)))&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+64)))&*__LONG_ISUNSIGNED)){
if(qbevent){evnt(25756,418,"const_eval.bas");if(r)goto S_36697;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4329=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4330=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+40)))!=*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+48))))));
if(!qbevent)break;evnt(25756,419,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4331=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4332=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+32)))!=*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+40))))));
if(!qbevent)break;evnt(25756,421,"const_eval.bas");}while(r);
}
}
S_36702:;
}else{
if (qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len(">=",2)))|(qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len("=>",2))))){
if(qbevent){evnt(25756,423,"const_eval.bas");if(r)goto S_36702;}
do{
qbs_set(_FUNC_RELATION_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_RELATION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ),(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+4)) )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,424,"const_eval.bas");}while(r);
S_36704:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_TERM(_FUNC_RELATION_STRING_EXP,(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ))== 0 )))||is_error_pending()){
if(qbevent){evnt(25756,425,"const_eval.bas");if(r)goto S_36704;}
do{
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ),qbs_new_txt_len(">=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,425,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,425,"const_eval.bas");}while(r);
}
S_36708:;
if (((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+56)))&*__LONG_ISFLOAT)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+64)))&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(25756,427,"const_eval.bas");if(r)goto S_36708;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4333=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4334=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+0)))>=*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))))));
if(!qbevent)break;evnt(25756,428,"const_eval.bas");}while(r);
S_36710:;
}else{
if ((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+56)))&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+64)))&*__LONG_ISUNSIGNED)){
if(qbevent){evnt(25756,429,"const_eval.bas");if(r)goto S_36710;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4335=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4336=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+40)))>=*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+48))))));
if(!qbevent)break;evnt(25756,430,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4337=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4338=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+32)))>=*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+40))))));
if(!qbevent)break;evnt(25756,432,"const_eval.bas");}while(r);
}
}
S_36715:;
}else{
if (qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len("<=",2)))|(qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len("=<",2))))){
if(qbevent){evnt(25756,434,"const_eval.bas");if(r)goto S_36715;}
do{
qbs_set(_FUNC_RELATION_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_RELATION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ),(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+4)) )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,435,"const_eval.bas");}while(r);
S_36717:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_TERM(_FUNC_RELATION_STRING_EXP,(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ))== 0 )))||is_error_pending()){
if(qbevent){evnt(25756,436,"const_eval.bas");if(r)goto S_36717;}
do{
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ),qbs_new_txt_len("<=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,436,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,436,"const_eval.bas");}while(r);
}
S_36721:;
if (((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+56)))&*__LONG_ISFLOAT)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+64)))&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(25756,438,"const_eval.bas");if(r)goto S_36721;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4339=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4340=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+0)))<=*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))))));
if(!qbevent)break;evnt(25756,439,"const_eval.bas");}while(r);
S_36723:;
}else{
if ((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+56)))&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+64)))&*__LONG_ISUNSIGNED)){
if(qbevent){evnt(25756,440,"const_eval.bas");if(r)goto S_36723;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4341=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4342=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+40)))<=*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+48))))));
if(!qbevent)break;evnt(25756,441,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4343=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4344=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+32)))<=*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+40))))));
if(!qbevent)break;evnt(25756,443,"const_eval.bas");}while(r);
}
}
S_36728:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len("<",1)))){
if(qbevent){evnt(25756,445,"const_eval.bas");if(r)goto S_36728;}
do{
qbs_set(_FUNC_RELATION_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_RELATION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ),(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+4)) )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,446,"const_eval.bas");}while(r);
S_36730:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_TERM(_FUNC_RELATION_STRING_EXP,(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ))== 0 )))||is_error_pending()){
if(qbevent){evnt(25756,447,"const_eval.bas");if(r)goto S_36730;}
do{
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ),qbs_new_txt_len("<",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,447,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,447,"const_eval.bas");}while(r);
}
S_36734:;
if (((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+56)))&*__LONG_ISFLOAT)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+64)))&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(25756,449,"const_eval.bas");if(r)goto S_36734;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4345=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4346=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+0)))<*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))))));
if(!qbevent)break;evnt(25756,450,"const_eval.bas");}while(r);
S_36736:;
}else{
if ((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+56)))&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+64)))&*__LONG_ISUNSIGNED)){
if(qbevent){evnt(25756,451,"const_eval.bas");if(r)goto S_36736;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4347=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4348=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+40)))<*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+48))))));
if(!qbevent)break;evnt(25756,452,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4349=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4350=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+32)))<*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+40))))));
if(!qbevent)break;evnt(25756,454,"const_eval.bas");}while(r);
}
}
S_36741:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len(">",1)))){
if(qbevent){evnt(25756,456,"const_eval.bas");if(r)goto S_36741;}
do{
qbs_set(_FUNC_RELATION_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_RELATION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ),(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+4)) )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,457,"const_eval.bas");}while(r);
S_36743:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_TERM(_FUNC_RELATION_STRING_EXP,(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ))== 0 )))||is_error_pending()){
if(qbevent){evnt(25756,458,"const_eval.bas");if(r)goto S_36743;}
do{
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ),qbs_new_txt_len(">",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,458,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,458,"const_eval.bas");}while(r);
}
S_36747:;
if (((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+56)))&*__LONG_ISFLOAT)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+64)))&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(25756,460,"const_eval.bas");if(r)goto S_36747;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4351=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4352=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+0)))>*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))))));
if(!qbevent)break;evnt(25756,461,"const_eval.bas");}while(r);
S_36749:;
}else{
if ((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+56)))&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+64)))&*__LONG_ISUNSIGNED)){
if(qbevent){evnt(25756,462,"const_eval.bas");if(r)goto S_36749;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4353=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4354=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+40)))>*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+48))))));
if(!qbevent)break;evnt(25756,463,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4355=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4356=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+32)))>*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+40))))));
if(!qbevent)break;evnt(25756,465,"const_eval.bas");}while(r);
}
}
S_36754:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len("=",1)))){
if(qbevent){evnt(25756,467,"const_eval.bas");if(r)goto S_36754;}
do{
qbs_set(_FUNC_RELATION_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_RELATION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ),(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+4)) )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,468,"const_eval.bas");}while(r);
S_36756:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_TERM(_FUNC_RELATION_STRING_EXP,(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ))== 0 )))||is_error_pending()){
if(qbevent){evnt(25756,469,"const_eval.bas");if(r)goto S_36756;}
do{
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + ((0+0)) ),qbs_new_txt_len("=",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,469,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,469,"const_eval.bas");}while(r);
}
S_36760:;
if (((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+56)))&*__LONG_ISFLOAT)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+64)))&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(25756,471,"const_eval.bas");if(r)goto S_36760;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4357=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4358=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+0)))==*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))))));
if(!qbevent)break;evnt(25756,472,"const_eval.bas");}while(r);
S_36762:;
}else{
if ((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+56)))&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+64)))&*__LONG_ISUNSIGNED)){
if(qbevent){evnt(25756,473,"const_eval.bas");if(r)goto S_36762;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4359=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4360=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+40)))==*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+48))))));
if(!qbevent)break;evnt(25756,474,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4361=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4362=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+32)))==*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+40))))));
if(!qbevent)break;evnt(25756,476,"const_eval.bas");}while(r);
}
}
}else{
do{
memcpy((((char*)_FUNC_RELATION_UDT_STATE)+((0+8))+ 0),(((char*)_FUNC_RELATION_UDT_NUM)+((0+0))+ 0), 32);
memcpy((((char*)_FUNC_RELATION_UDT_STATE)+((0+8))+ 32),(((char*)_FUNC_RELATION_UDT_NUM)+((0+0))+ 32), 8);
memcpy((((char*)_FUNC_RELATION_UDT_STATE)+((0+8))+ 40),(((char*)_FUNC_RELATION_UDT_NUM)+((0+0))+ 40), 8);
qbs_set(*(qbs**)(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))+ 48), *(qbs**)(((char*)_FUNC_RELATION_UDT_NUM)+((0+0))+ 48));
memcpy((((char*)_FUNC_RELATION_UDT_STATE)+((0+8))+ 56),(((char*)_FUNC_RELATION_UDT_NUM)+((0+0))+ 56), 4);
if(!qbevent)break;evnt(25756,479,"const_eval.bas");}while(r);
do{
*_FUNC_RELATION_LONG_RELATION= -1 ;
if(!qbevent)break;evnt(25756,480,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,481,"const_eval.bas");}while(r);
}
}
}
}
}
}
dl_continue_4326:;
}while(1);
dl_exit_4326:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free191.txt"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
cmem_sp=tmp_cmem_sp;
return *_FUNC_RELATION_LONG_RELATION;
}
