#line 486 "utilities/const_eval.bas"
int32 FUNC_TERM(qbs*_FUNC_TERM_STRING_EXP,void*_FUNC_TERM_UDT_STATE){
#line 486 "utilities/const_eval.bas"
qbs *tqbs;
#line 486 "utilities/const_eval.bas"
ptrszint tmp_long;
#line 486 "utilities/const_eval.bas"
int32 tmp_fileno;
#line 486 "utilities/const_eval.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 486 "utilities/const_eval.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 486 "utilities/const_eval.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 486 "utilities/const_eval.bas"
#include "data253.txt"
#line 486 "utilities/const_eval.bas"
mem_lock *sf_mem_lock;
#line 486 "utilities/const_eval.bas"
new_mem_lock();
#line 486 "utilities/const_eval.bas"
sf_mem_lock=mem_lock_tmp;
#line 486 "utilities/const_eval.bas"
sf_mem_lock->type=3;
#line 486 "utilities/const_eval.bas"
libqb_check_stack();
#line 486 "utilities/const_eval.bas"
if (is_error_pending()) goto exit_subfunc;
#line 487 "utilities/const_eval.bas"
S_40986:;
#line 487 "utilities/const_eval.bas"
if (( 0ll )||is_error_pending()){
#line 487 "utilities/const_eval.bas"
if(qbevent){evnt(28806,487,"const_eval.bas");if(r)goto S_40986;}
#line 487 "utilities/const_eval.bas"
do{
#line 487 "utilities/const_eval.bas"
sub__echo(qbs_new_txt_len("Term",4));
#line 487 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 487 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,487,"const_eval.bas");}while(r);
#line 487 "utilities/const_eval.bas"
}
#line 488 "utilities/const_eval.bas"
S_40989:;
#line 488 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_PARSEMOD(_FUNC_TERM_STRING_EXP,(void*)( ((char*)(_FUNC_TERM_UDT_STATE)) + ((0+0)) ))== 0 )))||is_error_pending()){
#line 488 "utilities/const_eval.bas"
if(qbevent){evnt(28806,488,"const_eval.bas");if(r)goto S_40989;}
#line 488 "utilities/const_eval.bas"
do{
#line 488 "utilities/const_eval.bas"
goto exit_subfunc;
#line 488 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,488,"const_eval.bas");}while(r);
#line 488 "utilities/const_eval.bas"
}
#line 490 "utilities/const_eval.bas"
do{
#line 490 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,490,"const_eval.bas");}while(r);
#line 491 "utilities/const_eval.bas"
do{
#line 491 "utilities/const_eval.bas"
memcpy((((char*)_FUNC_TERM_UDT_NUM)+((0+0))+((0+0))),(((char*)_FUNC_TERM_UDT_STATE)+((0+8))+((0+0))),32);
#line 491 "utilities/const_eval.bas"
memcpy((((char*)_FUNC_TERM_UDT_NUM)+((0+0))+((0+32))),(((char*)_FUNC_TERM_UDT_STATE)+((0+8))+((0+32))),8);
#line 491 "utilities/const_eval.bas"
memcpy((((char*)_FUNC_TERM_UDT_NUM)+((0+0))+((0+40))),(((char*)_FUNC_TERM_UDT_STATE)+((0+8))+((0+40))),8);
#line 491 "utilities/const_eval.bas"
qbs_set(*(qbs**)(((char*)_FUNC_TERM_UDT_NUM)+((0+0))+((0+48))),*(qbs**)(((char*)_FUNC_TERM_UDT_STATE)+((0+8))+((0+48))));
#line 491 "utilities/const_eval.bas"
memcpy((((char*)_FUNC_TERM_UDT_NUM)+((0+0))+((0+56))),(((char*)_FUNC_TERM_UDT_STATE)+((0+8))+((0+56))),4);
#line 491 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,491,"const_eval.bas");}while(r);
#line 493 "utilities/const_eval.bas"
S_40994:;
#line 493 "utilities/const_eval.bas"
do{
#line 493 "utilities/const_eval.bas"
if(qbevent){evnt(28806,493,"const_eval.bas");if(r)goto S_40994;}
#line 494 "utilities/const_eval.bas"
do{
#line 494 "utilities/const_eval.bas"
qbs_set(_FUNC_TERM_STRING_ELE,FUNC_PEEKNEXTELEMENT(_FUNC_TERM_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_TERM_UDT_STATE)) + ((0+0)) ),(int32*)(void*)( ((char*)(_FUNC_TERM_UDT_STATE)) + ((0+4)) )));
#line 494 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 494 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,494,"const_eval.bas");}while(r);
#line 495 "utilities/const_eval.bas"
S_40996:;
#line 495 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TERM_STRING_ELE,qbs_new_txt_len("+",1))))||is_error_pending()){
#line 495 "utilities/const_eval.bas"
if(qbevent){evnt(28806,495,"const_eval.bas");if(r)goto S_40996;}
#line 496 "utilities/const_eval.bas"
do{
#line 496 "utilities/const_eval.bas"
qbs_set(_FUNC_TERM_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_TERM_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_TERM_UDT_STATE)) + ((0+0)) ),(int32*)(void*)( ((char*)(_FUNC_TERM_UDT_STATE)) + ((0+4)) )));
#line 496 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 496 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,496,"const_eval.bas");}while(r);
#line 497 "utilities/const_eval.bas"
S_40998:;
#line 497 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_PARSEMOD(_FUNC_TERM_STRING_EXP,(void*)( ((char*)(_FUNC_TERM_UDT_STATE)) + ((0+0)) ))== 0 )))||is_error_pending()){
#line 497 "utilities/const_eval.bas"
if(qbevent){evnt(28806,497,"const_eval.bas");if(r)goto S_40998;}
#line 497 "utilities/const_eval.bas"
do{
#line 497 "utilities/const_eval.bas"
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_TERM_UDT_STATE)) + ((0+0)) ),qbs_new_txt_len("+",1));
#line 497 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 497 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,497,"const_eval.bas");}while(r);
#line 497 "utilities/const_eval.bas"
do{
#line 497 "utilities/const_eval.bas"
goto exit_subfunc;
#line 497 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,497,"const_eval.bas");}while(r);
#line 497 "utilities/const_eval.bas"
}
#line 499 "utilities/const_eval.bas"
S_41002:;
#line 499 "utilities/const_eval.bas"
if (((*(int32*)(((char*)_FUNC_TERM_UDT_NUM)+((0+56)))&*__LONG_ISFLOAT)|(*(int32*)(((char*)_FUNC_TERM_UDT_STATE)+((0+64)))&*__LONG_ISFLOAT))||is_error_pending()){
#line 499 "utilities/const_eval.bas"
if(qbevent){evnt(28806,499,"const_eval.bas");if(r)goto S_41002;}
#line 500 "utilities/const_eval.bas"
do{
#line 500 "utilities/const_eval.bas"
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_TERM_UDT_NUM)) + ((0+0)) ),&(pass4115=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4116=*(long double*)(((char*)_FUNC_TERM_UDT_NUM)+((0+0)))+*(long double*)(((char*)_FUNC_TERM_UDT_STATE)+((0+8)))));
#line 500 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,500,"const_eval.bas");}while(r);
#line 501 "utilities/const_eval.bas"
S_41004:;
#line 501 "utilities/const_eval.bas"
}else{
#line 501 "utilities/const_eval.bas"
if ((*(int32*)(((char*)_FUNC_TERM_UDT_NUM)+((0+56)))&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_TERM_UDT_STATE)+((0+64)))&*__LONG_ISUNSIGNED)){
#line 501 "utilities/const_eval.bas"
if(qbevent){evnt(28806,501,"const_eval.bas");if(r)goto S_41004;}
#line 502 "utilities/const_eval.bas"
do{
#line 502 "utilities/const_eval.bas"
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_TERM_UDT_NUM)) + ((0+0)) ),&(pass4117=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4118=*(uint64*)(((char*)_FUNC_TERM_UDT_NUM)+((0+40)))+*(uint64*)(((char*)_FUNC_TERM_UDT_STATE)+((0+48)))));
#line 502 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,502,"const_eval.bas");}while(r);
#line 503 "utilities/const_eval.bas"
}else{
#line 504 "utilities/const_eval.bas"
do{
#line 504 "utilities/const_eval.bas"
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_TERM_UDT_NUM)) + ((0+0)) ),&(pass4119=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4120=*(int64*)(((char*)_FUNC_TERM_UDT_NUM)+((0+32)))+*(int64*)(((char*)_FUNC_TERM_UDT_STATE)+((0+40)))));
#line 504 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,504,"const_eval.bas");}while(r);
#line 505 "utilities/const_eval.bas"
}
#line 505 "utilities/const_eval.bas"
}
#line 506 "utilities/const_eval.bas"
S_41009:;
#line 506 "utilities/const_eval.bas"
}else{
#line 506 "utilities/const_eval.bas"
if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TERM_STRING_ELE,qbs_new_txt_len("-",1)))){
#line 506 "utilities/const_eval.bas"
if(qbevent){evnt(28806,506,"const_eval.bas");if(r)goto S_41009;}
#line 507 "utilities/const_eval.bas"
do{
#line 507 "utilities/const_eval.bas"
qbs_set(_FUNC_TERM_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_TERM_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_TERM_UDT_STATE)) + ((0+0)) ),(int32*)(void*)( ((char*)(_FUNC_TERM_UDT_STATE)) + ((0+4)) )));
#line 507 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 507 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,507,"const_eval.bas");}while(r);
#line 508 "utilities/const_eval.bas"
S_41011:;
#line 508 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_PARSEMOD(_FUNC_TERM_STRING_EXP,(void*)( ((char*)(_FUNC_TERM_UDT_STATE)) + ((0+0)) ))== 0 )))||is_error_pending()){
#line 508 "utilities/const_eval.bas"
if(qbevent){evnt(28806,508,"const_eval.bas");if(r)goto S_41011;}
#line 508 "utilities/const_eval.bas"
do{
#line 508 "utilities/const_eval.bas"
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_TERM_UDT_STATE)) + ((0+0)) ),qbs_new_txt_len("-",1));
#line 508 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 508 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,508,"const_eval.bas");}while(r);
#line 508 "utilities/const_eval.bas"
do{
#line 508 "utilities/const_eval.bas"
goto exit_subfunc;
#line 508 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,508,"const_eval.bas");}while(r);
#line 508 "utilities/const_eval.bas"
}
#line 510 "utilities/const_eval.bas"
S_41015:;
#line 510 "utilities/const_eval.bas"
if (((*(int32*)(((char*)_FUNC_TERM_UDT_NUM)+((0+56)))&*__LONG_ISFLOAT)|(*(int32*)(((char*)_FUNC_TERM_UDT_STATE)+((0+64)))&*__LONG_ISFLOAT))||is_error_pending()){
#line 510 "utilities/const_eval.bas"
if(qbevent){evnt(28806,510,"const_eval.bas");if(r)goto S_41015;}
#line 511 "utilities/const_eval.bas"
do{
#line 511 "utilities/const_eval.bas"
SUB_PARSENUMSETF((void*)( ((char*)(_FUNC_TERM_UDT_NUM)) + ((0+0)) ),&(pass4121=*__LONG_FLOATTYPE-*__LONG_ISPOINTER),&(pass4122=*(long double*)(((char*)_FUNC_TERM_UDT_NUM)+((0+0)))-*(long double*)(((char*)_FUNC_TERM_UDT_STATE)+((0+8)))));
#line 511 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,511,"const_eval.bas");}while(r);
#line 512 "utilities/const_eval.bas"
S_41017:;
#line 512 "utilities/const_eval.bas"
}else{
#line 512 "utilities/const_eval.bas"
if ((*(int32*)(((char*)_FUNC_TERM_UDT_NUM)+((0+56)))&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_TERM_UDT_STATE)+((0+64)))&*__LONG_ISUNSIGNED)){
#line 512 "utilities/const_eval.bas"
if(qbevent){evnt(28806,512,"const_eval.bas");if(r)goto S_41017;}
#line 513 "utilities/const_eval.bas"
do{
#line 513 "utilities/const_eval.bas"
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_TERM_UDT_NUM)) + ((0+0)) ),&(pass4123=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4124=*(uint64*)(((char*)_FUNC_TERM_UDT_NUM)+((0+40)))-*(uint64*)(((char*)_FUNC_TERM_UDT_STATE)+((0+48)))));
#line 513 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,513,"const_eval.bas");}while(r);
#line 514 "utilities/const_eval.bas"
}else{
#line 515 "utilities/const_eval.bas"
do{
#line 515 "utilities/const_eval.bas"
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_TERM_UDT_NUM)) + ((0+0)) ),&(pass4125=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4126=*(int64*)(((char*)_FUNC_TERM_UDT_NUM)+((0+32)))-*(int64*)(((char*)_FUNC_TERM_UDT_STATE)+((0+40)))));
#line 515 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,515,"const_eval.bas");}while(r);
#line 516 "utilities/const_eval.bas"
}
#line 516 "utilities/const_eval.bas"
}
#line 517 "utilities/const_eval.bas"
}else{
#line 518 "utilities/const_eval.bas"
do{
#line 518 "utilities/const_eval.bas"
memcpy((((char*)_FUNC_TERM_UDT_STATE)+((0+8))+((0+0))),(((char*)_FUNC_TERM_UDT_NUM)+((0+0))+((0+0))),32);
#line 518 "utilities/const_eval.bas"
memcpy((((char*)_FUNC_TERM_UDT_STATE)+((0+8))+((0+32))),(((char*)_FUNC_TERM_UDT_NUM)+((0+0))+((0+32))),8);
#line 518 "utilities/const_eval.bas"
memcpy((((char*)_FUNC_TERM_UDT_STATE)+((0+8))+((0+40))),(((char*)_FUNC_TERM_UDT_NUM)+((0+0))+((0+40))),8);
#line 518 "utilities/const_eval.bas"
qbs_set(*(qbs**)(((char*)_FUNC_TERM_UDT_STATE)+((0+8))+((0+48))),*(qbs**)(((char*)_FUNC_TERM_UDT_NUM)+((0+0))+((0+48))));
#line 518 "utilities/const_eval.bas"
memcpy((((char*)_FUNC_TERM_UDT_STATE)+((0+8))+((0+56))),(((char*)_FUNC_TERM_UDT_NUM)+((0+0))+((0+56))),4);
#line 518 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,518,"const_eval.bas");}while(r);
#line 519 "utilities/const_eval.bas"
do{
#line 519 "utilities/const_eval.bas"
*_FUNC_TERM_LONG_TERM= -1 ;
#line 519 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,519,"const_eval.bas");}while(r);
#line 520 "utilities/const_eval.bas"
do{
#line 520 "utilities/const_eval.bas"
goto exit_subfunc;
#line 520 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,520,"const_eval.bas");}while(r);
#line 521 "utilities/const_eval.bas"
}
#line 521 "utilities/const_eval.bas"
}
#line 522 "utilities/const_eval.bas"
dl_continue_4114:;
#line 522 "utilities/const_eval.bas"
}while(1);
#line 522 "utilities/const_eval.bas"
dl_exit_4114:;
#line 523 "utilities/const_eval.bas"
exit_subfunc:;
#line 523 "utilities/const_eval.bas"
free_mem_lock(sf_mem_lock);
#line 523 "utilities/const_eval.bas"
#include "free253.txt"
#line 523 "utilities/const_eval.bas"
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;
#line 523 "utilities/const_eval.bas"
cmem_sp=tmp_cmem_sp;
#line 523 "utilities/const_eval.bas"
return *_FUNC_TERM_LONG_TERM;
#line 523 "utilities/const_eval.bas"
}
