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 "data182.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_35158:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(24222,404,"const_eval.bas");if(r)goto S_35158;}
do{
sub__echo(qbs_new_txt_len("Relation",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,404,"const_eval.bas");}while(r);
}
S_35161:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_TERM(_FUNC_RELATION_STRING_EXP,(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ))== 0 )))||is_error_pending()){
if(qbevent){evnt(24222,405,"const_eval.bas");if(r)goto S_35161;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24222,405,"const_eval.bas");}while(r);
}
do{
if(!qbevent)break;evnt(24222,407,"const_eval.bas");}while(r);
do{
memcpy((((char*)_FUNC_RELATION_UDT_NUM)+(0)+ 0),(((char*)_FUNC_RELATION_UDT_STATE)+(8)+ 0), 32);
memcpy((((char*)_FUNC_RELATION_UDT_NUM)+(0)+ 32),(((char*)_FUNC_RELATION_UDT_STATE)+(8)+ 32), 8);
memcpy((((char*)_FUNC_RELATION_UDT_NUM)+(0)+ 40),(((char*)_FUNC_RELATION_UDT_STATE)+(8)+ 40), 8);
qbs_set(*(qbs**)(((char*)_FUNC_RELATION_UDT_NUM)+(0)+ 48), *(qbs**)(((char*)_FUNC_RELATION_UDT_STATE)+(8)+ 48));
memcpy((((char*)_FUNC_RELATION_UDT_NUM)+(0)+ 56),(((char*)_FUNC_RELATION_UDT_STATE)+(8)+ 56), 4);
if(!qbevent)break;evnt(24222,408,"const_eval.bas");}while(r);
S_35166:;
do{
if(qbevent){evnt(24222,410,"const_eval.bas");if(r)goto S_35166;}
do{
qbs_set(_FUNC_RELATION_STRING_ELE,FUNC_PEEKNEXTELEMENT(_FUNC_RELATION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ),(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (4) )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,411,"const_eval.bas");}while(r);
S_35168:;
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(24222,412,"const_eval.bas");if(r)goto S_35168;}
do{
qbs_set(_FUNC_RELATION_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_RELATION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ),(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (4) )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,413,"const_eval.bas");}while(r);
S_35170:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_TERM(_FUNC_RELATION_STRING_EXP,(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ))== 0 )))||is_error_pending()){
if(qbevent){evnt(24222,414,"const_eval.bas");if(r)goto S_35170;}
do{
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ),qbs_new_txt_len("<>",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,414,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24222,414,"const_eval.bas");}while(r);
}
S_35174:;
if (((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+(56))&*__LONG_ISFLOAT)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+(64))&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(24222,416,"const_eval.bas");if(r)goto S_35174;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4096=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4097=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+(0))!=*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+(8)))));
if(!qbevent)break;evnt(24222,417,"const_eval.bas");}while(r);
S_35176:;
}else{
if ((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+(56))&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+(64))&*__LONG_ISUNSIGNED)){
if(qbevent){evnt(24222,418,"const_eval.bas");if(r)goto S_35176;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4098=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4099=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+(40))!=*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+(48)))));
if(!qbevent)break;evnt(24222,419,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4100=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4101=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+(32))!=*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+(40)))));
if(!qbevent)break;evnt(24222,421,"const_eval.bas");}while(r);
}
}
S_35181:;
}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(24222,423,"const_eval.bas");if(r)goto S_35181;}
do{
qbs_set(_FUNC_RELATION_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_RELATION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ),(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (4) )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,424,"const_eval.bas");}while(r);
S_35183:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_TERM(_FUNC_RELATION_STRING_EXP,(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ))== 0 )))||is_error_pending()){
if(qbevent){evnt(24222,425,"const_eval.bas");if(r)goto S_35183;}
do{
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ),qbs_new_txt_len(">=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,425,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24222,425,"const_eval.bas");}while(r);
}
S_35187:;
if (((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+(56))&*__LONG_ISFLOAT)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+(64))&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(24222,427,"const_eval.bas");if(r)goto S_35187;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4102=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4103=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+(0))>=*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+(8)))));
if(!qbevent)break;evnt(24222,428,"const_eval.bas");}while(r);
S_35189:;
}else{
if ((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+(56))&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+(64))&*__LONG_ISUNSIGNED)){
if(qbevent){evnt(24222,429,"const_eval.bas");if(r)goto S_35189;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4104=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4105=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+(40))>=*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+(48)))));
if(!qbevent)break;evnt(24222,430,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4106=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4107=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+(32))>=*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+(40)))));
if(!qbevent)break;evnt(24222,432,"const_eval.bas");}while(r);
}
}
S_35194:;
}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(24222,434,"const_eval.bas");if(r)goto S_35194;}
do{
qbs_set(_FUNC_RELATION_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_RELATION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ),(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (4) )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,435,"const_eval.bas");}while(r);
S_35196:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_TERM(_FUNC_RELATION_STRING_EXP,(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ))== 0 )))||is_error_pending()){
if(qbevent){evnt(24222,436,"const_eval.bas");if(r)goto S_35196;}
do{
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ),qbs_new_txt_len("<=",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,436,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24222,436,"const_eval.bas");}while(r);
}
S_35200:;
if (((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+(56))&*__LONG_ISFLOAT)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+(64))&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(24222,438,"const_eval.bas");if(r)goto S_35200;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4108=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4109=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+(0))<=*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+(8)))));
if(!qbevent)break;evnt(24222,439,"const_eval.bas");}while(r);
S_35202:;
}else{
if ((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+(56))&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+(64))&*__LONG_ISUNSIGNED)){
if(qbevent){evnt(24222,440,"const_eval.bas");if(r)goto S_35202;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4110=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4111=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+(40))<=*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+(48)))));
if(!qbevent)break;evnt(24222,441,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4112=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4113=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+(32))<=*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+(40)))));
if(!qbevent)break;evnt(24222,443,"const_eval.bas");}while(r);
}
}
S_35207:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len("<",1)))){
if(qbevent){evnt(24222,445,"const_eval.bas");if(r)goto S_35207;}
do{
qbs_set(_FUNC_RELATION_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_RELATION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ),(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (4) )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,446,"const_eval.bas");}while(r);
S_35209:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_TERM(_FUNC_RELATION_STRING_EXP,(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ))== 0 )))||is_error_pending()){
if(qbevent){evnt(24222,447,"const_eval.bas");if(r)goto S_35209;}
do{
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ),qbs_new_txt_len("<",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,447,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24222,447,"const_eval.bas");}while(r);
}
S_35213:;
if (((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+(56))&*__LONG_ISFLOAT)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+(64))&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(24222,449,"const_eval.bas");if(r)goto S_35213;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4114=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4115=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+(0))<*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+(8)))));
if(!qbevent)break;evnt(24222,450,"const_eval.bas");}while(r);
S_35215:;
}else{
if ((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+(56))&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+(64))&*__LONG_ISUNSIGNED)){
if(qbevent){evnt(24222,451,"const_eval.bas");if(r)goto S_35215;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4116=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4117=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+(40))<*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+(48)))));
if(!qbevent)break;evnt(24222,452,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4118=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4119=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+(32))<*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+(40)))));
if(!qbevent)break;evnt(24222,454,"const_eval.bas");}while(r);
}
}
S_35220:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len(">",1)))){
if(qbevent){evnt(24222,456,"const_eval.bas");if(r)goto S_35220;}
do{
qbs_set(_FUNC_RELATION_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_RELATION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ),(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (4) )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,457,"const_eval.bas");}while(r);
S_35222:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_TERM(_FUNC_RELATION_STRING_EXP,(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ))== 0 )))||is_error_pending()){
if(qbevent){evnt(24222,458,"const_eval.bas");if(r)goto S_35222;}
do{
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ),qbs_new_txt_len(">",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,458,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24222,458,"const_eval.bas");}while(r);
}
S_35226:;
if (((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+(56))&*__LONG_ISFLOAT)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+(64))&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(24222,460,"const_eval.bas");if(r)goto S_35226;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4120=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4121=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+(0))>*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+(8)))));
if(!qbevent)break;evnt(24222,461,"const_eval.bas");}while(r);
S_35228:;
}else{
if ((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+(56))&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+(64))&*__LONG_ISUNSIGNED)){
if(qbevent){evnt(24222,462,"const_eval.bas");if(r)goto S_35228;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4122=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4123=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+(40))>*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+(48)))));
if(!qbevent)break;evnt(24222,463,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4124=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4125=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+(32))>*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+(40)))));
if(!qbevent)break;evnt(24222,465,"const_eval.bas");}while(r);
}
}
S_35233:;
}else{
if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_RELATION_STRING_ELE,qbs_new_txt_len("=",1)))){
if(qbevent){evnt(24222,467,"const_eval.bas");if(r)goto S_35233;}
do{
qbs_set(_FUNC_RELATION_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_RELATION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ),(int32*)(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (4) )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,468,"const_eval.bas");}while(r);
S_35235:;
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_TERM(_FUNC_RELATION_STRING_EXP,(void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ))== 0 )))||is_error_pending()){
if(qbevent){evnt(24222,469,"const_eval.bas");if(r)goto S_35235;}
do{
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_RELATION_UDT_STATE)) + (0) ),qbs_new_txt_len("=",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,469,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24222,469,"const_eval.bas");}while(r);
}
S_35239:;
if (((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+(56))&*__LONG_ISFLOAT)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+(64))&*__LONG_ISFLOAT))||is_error_pending()){
if(qbevent){evnt(24222,471,"const_eval.bas");if(r)goto S_35239;}
do{
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4126=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4127=-(*(long double*)(((char*)_FUNC_RELATION_UDT_NUM)+(0))==*(long double*)(((char*)_FUNC_RELATION_UDT_STATE)+(8)))));
if(!qbevent)break;evnt(24222,472,"const_eval.bas");}while(r);
S_35241:;
}else{
if ((*(int32*)(((char*)_FUNC_RELATION_UDT_NUM)+(56))&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_RELATION_UDT_STATE)+(64))&*__LONG_ISUNSIGNED)){
if(qbevent){evnt(24222,473,"const_eval.bas");if(r)goto S_35241;}
do{
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4128=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4129=-(*(uint64*)(((char*)_FUNC_RELATION_UDT_NUM)+(40))==*(uint64*)(((char*)_FUNC_RELATION_UDT_STATE)+(48)))));
if(!qbevent)break;evnt(24222,474,"const_eval.bas");}while(r);
}else{
do{
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_RELATION_UDT_NUM)) + (0) ),&(pass4130=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4131=-(*(int64*)(((char*)_FUNC_RELATION_UDT_NUM)+(32))==*(int64*)(((char*)_FUNC_RELATION_UDT_STATE)+(40)))));
if(!qbevent)break;evnt(24222,476,"const_eval.bas");}while(r);
}
}
}else{
do{
memcpy((((char*)_FUNC_RELATION_UDT_STATE)+(8)+ 0),(((char*)_FUNC_RELATION_UDT_NUM)+(0)+ 0), 32);
memcpy((((char*)_FUNC_RELATION_UDT_STATE)+(8)+ 32),(((char*)_FUNC_RELATION_UDT_NUM)+(0)+ 32), 8);
memcpy((((char*)_FUNC_RELATION_UDT_STATE)+(8)+ 40),(((char*)_FUNC_RELATION_UDT_NUM)+(0)+ 40), 8);
qbs_set(*(qbs**)(((char*)_FUNC_RELATION_UDT_STATE)+(8)+ 48), *(qbs**)(((char*)_FUNC_RELATION_UDT_NUM)+(0)+ 48));
memcpy((((char*)_FUNC_RELATION_UDT_STATE)+(8)+ 56),(((char*)_FUNC_RELATION_UDT_NUM)+(0)+ 56), 4);
if(!qbevent)break;evnt(24222,479,"const_eval.bas");}while(r);
do{
*_FUNC_RELATION_LONG_RELATION= -1 ;
if(!qbevent)break;evnt(24222,480,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24222,481,"const_eval.bas");}while(r);
}
}
}
}
}
}
dl_continue_4095:;
}while(1);
dl_exit_4095:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free182.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;
}
