QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-06 00:00:22 +00:00
Code Issues Releases Wiki Activity

Update internal/source

Browse source
This commit is contained in:
Autobuild Process 2021-06-20 03:06:54 +00:00
parent 6181fe54e4
commit 22134a4c83
11 changed files with 47858 additions and 45922 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
internal/source/clear.txt
View file

@ -1897,12 +1897,12 @@ __ARRAY_LONG_UDTENEXT[6]=0;
__ARRAY_LONG_UDTENEXT[0]=(ptrszint)nothingvalue; __ARRAY_LONG_UDTENEXT[0]=(ptrszint)nothingvalue;
} }
} }
memset((void*)__UDT_ID,0,2861); memset((void*)__UDT_ID,0,2869);
*__LONG_IDN=0; *__LONG_IDN=0;
*__LONG_IDS_MAX=0; *__LONG_IDS_MAX=0;
if (__ARRAY_UDT_IDS[2]&1){ if (__ARRAY_UDT_IDS[2]&1){
if (__ARRAY_UDT_IDS[2]&2){ if (__ARRAY_UDT_IDS[2]&2){
memset((void*)(__ARRAY_UDT_IDS[0]),0,__ARRAY_UDT_IDS[5]*2861); memset((void*)(__ARRAY_UDT_IDS[0]),0,__ARRAY_UDT_IDS[5]*2869);
}else{ }else{
if (__ARRAY_UDT_IDS[2]&4){ if (__ARRAY_UDT_IDS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDS[0])); cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDS[0]));
@ -1964,7 +1964,7 @@ __ARRAY_INTEGER_ARRAYELEMENTSLIST[6]=0;
__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)nothingvalue; __ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)nothingvalue;
} }
} }
memset((void*)__UDT_CLEARIDDATA,0,2861); memset((void*)__UDT_CLEARIDDATA,0,2869);
*__LONG_ISSTRING=0; *__LONG_ISSTRING=0;
*__LONG_ISFLOAT=0; *__LONG_ISFLOAT=0;
*__LONG_ISUNSIGNED=0; *__LONG_ISUNSIGNED=0;
@ -2191,7 +2191,7 @@ __ARRAY_LONG_CONTROLREF[0]=(ptrszint)nothingvalue;
} }
*__INTEGER64_I2=0; *__INTEGER64_I2=0;
*__INTEGER64_I=0; *__INTEGER64_I=0;
memset((void*)__UDT_ID2,0,2861); memset((void*)__UDT_ID2,0,2869);
if (__ARRAY_LONG_SFIDLIST[2]&1){ if (__ARRAY_LONG_SFIDLIST[2]&1){
if (__ARRAY_LONG_SFIDLIST[2]&2){ if (__ARRAY_LONG_SFIDLIST[2]&2){
memset((void*)(__ARRAY_LONG_SFIDLIST[0]),0,__ARRAY_LONG_SFIDLIST[5]*4); memset((void*)(__ARRAY_LONG_SFIDLIST[0]),0,__ARRAY_LONG_SFIDLIST[5]*4);

5
internal/source/data14.txt
View file

@ -14,8 +14,9 @@ qbs *_FUNC_EVALUATEFUNC_STRING_A=NULL;
if (!_FUNC_EVALUATEFUNC_STRING_A)_FUNC_EVALUATEFUNC_STRING_A=qbs_new(0,0); if (!_FUNC_EVALUATEFUNC_STRING_A)_FUNC_EVALUATEFUNC_STRING_A=qbs_new(0,0);
void *_FUNC_EVALUATEFUNC_UDT_ID2=NULL; void *_FUNC_EVALUATEFUNC_UDT_ID2=NULL;
if(_FUNC_EVALUATEFUNC_UDT_ID2==NULL){ if(_FUNC_EVALUATEFUNC_UDT_ID2==NULL){
_FUNC_EVALUATEFUNC_UDT_ID2=(void*)mem_static_malloc(2861); _FUNC_EVALUATEFUNC_UDT_ID2=(void*)mem_static_malloc(2869);
memset(_FUNC_EVALUATEFUNC_UDT_ID2,0,2861); memset(_FUNC_EVALUATEFUNC_UDT_ID2,0,2869);
*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+ 2861) = qbs_new(0,0);
} }
qbs *_FUNC_EVALUATEFUNC_STRING_N=NULL; qbs *_FUNC_EVALUATEFUNC_STRING_N=NULL;
if (!_FUNC_EVALUATEFUNC_STRING_N)_FUNC_EVALUATEFUNC_STRING_N=qbs_new(0,0); if (!_FUNC_EVALUATEFUNC_STRING_N)_FUNC_EVALUATEFUNC_STRING_N=qbs_new(0,0);

5
internal/source/data39.txt
View file

@ -42,8 +42,9 @@ int64 fornext_step2896;
uint8 fornext_step_negative2896; uint8 fornext_step_negative2896;
void *_FUNC_SEPERATEARGS_UDT_ID2=NULL; void *_FUNC_SEPERATEARGS_UDT_ID2=NULL;
if(_FUNC_SEPERATEARGS_UDT_ID2==NULL){ if(_FUNC_SEPERATEARGS_UDT_ID2==NULL){
_FUNC_SEPERATEARGS_UDT_ID2=(void*)mem_static_malloc(2861); _FUNC_SEPERATEARGS_UDT_ID2=(void*)mem_static_malloc(2869);
memset(_FUNC_SEPERATEARGS_UDT_ID2,0,2861); memset(_FUNC_SEPERATEARGS_UDT_ID2,0,2869);
*(qbs**)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+ 2861) = qbs_new(0,0);
} }
qbs *_FUNC_SEPERATEARGS_STRING_S=NULL; qbs *_FUNC_SEPERATEARGS_STRING_S=NULL;
if (!_FUNC_SEPERATEARGS_STRING_S)_FUNC_SEPERATEARGS_STRING_S=qbs_new(0,0); if (!_FUNC_SEPERATEARGS_STRING_S)_FUNC_SEPERATEARGS_STRING_S=qbs_new(0,0);

5
internal/source/data6.txt
View file

@ -14,8 +14,9 @@ qbs *_FUNC_ARRAYREFERENCE_STRING_IDNUMBER=NULL;
if (!_FUNC_ARRAYREFERENCE_STRING_IDNUMBER)_FUNC_ARRAYREFERENCE_STRING_IDNUMBER=qbs_new(0,0); if (!_FUNC_ARRAYREFERENCE_STRING_IDNUMBER)_FUNC_ARRAYREFERENCE_STRING_IDNUMBER=qbs_new(0,0);
void *_FUNC_ARRAYREFERENCE_UDT_ID2=NULL; void *_FUNC_ARRAYREFERENCE_UDT_ID2=NULL;
if(_FUNC_ARRAYREFERENCE_UDT_ID2==NULL){ if(_FUNC_ARRAYREFERENCE_UDT_ID2==NULL){
_FUNC_ARRAYREFERENCE_UDT_ID2=(void*)mem_static_malloc(2861); _FUNC_ARRAYREFERENCE_UDT_ID2=(void*)mem_static_malloc(2869);
memset(_FUNC_ARRAYREFERENCE_UDT_ID2,0,2861); memset(_FUNC_ARRAYREFERENCE_UDT_ID2,0,2869);
*(qbs**)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+ 2861) = qbs_new(0,0);
} }
qbs *_FUNC_ARRAYREFERENCE_STRING_A=NULL; qbs *_FUNC_ARRAYREFERENCE_STRING_A=NULL;
if (!_FUNC_ARRAYREFERENCE_STRING_A)_FUNC_ARRAYREFERENCE_STRING_A=qbs_new(0,0); if (!_FUNC_ARRAYREFERENCE_STRING_A)_FUNC_ARRAYREFERENCE_STRING_A=qbs_new(0,0);

1
internal/source/free14.txt
View file

@ -3,6 +3,7 @@ if(oldstr2438->fixed)qbs_set(oldstr2438,_FUNC_EVALUATEFUNC_STRING_A2);
qbs_free(_FUNC_EVALUATEFUNC_STRING_A2); qbs_free(_FUNC_EVALUATEFUNC_STRING_A2);
} }
qbs_free(_FUNC_EVALUATEFUNC_STRING_A); qbs_free(_FUNC_EVALUATEFUNC_STRING_A);
qbs_free(*((qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+ 2861)));
qbs_free(_FUNC_EVALUATEFUNC_STRING_N); qbs_free(_FUNC_EVALUATEFUNC_STRING_N);
qbs_free(_FUNC_EVALUATEFUNC_STRING_F); qbs_free(_FUNC_EVALUATEFUNC_STRING_F);
qbs_free(_FUNC_EVALUATEFUNC_STRING_R); qbs_free(_FUNC_EVALUATEFUNC_STRING_R);

