QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-06-29 07:00:39 +00:00
Code Releases Wiki Activity

Update internal/source

Browse source
This commit is contained in:
Autobuild Process 2021-02-14 03:56:09 +00:00
parent 731e9cd0df
commit ae55e06ad7
7 changed files with 53342 additions and 53125 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
internal/source/clear.txt
View file

@ -792,6 +792,7 @@ __STRING_LASTWARNINGHEADER->len=0;
*__BYTE_DUPLICATECONSTWARNING=0;
*__BYTE_WARNINGSISSUED=0;
*__BYTE_EMPTYSCWARNING=0;
*__LONG_MAXLINENUMBER=0;
*__LONG_EXEICONSET=0;
__STRING_QB64PREFIX->len=0;
*__LONG_QB64PREFIX_SET=0;
@ -2249,6 +2250,7 @@ __STRING_A3->len=0;
*__LONG_FIRSTLINE=0;
__STRING_F->len=0;
*__LONG_DUMMY=0;
__STRING_TERRMSG->len=0;
__STRING_CURRENTDIR->len=0;
*__LONG_BU_DEPENDENCY_CONSOLE_ONLY=0;
*__LONG_CLOSEALL=0;
@ -2284,6 +2286,57 @@ __ARRAY_STRING_WARNING[6]=0;
__ARRAY_STRING_WARNING[0]=(ptrszint)&nothingstring;
}
}
if (__ARRAY_LONG_WARNINGLINES[2]&1){
if (__ARRAY_LONG_WARNINGLINES[2]&2){
memset((void*)(__ARRAY_LONG_WARNINGLINES[0]),0,__ARRAY_LONG_WARNINGLINES[5]*4);
}else{
if (__ARRAY_LONG_WARNINGLINES[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_WARNINGLINES[0]));
}else{
free((void*)(__ARRAY_LONG_WARNINGLINES[0]));
}
__ARRAY_LONG_WARNINGLINES[2]^=1;
__ARRAY_LONG_WARNINGLINES[4]=2147483647;
__ARRAY_LONG_WARNINGLINES[5]=0;
__ARRAY_LONG_WARNINGLINES[6]=0;
__ARRAY_LONG_WARNINGLINES[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_WARNINGINCLINES[2]&1){
if (__ARRAY_LONG_WARNINGINCLINES[2]&2){
memset((void*)(__ARRAY_LONG_WARNINGINCLINES[0]),0,__ARRAY_LONG_WARNINGINCLINES[5]*4);
}else{
if (__ARRAY_LONG_WARNINGINCLINES[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_WARNINGINCLINES[0]));
}else{
free((void*)(__ARRAY_LONG_WARNINGINCLINES[0]));
}
__ARRAY_LONG_WARNINGINCLINES[2]^=1;
__ARRAY_LONG_WARNINGINCLINES[4]=2147483647;
__ARRAY_LONG_WARNINGINCLINES[5]=0;
__ARRAY_LONG_WARNINGINCLINES[6]=0;
__ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_STRING_WARNINGINCFILES[2]&1){
if (__ARRAY_STRING_WARNINGINCFILES[2]&2){
tmp_long=__ARRAY_STRING_WARNINGINCFILES[5];
while(tmp_long--){
((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]))->len=0;
}
}else{
tmp_long=__ARRAY_STRING_WARNINGINCFILES[5];
while(tmp_long--){
qbs_free((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]));
}
free((void*)(__ARRAY_STRING_WARNINGINCFILES[0]));
__ARRAY_STRING_WARNINGINCFILES[2]^=1;
__ARRAY_STRING_WARNINGINCFILES[4]=2147483647;
__ARRAY_STRING_WARNINGINCFILES[5]=0;
__ARRAY_STRING_WARNINGINCFILES[6]=0;
__ARRAY_STRING_WARNINGINCFILES[0]=(ptrszint)&nothingstring;
}
}
*__LONG_PTRSZ=0;
*__LONG_I2=0;
*__LONG_I3=0;

41
internal/source/data164.txt
View file

