#line 28660 "qb64pe.bas"
void SUB_ADDWARNING(int32*_SUB_ADDWARNING_LONG_WHICHLINENUMBER,int32*_SUB_ADDWARNING_LONG_INCLUDELEVEL,int32*_SUB_ADDWARNING_LONG_INCLINENUMBER,qbs*_SUB_ADDWARNING_STRING_INCFILENAME,qbs*_SUB_ADDWARNING_STRING_HEADER,qbs*_SUB_ADDWARNING_STRING_TEXT){
#line 28660 "qb64pe.bas"
qbs *tqbs;
#line 28660 "qb64pe.bas"
ptrszint tmp_long;
#line 28660 "qb64pe.bas"
int32 tmp_fileno;
#line 28660 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 28660 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 28660 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 28660 "qb64pe.bas"
#include "data115.txt"
#line 28660 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 28660 "qb64pe.bas"
new_mem_lock();
#line 28660 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 28660 "qb64pe.bas"
sf_mem_lock->type=3;
#line 28660 "qb64pe.bas"
libqb_check_stack();
#line 28660 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 28661 "qb64pe.bas"
do{
#line 28661 "qb64pe.bas"
*__BYTE_WARNINGSISSUED= -1 ;
#line 28661 "qb64pe.bas"
if(!qbevent)break;evnt(28661);}while(r);
#line 28662 "qb64pe.bas"
do{
#line 28662 "qb64pe.bas"
*__LONG_TOTALWARNINGS=*__LONG_TOTALWARNINGS+ 1 ;
#line 28662 "qb64pe.bas"
if(!qbevent)break;evnt(28662);}while(r);
#line 28664 "qb64pe.bas"
S_37091:;
#line 28664 "qb64pe.bas"
if (((-(*__LONG_IDEMODE== 0 ))&*__BYTE_SHOWWARNINGS)||is_error_pending()){
#line 28664 "qb64pe.bas"
if(qbevent){evnt(28664);if(r)goto S_37091;}
#line 28665 "qb64pe.bas"
do{
#line 28665 "qb64pe.bas"
qbs_set(_SUB_ADDWARNING_STRING_THISSOURCE,FUNC_GETFILEPATH(__STRING_CMDLINESRCFILE));
#line 28665 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28665 "qb64pe.bas"
if(!qbevent)break;evnt(28665);}while(r);
#line 28666 "qb64pe.bas"
do{
#line 28666 "qb64pe.bas"
qbs_set(_SUB_ADDWARNING_STRING_THISSOURCE,func_mid(__STRING_CMDLINESRCFILE,_SUB_ADDWARNING_STRING_THISSOURCE->len+ 1 ,NULL,0));
#line 28666 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28666 "qb64pe.bas"
if(!qbevent)break;evnt(28666);}while(r);
#line 28667 "qb64pe.bas"
do{
#line 28667 "qb64pe.bas"
qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,FUNC_GETFILEPATH(_SUB_ADDWARNING_STRING_INCFILENAME));
#line 28667 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28667 "qb64pe.bas"
if(!qbevent)break;evnt(28667);}while(r);
#line 28668 "qb64pe.bas"
do{
#line 28668 "qb64pe.bas"
qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,func_mid(_SUB_ADDWARNING_STRING_INCFILENAME,_SUB_ADDWARNING_STRING_THISINCNAME->len+ 1 ,NULL,0));
#line 28668 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28668 "qb64pe.bas"
if(!qbevent)break;evnt(28668);}while(r);
#line 28670 "qb64pe.bas"
S_37096:;
#line 28670 "qb64pe.bas"
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
#line 28670 "qb64pe.bas"
if(qbevent){evnt(28670);if(r)goto S_37096;}
#line 28670 "qb64pe.bas"
do{
#line 28670 "qb64pe.bas"
qbg_sub_color( 15 ,NULL,NULL,NULL,1);
#line 28670 "qb64pe.bas"
if(!qbevent)break;evnt(28670);}while(r);
#line 28670 "qb64pe.bas"
}
#line 28671 "qb64pe.bas"
S_37099:;
#line 28671 "qb64pe.bas"
if (((-(*_SUB_ADDWARNING_LONG_INCLUDELEVEL> 0 ))&(-(*_SUB_ADDWARNING_LONG_INCLINENUMBER> 0 )))||is_error_pending()){
#line 28671 "qb64pe.bas"
if(qbevent){evnt(28671);if(r)goto S_37099;}
#line 28672 "qb64pe.bas"
do{
#line 28672 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 28672 "qb64pe.bas"
qbs_set(tqbs,_SUB_ADDWARNING_STRING_THISINCNAME);
#line 28672 "qb64pe.bas"
if (is_error_pending()) goto skip3523;
#line 28672 "qb64pe.bas"
makefit(tqbs);
#line 28672 "qb64pe.bas"
qbs_print(tqbs,0);
#line 28672 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len(":",1));
#line 28672 "qb64pe.bas"
if (is_error_pending()) goto skip3523;
#line 28672 "qb64pe.bas"
makefit(tqbs);
#line 28672 "qb64pe.bas"
qbs_print(tqbs,0);
#line 28672 "qb64pe.bas"
skip3523:
#line 28672 "qb64pe.bas"
qbs_free(tqbs);
#line 28672 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28672 "qb64pe.bas"
if(!qbevent)break;evnt(28672);}while(r);
#line 28673 "qb64pe.bas"
do{
#line 28673 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 28673 "qb64pe.bas"
qbs_set(tqbs,qbs__tostr((int32)(*_SUB_ADDWARNING_LONG_INCLINENUMBER),NULL,0));
#line 28673 "qb64pe.bas"
if (is_error_pending()) goto skip3524;
#line 28673 "qb64pe.bas"
makefit(tqbs);
#line 28673 "qb64pe.bas"
qbs_print(tqbs,0);
#line 28673 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len(": ",2));
#line 28673 "qb64pe.bas"
if (is_error_pending()) goto skip3524;
#line 28673 "qb64pe.bas"
makefit(tqbs);
#line 28673 "qb64pe.bas"
qbs_print(tqbs,0);
#line 28673 "qb64pe.bas"
skip3524:
#line 28673 "qb64pe.bas"
qbs_free(tqbs);
#line 28673 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28673 "qb64pe.bas"
if(!qbevent)break;evnt(28673);}while(r);
#line 28674 "qb64pe.bas"
}else{
#line 28675 "qb64pe.bas"
do{
#line 28675 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 28675 "qb64pe.bas"
qbs_set(tqbs,_SUB_ADDWARNING_STRING_THISSOURCE);
#line 28675 "qb64pe.bas"
if (is_error_pending()) goto skip3525;
#line 28675 "qb64pe.bas"
makefit(tqbs);
#line 28675 "qb64pe.bas"
qbs_print(tqbs,0);
#line 28675 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len(":",1));
#line 28675 "qb64pe.bas"
if (is_error_pending()) goto skip3525;
#line 28675 "qb64pe.bas"
makefit(tqbs);
#line 28675 "qb64pe.bas"
qbs_print(tqbs,0);
#line 28675 "qb64pe.bas"
skip3525:
#line 28675 "qb64pe.bas"
qbs_free(tqbs);
#line 28675 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28675 "qb64pe.bas"
if(!qbevent)break;evnt(28675);}while(r);
#line 28676 "qb64pe.bas"
do{
#line 28676 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 28676 "qb64pe.bas"
qbs_set(tqbs,qbs__tostr((int32)(*_SUB_ADDWARNING_LONG_WHICHLINENUMBER),NULL,0));
#line 28676 "qb64pe.bas"
if (is_error_pending()) goto skip3526;
#line 28676 "qb64pe.bas"
makefit(tqbs);
#line 28676 "qb64pe.bas"
qbs_print(tqbs,0);
#line 28676 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len(": ",2));
#line 28676 "qb64pe.bas"
if (is_error_pending()) goto skip3526;
#line 28676 "qb64pe.bas"
makefit(tqbs);
#line 28676 "qb64pe.bas"
qbs_print(tqbs,0);
#line 28676 "qb64pe.bas"
skip3526:
#line 28676 "qb64pe.bas"
qbs_free(tqbs);
#line 28676 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28676 "qb64pe.bas"
if(!qbevent)break;evnt(28676);}while(r);
#line 28677 "qb64pe.bas"
}
#line 28679 "qb64pe.bas"
S_37106:;
#line 28679 "qb64pe.bas"
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
#line 28679 "qb64pe.bas"
if(qbevent){evnt(28679);if(r)goto S_37106;}
#line 28679 "qb64pe.bas"
do{
#line 28679 "qb64pe.bas"
qbg_sub_color( 13 ,NULL,NULL,NULL,1);
#line 28679 "qb64pe.bas"
if(!qbevent)break;evnt(28679);}while(r);
#line 28679 "qb64pe.bas"
}
#line 28680 "qb64pe.bas"
do{
#line 28680 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 28680 "qb64pe.bas"
qbs_set(tqbs,qbs_new_txt_len("warning: ",9));
#line 28680 "qb64pe.bas"
if (is_error_pending()) goto skip3527;
#line 28680 "qb64pe.bas"
makefit(tqbs);
#line 28680 "qb64pe.bas"
qbs_print(tqbs,0);
#line 28680 "qb64pe.bas"
skip3527:
#line 28680 "qb64pe.bas"
qbs_free(tqbs);
#line 28680 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28680 "qb64pe.bas"
if(!qbevent)break;evnt(28680);}while(r);
#line 28681 "qb64pe.bas"
S_37110:;
#line 28681 "qb64pe.bas"
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
#line 28681 "qb64pe.bas"
if(qbevent){evnt(28681);if(r)goto S_37110;}
#line 28681 "qb64pe.bas"
do{
#line 28681 "qb64pe.bas"
qbg_sub_color( 7 ,NULL,NULL,NULL,1);
#line 28681 "qb64pe.bas"
if(!qbevent)break;evnt(28681);}while(r);
#line 28681 "qb64pe.bas"
}
#line 28682 "qb64pe.bas"
do{
#line 28682 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 28682 "qb64pe.bas"
qbs_set(tqbs,_SUB_ADDWARNING_STRING_HEADER);
#line 28682 "qb64pe.bas"
if (is_error_pending()) goto skip3528;
#line 28682 "qb64pe.bas"
makefit(tqbs);
#line 28682 "qb64pe.bas"
qbs_print(tqbs,0);
#line 28682 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 28682 "qb64pe.bas"
skip3528:
#line 28682 "qb64pe.bas"
qbs_free(tqbs);
#line 28682 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28682 "qb64pe.bas"
if(!qbevent)break;evnt(28682);}while(r);
#line 28684 "qb64pe.bas"
S_37114:;
#line 28684 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_SUB_ADDWARNING_STRING_TEXT->len> 0 )))||is_error_pending()){
#line 28684 "qb64pe.bas"
if(qbevent){evnt(28684);if(r)goto S_37114;}
#line 28685 "qb64pe.bas"
S_37115:;
#line 28685 "qb64pe.bas"
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
#line 28685 "qb64pe.bas"
if(qbevent){evnt(28685);if(r)goto S_37115;}
#line 28685 "qb64pe.bas"
do{
#line 28685 "qb64pe.bas"
qbg_sub_color( 2 ,NULL,NULL,NULL,1);
#line 28685 "qb64pe.bas"
if(!qbevent)break;evnt(28685);}while(r);
#line 28685 "qb64pe.bas"
}
#line 28686 "qb64pe.bas"
do{
#line 28686 "qb64pe.bas"
tqbs=qbs_new(0,0);
#line 28686 "qb64pe.bas"
qbs_set(tqbs,func_space( 4 ));
#line 28686 "qb64pe.bas"
if (is_error_pending()) goto skip3530;
#line 28686 "qb64pe.bas"
makefit(tqbs);
#line 28686 "qb64pe.bas"
qbs_print(tqbs,0);
#line 28686 "qb64pe.bas"
qbs_set(tqbs,_SUB_ADDWARNING_STRING_TEXT);
#line 28686 "qb64pe.bas"
if (is_error_pending()) goto skip3530;
#line 28686 "qb64pe.bas"
makefit(tqbs);
#line 28686 "qb64pe.bas"
qbs_print(tqbs,0);
#line 28686 "qb64pe.bas"
qbs_print(nothingstring,1);
#line 28686 "qb64pe.bas"
skip3530:
#line 28686 "qb64pe.bas"
qbs_free(tqbs);
#line 28686 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28686 "qb64pe.bas"
if(!qbevent)break;evnt(28686);}while(r);
#line 28687 "qb64pe.bas"
S_37119:;
#line 28687 "qb64pe.bas"
if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||is_error_pending()){
#line 28687 "qb64pe.bas"
if(qbevent){evnt(28687);if(r)goto S_37119;}
#line 28687 "qb64pe.bas"
do{
#line 28687 "qb64pe.bas"
qbg_sub_color( 7 ,NULL,NULL,NULL,1);
#line 28687 "qb64pe.bas"
if(!qbevent)break;evnt(28687);}while(r);
#line 28687 "qb64pe.bas"
}
#line 28688 "qb64pe.bas"
}
#line 28689 "qb64pe.bas"
S_37123:;
#line 28689 "qb64pe.bas"
}else{
#line 28689 "qb64pe.bas"
if (*__LONG_IDEMODE){
#line 28689 "qb64pe.bas"
if(qbevent){evnt(28689);if(r)goto S_37123;}
#line 28690 "qb64pe.bas"
S_37124:;
#line 28690 "qb64pe.bas"
if ((~(*__BYTE_IGNOREWARNINGS))||is_error_pending()){
#line 28690 "qb64pe.bas"
if(qbevent){evnt(28690);if(r)goto S_37124;}
#line 28691 "qb64pe.bas"
S_37125:;
#line 28691 "qb64pe.bas"
if ((-(*_SUB_ADDWARNING_LONG_WHICHLINENUMBER>*__LONG_MAXLINENUMBER))||is_error_pending()){
#line 28691 "qb64pe.bas"
if(qbevent){evnt(28691);if(r)goto S_37125;}
#line 28691 "qb64pe.bas"
do{
#line 28691 "qb64pe.bas"
*__LONG_MAXLINENUMBER=*_SUB_ADDWARNING_LONG_WHICHLINENUMBER;
#line 28691 "qb64pe.bas"
if(!qbevent)break;evnt(28691);}while(r);
#line 28691 "qb64pe.bas"
}
#line 28692 "qb64pe.bas"
S_37128:;
#line 28692 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_LASTWARNINGHEADER,_SUB_ADDWARNING_STRING_HEADER)))||is_error_pending()){
#line 28692 "qb64pe.bas"
if(qbevent){evnt(28692);if(r)goto S_37128;}
#line 28693 "qb64pe.bas"
do{
#line 28693 "qb64pe.bas"
qbs_set(__STRING_LASTWARNINGHEADER,_SUB_ADDWARNING_STRING_HEADER);
#line 28693 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28693 "qb64pe.bas"
if(!qbevent)break;evnt(28693);}while(r);
#line 28694 "qb64pe.bas"
do{
#line 28694 "qb64pe.bas"
return_point[next_return_point++]=12;
#line 28694 "qb64pe.bas"
if (next_return_point>=return_points) more_return_points();
#line 28694 "qb64pe.bas"
goto LABEL_INCREASEWARNINGCOUNT;
#line 28694 "qb64pe.bas"
RETURN_12:;
#line 28694 "qb64pe.bas"
if(!qbevent)break;evnt(28694);}while(r);
#line 28695 "qb64pe.bas"
do{
#line 28695 "qb64pe.bas"
tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5]);
#line 28695 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_WARNING[0]))[tmp_long],_SUB_ADDWARNING_STRING_HEADER);
#line 28695 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28695 "qb64pe.bas"
if(!qbevent)break;evnt(28695);}while(r);
#line 28696 "qb64pe.bas"
do{
#line 28696 "qb64pe.bas"
tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5]);
#line 28696 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[tmp_long]= 0 ;
#line 28696 "qb64pe.bas"
if(!qbevent)break;evnt(28696);}while(r);
#line 28697 "qb64pe.bas"
}
#line 28699 "qb64pe.bas"
do{
#line 28699 "qb64pe.bas"
return_point[next_return_point++]=13;
#line 28699 "qb64pe.bas"
if (next_return_point>=return_points) more_return_points();
#line 28699 "qb64pe.bas"
goto LABEL_INCREASEWARNINGCOUNT;
#line 28699 "qb64pe.bas"
RETURN_13:;
#line 28699 "qb64pe.bas"
if(!qbevent)break;evnt(28699);}while(r);
#line 28700 "qb64pe.bas"
do{
#line 28700 "qb64pe.bas"
tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5]);
#line 28700 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_WARNING[0]))[tmp_long],_SUB_ADDWARNING_STRING_TEXT);
#line 28700 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28700 "qb64pe.bas"
if(!qbevent)break;evnt(28700);}while(r);
#line 28701 "qb64pe.bas"
do{
#line 28701 "qb64pe.bas"
tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5]);
#line 28701 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[tmp_long]=*_SUB_ADDWARNING_LONG_WHICHLINENUMBER;
#line 28701 "qb64pe.bas"
if(!qbevent)break;evnt(28701);}while(r);
#line 28702 "qb64pe.bas"
S_37137:;
#line 28702 "qb64pe.bas"
if ((-(*_SUB_ADDWARNING_LONG_INCLUDELEVEL> 0 ))||is_error_pending()){
#line 28702 "qb64pe.bas"
if(qbevent){evnt(28702);if(r)goto S_37137;}
#line 28703 "qb64pe.bas"
do{
#line 28703 "qb64pe.bas"
qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,FUNC_GETFILEPATH(_SUB_ADDWARNING_STRING_INCFILENAME));
#line 28703 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28703 "qb64pe.bas"
if(!qbevent)break;evnt(28703);}while(r);
#line 28704 "qb64pe.bas"
do{
#line 28704 "qb64pe.bas"
qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,func_mid(_SUB_ADDWARNING_STRING_INCFILENAME,_SUB_ADDWARNING_STRING_THISINCNAME->len+ 1 ,NULL,0));
#line 28704 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28704 "qb64pe.bas"
if(!qbevent)break;evnt(28704);}while(r);
#line 28705 "qb64pe.bas"
do{
#line 28705 "qb64pe.bas"
tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5]);
#line 28705 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[tmp_long]=*_SUB_ADDWARNING_LONG_INCLINENUMBER;
#line 28705 "qb64pe.bas"
if(!qbevent)break;evnt(28705);}while(r);
#line 28706 "qb64pe.bas"
do{
#line 28706 "qb64pe.bas"
tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5]);
#line 28706 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long],_SUB_ADDWARNING_STRING_THISINCNAME);
#line 28706 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28706 "qb64pe.bas"
if(!qbevent)break;evnt(28706);}while(r);
#line 28707 "qb64pe.bas"
}else{
#line 28708 "qb64pe.bas"
do{
#line 28708 "qb64pe.bas"
tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5]);
#line 28708 "qb64pe.bas"
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[tmp_long]= 0 ;
#line 28708 "qb64pe.bas"
if(!qbevent)break;evnt(28708);}while(r);
#line 28709 "qb64pe.bas"
do{
#line 28709 "qb64pe.bas"
tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5]);
#line 28709 "qb64pe.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long],qbs_new_txt_len("",0));
#line 28709 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28709 "qb64pe.bas"
if(!qbevent)break;evnt(28709);}while(r);
#line 28710 "qb64pe.bas"
}
#line 28711 "qb64pe.bas"
}
#line 28712 "qb64pe.bas"
}
#line 28712 "qb64pe.bas"
}
#line 28713 "qb64pe.bas"
do{
#line 28713 "qb64pe.bas"
goto exit_subfunc;
#line 28713 "qb64pe.bas"
if(!qbevent)break;evnt(28713);}while(r);
#line 28714 "qb64pe.bas"
LABEL_INCREASEWARNINGCOUNT:;
#line 28714 "qb64pe.bas"
if(qbevent){evnt(28714);r=0;}
#line 28715 "qb64pe.bas"
do{
#line 28715 "qb64pe.bas"
*__LONG_WARNINGLISTITEMS=*__LONG_WARNINGLISTITEMS+ 1 ;
#line 28715 "qb64pe.bas"
if(!qbevent)break;evnt(28715);}while(r);
#line 28716 "qb64pe.bas"
S_37150:;
#line 28716 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_WARNINGLISTITEMS>func_ubound(__ARRAY_STRING_WARNING,1,1))))||is_error_pending()){
#line 28716 "qb64pe.bas"
if(qbevent){evnt(28716);if(r)goto S_37150;}
#line 28717 "qb64pe.bas"
do{
if (__ARRAY_STRING_WARNING[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_WARNING)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_WARNING[2]&1){
preserve_old_ptr=__ARRAY_STRING_WARNING[0];
preserve_old_flags=__ARRAY_STRING_WARNING[2];
preserve_old_total=__ARRAY_STRING_WARNING[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_WARNINGLISTITEMS+ 999 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_WARNING[0]=preserve_new_ptr;
__ARRAY_STRING_WARNING[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_WARNING[2]&4){
while(tmp_long--) ((qbs**)(__ARRAY_STRING_WARNING[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_WARNING[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_WARNING[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_WARNING[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_WARNING[0]) error(257);
__ARRAY_STRING_WARNING[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_WARNING[2]&4){
while(tmp_long--) ((qbs**)(__ARRAY_STRING_WARNING[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_WARNING[0]))[tmp_long]=qbs_new(0,0);
}
}
__ARRAY_STRING_WARNING[4]=alloc_new_desc[4];
__ARRAY_STRING_WARNING[5]=alloc_new_desc[5];
__ARRAY_STRING_WARNING[6]=alloc_new_desc[6];
__ARRAY_STRING_WARNING[7]=alloc_new_desc[7];
}
#line 28717 "qb64pe.bas"
if(!qbevent)break;evnt(28717);}while(r);
#line 28718 "qb64pe.bas"
do{
if (__ARRAY_LONG_WARNINGLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_WARNINGLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_WARNINGLINES[2]&1){
preserve_old_ptr=__ARRAY_LONG_WARNINGLINES[0];
preserve_old_flags=__ARRAY_LONG_WARNINGLINES[2];
preserve_old_total=__ARRAY_LONG_WARNINGLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_WARNINGLISTITEMS+ 999 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_WARNINGLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_WARNINGLINES[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_WARNINGLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_WARNINGLINES[0]) error(257);
memset((void*)(__ARRAY_LONG_WARNINGLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_WARNINGLINES[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_WARNINGLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_WARNINGLINES[0]) error(257);
}
}
__ARRAY_LONG_WARNINGLINES[2]|=1;
__ARRAY_LONG_WARNINGLINES[4]=alloc_new_desc[4];
__ARRAY_LONG_WARNINGLINES[5]=alloc_new_desc[5];
__ARRAY_LONG_WARNINGLINES[6]=alloc_new_desc[6];
__ARRAY_LONG_WARNINGLINES[7]=alloc_new_desc[7];
}
#line 28718 "qb64pe.bas"
if(!qbevent)break;evnt(28718);}while(r);
#line 28719 "qb64pe.bas"
do{
if (__ARRAY_LONG_WARNINGINCLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_LONG_WARNINGINCLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_WARNINGINCLINES[2]&1){
preserve_old_ptr=__ARRAY_LONG_WARNINGINCLINES[0];
preserve_old_flags=__ARRAY_LONG_WARNINGINCLINES[2];
preserve_old_total=__ARRAY_LONG_WARNINGINCLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_WARNINGLISTITEMS+ 999 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_WARNINGINCLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_WARNINGINCLINES[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_WARNINGINCLINES[0]) error(257);
memset((void*)(__ARRAY_LONG_WARNINGINCLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_WARNINGINCLINES[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_WARNINGINCLINES[0]) error(257);
}
}
__ARRAY_LONG_WARNINGINCLINES[2]|=1;
__ARRAY_LONG_WARNINGINCLINES[4]=alloc_new_desc[4];
__ARRAY_LONG_WARNINGINCLINES[5]=alloc_new_desc[5];
__ARRAY_LONG_WARNINGINCLINES[6]=alloc_new_desc[6];
__ARRAY_LONG_WARNINGINCLINES[7]=alloc_new_desc[7];
}
#line 28719 "qb64pe.bas"
if(!qbevent)break;evnt(28719);}while(r);
#line 28720 "qb64pe.bas"
do{
if (__ARRAY_STRING_WARNINGINCFILES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_WARNINGINCFILES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_WARNINGINCFILES[2]&1){
preserve_old_ptr=__ARRAY_STRING_WARNINGINCFILES[0];
preserve_old_flags=__ARRAY_STRING_WARNINGINCFILES[2];
preserve_old_total=__ARRAY_STRING_WARNINGINCFILES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_WARNINGLISTITEMS+ 999 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_WARNINGINCFILES[0]=preserve_new_ptr;
__ARRAY_STRING_WARNINGINCFILES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_WARNINGINCFILES[2]&4){
while(tmp_long--) ((qbs**)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set(((qbs**)(preserve_new_ptr))[tmp_long],((qbs**)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free(((qbs**)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_WARNINGINCFILES[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_WARNINGINCFILES[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_WARNINGINCFILES[0]) error(257);
__ARRAY_STRING_WARNINGINCFILES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_WARNINGINCFILES[2]&4){
while(tmp_long--) ((qbs**)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=qbs_new(0,0);
}
}
__ARRAY_STRING_WARNINGINCFILES[4]=alloc_new_desc[4];
__ARRAY_STRING_WARNINGINCFILES[5]=alloc_new_desc[5];
__ARRAY_STRING_WARNINGINCFILES[6]=alloc_new_desc[6];
__ARRAY_STRING_WARNINGINCFILES[7]=alloc_new_desc[7];
}
#line 28720 "qb64pe.bas"
if(!qbevent)break;evnt(28720);}while(r);
#line 28721 "qb64pe.bas"
}
#line 28722 "qb64pe.bas"
do{
#line 28722 "qb64pe.bas"
#include "ret115.txt"
#line 28722 "qb64pe.bas"
if(!qbevent)break;evnt(28722);}while(r);
#line 28723 "qb64pe.bas"
exit_subfunc:;
#line 28723 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 28723 "qb64pe.bas"
#include "free115.txt"
#line 28723 "qb64pe.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 28723 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 28723 "qb64pe.bas"
}