1
internal/source/free39.txt
View file

@ -6,6 +6,7 @@ if(oldstr2890){
if(oldstr2890->fixed)qbs_set(oldstr2890,_FUNC_SEPERATEARGS_STRING_CA); if(oldstr2890->fixed)qbs_set(oldstr2890,_FUNC_SEPERATEARGS_STRING_CA);
qbs_free(_FUNC_SEPERATEARGS_STRING_CA); qbs_free(_FUNC_SEPERATEARGS_STRING_CA);
} }
qbs_free(*((qbs**)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+ 2861)));
qbs_free(_FUNC_SEPERATEARGS_STRING_S); qbs_free(_FUNC_SEPERATEARGS_STRING_S);
qbs_free(_FUNC_SEPERATEARGS_STRING_S2); qbs_free(_FUNC_SEPERATEARGS_STRING_S2);
if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]&1){ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]&1){

1
internal/source/free6.txt
View file

@ -3,6 +3,7 @@ if(oldstr2174->fixed)qbs_set(oldstr2174,_FUNC_ARRAYREFERENCE_STRING_INDEXES);
qbs_free(_FUNC_ARRAYREFERENCE_STRING_INDEXES); qbs_free(_FUNC_ARRAYREFERENCE_STRING_INDEXES);
} }
qbs_free(_FUNC_ARRAYREFERENCE_STRING_IDNUMBER); qbs_free(_FUNC_ARRAYREFERENCE_STRING_IDNUMBER);
qbs_free(*((qbs**)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+ 2861)));
qbs_free(_FUNC_ARRAYREFERENCE_STRING_A); qbs_free(_FUNC_ARRAYREFERENCE_STRING_A);
qbs_free(_FUNC_ARRAYREFERENCE_STRING_N); qbs_free(_FUNC_ARRAYREFERENCE_STRING_N);
qbs_free(_FUNC_ARRAYREFERENCE_STRING_R); qbs_free(_FUNC_ARRAYREFERENCE_STRING_R);

