#line 165 "utilities/const_eval.bas"
int32 FUNC_COMMAEXPRESSION(qbs*_FUNC_COMMAEXPRESSION_STRING_EXP,void*_FUNC_COMMAEXPRESSION_UDT_STATE){
#line 165 "utilities/const_eval.bas"
qbs *tqbs;
#line 165 "utilities/const_eval.bas"
ptrszint tmp_long;
#line 165 "utilities/const_eval.bas"
int32 tmp_fileno;
#line 165 "utilities/const_eval.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 165 "utilities/const_eval.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 165 "utilities/const_eval.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 165 "utilities/const_eval.bas"
#include "data242.txt"
#line 165 "utilities/const_eval.bas"
mem_lock *sf_mem_lock;
#line 165 "utilities/const_eval.bas"
new_mem_lock();
#line 165 "utilities/const_eval.bas"
sf_mem_lock=mem_lock_tmp;
#line 165 "utilities/const_eval.bas"
sf_mem_lock->type=3;
#line 165 "utilities/const_eval.bas"
libqb_check_stack();
#line 165 "utilities/const_eval.bas"
if (is_error_pending()) goto exit_subfunc;
#line 166 "utilities/const_eval.bas"
S_40659:;
#line 166 "utilities/const_eval.bas"
if (( 0ll )||is_error_pending()){
#line 166 "utilities/const_eval.bas"
if(qbevent){evnt(28806,166,"const_eval.bas");if(r)goto S_40659;}
#line 166 "utilities/const_eval.bas"
do{
#line 166 "utilities/const_eval.bas"
sub__echo(qbs_new_txt_len("CommaExpression",15));
#line 166 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 166 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,166,"const_eval.bas");}while(r);
#line 166 "utilities/const_eval.bas"
}
#line 167 "utilities/const_eval.bas"
S_40662:;
#line 167 "utilities/const_eval.bas"
do{
#line 167 "utilities/const_eval.bas"
if(qbevent){evnt(28806,167,"const_eval.bas");if(r)goto S_40662;}
#line 168 "utilities/const_eval.bas"
do{
#line 168 "utilities/const_eval.bas"
qbs_set(_FUNC_COMMAEXPRESSION_STRING_ELE,FUNC_PEEKNEXTELEMENT(_FUNC_COMMAEXPRESSION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_COMMAEXPRESSION_UDT_STATE)) + ((0+0)) ),(int32*)(void*)( ((char*)(_FUNC_COMMAEXPRESSION_UDT_STATE)) + ((0+4)) )));
#line 168 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 168 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,168,"const_eval.bas");}while(r);
#line 170 "utilities/const_eval.bas"
do{
#line 170 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,170,"const_eval.bas");}while(r);
#line 171 "utilities/const_eval.bas"
do{
#line 171 "utilities/const_eval.bas"
*_FUNC_COMMAEXPRESSION_LONG_TMPINDEX=*(int32*)(((char*)_FUNC_COMMAEXPRESSION_UDT_STATE)+((0+0)));
#line 171 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,171,"const_eval.bas");}while(r);
#line 173 "utilities/const_eval.bas"
S_40666:;
#line 173 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_STREXPRESSION(_FUNC_COMMAEXPRESSION_STRING_EXP,(void*)( ((char*)(_FUNC_COMMAEXPRESSION_UDT_STATE)) + ((0+0)) ))== 0 )))||is_error_pending()){
#line 173 "utilities/const_eval.bas"
if(qbevent){evnt(28806,173,"const_eval.bas");if(r)goto S_40666;}
#line 175 "utilities/const_eval.bas"
S_40667:;
#line 175 "utilities/const_eval.bas"
if ((-(*(int32*)(((char*)_FUNC_COMMAEXPRESSION_UDT_STATE)+((0+0)))!=*_FUNC_COMMAEXPRESSION_LONG_TMPINDEX))||is_error_pending()){
#line 175 "utilities/const_eval.bas"
if(qbevent){evnt(28806,175,"const_eval.bas");if(r)goto S_40667;}
#line 175 "utilities/const_eval.bas"
do{
#line 175 "utilities/const_eval.bas"
goto exit_subfunc;
#line 175 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,175,"const_eval.bas");}while(r);
#line 175 "utilities/const_eval.bas"
}
#line 176 "utilities/const_eval.bas"
S_40670:;
#line 176 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_NUMERICEXPRESSION(_FUNC_COMMAEXPRESSION_STRING_EXP,(void*)( ((char*)(_FUNC_COMMAEXPRESSION_UDT_STATE)) + ((0+0)) ))== 0 )))||is_error_pending()){
#line 176 "utilities/const_eval.bas"
if(qbevent){evnt(28806,176,"const_eval.bas");if(r)goto S_40670;}
#line 176 "utilities/const_eval.bas"
do{
#line 176 "utilities/const_eval.bas"
goto exit_subfunc;
#line 176 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,176,"const_eval.bas");}while(r);
#line 176 "utilities/const_eval.bas"
}
#line 177 "utilities/const_eval.bas"
}
#line 179 "utilities/const_eval.bas"
S_40674:;
#line 179 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(*((qbs**)((char*)_FUNC_COMMAEXPRESSION_UDT_STATE+((0+76)))),qbs_new_txt_len("",0))))||is_error_pending()){
#line 179 "utilities/const_eval.bas"
if(qbevent){evnt(28806,179,"const_eval.bas");if(r)goto S_40674;}
#line 179 "utilities/const_eval.bas"
do{
#line 179 "utilities/const_eval.bas"
SUB_PUSHELEMENT(*((qbs**)((char*)_FUNC_COMMAEXPRESSION_UDT_STATE+((0+76)))),qbs_new_txt_len(",",1));
#line 179 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 179 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,179,"const_eval.bas");}while(r);
#line 179 "utilities/const_eval.bas"
}
#line 181 "utilities/const_eval.bas"
S_40677:;
#line 181 "utilities/const_eval.bas"
if (((*(int32*)(((char*)_FUNC_COMMAEXPRESSION_UDT_STATE)+((0+64)))&*__LONG_ISSTRING))||is_error_pending()){
#line 181 "utilities/const_eval.bas"
if(qbevent){evnt(28806,181,"const_eval.bas");if(r)goto S_40677;}
#line 182 "utilities/const_eval.bas"
do{
#line 182 "utilities/const_eval.bas"
SUB_PUSHELEMENT(*((qbs**)((char*)_FUNC_COMMAEXPRESSION_UDT_STATE+((0+76)))),*((qbs**)((char*)_FUNC_COMMAEXPRESSION_UDT_STATE+((0+56)))));
#line 182 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 182 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,182,"const_eval.bas");}while(r);
#line 183 "utilities/const_eval.bas"
S_40679:;
#line 183 "utilities/const_eval.bas"
}else{
#line 183 "utilities/const_eval.bas"
if ((*(int32*)(((char*)_FUNC_COMMAEXPRESSION_UDT_STATE)+((0+64)))&*__LONG_ISFLOAT)){
#line 183 "utilities/const_eval.bas"
if(qbevent){evnt(28806,183,"const_eval.bas");if(r)goto S_40679;}
#line 184 "utilities/const_eval.bas"
do{
#line 184 "utilities/const_eval.bas"
SUB_PUSHELEMENT(*((qbs**)((char*)_FUNC_COMMAEXPRESSION_UDT_STATE+((0+76)))),qbs__tostr((long double)(*(long double*)(((char*)_FUNC_COMMAEXPRESSION_UDT_STATE)+((0+8)))),NULL,0));
#line 184 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 184 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,184,"const_eval.bas");}while(r);
#line 185 "utilities/const_eval.bas"
S_40681:;
#line 185 "utilities/const_eval.bas"
}else{
#line 185 "utilities/const_eval.bas"
if ((*(int32*)(((char*)_FUNC_COMMAEXPRESSION_UDT_STATE)+((0+64)))&*__LONG_ISUNSIGNED)){
#line 185 "utilities/const_eval.bas"
if(qbevent){evnt(28806,185,"const_eval.bas");if(r)goto S_40681;}
#line 186 "utilities/const_eval.bas"
do{
#line 186 "utilities/const_eval.bas"
SUB_PUSHELEMENT(*((qbs**)((char*)_FUNC_COMMAEXPRESSION_UDT_STATE+((0+76)))),qbs_add(qbs__tostr((uint64)(*(uint64*)(((char*)_FUNC_COMMAEXPRESSION_UDT_STATE)+((0+48)))),NULL,0),qbs_new_txt_len("~&&",3)));
#line 186 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 186 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,186,"const_eval.bas");}while(r);
#line 187 "utilities/const_eval.bas"
}else{
#line 188 "utilities/const_eval.bas"
do{
#line 188 "utilities/const_eval.bas"
SUB_PUSHELEMENT(*((qbs**)((char*)_FUNC_COMMAEXPRESSION_UDT_STATE+((0+76)))),qbs_add(qbs__tostr((int64)(*(int64*)(((char*)_FUNC_COMMAEXPRESSION_UDT_STATE)+((0+40)))),NULL,0),qbs_new_txt_len("&&",2)));
#line 188 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 188 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,188,"const_eval.bas");}while(r);
#line 189 "utilities/const_eval.bas"
}
#line 189 "utilities/const_eval.bas"
}
#line 189 "utilities/const_eval.bas"
}
#line 191 "utilities/const_eval.bas"
do{
#line 191 "utilities/const_eval.bas"
qbs_set(_FUNC_COMMAEXPRESSION_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_COMMAEXPRESSION_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_COMMAEXPRESSION_UDT_STATE)) + ((0+0)) ),(int32*)(void*)( ((char*)(_FUNC_COMMAEXPRESSION_UDT_STATE)) + ((0+4)) )));
#line 191 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 191 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,191,"const_eval.bas");}while(r);
#line 192 "utilities/const_eval.bas"
S_40687:;
#line 192 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_COMMAEXPRESSION_STRING_ELE,qbs_new_txt_len(",",1))))||is_error_pending()){
#line 192 "utilities/const_eval.bas"
if(qbevent){evnt(28806,192,"const_eval.bas");if(r)goto S_40687;}
#line 192 "utilities/const_eval.bas"
do{
#line 192 "utilities/const_eval.bas"
goto dl_continue_4035;
#line 192 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,192,"const_eval.bas");}while(r);
#line 192 "utilities/const_eval.bas"
}
#line 198 "utilities/const_eval.bas"
S_40690:;
#line 198 "utilities/const_eval.bas"
if ((-(*(int32*)(((char*)_FUNC_COMMAEXPRESSION_UDT_STATE)+((0+0)))== -1 ))||is_error_pending()){
#line 198 "utilities/const_eval.bas"
if(qbevent){evnt(28806,198,"const_eval.bas");if(r)goto S_40690;}
#line 199 "utilities/const_eval.bas"
do{
#line 199 "utilities/const_eval.bas"
*_FUNC_COMMAEXPRESSION_LONG_COMMAEXPRESSION= -1 ;
#line 199 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,199,"const_eval.bas");}while(r);
#line 200 "utilities/const_eval.bas"
}else{
#line 201 "utilities/const_eval.bas"
do{
#line 201 "utilities/const_eval.bas"
qbs_set(*((qbs**)((char*)(_FUNC_COMMAEXPRESSION_UDT_STATE)+((0+68)))),qbs_add(qbs_add(qbs_new_txt_len("ERROR - Unexpected element '",28),_FUNC_COMMAEXPRESSION_STRING_ELE),qbs_new_txt_len("'",1)));
#line 201 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 201 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,201,"const_eval.bas");}while(r);
#line 202 "utilities/const_eval.bas"
}
#line 203 "utilities/const_eval.bas"
do{
#line 203 "utilities/const_eval.bas"
goto exit_subfunc;
#line 203 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,203,"const_eval.bas");}while(r);
#line 204 "utilities/const_eval.bas"
dl_continue_4035:;
#line 204 "utilities/const_eval.bas"
}while(1);
#line 204 "utilities/const_eval.bas"
dl_exit_4035:;
#line 205 "utilities/const_eval.bas"
exit_subfunc:;
#line 205 "utilities/const_eval.bas"
free_mem_lock(sf_mem_lock);
#line 205 "utilities/const_eval.bas"
#include "free242.txt"
#line 205 "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 205 "utilities/const_eval.bas"
cmem_sp=tmp_cmem_sp;
#line 205 "utilities/const_eval.bas"
return *_FUNC_COMMAEXPRESSION_LONG_COMMAEXPRESSION;
#line 205 "utilities/const_eval.bas"
}
