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

Update internal/source

Browse source
This commit is contained in:
Autobuild Process 2020-12-18 04:39:45 +00:00
parent 7db658b781
commit 0361bf6f28
5 changed files with 53429 additions and 53249 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
internal/source/clear.txt
View file

@ -623,6 +623,22 @@ __ARRAY_LONG_EVERYCASESET[0]=(ptrszint)nothingvalue;
}
}
*__ULONG_SELECTCASECOUNTER=0;
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&1){
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&2){
memset((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]),0,__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]*4);
}else{
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]));
}else{
free((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]));
}
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]^=1;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]=2147483647;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]=0;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[6]=0;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_EXECLEVEL[2]&1){
if (__ARRAY_LONG_EXECLEVEL[2]&2){
memset((void*)(__ARRAY_LONG_EXECLEVEL[0]),0,__ARRAY_LONG_EXECLEVEL[5]*4);

1
internal/source/global.txt
View file

@ -226,6 +226,7 @@ ptrszint *__ARRAY_STRING_PP_TYPEMOD=NULL;
ptrszint *__ARRAY_STRING_PP_CONVERTEDMOD=NULL;
ptrszint *__ARRAY_LONG_EVERYCASESET=NULL;
uint32 *__ULONG_SELECTCASECOUNTER=NULL;
ptrszint *__ARRAY_LONG_SELECTCASEHASCASEBLOCK=NULL;
ptrszint *__ARRAY_LONG_EXECLEVEL=NULL;
int16 *__INTEGER_EXECCOUNTER=NULL;
ptrszint *__ARRAY_STRING_USERDEFINE=NULL;

106642
internal/source/main.txt
View file

File diff suppressed because it is too large Load diff

11
internal/source/maindata.txt
View file

@ -953,6 +953,17 @@ if(__ULONG_SELECTCASECOUNTER==NULL){
__ULONG_SELECTCASECOUNTER=(uint32*)mem_static_malloc(4);
*__ULONG_SELECTCASECOUNTER=0;
}
if (!__ARRAY_LONG_SELECTCASEHASCASEBLOCK){
__ARRAY_LONG_SELECTCASEHASCASEBLOCK=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_SELECTCASEHASCASEBLOCK)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]=0;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4]=2147483647;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]=0;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[6]=0;
__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_EXECLEVEL){
__ARRAY_LONG_EXECLEVEL=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();

8
internal/source/mainfree.txt
View file

@ -201,6 +201,14 @@ free((void*)(__ARRAY_LONG_EVERYCASESET[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_EVERYCASESET)[8] );
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&1){
if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]));
}else{
free((void*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_SELECTCASEHASCASEBLOCK)[8] );
if (__ARRAY_LONG_EXECLEVEL[2]&1){
if (__ARRAY_LONG_EXECLEVEL[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_EXECLEVEL[0]));