2
internal/source/global.txt
View file

@ -6,7 +6,7 @@ char *g_tmp_udt_IDEDBOTYPE=(char*)malloc(85);
char *g_tmp_udt_USEDVARLIST=(char*)malloc(37); char *g_tmp_udt_USEDVARLIST=(char*)malloc(37);
char *g_tmp_udt_HASHLISTITEM=(char*)malloc(20); char *g_tmp_udt_HASHLISTITEM=(char*)malloc(20);
char *g_tmp_udt_LABEL_TYPE=(char*)malloc(282); char *g_tmp_udt_LABEL_TYPE=(char*)malloc(282);
char *g_tmp_udt_IDSTRUCT=(char*)malloc(2861); char *g_tmp_udt_IDSTRUCT=(char*)malloc(2869);
char *g_tmp_udt_POSITION=(char*)malloc(12); char *g_tmp_udt_POSITION=(char*)malloc(12);
qbs *__STRING_VERSION=NULL; qbs *__STRING_VERSION=NULL;
qbs *__STRING_DEVCHANNEL=NULL; qbs *__STRING_DEVCHANNEL=NULL;

93726
internal/source/main.txt
View file

File diff suppressed because it is too large Load diff

15
internal/source/maindata.txt
View file

@ -2390,8 +2390,9 @@ __ARRAY_LONG_UDTENEXT[6]=0;
__ARRAY_LONG_UDTENEXT[0]=(ptrszint)nothingvalue; __ARRAY_LONG_UDTENEXT[0]=(ptrszint)nothingvalue;
} }
if(__UDT_ID==NULL){ if(__UDT_ID==NULL){
__UDT_ID=(void*)mem_static_malloc(2861); __UDT_ID=(void*)mem_static_malloc(2869);
memset(__UDT_ID,0,2861); memset(__UDT_ID,0,2869);
*(qbs**)(((char*)__UDT_ID)+ 2861) = qbs_new(0,0);
} }
if(__LONG_IDN==NULL){ if(__LONG_IDN==NULL){
__LONG_IDN=(int32*)mem_static_malloc(4); __LONG_IDN=(int32*)mem_static_malloc(4);
@ -2446,8 +2447,9 @@ __ARRAY_INTEGER_ARRAYELEMENTSLIST[6]=0;
__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)nothingvalue; __ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)nothingvalue;
} }
if(__UDT_CLEARIDDATA==NULL){ if(__UDT_CLEARIDDATA==NULL){
__UDT_CLEARIDDATA=(void*)mem_static_malloc(2861); __UDT_CLEARIDDATA=(void*)mem_static_malloc(2869);
memset(__UDT_CLEARIDDATA,0,2861); memset(__UDT_CLEARIDDATA,0,2869);
*(qbs**)(((char*)__UDT_CLEARIDDATA)+ 2861) = qbs_new(0,0);
} }
if(__LONG_ISSTRING==NULL){ if(__LONG_ISSTRING==NULL){
__LONG_ISSTRING=(int32*)mem_static_malloc(4); __LONG_ISSTRING=(int32*)mem_static_malloc(4);
@ -2830,8 +2832,9 @@ static int64 fornext_finalvalue57;
static int64 fornext_step57; static int64 fornext_step57;
static uint8 fornext_step_negative57; static uint8 fornext_step_negative57;
if(__UDT_ID2==NULL){ if(__UDT_ID2==NULL){
__UDT_ID2=(void*)mem_static_malloc(2861); __UDT_ID2=(void*)mem_static_malloc(2869);
memset(__UDT_ID2,0,2861); memset(__UDT_ID2,0,2869);
*(qbs**)(((char*)__UDT_ID2)+ 2861) = qbs_new(0,0);
} }
if (!__ARRAY_LONG_SFIDLIST){ if (!__ARRAY_LONG_SFIDLIST){
__ARRAY_LONG_SFIDLIST=(ptrszint*)mem_static_malloc(9*ptrsz); __ARRAY_LONG_SFIDLIST=(ptrszint*)mem_static_malloc(9*ptrsz);

11
internal/source/mainfree.txt
View file

@ -751,13 +751,14 @@ free((void*)(__ARRAY_LONG_UDTENEXT[0]));
} }
} }
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTENEXT)[8] ); free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTENEXT)[8] );
qbs_free(*((qbs**)(((char*)__UDT_ID)+ 2861)));
if (__ARRAY_UDT_IDS[2]&1){ if (__ARRAY_UDT_IDS[2]&1){
if (__ARRAY_UDT_IDS[2]&4){ tmp_long=__ARRAY_UDT_IDS[5];
cmem_dynamic_free((uint8*)(__ARRAY_UDT_IDS[0])); while(tmp_long--) {
}else{
qbs_free(*(qbs**)(__ARRAY_UDT_IDS[0]+(22952/8+1-1)*tmp_long+ 2861));}
free((void*)(__ARRAY_UDT_IDS[0])); free((void*)(__ARRAY_UDT_IDS[0]));
} }
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_UDT_IDS)[8] ); free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_UDT_IDS)[8] );
if (__ARRAY_INTEGER_CMEMLIST[2]&1){ if (__ARRAY_INTEGER_CMEMLIST[2]&1){
if (__ARRAY_INTEGER_CMEMLIST[2]&4){ if (__ARRAY_INTEGER_CMEMLIST[2]&4){
@ -783,6 +784,7 @@ free((void*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]));
} }
} }
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_ARRAYELEMENTSLIST)[8] ); free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_ARRAYELEMENTSLIST)[8] );
qbs_free(*((qbs**)(((char*)__UDT_CLEARIDDATA)+ 2861)));
qbs_free(__STRING_SOURCEFILE); qbs_free(__STRING_SOURCEFILE);
qbs_free(__STRING_FILE); qbs_free(__STRING_FILE);
qbs_free(__STRING_FINDIDSECONDARG); qbs_free(__STRING_FINDIDSECONDARG);
@ -860,6 +862,7 @@ free((void*)(__ARRAY_LONG_CONTROLREF[0]));
} }
} }
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_CONTROLREF)[8] ); free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_CONTROLREF)[8] );
qbs_free(*((qbs**)(((char*)__UDT_ID2)+ 2861)));
if (__ARRAY_LONG_SFIDLIST[2]&1){ if (__ARRAY_LONG_SFIDLIST[2]&1){
if (__ARRAY_LONG_SFIDLIST[2]&4){ if (__ARRAY_LONG_SFIDLIST[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_SFIDLIST[0])); cmem_dynamic_free((uint8*)(__ARRAY_LONG_SFIDLIST[0]));