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 "data218.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
S_39398:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(28169,404,"const_eval.bas");if(r)goto S_39398;}
do{
sub__echo(qbs_new_txt_len("Relation",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28169,404,"const_eval.bas");}while(r);
}
S_39401:;
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(28169,405,"const_eval.bas");if(r)goto S_39401;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28169,405,"const_eval.bas");}while(r);
}
do{
if(!qbevent)break;evnt(28169,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(28169,408,"const_eval.bas");}while(r);
S_39406:;
do{
if(qbevent){evnt(28169,410,"const_eval.bas");if(r)goto S_39406;}
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(28169,411,"const_eval.bas");}while(r);
S_39408:;
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(28169,412,"const_eval.bas");if(r)goto S_39408;}
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(28169,413,"const_eval.bas");}while(r);
S_39410:;
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(28169,414,"const_eval.bas");if(r)goto S_39410;}
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(28169,414,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28169,414,"const_eval.bas");}while(r);
}
S_39414:;
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(28169,416,"const_eval.bas");if(r)goto S_39414;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4757=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4758=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+0)))!=*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))))));
if(!qbevent)break;evnt(28169,417,"const_eval.bas");}while(r);
S_39416:;
}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(28169,418,"const_eval.bas");if(r)goto S_39416;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4759=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4760=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+40)))!=*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+48))))));
if(!qbevent)break;evnt(28169,419,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4761=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4762=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+32)))!=*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+40))))));
if(!qbevent)break;evnt(28169,421,"const_eval.bas");}while(r);
}
}
S_39421:;
}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(28169,423,"const_eval.bas");if(r)goto S_39421;}
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(28169,424,"const_eval.bas");}while(r);
S_39423:;
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(28169,425,"const_eval.bas");if(r)goto S_39423;}
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(28169,425,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28169,425,"const_eval.bas");}while(r);
}
S_39427:;
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(28169,427,"const_eval.bas");if(r)goto S_39427;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4763=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4764=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+0)))>=*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))))));
if(!qbevent)break;evnt(28169,428,"const_eval.bas");}while(r);
S_39429:;
}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(28169,429,"const_eval.bas");if(r)goto S_39429;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4765=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4766=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+40)))>=*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+48))))));
if(!qbevent)break;evnt(28169,430,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4767=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4768=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+32)))>=*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+40))))));
if(!qbevent)break;evnt(28169,432,"const_eval.bas");}while(r);
}
}
S_39434:;
}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(28169,434,"const_eval.bas");if(r)goto S_39434;}
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(28169,435,"const_eval.bas");}while(r);
S_39436:;
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(28169,436,"const_eval.bas");if(r)goto S_39436;}
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(28169,436,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28169,436,"const_eval.bas");}while(r);
}
S_39440:;
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(28169,438,"const_eval.bas");if(r)goto S_39440;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4769=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4770=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+0)))<=*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))))));
if(!qbevent)break;evnt(28169,439,"const_eval.bas");}while(r);
S_39442:;
}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(28169,440,"const_eval.bas");if(r)goto S_39442;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4771=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4772=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+40)))<=*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+48))))));
if(!qbevent)break;evnt(28169,441,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4773=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4774=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+32)))<=*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+40))))));
if(!qbevent)break;evnt(28169,443,"const_eval.bas");}while(r);
}
}
S_39447:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len("<",1)))){
if(qbevent){evnt(28169,445,"const_eval.bas");if(r)goto S_39447;}
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(28169,446,"const_eval.bas");}while(r);
S_39449:;
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(28169,447,"const_eval.bas");if(r)goto S_39449;}
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(28169,447,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28169,447,"const_eval.bas");}while(r);
}
S_39453:;
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(28169,449,"const_eval.bas");if(r)goto S_39453;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4775=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4776=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+0)))<*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))))));
if(!qbevent)break;evnt(28169,450,"const_eval.bas");}while(r);
S_39455:;
}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(28169,451,"const_eval.bas");if(r)goto S_39455;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4777=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4778=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+40)))<*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+48))))));
if(!qbevent)break;evnt(28169,452,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4779=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4780=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+32)))<*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+40))))));
if(!qbevent)break;evnt(28169,454,"const_eval.bas");}while(r);
}
}
S_39460:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len(">",1)))){
if(qbevent){evnt(28169,456,"const_eval.bas");if(r)goto S_39460;}
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(28169,457,"const_eval.bas");}while(r);
S_39462:;
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(28169,458,"const_eval.bas");if(r)goto S_39462;}
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(28169,458,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28169,458,"const_eval.bas");}while(r);
}
S_39466:;
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(28169,460,"const_eval.bas");if(r)goto S_39466;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4781=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4782=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+0)))>*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))))));
if(!qbevent)break;evnt(28169,461,"const_eval.bas");}while(r);
S_39468:;
}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(28169,462,"const_eval.bas");if(r)goto S_39468;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4783=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4784=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+40)))>*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+48))))));
if(!qbevent)break;evnt(28169,463,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4785=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4786=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+32)))>*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+40))))));
if(!qbevent)break;evnt(28169,465,"const_eval.bas");}while(r);
}
}
S_39473:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len("=",1)))){
if(qbevent){evnt(28169,467,"const_eval.bas");if(r)goto S_39473;}
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(28169,468,"const_eval.bas");}while(r);
S_39475:;
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(28169,469,"const_eval.bas");if(r)goto S_39475;}
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(28169,469,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28169,469,"const_eval.bas");}while(r);
}
S_39479:;
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(28169,471,"const_eval.bas");if(r)goto S_39479;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4787=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4788=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+0)))==*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+8))))));
if(!qbevent)break;evnt(28169,472,"const_eval.bas");}while(r);
S_39481:;
}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(28169,473,"const_eval.bas");if(r)goto S_39481;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4789=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4790=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+40)))==*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+48))))));
if(!qbevent)break;evnt(28169,474,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + ((0+0)) ),&(pass4791=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4792=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+((0+32)))==*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+((0+40))))));
if(!qbevent)break;evnt(28169,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(28169,479,"const_eval.bas");}while(r);
do{
*_FUNC_RELATION_LONG_RELATION= -1 ;
if(!qbevent)break;evnt(28169,480,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(28169,481,"const_eval.bas");}while(r);
}
}
}
}
}
}
dl_continue_4756:;
}while(1);
dl_exit_4756:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free218.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;
}
