#line 11 "utilities/const_eval.bas"
qbs* FUNC_EVALUATE_EXPRESSION(qbs*_FUNC_EVALUATE_EXPRESSION_STRING_E,void*_FUNC_EVALUATE_EXPRESSION_UDT_NUM){
#line 11 "utilities/const_eval.bas"
qbs *tqbs;
#line 11 "utilities/const_eval.bas"
ptrszint tmp_long;
#line 11 "utilities/const_eval.bas"
int32 tmp_fileno;
#line 11 "utilities/const_eval.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 11 "utilities/const_eval.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 11 "utilities/const_eval.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 11 "utilities/const_eval.bas"
#include "data240.txt"
#line 11 "utilities/const_eval.bas"
mem_lock *sf_mem_lock;
#line 11 "utilities/const_eval.bas"
new_mem_lock();
#line 11 "utilities/const_eval.bas"
sf_mem_lock=mem_lock_tmp;
#line 11 "utilities/const_eval.bas"
sf_mem_lock->type=3;
#line 11 "utilities/const_eval.bas"
libqb_check_stack();
#line 11 "utilities/const_eval.bas"
if (is_error_pending()) goto exit_subfunc;
#line 12 "utilities/const_eval.bas"
do{
#line 12 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_T,_FUNC_EVALUATE_EXPRESSION_STRING_E);
#line 12 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 12 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,12,"const_eval.bas");}while(r);
#line 14 "utilities/const_eval.bas"
do{
#line 14 "utilities/const_eval.bas"
SUB_PREPARSE(_FUNC_EVALUATE_EXPRESSION_STRING_T);
#line 14 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,14,"const_eval.bas");}while(r);
#line 16 "utilities/const_eval.bas"
S_40560:;
#line 16 "utilities/const_eval.bas"
if (( 0ll )||is_error_pending()){
#line 16 "utilities/const_eval.bas"
if(qbevent){evnt(28806,16,"const_eval.bas");if(r)goto S_40560;}
#line 16 "utilities/const_eval.bas"
do{
#line 16 "utilities/const_eval.bas"
sub__echo(qbs_add(qbs_new_txt_len("t$: ",4),_FUNC_EVALUATE_EXPRESSION_STRING_T));
#line 16 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,16,"const_eval.bas");}while(r);
#line 16 "utilities/const_eval.bas"
}
#line 17 "utilities/const_eval.bas"
S_40563:;
#line 17 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_EXPRESSION_STRING_T, 5 ),qbs_new_txt_len("ERROR",5))))||is_error_pending()){
#line 17 "utilities/const_eval.bas"
if(qbevent){evnt(28806,17,"const_eval.bas");if(r)goto S_40563;}
#line 17 "utilities/const_eval.bas"
do{
#line 17 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_T);
#line 17 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 17 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,17,"const_eval.bas");}while(r);
#line 17 "utilities/const_eval.bas"
do{
#line 17 "utilities/const_eval.bas"
goto exit_subfunc;
#line 17 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,17,"const_eval.bas");}while(r);
#line 17 "utilities/const_eval.bas"
}
#line 20 "utilities/const_eval.bas"
do{
#line 20 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP),_FUNC_EVALUATE_EXPRESSION_STRING_T),__STRING1_SP),qbs_new_txt_len(")",1)));
#line 20 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 20 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,20,"const_eval.bas");}while(r);
#line 21 "utilities/const_eval.bas"
S_40568:;
#line 21 "utilities/const_eval.bas"
if (( 0ll )||is_error_pending()){
#line 21 "utilities/const_eval.bas"
if(qbevent){evnt(28806,21,"const_eval.bas");if(r)goto S_40568;}
#line 21 "utilities/const_eval.bas"
do{
#line 21 "utilities/const_eval.bas"
sub__echo(qbs_add(qbs_new_txt_len("exp$: ",6),_FUNC_EVALUATE_EXPRESSION_STRING_EXP));
#line 21 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 21 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,21,"const_eval.bas");}while(r);
#line 21 "utilities/const_eval.bas"
}
#line 23 "utilities/const_eval.bas"
do{
#line 23 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,23,"const_eval.bas");}while(r);
#line 24 "utilities/const_eval.bas"
S_40572:;
#line 24 "utilities/const_eval.bas"
do{
#line 24 "utilities/const_eval.bas"
if(qbevent){evnt(28806,24,"const_eval.bas");if(r)goto S_40572;}
#line 25 "utilities/const_eval.bas"
do{
#line 25 "utilities/const_eval.bas"
SUB_FINDINNERPARENS(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,_FUNC_EVALUATE_EXPRESSION_LONG_C,_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E);
#line 25 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 25 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,25,"const_eval.bas");}while(r);
#line 27 "utilities/const_eval.bas"
S_40574:;
#line 27 "utilities/const_eval.bas"
if ((-(*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E> 0 ))||is_error_pending()){
#line 27 "utilities/const_eval.bas"
if(qbevent){evnt(28806,27,"const_eval.bas");if(r)goto S_40574;}
#line 28 "utilities/const_eval.bas"
S_40575:;
#line 28 "utilities/const_eval.bas"
if ((-(*_FUNC_EVALUATE_EXPRESSION_LONG_C== 0 ))||is_error_pending()){
#line 28 "utilities/const_eval.bas"
if(qbevent){evnt(28806,28,"const_eval.bas");if(r)goto S_40575;}
#line 28 "utilities/const_eval.bas"
do{
#line 28 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,qbs_new_txt_len("ERROR - BAD () Count",20));
#line 28 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,28,"const_eval.bas");}while(r);
#line 28 "utilities/const_eval.bas"
do{
#line 28 "utilities/const_eval.bas"
goto exit_subfunc;
#line 28 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,28,"const_eval.bas");}while(r);
#line 28 "utilities/const_eval.bas"
}
#line 29 "utilities/const_eval.bas"
do{
#line 29 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL,FUNC_GETELEMENTS(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,&(pass4024=*_FUNC_EVALUATE_EXPRESSION_LONG_C+ 1 ),&(pass4025=*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E- 1 )));
#line 29 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 29 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,29,"const_eval.bas");}while(r);
#line 31 "utilities/const_eval.bas"
do{
#line 31 "utilities/const_eval.bas"
SUB_PARSEEXPRESSION2(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL);
#line 31 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 31 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,31,"const_eval.bas");}while(r);
#line 33 "utilities/const_eval.bas"
do{
#line 33 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL,qbs_ltrim(qbs_rtrim(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL)));
#line 33 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 33 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,33,"const_eval.bas");}while(r);
#line 34 "utilities/const_eval.bas"
S_40582:;
#line 34 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL, 5 ),qbs_new_txt_len("ERROR",5))))||is_error_pending()){
#line 34 "utilities/const_eval.bas"
if(qbevent){evnt(28806,34,"const_eval.bas");if(r)goto S_40582;}
#line 34 "utilities/const_eval.bas"
do{
#line 34 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_EVAL);
#line 34 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 34 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,34,"const_eval.bas");}while(r);
#line 34 "utilities/const_eval.bas"
do{
#line 34 "utilities/const_eval.bas"
goto exit_subfunc;
#line 34 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,34,"const_eval.bas");}while(r);
#line 34 "utilities/const_eval.bas"
}
#line 38 "utilities/const_eval.bas"
do{
#line 38 "utilities/const_eval.bas"
*_FUNC_EVALUATE_EXPRESSION_LONG_FUNCOP=FUNC_ISFUNCTIONIDENTIFIER(FUNC_GETELEMENT(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,&(pass4026=*_FUNC_EVALUATE_EXPRESSION_LONG_C- 1 )));
#line 38 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 38 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,38,"const_eval.bas");}while(r);
#line 39 "utilities/const_eval.bas"
S_40587:;
#line 39 "utilities/const_eval.bas"
if ((-(*_FUNC_EVALUATE_EXPRESSION_LONG_FUNCOP> 0 ))||is_error_pending()){
#line 39 "utilities/const_eval.bas"
if(qbevent){evnt(28806,39,"const_eval.bas");if(r)goto S_40587;}
#line 40 "utilities/const_eval.bas"
do{
#line 40 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL,FUNC_EVALUATEFUNCTION(_FUNC_EVALUATE_EXPRESSION_LONG_FUNCOP,_FUNC_EVALUATE_EXPRESSION_STRING_EVAL));
#line 40 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 40 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,40,"const_eval.bas");}while(r);
#line 41 "utilities/const_eval.bas"
S_40589:;
#line 41 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL, 5 ),qbs_new_txt_len("ERROR",5))))||is_error_pending()){
#line 41 "utilities/const_eval.bas"
if(qbevent){evnt(28806,41,"const_eval.bas");if(r)goto S_40589;}
#line 41 "utilities/const_eval.bas"
do{
#line 41 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_EVAL);
#line 41 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 41 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,41,"const_eval.bas");}while(r);
#line 41 "utilities/const_eval.bas"
do{
#line 41 "utilities/const_eval.bas"
goto exit_subfunc;
#line 41 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,41,"const_eval.bas");}while(r);
#line 41 "utilities/const_eval.bas"
}
#line 43 "utilities/const_eval.bas"
do{
#line 43 "utilities/const_eval.bas"
*_FUNC_EVALUATE_EXPRESSION_LONG_C=*_FUNC_EVALUATE_EXPRESSION_LONG_C- 1 ;
#line 43 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,43,"const_eval.bas");}while(r);
#line 44 "utilities/const_eval.bas"
}
#line 46 "utilities/const_eval.bas"
S_40595:;
#line 46 "utilities/const_eval.bas"
if (( 0ll )||is_error_pending()){
#line 46 "utilities/const_eval.bas"
if(qbevent){evnt(28806,46,"const_eval.bas");if(r)goto S_40595;}
#line 46 "utilities/const_eval.bas"
do{
#line 46 "utilities/const_eval.bas"
sub__echo(qbs_add(qbs_new_txt_len("eval$: ",7),_FUNC_EVALUATE_EXPRESSION_STRING_EVAL));
#line 46 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 46 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,46,"const_eval.bas");}while(r);
#line 46 "utilities/const_eval.bas"
}
#line 47 "utilities/const_eval.bas"
do{
#line 47 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_LEFTELE,FUNC_GETELEMENTS(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,&(pass4027= 1 ),&(pass4028=*_FUNC_EVALUATE_EXPRESSION_LONG_C- 1 )));
#line 47 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 47 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,47,"const_eval.bas");}while(r);
#line 48 "utilities/const_eval.bas"
do{
#line 48 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_RIGHTELE,FUNC_GETELEMENTS(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,&(pass4029=*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E+ 1 ),&(pass4030=FUNC_NUMELEMENTS(_FUNC_EVALUATE_EXPRESSION_STRING_EXP))));
#line 48 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 48 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,48,"const_eval.bas");}while(r);
#line 50 "utilities/const_eval.bas"
do{
#line 50 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,_FUNC_EVALUATE_EXPRESSION_STRING_LEFTELE);
#line 50 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 50 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,50,"const_eval.bas");}while(r);
#line 51 "utilities/const_eval.bas"
S_40601:;
#line 51 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,qbs_new_txt_len("",0))))||is_error_pending()){
#line 51 "utilities/const_eval.bas"
if(qbevent){evnt(28806,51,"const_eval.bas");if(r)goto S_40601;}
#line 51 "utilities/const_eval.bas"
do{
#line 51 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,qbs_add(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,__STRING1_SP));
#line 51 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 51 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,51,"const_eval.bas");}while(r);
#line 51 "utilities/const_eval.bas"
}
#line 52 "utilities/const_eval.bas"
do{
#line 52 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,qbs_add(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,_FUNC_EVALUATE_EXPRESSION_STRING_EVAL));
#line 52 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 52 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,52,"const_eval.bas");}while(r);
#line 53 "utilities/const_eval.bas"
S_40605:;
#line 53 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALUATE_EXPRESSION_STRING_RIGHTELE,qbs_new_txt_len("",0))))||is_error_pending()){
#line 53 "utilities/const_eval.bas"
if(qbevent){evnt(28806,53,"const_eval.bas");if(r)goto S_40605;}
#line 53 "utilities/const_eval.bas"
do{
#line 53 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,qbs_add(qbs_add(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,__STRING1_SP),_FUNC_EVALUATE_EXPRESSION_STRING_RIGHTELE));
#line 53 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 53 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,53,"const_eval.bas");}while(r);
#line 53 "utilities/const_eval.bas"
}
#line 54 "utilities/const_eval.bas"
}
#line 55 "utilities/const_eval.bas"
S_40609:;
#line 55 "utilities/const_eval.bas"
dl_continue_4023:;
#line 55 "utilities/const_eval.bas"
}while((!(-(*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E== 0 )))&&(!is_error_pending()));
#line 55 "utilities/const_eval.bas"
dl_exit_4023:;
#line 55 "utilities/const_eval.bas"
if(qbevent){evnt(28806,55,"const_eval.bas");if(r)goto S_40609;}
#line 57 "utilities/const_eval.bas"
S_40610:;
#line 57 "utilities/const_eval.bas"
if (( 0ll )||is_error_pending()){
#line 57 "utilities/const_eval.bas"
if(qbevent){evnt(28806,57,"const_eval.bas");if(r)goto S_40610;}
#line 57 "utilities/const_eval.bas"
do{
#line 57 "utilities/const_eval.bas"
sub__echo(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("resulting exp$: ",16),_FUNC_EVALUATE_EXPRESSION_STRING_EXP),qbs_new_txt_len(", numelements:",14)),qbs_str((int32)(FUNC_NUMELEMENTS(_FUNC_EVALUATE_EXPRESSION_STRING_EXP)))));
#line 57 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 57 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,57,"const_eval.bas");}while(r);
#line 57 "utilities/const_eval.bas"
}
#line 58 "utilities/const_eval.bas"
S_40613:;
#line 58 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_NUMELEMENTS(_FUNC_EVALUATE_EXPRESSION_STRING_EXP)!= 1 )))||is_error_pending()){
#line 58 "utilities/const_eval.bas"
if(qbevent){evnt(28806,58,"const_eval.bas");if(r)goto S_40613;}
#line 59 "utilities/const_eval.bas"
do{
#line 59 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,qbs_new_txt_len("ERROR - Invalid characters in expression",40));
#line 59 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 59 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,59,"const_eval.bas");}while(r);
#line 59 "utilities/const_eval.bas"
do{
#line 59 "utilities/const_eval.bas"
goto exit_subfunc;
#line 59 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,59,"const_eval.bas");}while(r);
#line 60 "utilities/const_eval.bas"
}
#line 62 "utilities/const_eval.bas"
S_40617:;
#line 62 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ELEMENTISSTRING(_FUNC_EVALUATE_EXPRESSION_STRING_EXP)))||is_error_pending()){
#line 62 "utilities/const_eval.bas"
if(qbevent){evnt(28806,62,"const_eval.bas");if(r)goto S_40617;}
#line 63 "utilities/const_eval.bas"
do{
#line 63 "utilities/const_eval.bas"
*(int32*)(((char*)_FUNC_EVALUATE_EXPRESSION_UDT_NUM)+((0+56)))=*__LONG_STRINGTYPE;
#line 63 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,63,"const_eval.bas");}while(r);
#line 64 "utilities/const_eval.bas"
do{
#line 64 "utilities/const_eval.bas"
qbs_set(*((qbs**)((char*)(_FUNC_EVALUATE_EXPRESSION_UDT_NUM)+((0+48)))),_FUNC_EVALUATE_EXPRESSION_STRING_EXP);
#line 64 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 64 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,64,"const_eval.bas");}while(r);
#line 65 "utilities/const_eval.bas"
}else{
#line 66 "utilities/const_eval.bas"
do{
#line 66 "utilities/const_eval.bas"
*(int32*)(((char*)_FUNC_EVALUATE_EXPRESSION_UDT_NUM)+((0+56)))=FUNC_ELEMENTGETNUMERICVALUE(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,(long double*)(void*)( ((char*)(_FUNC_EVALUATE_EXPRESSION_UDT_NUM)) + ((0+0)) ),(int64*)(void*)( ((char*)(_FUNC_EVALUATE_EXPRESSION_UDT_NUM)) + ((0+32)) ),(uint64*)(void*)( ((char*)(_FUNC_EVALUATE_EXPRESSION_UDT_NUM)) + ((0+40)) ));
#line 66 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,66,"const_eval.bas");}while(r);
#line 67 "utilities/const_eval.bas"
}
#line 69 "utilities/const_eval.bas"
do{
#line 69 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_EXP);
#line 69 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 69 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,69,"const_eval.bas");}while(r);
#line 70 "utilities/const_eval.bas"
exit_subfunc:;
#line 70 "utilities/const_eval.bas"
free_mem_lock(sf_mem_lock);
#line 70 "utilities/const_eval.bas"
#include "free240.txt"
#line 70 "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 70 "utilities/const_eval.bas"
cmem_sp=tmp_cmem_sp;
#line 70 "utilities/const_eval.bas"
qbs_maketmp(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION);return _FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION;
#line 70 "utilities/const_eval.bas"
}
