#line 385 "utilities/const_eval.bas"
int32 FUNC_LOGICALNOT(qbs*_FUNC_LOGICALNOT_STRING_EXP,void*_FUNC_LOGICALNOT_UDT_STATE){
#line 385 "utilities/const_eval.bas"
qbs *tqbs;
#line 385 "utilities/const_eval.bas"
ptrszint tmp_long;
#line 385 "utilities/const_eval.bas"
int32 tmp_fileno;
#line 385 "utilities/const_eval.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 385 "utilities/const_eval.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 385 "utilities/const_eval.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 385 "utilities/const_eval.bas"
#include "data251.txt"
#line 385 "utilities/const_eval.bas"
mem_lock *sf_mem_lock;
#line 385 "utilities/const_eval.bas"
new_mem_lock();
#line 385 "utilities/const_eval.bas"
sf_mem_lock=mem_lock_tmp;
#line 385 "utilities/const_eval.bas"
sf_mem_lock->type=3;
#line 385 "utilities/const_eval.bas"
libqb_check_stack();
#line 385 "utilities/const_eval.bas"
if (is_error_pending()) goto exit_subfunc;
#line 386 "utilities/const_eval.bas"
S_40873:;
#line 386 "utilities/const_eval.bas"
if (( 0ll )||is_error_pending()){
#line 386 "utilities/const_eval.bas"
if(qbevent){evnt(28806,386,"const_eval.bas");if(r)goto S_40873;}
#line 386 "utilities/const_eval.bas"
do{
#line 386 "utilities/const_eval.bas"
sub__echo(qbs_new_txt_len("LogicalNot",10));
#line 386 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 386 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,386,"const_eval.bas");}while(r);
#line 386 "utilities/const_eval.bas"
}
#line 387 "utilities/const_eval.bas"
do{
#line 387 "utilities/const_eval.bas"
qbs_set(_FUNC_LOGICALNOT_STRING_ELE,FUNC_PEEKNEXTELEMENT(_FUNC_LOGICALNOT_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_LOGICALNOT_UDT_STATE)) + ((0+0)) ),(int32*)(void*)( ((char*)(_FUNC_LOGICALNOT_UDT_STATE)) + ((0+4)) )));
#line 387 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 387 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,387,"const_eval.bas");}while(r);
#line 388 "utilities/const_eval.bas"
S_40877:;
#line 388 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LOGICALNOT_STRING_ELE,qbs_new_txt_len("NOT",3))))||is_error_pending()){
#line 388 "utilities/const_eval.bas"
if(qbevent){evnt(28806,388,"const_eval.bas");if(r)goto S_40877;}
#line 388 "utilities/const_eval.bas"
do{
#line 388 "utilities/const_eval.bas"
qbs_set(_FUNC_LOGICALNOT_STRING_ELE,FUNC_GETNEXTELEMENT(_FUNC_LOGICALNOT_STRING_EXP,(int32*)(void*)( ((char*)(_FUNC_LOGICALNOT_UDT_STATE)) + ((0+0)) ),(int32*)(void*)( ((char*)(_FUNC_LOGICALNOT_UDT_STATE)) + ((0+4)) )));
#line 388 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 388 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,388,"const_eval.bas");}while(r);
#line 388 "utilities/const_eval.bas"
}
#line 390 "utilities/const_eval.bas"
S_40880:;
#line 390 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_RELATION(_FUNC_LOGICALNOT_STRING_EXP,(void*)( ((char*)(_FUNC_LOGICALNOT_UDT_STATE)) + ((0+0)) ))== 0 )))||is_error_pending()){
#line 390 "utilities/const_eval.bas"
if(qbevent){evnt(28806,390,"const_eval.bas");if(r)goto S_40880;}
#line 390 "utilities/const_eval.bas"
do{
#line 390 "utilities/const_eval.bas"
SUB_FIXUPERRORMESSAGE((void*)( ((char*)(_FUNC_LOGICALNOT_UDT_STATE)) + ((0+0)) ),qbs_new_txt_len("NOT",3));
#line 390 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 390 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,390,"const_eval.bas");}while(r);
#line 390 "utilities/const_eval.bas"
do{
#line 390 "utilities/const_eval.bas"
goto exit_subfunc;
#line 390 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,390,"const_eval.bas");}while(r);
#line 390 "utilities/const_eval.bas"
}
#line 392 "utilities/const_eval.bas"
S_40884:;
#line 392 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LOGICALNOT_STRING_ELE,qbs_new_txt_len("NOT",3))))||is_error_pending()){
#line 392 "utilities/const_eval.bas"
if(qbevent){evnt(28806,392,"const_eval.bas");if(r)goto S_40884;}
#line 393 "utilities/const_eval.bas"
S_40885:;
#line 393 "utilities/const_eval.bas"
if (((*_FUNC_LOGICALNOT_LONG_NUM__ASCII_CHR_046__TYP&*__LONG_ISUNSIGNED)|(*(int32*)(((char*)_FUNC_LOGICALNOT_UDT_STATE)+((0+64)))&*__LONG_ISUNSIGNED))||is_error_pending()){
#line 393 "utilities/const_eval.bas"
if(qbevent){evnt(28806,393,"const_eval.bas");if(r)goto S_40885;}
#line 394 "utilities/const_eval.bas"
do{
#line 394 "utilities/const_eval.bas"
SUB_PARSENUMSETUI((void*)( ((char*)(_FUNC_LOGICALNOT_UDT_STATE)) + ((0+8)) ),&(pass4071=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),&(pass4072=~(*(uint64*)(((char*)_FUNC_LOGICALNOT_UDT_STATE)+((0+48))))));
#line 394 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,394,"const_eval.bas");}while(r);
#line 395 "utilities/const_eval.bas"
}else{
#line 396 "utilities/const_eval.bas"
do{
#line 396 "utilities/const_eval.bas"
SUB_PARSENUMSETI((void*)( ((char*)(_FUNC_LOGICALNOT_UDT_STATE)) + ((0+8)) ),&(pass4073=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER),&(pass4074=~(*(int64*)(((char*)_FUNC_LOGICALNOT_UDT_STATE)+((0+40))))));
#line 396 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,396,"const_eval.bas");}while(r);
#line 397 "utilities/const_eval.bas"
}
#line 398 "utilities/const_eval.bas"
}
#line 400 "utilities/const_eval.bas"
do{
#line 400 "utilities/const_eval.bas"
*_FUNC_LOGICALNOT_LONG_LOGICALNOT= -1 ;
#line 400 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,400,"const_eval.bas");}while(r);
#line 401 "utilities/const_eval.bas"
exit_subfunc:;
#line 401 "utilities/const_eval.bas"
free_mem_lock(sf_mem_lock);
#line 401 "utilities/const_eval.bas"
#include "free251.txt"
#line 401 "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 401 "utilities/const_eval.bas"
cmem_sp=tmp_cmem_sp;
#line 401 "utilities/const_eval.bas"
return *_FUNC_LOGICALNOT_LONG_LOGICALNOT;
#line 401 "utilities/const_eval.bas"
}