@ -30,42 +30,6 @@ if(_FUNC_IDEWARNINGBOX_STRING1_SEP==NULL){
_FUNC_IDEWARNINGBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0);
memset(_FUNC_IDEWARNINGBOX_STRING1_SEP->chr,0,1);
}
ptrszint *_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES=NULL;
if (!_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES){
_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES)[8]=(ptrszint)mem_lock_tmp;
_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[2]=0;
_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[4]=2147483647;
_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[5]=0;
_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[6]=0;
_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]=(ptrszint)nothingvalue;
}
ptrszint *_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES=NULL;
if (!_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES){
_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES)[8]=(ptrszint)mem_lock_tmp;
_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[2]=0;
_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[4]=2147483647;
_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[5]=0;
_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[6]=0;
_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)nothingvalue;
}
ptrszint *_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES=NULL;
if (!_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES){
_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES)[8]=(ptrszint)mem_lock_tmp;
_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[2]=0;
_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[4]=2147483647;
_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[5]=0;
_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[6]=0;
_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[0]=(ptrszint)&nothingstring;
}
byte_element_struct *byte_element_4810=NULL;
if (!byte_element_4810){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4810=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4810=(byte_element_struct*)mem_static_malloc(12);
@ -90,11 +54,6 @@ int64 fornext_value4813;
int64 fornext_finalvalue4813;
int64 fornext_step4813;
uint8 fornext_step_negative4813;
int32 *_FUNC_IDEWARNINGBOX_LONG_WARNINGINCLEVEL=NULL;
if(_FUNC_IDEWARNINGBOX_LONG_WARNINGINCLEVEL==NULL){
_FUNC_IDEWARNINGBOX_LONG_WARNINGINCLEVEL=(int32*)mem_static_malloc(4);
*_FUNC_IDEWARNINGBOX_LONG_WARNINGINCLEVEL=0;
}
byte_element_struct *byte_element_4814=NULL;
if (!byte_element_4814){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4814=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4814=(byte_element_struct*)mem_static_malloc(12);

22
internal/source/free164.txt
View file

@ -7,28 +7,6 @@ free((void*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]));
}
free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O)[8] );
qbs_free(_FUNC_IDEWARNINGBOX_STRING1_SEP);
if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[2]&1){
if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[2]&4){
cmem_dynamic_free((uint8*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]));
}else{
free((void*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGLINES)[8] );
if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[2]&1){
if (_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[2]&4){
cmem_dynamic_free((uint8*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[0]));
}else{
free((void*)(_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEWARNINGBOX_ARRAY_LONG_WARNINGINCLINES)[8] );
if (_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[2]&1){
tmp_long=_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]);
free((void*)(_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES[0]));
}
free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_IDEWARNINGBOX_ARRAY_STRING_WARNINGINCFILES)[8] );
qbs_free(_FUNC_IDEWARNINGBOX_STRING_THISPROG);
qbs_free(_FUNC_IDEWARNINGBOX_STRING_L);
qbs_free(_FUNC_IDEWARNINGBOX_STRING_L3);

5
internal/source/global.txt
View file

@ -280,6 +280,7 @@ qbs *__STRING_LASTWARNINGHEADER=NULL;
int8 *__BYTE_DUPLICATECONSTWARNING=NULL;
int8 *__BYTE_WARNINGSISSUED=NULL;
int8 *__BYTE_EMPTYSCWARNING=NULL;
int32 *__LONG_MAXLINENUMBER=NULL;
int32 *__LONG_EXEICONSET=NULL;
qbs *__STRING_QB64PREFIX=NULL;
int32 *__LONG_QB64PREFIX_SET=NULL;
@ -609,6 +610,7 @@ int32 *__LONG_LASTLINE=NULL;
int32 *__LONG_FIRSTLINE=NULL;
qbs *__STRING_F=NULL;
int32 *__LONG_DUMMY=NULL;
qbs *__STRING_TERRMSG=NULL;
qbs *__STRING_CURRENTDIR=NULL;
int32 *__LONG_BU_DEPENDENCY_CONSOLE_ONLY=NULL;
int32 *__LONG_CLOSEALL=NULL;
@ -626,6 +628,9 @@ int32 *__LONG_DYNSCOPE=NULL;
int32 *__LONG_ELSEFOLLOWUP=NULL;
int32 *__LONG_DEFININGTYPE=NULL;
ptrszint *__ARRAY_STRING_WARNING=NULL;
ptrszint *__ARRAY_LONG_WARNINGLINES=NULL;
ptrszint *__ARRAY_LONG_WARNINGINCLINES=NULL;
ptrszint *__ARRAY_STRING_WARNINGINCFILES=NULL;
int32 *__LONG_PTRSZ=NULL;
int32 *__LONG_I2=NULL;
int32 *__LONG_I3=NULL;

106285
internal/source/main.txt
View file

File diff suppressed because it is too large Load diff

38
internal/source/maindata.txt
View file

@ -1177,6 +1177,10 @@ if(__BYTE_EMPTYSCWARNING==NULL){
__BYTE_EMPTYSCWARNING=(int8*)mem_static_malloc(1);
*__BYTE_EMPTYSCWARNING=0;
}
if(__LONG_MAXLINENUMBER==NULL){
__LONG_MAXLINENUMBER=(int32*)mem_static_malloc(4);
*__LONG_MAXLINENUMBER=0;
}
if(__LONG_EXEICONSET==NULL){
__LONG_EXEICONSET=(int32*)mem_static_malloc(4);
*__LONG_EXEICONSET=0;
@ -2907,6 +2911,7 @@ __LONG_DUMMY=(int32*)mem_static_malloc(4);
*__LONG_DUMMY=0;
}
int8 pass64;
if (!__STRING_TERRMSG)__STRING_TERRMSG=qbs_new(0,0);
int32 pass66;
int32 pass67;
int32 pass68;
@ -3125,6 +3130,39 @@ __ARRAY_STRING_WARNING[5]=0;
__ARRAY_STRING_WARNING[6]=0;
__ARRAY_STRING_WARNING[0]=(ptrszint)&nothingstring;
}
if (!__ARRAY_LONG_WARNINGLINES){
__ARRAY_LONG_WARNINGLINES=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_WARNINGLINES)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_WARNINGLINES[2]=0;
__ARRAY_LONG_WARNINGLINES[4]=2147483647;
__ARRAY_LONG_WARNINGLINES[5]=0;
__ARRAY_LONG_WARNINGLINES[6]=0;
__ARRAY_LONG_WARNINGLINES[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_WARNINGINCLINES){
__ARRAY_LONG_WARNINGINCLINES=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_WARNINGINCLINES)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_WARNINGINCLINES[2]=0;
__ARRAY_LONG_WARNINGINCLINES[4]=2147483647;
__ARRAY_LONG_WARNINGINCLINES[5]=0;
__ARRAY_LONG_WARNINGINCLINES[6]=0;
__ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_STRING_WARNINGINCFILES){
__ARRAY_STRING_WARNINGINCFILES=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_STRING_WARNINGINCFILES)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_STRING_WARNINGINCFILES[2]=0;
__ARRAY_STRING_WARNINGINCFILES[4]=2147483647;
__ARRAY_STRING_WARNINGINCFILES[5]=0;
__ARRAY_STRING_WARNINGINCFILES[6]=0;
__ARRAY_STRING_WARNINGINCFILES[0]=(ptrszint)&nothingstring;
}
if(__LONG_PTRSZ==NULL){
__LONG_PTRSZ=(int32*)mem_static_malloc(4);
*__LONG_PTRSZ=0;

23
internal/source/mainfree.txt
View file

@ -887,6 +887,7 @@ qbs_free(__STRING_SENDC);
qbs_free(__STRING_C);
qbs_free(__STRING_A3);
qbs_free(__STRING_F);
qbs_free(__STRING_TERRMSG);
qbs_free(__STRING_CURRENTDIR);
qbs_free(__STRING_MYLIB);
qbs_free(__STRING_MYLIBOPT);
@ -896,6 +897,28 @@ while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long
free((void*)(__ARRAY_STRING_WARNING[0]));
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_WARNING)[8] );
if (__ARRAY_LONG_WARNINGLINES[2]&1){
if (__ARRAY_LONG_WARNINGLINES[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_WARNINGLINES[0]));
}else{
free((void*)(__ARRAY_LONG_WARNINGLINES[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_WARNINGLINES)[8] );
if (__ARRAY_LONG_WARNINGINCLINES[2]&1){
if (__ARRAY_LONG_WARNINGINCLINES[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_WARNINGINCLINES[0]));
}else{
free((void*)(__ARRAY_LONG_WARNINGINCLINES[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_WARNINGINCLINES)[8] );
if (__ARRAY_STRING_WARNINGINCFILES[2]&1){
tmp_long=__ARRAY_STRING_WARNINGINCFILES[5];
while(tmp_long--) qbs_free((qbs*)((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]);
free((void*)(__ARRAY_STRING_WARNINGINCFILES[0]));
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING_WARNINGINCFILES)[8] );
qbs_free(__STRING_WHOLESTV);
qbs_free(__STRING_TEMP);
qbs_free(__STRING_L);