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

Update internal/source

Browse source
This commit is contained in:
Autobuild Process 2021-10-12 04:47:19 +00:00
parent bbf931d3ee
commit bf6376457d
5 changed files with 1439 additions and 1439 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

448
internal/source/clear.txt
View file

@ -1763,231 +1763,7 @@ __ARRAY_LONG_CONSTDEFINED[0]=(ptrszint)nothingvalue;
}
}
*__LONG_LASTTYPE=0;
if (__ARRAY_STRING256_UDTXNAME[2]&1){
if (__ARRAY_STRING256_UDTXNAME[2]&2){
memset((void*)(__ARRAY_STRING256_UDTXNAME[0]),0,__ARRAY_STRING256_UDTXNAME[5]*256);
}else{
if (__ARRAY_STRING256_UDTXNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTXNAME[0]));
}
__ARRAY_STRING256_UDTXNAME[2]^=1;
__ARRAY_STRING256_UDTXNAME[4]=2147483647;
__ARRAY_STRING256_UDTXNAME[5]=0;
__ARRAY_STRING256_UDTXNAME[6]=0;
__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_STRING256_UDTXCNAME[2]&1){
if (__ARRAY_STRING256_UDTXCNAME[2]&2){
memset((void*)(__ARRAY_STRING256_UDTXCNAME[0]),0,__ARRAY_STRING256_UDTXCNAME[5]*256);
}else{
if (__ARRAY_STRING256_UDTXCNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTXCNAME[0]));
}
__ARRAY_STRING256_UDTXCNAME[2]^=1;
__ARRAY_STRING256_UDTXCNAME[4]=2147483647;
__ARRAY_STRING256_UDTXCNAME[5]=0;
__ARRAY_STRING256_UDTXCNAME[6]=0;
__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_UDTXSIZE[2]&1){
if (__ARRAY_LONG_UDTXSIZE[2]&2){
memset((void*)(__ARRAY_LONG_UDTXSIZE[0]),0,__ARRAY_LONG_UDTXSIZE[5]*4);
}else{
if (__ARRAY_LONG_UDTXSIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXSIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTXSIZE[0]));
}
__ARRAY_LONG_UDTXSIZE[2]^=1;
__ARRAY_LONG_UDTXSIZE[4]=2147483647;
__ARRAY_LONG_UDTXSIZE[5]=0;
__ARRAY_LONG_UDTXSIZE[6]=0;
__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&1){
if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&2){
memset((void*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]),0,__ARRAY_INTEGER_UDTXBYTEALIGN[5]*2);
}else{
if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]));
}else{
free((void*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]));
}
__ARRAY_INTEGER_UDTXBYTEALIGN[2]^=1;
__ARRAY_INTEGER_UDTXBYTEALIGN[4]=2147483647;
__ARRAY_INTEGER_UDTXBYTEALIGN[5]=0;
__ARRAY_INTEGER_UDTXBYTEALIGN[6]=0;
__ARRAY_INTEGER_UDTXBYTEALIGN[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_UDTXNEXT[2]&1){
if (__ARRAY_LONG_UDTXNEXT[2]&2){
memset((void*)(__ARRAY_LONG_UDTXNEXT[0]),0,__ARRAY_LONG_UDTXNEXT[5]*4);
}else{
if (__ARRAY_LONG_UDTXNEXT[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXNEXT[0]));
}else{
free((void*)(__ARRAY_LONG_UDTXNEXT[0]));
}
__ARRAY_LONG_UDTXNEXT[2]^=1;
__ARRAY_LONG_UDTXNEXT[4]=2147483647;
__ARRAY_LONG_UDTXNEXT[5]=0;
__ARRAY_LONG_UDTXNEXT[6]=0;
__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&1){
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&2){
memset((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]),0,__ARRAY_INTEGER_UDTXVARIABLE[5]*2);
}else{
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTXVARIABLE[0]));
}else{
free((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]));
}
__ARRAY_INTEGER_UDTXVARIABLE[2]^=1;
__ARRAY_INTEGER_UDTXVARIABLE[4]=2147483647;
__ARRAY_INTEGER_UDTXVARIABLE[5]=0;
__ARRAY_INTEGER_UDTXVARIABLE[6]=0;
__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)nothingvalue;
}
}
*__LONG_LASTTYPEELEMENT=0;
if (__ARRAY_STRING256_UDTENAME[2]&1){
if (__ARRAY_STRING256_UDTENAME[2]&2){
memset((void*)(__ARRAY_STRING256_UDTENAME[0]),0,__ARRAY_STRING256_UDTENAME[5]*256);
}else{
if (__ARRAY_STRING256_UDTENAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTENAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTENAME[0]));
}
__ARRAY_STRING256_UDTENAME[2]^=1;
__ARRAY_STRING256_UDTENAME[4]=2147483647;
__ARRAY_STRING256_UDTENAME[5]=0;
__ARRAY_STRING256_UDTENAME[6]=0;
__ARRAY_STRING256_UDTENAME[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_STRING256_UDTECNAME[2]&1){
if (__ARRAY_STRING256_UDTECNAME[2]&2){
memset((void*)(__ARRAY_STRING256_UDTECNAME[0]),0,__ARRAY_STRING256_UDTECNAME[5]*256);
}else{
if (__ARRAY_STRING256_UDTECNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTECNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTECNAME[0]));
}
__ARRAY_STRING256_UDTECNAME[2]^=1;
__ARRAY_STRING256_UDTECNAME[4]=2147483647;
__ARRAY_STRING256_UDTECNAME[5]=0;
__ARRAY_STRING256_UDTECNAME[6]=0;
__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&1){
if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&2){
memset((void*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]),0,__ARRAY_INTEGER_UDTEBYTEALIGN[5]*2);
}else{
if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]));
}else{
free((void*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]));
}
__ARRAY_INTEGER_UDTEBYTEALIGN[2]^=1;
__ARRAY_INTEGER_UDTEBYTEALIGN[4]=2147483647;
__ARRAY_INTEGER_UDTEBYTEALIGN[5]=0;
__ARRAY_INTEGER_UDTEBYTEALIGN[6]=0;
__ARRAY_INTEGER_UDTEBYTEALIGN[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_UDTESIZE[2]&1){
if (__ARRAY_LONG_UDTESIZE[2]&2){
memset((void*)(__ARRAY_LONG_UDTESIZE[0]),0,__ARRAY_LONG_UDTESIZE[5]*4);
}else{
if (__ARRAY_LONG_UDTESIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTESIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTESIZE[0]));
}
__ARRAY_LONG_UDTESIZE[2]^=1;
__ARRAY_LONG_UDTESIZE[4]=2147483647;
__ARRAY_LONG_UDTESIZE[5]=0;
__ARRAY_LONG_UDTESIZE[6]=0;
__ARRAY_LONG_UDTESIZE[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_UDTETYPE[2]&1){
if (__ARRAY_LONG_UDTETYPE[2]&2){
memset((void*)(__ARRAY_LONG_UDTETYPE[0]),0,__ARRAY_LONG_UDTETYPE[5]*4);
}else{
if (__ARRAY_LONG_UDTETYPE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTETYPE[0]));
}
__ARRAY_LONG_UDTETYPE[2]^=1;
__ARRAY_LONG_UDTETYPE[4]=2147483647;
__ARRAY_LONG_UDTETYPE[5]=0;
__ARRAY_LONG_UDTETYPE[6]=0;
__ARRAY_LONG_UDTETYPE[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_UDTETYPESIZE[2]&1){
if (__ARRAY_LONG_UDTETYPESIZE[2]&2){
memset((void*)(__ARRAY_LONG_UDTETYPESIZE[0]),0,__ARRAY_LONG_UDTETYPESIZE[5]*4);
}else{
if (__ARRAY_LONG_UDTETYPESIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPESIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTETYPESIZE[0]));
}
__ARRAY_LONG_UDTETYPESIZE[2]^=1;
__ARRAY_LONG_UDTETYPESIZE[4]=2147483647;
__ARRAY_LONG_UDTETYPESIZE[5]=0;
__ARRAY_LONG_UDTETYPESIZE[6]=0;
__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&1){
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&2){
memset((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]),0,__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4);
}else{
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]));
}else{
free((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]));
}
__ARRAY_LONG_UDTEARRAYELEMENTS[2]^=1;
__ARRAY_LONG_UDTEARRAYELEMENTS[4]=2147483647;
__ARRAY_LONG_UDTEARRAYELEMENTS[5]=0;
__ARRAY_LONG_UDTEARRAYELEMENTS[6]=0;
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_UDTENEXT[2]&1){
if (__ARRAY_LONG_UDTENEXT[2]&2){
memset((void*)(__ARRAY_LONG_UDTENEXT[0]),0,__ARRAY_LONG_UDTENEXT[5]*4);
}else{
if (__ARRAY_LONG_UDTENEXT[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTENEXT[0]));
}else{
free((void*)(__ARRAY_LONG_UDTENEXT[0]));
}
__ARRAY_LONG_UDTENEXT[2]^=1;
__ARRAY_LONG_UDTENEXT[4]=2147483647;
__ARRAY_LONG_UDTENEXT[5]=0;
__ARRAY_LONG_UDTENEXT[6]=0;
__ARRAY_LONG_UDTENEXT[0]=(ptrszint)nothingvalue;
}
}
memset((char*)__UDT_ID+ 0,0, 256);
memset((char*)__UDT_ID+ 256,0, 256);
memset((char*)__UDT_ID+ 512,0, 4);
@ -2465,6 +2241,230 @@ __STRING_MYLIBOPT->len=0;
*__LONG_DECLARINGLIBRARY=0;
*__LONG_DYNSCOPE=0;
*__LONG_ELSEFOLLOWUP=0;
if (__ARRAY_STRING256_UDTXNAME[2]&1){
if (__ARRAY_STRING256_UDTXNAME[2]&2){
memset((void*)(__ARRAY_STRING256_UDTXNAME[0]),0,__ARRAY_STRING256_UDTXNAME[5]*256);
}else{
if (__ARRAY_STRING256_UDTXNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTXNAME[0]));
}
__ARRAY_STRING256_UDTXNAME[2]^=1;
__ARRAY_STRING256_UDTXNAME[4]=2147483647;
__ARRAY_STRING256_UDTXNAME[5]=0;
__ARRAY_STRING256_UDTXNAME[6]=0;
__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_STRING256_UDTXCNAME[2]&1){
if (__ARRAY_STRING256_UDTXCNAME[2]&2){
memset((void*)(__ARRAY_STRING256_UDTXCNAME[0]),0,__ARRAY_STRING256_UDTXCNAME[5]*256);
}else{
if (__ARRAY_STRING256_UDTXCNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTXCNAME[0]));
}
__ARRAY_STRING256_UDTXCNAME[2]^=1;
__ARRAY_STRING256_UDTXCNAME[4]=2147483647;
__ARRAY_STRING256_UDTXCNAME[5]=0;
__ARRAY_STRING256_UDTXCNAME[6]=0;
__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_UDTXSIZE[2]&1){
if (__ARRAY_LONG_UDTXSIZE[2]&2){
memset((void*)(__ARRAY_LONG_UDTXSIZE[0]),0,__ARRAY_LONG_UDTXSIZE[5]*4);
}else{
if (__ARRAY_LONG_UDTXSIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXSIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTXSIZE[0]));
}
__ARRAY_LONG_UDTXSIZE[2]^=1;
__ARRAY_LONG_UDTXSIZE[4]=2147483647;
__ARRAY_LONG_UDTXSIZE[5]=0;
__ARRAY_LONG_UDTXSIZE[6]=0;
__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&1){
if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&2){
memset((void*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]),0,__ARRAY_INTEGER_UDTXBYTEALIGN[5]*2);
}else{
if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]));
}else{
free((void*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]));
}
__ARRAY_INTEGER_UDTXBYTEALIGN[2]^=1;
__ARRAY_INTEGER_UDTXBYTEALIGN[4]=2147483647;
__ARRAY_INTEGER_UDTXBYTEALIGN[5]=0;
__ARRAY_INTEGER_UDTXBYTEALIGN[6]=0;
__ARRAY_INTEGER_UDTXBYTEALIGN[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_UDTXNEXT[2]&1){
if (__ARRAY_LONG_UDTXNEXT[2]&2){
memset((void*)(__ARRAY_LONG_UDTXNEXT[0]),0,__ARRAY_LONG_UDTXNEXT[5]*4);
}else{
if (__ARRAY_LONG_UDTXNEXT[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXNEXT[0]));
}else{
free((void*)(__ARRAY_LONG_UDTXNEXT[0]));
}
__ARRAY_LONG_UDTXNEXT[2]^=1;
__ARRAY_LONG_UDTXNEXT[4]=2147483647;
__ARRAY_LONG_UDTXNEXT[5]=0;
__ARRAY_LONG_UDTXNEXT[6]=0;
__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&1){
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&2){
memset((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]),0,__ARRAY_INTEGER_UDTXVARIABLE[5]*2);
}else{
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTXVARIABLE[0]));
}else{
free((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]));
}
__ARRAY_INTEGER_UDTXVARIABLE[2]^=1;
__ARRAY_INTEGER_UDTXVARIABLE[4]=2147483647;
__ARRAY_INTEGER_UDTXVARIABLE[5]=0;
__ARRAY_INTEGER_UDTXVARIABLE[6]=0;
__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_STRING256_UDTENAME[2]&1){
if (__ARRAY_STRING256_UDTENAME[2]&2){
memset((void*)(__ARRAY_STRING256_UDTENAME[0]),0,__ARRAY_STRING256_UDTENAME[5]*256);
}else{
if (__ARRAY_STRING256_UDTENAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTENAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTENAME[0]));
}
__ARRAY_STRING256_UDTENAME[2]^=1;
__ARRAY_STRING256_UDTENAME[4]=2147483647;
__ARRAY_STRING256_UDTENAME[5]=0;
__ARRAY_STRING256_UDTENAME[6]=0;
__ARRAY_STRING256_UDTENAME[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_STRING256_UDTECNAME[2]&1){
if (__ARRAY_STRING256_UDTECNAME[2]&2){
memset((void*)(__ARRAY_STRING256_UDTECNAME[0]),0,__ARRAY_STRING256_UDTECNAME[5]*256);
}else{
if (__ARRAY_STRING256_UDTECNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTECNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTECNAME[0]));
}
__ARRAY_STRING256_UDTECNAME[2]^=1;
__ARRAY_STRING256_UDTECNAME[4]=2147483647;
__ARRAY_STRING256_UDTECNAME[5]=0;
__ARRAY_STRING256_UDTECNAME[6]=0;
__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&1){
if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&2){
memset((void*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]),0,__ARRAY_INTEGER_UDTEBYTEALIGN[5]*2);
}else{
if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]));
}else{
free((void*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]));
}
__ARRAY_INTEGER_UDTEBYTEALIGN[2]^=1;
__ARRAY_INTEGER_UDTEBYTEALIGN[4]=2147483647;
__ARRAY_INTEGER_UDTEBYTEALIGN[5]=0;
__ARRAY_INTEGER_UDTEBYTEALIGN[6]=0;
__ARRAY_INTEGER_UDTEBYTEALIGN[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_UDTESIZE[2]&1){
if (__ARRAY_LONG_UDTESIZE[2]&2){
memset((void*)(__ARRAY_LONG_UDTESIZE[0]),0,__ARRAY_LONG_UDTESIZE[5]*4);
}else{
if (__ARRAY_LONG_UDTESIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTESIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTESIZE[0]));
}
__ARRAY_LONG_UDTESIZE[2]^=1;
__ARRAY_LONG_UDTESIZE[4]=2147483647;
__ARRAY_LONG_UDTESIZE[5]=0;
__ARRAY_LONG_UDTESIZE[6]=0;
__ARRAY_LONG_UDTESIZE[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_UDTETYPE[2]&1){
if (__ARRAY_LONG_UDTETYPE[2]&2){
memset((void*)(__ARRAY_LONG_UDTETYPE[0]),0,__ARRAY_LONG_UDTETYPE[5]*4);
}else{
if (__ARRAY_LONG_UDTETYPE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTETYPE[0]));
}
__ARRAY_LONG_UDTETYPE[2]^=1;
__ARRAY_LONG_UDTETYPE[4]=2147483647;
__ARRAY_LONG_UDTETYPE[5]=0;
__ARRAY_LONG_UDTETYPE[6]=0;
__ARRAY_LONG_UDTETYPE[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_UDTETYPESIZE[2]&1){
if (__ARRAY_LONG_UDTETYPESIZE[2]&2){
memset((void*)(__ARRAY_LONG_UDTETYPESIZE[0]),0,__ARRAY_LONG_UDTETYPESIZE[5]*4);
}else{
if (__ARRAY_LONG_UDTETYPESIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPESIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTETYPESIZE[0]));
}
__ARRAY_LONG_UDTETYPESIZE[2]^=1;
__ARRAY_LONG_UDTETYPESIZE[4]=2147483647;
__ARRAY_LONG_UDTETYPESIZE[5]=0;
__ARRAY_LONG_UDTETYPESIZE[6]=0;
__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&1){
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&2){
memset((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]),0,__ARRAY_LONG_UDTEARRAYELEMENTS[5]*4);
}else{
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]));
}else{
free((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]));
}
__ARRAY_LONG_UDTEARRAYELEMENTS[2]^=1;
__ARRAY_LONG_UDTEARRAYELEMENTS[4]=2147483647;
__ARRAY_LONG_UDTEARRAYELEMENTS[5]=0;
__ARRAY_LONG_UDTEARRAYELEMENTS[6]=0;
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)nothingvalue;
}
}
if (__ARRAY_LONG_UDTENEXT[2]&1){
if (__ARRAY_LONG_UDTENEXT[2]&2){
memset((void*)(__ARRAY_LONG_UDTENEXT[0]),0,__ARRAY_LONG_UDTENEXT[5]*4);
}else{
if (__ARRAY_LONG_UDTENEXT[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTENEXT[0]));
}else{
free((void*)(__ARRAY_LONG_UDTENEXT[0]));
}
__ARRAY_LONG_UDTENEXT[2]^=1;
__ARRAY_LONG_UDTENEXT[4]=2147483647;
__ARRAY_LONG_UDTENEXT[5]=0;
__ARRAY_LONG_UDTENEXT[6]=0;
__ARRAY_LONG_UDTENEXT[0]=(ptrszint)nothingvalue;
}
}
*__LONG_DEFININGTYPE=0;
if (__ARRAY_UDT_USEDVARIABLELIST[2]&1){
if (__ARRAY_UDT_USEDVARIABLELIST[2]&2){

28
internal/source/global.txt
View file

@ -535,21 +535,7 @@ ptrszint *__ARRAY_STRING_CONSTSTRING=NULL;
ptrszint *__ARRAY_LONG_CONSTSUBFUNC=NULL;
ptrszint *__ARRAY_LONG_CONSTDEFINED=NULL;
int32 *__LONG_LASTTYPE=NULL;
ptrszint *__ARRAY_STRING256_UDTXNAME=NULL;
ptrszint *__ARRAY_STRING256_UDTXCNAME=NULL;
ptrszint *__ARRAY_LONG_UDTXSIZE=NULL;
ptrszint *__ARRAY_INTEGER_UDTXBYTEALIGN=NULL;
ptrszint *__ARRAY_LONG_UDTXNEXT=NULL;
ptrszint *__ARRAY_INTEGER_UDTXVARIABLE=NULL;
int32 *__LONG_LASTTYPEELEMENT=NULL;
ptrszint *__ARRAY_STRING256_UDTENAME=NULL;
ptrszint *__ARRAY_STRING256_UDTECNAME=NULL;
ptrszint *__ARRAY_INTEGER_UDTEBYTEALIGN=NULL;
ptrszint *__ARRAY_LONG_UDTESIZE=NULL;
ptrszint *__ARRAY_LONG_UDTETYPE=NULL;
ptrszint *__ARRAY_LONG_UDTETYPESIZE=NULL;
ptrszint *__ARRAY_LONG_UDTEARRAYELEMENTS=NULL;
ptrszint *__ARRAY_LONG_UDTENEXT=NULL;
void *__UDT_ID=NULL;
int32 *__LONG_IDN=NULL;
int32 *__LONG_IDS_MAX=NULL;
@ -682,6 +668,20 @@ qbs *__STRING_MYLIBOPT=NULL;
int32 *__LONG_DECLARINGLIBRARY=NULL;
int32 *__LONG_DYNSCOPE=NULL;
int32 *__LONG_ELSEFOLLOWUP=NULL;
ptrszint *__ARRAY_STRING256_UDTXNAME=NULL;
ptrszint *__ARRAY_STRING256_UDTXCNAME=NULL;
ptrszint *__ARRAY_LONG_UDTXSIZE=NULL;
ptrszint *__ARRAY_INTEGER_UDTXBYTEALIGN=NULL;
ptrszint *__ARRAY_LONG_UDTXNEXT=NULL;
ptrszint *__ARRAY_INTEGER_UDTXVARIABLE=NULL;
ptrszint *__ARRAY_STRING256_UDTENAME=NULL;
ptrszint *__ARRAY_STRING256_UDTECNAME=NULL;
ptrszint *__ARRAY_INTEGER_UDTEBYTEALIGN=NULL;
ptrszint *__ARRAY_LONG_UDTESIZE=NULL;
ptrszint *__ARRAY_LONG_UDTETYPE=NULL;
ptrszint *__ARRAY_LONG_UDTETYPESIZE=NULL;
ptrszint *__ARRAY_LONG_UDTEARRAYELEMENTS=NULL;
ptrszint *__ARRAY_LONG_UDTENEXT=NULL;
int32 *__LONG_DEFININGTYPE=NULL;
ptrszint *__ARRAY_UDT_USEDVARIABLELIST=NULL;
ptrszint *__ARRAY_STRING_WARNING=NULL;

1870
internal/source/main.txt
View file

File diff suppressed because it is too large Load diff

308
internal/source/maindata.txt
View file

@ -2388,164 +2388,10 @@ if(__LONG_LASTTYPE==NULL){
__LONG_LASTTYPE=(int32*)mem_static_malloc(4);
*__LONG_LASTTYPE=0;
}
if (!__ARRAY_STRING256_UDTXNAME){
__ARRAY_STRING256_UDTXNAME=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_STRING256_UDTXNAME)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_STRING256_UDTXNAME[2]=0;
__ARRAY_STRING256_UDTXNAME[4]=2147483647;
__ARRAY_STRING256_UDTXNAME[5]=0;
__ARRAY_STRING256_UDTXNAME[6]=0;
__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_STRING256_UDTXCNAME){
__ARRAY_STRING256_UDTXCNAME=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_STRING256_UDTXCNAME)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_STRING256_UDTXCNAME[2]=0;
__ARRAY_STRING256_UDTXCNAME[4]=2147483647;
__ARRAY_STRING256_UDTXCNAME[5]=0;
__ARRAY_STRING256_UDTXCNAME[6]=0;
__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_UDTXSIZE){
__ARRAY_LONG_UDTXSIZE=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_UDTXSIZE)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_UDTXSIZE[2]=0;
__ARRAY_LONG_UDTXSIZE[4]=2147483647;
__ARRAY_LONG_UDTXSIZE[5]=0;
__ARRAY_LONG_UDTXSIZE[6]=0;
__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_INTEGER_UDTXBYTEALIGN){
__ARRAY_INTEGER_UDTXBYTEALIGN=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_INTEGER_UDTXBYTEALIGN)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_INTEGER_UDTXBYTEALIGN[2]=0;
__ARRAY_INTEGER_UDTXBYTEALIGN[4]=2147483647;
__ARRAY_INTEGER_UDTXBYTEALIGN[5]=0;
__ARRAY_INTEGER_UDTXBYTEALIGN[6]=0;
__ARRAY_INTEGER_UDTXBYTEALIGN[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_UDTXNEXT){
__ARRAY_LONG_UDTXNEXT=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_UDTXNEXT)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_UDTXNEXT[2]=0;
__ARRAY_LONG_UDTXNEXT[4]=2147483647;
__ARRAY_LONG_UDTXNEXT[5]=0;
__ARRAY_LONG_UDTXNEXT[6]=0;
__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_INTEGER_UDTXVARIABLE){
__ARRAY_INTEGER_UDTXVARIABLE=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_INTEGER_UDTXVARIABLE)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_INTEGER_UDTXVARIABLE[2]=0;
__ARRAY_INTEGER_UDTXVARIABLE[4]=2147483647;
__ARRAY_INTEGER_UDTXVARIABLE[5]=0;
__ARRAY_INTEGER_UDTXVARIABLE[6]=0;
__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)nothingvalue;
}
if(__LONG_LASTTYPEELEMENT==NULL){
__LONG_LASTTYPEELEMENT=(int32*)mem_static_malloc(4);
*__LONG_LASTTYPEELEMENT=0;
}
if (!__ARRAY_STRING256_UDTENAME){
__ARRAY_STRING256_UDTENAME=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_STRING256_UDTENAME)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_STRING256_UDTENAME[2]=0;
__ARRAY_STRING256_UDTENAME[4]=2147483647;
__ARRAY_STRING256_UDTENAME[5]=0;
__ARRAY_STRING256_UDTENAME[6]=0;
__ARRAY_STRING256_UDTENAME[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_STRING256_UDTECNAME){
__ARRAY_STRING256_UDTECNAME=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_STRING256_UDTECNAME)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_STRING256_UDTECNAME[2]=0;
__ARRAY_STRING256_UDTECNAME[4]=2147483647;
__ARRAY_STRING256_UDTECNAME[5]=0;
__ARRAY_STRING256_UDTECNAME[6]=0;
__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_INTEGER_UDTEBYTEALIGN){
__ARRAY_INTEGER_UDTEBYTEALIGN=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_INTEGER_UDTEBYTEALIGN)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_INTEGER_UDTEBYTEALIGN[2]=0;
__ARRAY_INTEGER_UDTEBYTEALIGN[4]=2147483647;
__ARRAY_INTEGER_UDTEBYTEALIGN[5]=0;
__ARRAY_INTEGER_UDTEBYTEALIGN[6]=0;
__ARRAY_INTEGER_UDTEBYTEALIGN[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_UDTESIZE){
__ARRAY_LONG_UDTESIZE=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_UDTESIZE)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_UDTESIZE[2]=0;
__ARRAY_LONG_UDTESIZE[4]=2147483647;
__ARRAY_LONG_UDTESIZE[5]=0;
__ARRAY_LONG_UDTESIZE[6]=0;
__ARRAY_LONG_UDTESIZE[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_UDTETYPE){
__ARRAY_LONG_UDTETYPE=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_UDTETYPE)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_UDTETYPE[2]=0;
__ARRAY_LONG_UDTETYPE[4]=2147483647;
__ARRAY_LONG_UDTETYPE[5]=0;
__ARRAY_LONG_UDTETYPE[6]=0;
__ARRAY_LONG_UDTETYPE[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_UDTETYPESIZE){
__ARRAY_LONG_UDTETYPESIZE=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_UDTETYPESIZE)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_UDTETYPESIZE[2]=0;
__ARRAY_LONG_UDTETYPESIZE[4]=2147483647;
__ARRAY_LONG_UDTETYPESIZE[5]=0;
__ARRAY_LONG_UDTETYPESIZE[6]=0;
__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_UDTEARRAYELEMENTS){
__ARRAY_LONG_UDTEARRAYELEMENTS=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_UDTEARRAYELEMENTS)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_UDTEARRAYELEMENTS[2]=0;
__ARRAY_LONG_UDTEARRAYELEMENTS[4]=2147483647;
__ARRAY_LONG_UDTEARRAYELEMENTS[5]=0;
__ARRAY_LONG_UDTEARRAYELEMENTS[6]=0;
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_UDTENEXT){
__ARRAY_LONG_UDTENEXT=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_UDTENEXT)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_UDTENEXT[2]=0;
__ARRAY_LONG_UDTENEXT[4]=2147483647;
__ARRAY_LONG_UDTENEXT[5]=0;
__ARRAY_LONG_UDTENEXT[6]=0;
__ARRAY_LONG_UDTENEXT[0]=(ptrszint)nothingvalue;
}
if(__UDT_ID==NULL){
__UDT_ID=(void*)mem_static_malloc(2869);
memset(__UDT_ID,0,2869);
@ -3299,6 +3145,160 @@ if(__LONG_ELSEFOLLOWUP==NULL){
__LONG_ELSEFOLLOWUP=(int32*)mem_static_malloc(4);
*__LONG_ELSEFOLLOWUP=0;
}
if (!__ARRAY_STRING256_UDTXNAME){
__ARRAY_STRING256_UDTXNAME=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_STRING256_UDTXNAME)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_STRING256_UDTXNAME[2]=0;
__ARRAY_STRING256_UDTXNAME[4]=2147483647;
__ARRAY_STRING256_UDTXNAME[5]=0;
__ARRAY_STRING256_UDTXNAME[6]=0;
__ARRAY_STRING256_UDTXNAME[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_STRING256_UDTXCNAME){
__ARRAY_STRING256_UDTXCNAME=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_STRING256_UDTXCNAME)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_STRING256_UDTXCNAME[2]=0;
__ARRAY_STRING256_UDTXCNAME[4]=2147483647;
__ARRAY_STRING256_UDTXCNAME[5]=0;
__ARRAY_STRING256_UDTXCNAME[6]=0;
__ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_UDTXSIZE){
__ARRAY_LONG_UDTXSIZE=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_UDTXSIZE)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_UDTXSIZE[2]=0;
__ARRAY_LONG_UDTXSIZE[4]=2147483647;
__ARRAY_LONG_UDTXSIZE[5]=0;
__ARRAY_LONG_UDTXSIZE[6]=0;
__ARRAY_LONG_UDTXSIZE[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_INTEGER_UDTXBYTEALIGN){
__ARRAY_INTEGER_UDTXBYTEALIGN=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_INTEGER_UDTXBYTEALIGN)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_INTEGER_UDTXBYTEALIGN[2]=0;
__ARRAY_INTEGER_UDTXBYTEALIGN[4]=2147483647;
__ARRAY_INTEGER_UDTXBYTEALIGN[5]=0;
__ARRAY_INTEGER_UDTXBYTEALIGN[6]=0;
__ARRAY_INTEGER_UDTXBYTEALIGN[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_UDTXNEXT){
__ARRAY_LONG_UDTXNEXT=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_UDTXNEXT)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_UDTXNEXT[2]=0;
__ARRAY_LONG_UDTXNEXT[4]=2147483647;
__ARRAY_LONG_UDTXNEXT[5]=0;
__ARRAY_LONG_UDTXNEXT[6]=0;
__ARRAY_LONG_UDTXNEXT[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_INTEGER_UDTXVARIABLE){
__ARRAY_INTEGER_UDTXVARIABLE=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_INTEGER_UDTXVARIABLE)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_INTEGER_UDTXVARIABLE[2]=0;
__ARRAY_INTEGER_UDTXVARIABLE[4]=2147483647;
__ARRAY_INTEGER_UDTXVARIABLE[5]=0;
__ARRAY_INTEGER_UDTXVARIABLE[6]=0;
__ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_STRING256_UDTENAME){
__ARRAY_STRING256_UDTENAME=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_STRING256_UDTENAME)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_STRING256_UDTENAME[2]=0;
__ARRAY_STRING256_UDTENAME[4]=2147483647;
__ARRAY_STRING256_UDTENAME[5]=0;
__ARRAY_STRING256_UDTENAME[6]=0;
__ARRAY_STRING256_UDTENAME[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_STRING256_UDTECNAME){
__ARRAY_STRING256_UDTECNAME=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_STRING256_UDTECNAME)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_STRING256_UDTECNAME[2]=0;
__ARRAY_STRING256_UDTECNAME[4]=2147483647;
__ARRAY_STRING256_UDTECNAME[5]=0;
__ARRAY_STRING256_UDTECNAME[6]=0;
__ARRAY_STRING256_UDTECNAME[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_INTEGER_UDTEBYTEALIGN){
__ARRAY_INTEGER_UDTEBYTEALIGN=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_INTEGER_UDTEBYTEALIGN)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_INTEGER_UDTEBYTEALIGN[2]=0;
__ARRAY_INTEGER_UDTEBYTEALIGN[4]=2147483647;
__ARRAY_INTEGER_UDTEBYTEALIGN[5]=0;
__ARRAY_INTEGER_UDTEBYTEALIGN[6]=0;
__ARRAY_INTEGER_UDTEBYTEALIGN[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_UDTESIZE){
__ARRAY_LONG_UDTESIZE=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_UDTESIZE)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_UDTESIZE[2]=0;
__ARRAY_LONG_UDTESIZE[4]=2147483647;
__ARRAY_LONG_UDTESIZE[5]=0;
__ARRAY_LONG_UDTESIZE[6]=0;
__ARRAY_LONG_UDTESIZE[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_UDTETYPE){
__ARRAY_LONG_UDTETYPE=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_UDTETYPE)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_UDTETYPE[2]=0;
__ARRAY_LONG_UDTETYPE[4]=2147483647;
__ARRAY_LONG_UDTETYPE[5]=0;
__ARRAY_LONG_UDTETYPE[6]=0;
__ARRAY_LONG_UDTETYPE[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_UDTETYPESIZE){
__ARRAY_LONG_UDTETYPESIZE=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_UDTETYPESIZE)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_UDTETYPESIZE[2]=0;
__ARRAY_LONG_UDTETYPESIZE[4]=2147483647;
__ARRAY_LONG_UDTETYPESIZE[5]=0;
__ARRAY_LONG_UDTETYPESIZE[6]=0;
__ARRAY_LONG_UDTETYPESIZE[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_UDTEARRAYELEMENTS){
__ARRAY_LONG_UDTEARRAYELEMENTS=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_UDTEARRAYELEMENTS)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_UDTEARRAYELEMENTS[2]=0;
__ARRAY_LONG_UDTEARRAYELEMENTS[4]=2147483647;
__ARRAY_LONG_UDTEARRAYELEMENTS[5]=0;
__ARRAY_LONG_UDTEARRAYELEMENTS[6]=0;
__ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)nothingvalue;
}
if (!__ARRAY_LONG_UDTENEXT){
__ARRAY_LONG_UDTENEXT=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)__ARRAY_LONG_UDTENEXT)[8]=(ptrszint)mem_lock_tmp;
__ARRAY_LONG_UDTENEXT[2]=0;
__ARRAY_LONG_UDTENEXT[4]=2147483647;
__ARRAY_LONG_UDTENEXT[5]=0;
__ARRAY_LONG_UDTENEXT[6]=0;
__ARRAY_LONG_UDTENEXT[0]=(ptrszint)nothingvalue;
}
if(__LONG_DEFININGTYPE==NULL){
__LONG_DEFININGTYPE=(int32*)mem_static_malloc(4);
*__LONG_DEFININGTYPE=0;

224
internal/source/mainfree.txt
View file

@ -681,118 +681,6 @@ free((void*)(__ARRAY_LONG_CONSTDEFINED[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_CONSTDEFINED)[8] );
if (__ARRAY_STRING256_UDTXNAME[2]&1){
if (__ARRAY_STRING256_UDTXNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTXNAME[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXNAME)[8] );
if (__ARRAY_STRING256_UDTXCNAME[2]&1){
if (__ARRAY_STRING256_UDTXCNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTXCNAME[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXCNAME)[8] );
if (__ARRAY_LONG_UDTXSIZE[2]&1){
if (__ARRAY_LONG_UDTXSIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXSIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTXSIZE[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTXSIZE)[8] );
if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&1){
if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]));
}else{
free((void*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_UDTXBYTEALIGN)[8] );
if (__ARRAY_LONG_UDTXNEXT[2]&1){
if (__ARRAY_LONG_UDTXNEXT[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXNEXT[0]));
}else{
free((void*)(__ARRAY_LONG_UDTXNEXT[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTXNEXT)[8] );
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&1){
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTXVARIABLE[0]));
}else{
free((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_UDTXVARIABLE)[8] );
if (__ARRAY_STRING256_UDTENAME[2]&1){
if (__ARRAY_STRING256_UDTENAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTENAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTENAME[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTENAME)[8] );
if (__ARRAY_STRING256_UDTECNAME[2]&1){
if (__ARRAY_STRING256_UDTECNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTECNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTECNAME[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTECNAME)[8] );
if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&1){
if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]));
}else{
free((void*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_UDTEBYTEALIGN)[8] );
if (__ARRAY_LONG_UDTESIZE[2]&1){
if (__ARRAY_LONG_UDTESIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTESIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTESIZE[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTESIZE)[8] );
if (__ARRAY_LONG_UDTETYPE[2]&1){
if (__ARRAY_LONG_UDTETYPE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTETYPE[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTETYPE)[8] );
if (__ARRAY_LONG_UDTETYPESIZE[2]&1){
if (__ARRAY_LONG_UDTETYPESIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPESIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTETYPESIZE[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTETYPESIZE)[8] );
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&1){
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]));
}else{
free((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTEARRAYELEMENTS)[8] );
if (__ARRAY_LONG_UDTENEXT[2]&1){
if (__ARRAY_LONG_UDTENEXT[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTENEXT[0]));
}else{
free((void*)(__ARRAY_LONG_UDTENEXT[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTENEXT)[8] );
qbs_free(*((qbs**)(((char*)__UDT_ID)+ 2861)));
if (__ARRAY_UDT_IDS[2]&1){
tmp_long=__ARRAY_UDT_IDS[5];
@ -939,6 +827,118 @@ qbs_free(__STRING_TERRMSG);
qbs_free(__STRING_CURRENTDIR);
qbs_free(__STRING_MYLIB);
qbs_free(__STRING_MYLIBOPT);
if (__ARRAY_STRING256_UDTXNAME[2]&1){
if (__ARRAY_STRING256_UDTXNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTXNAME[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXNAME)[8] );
if (__ARRAY_STRING256_UDTXCNAME[2]&1){
if (__ARRAY_STRING256_UDTXCNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTXCNAME[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTXCNAME)[8] );
if (__ARRAY_LONG_UDTXSIZE[2]&1){
if (__ARRAY_LONG_UDTXSIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXSIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTXSIZE[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTXSIZE)[8] );
if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&1){
if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]));
}else{
free((void*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_UDTXBYTEALIGN)[8] );
if (__ARRAY_LONG_UDTXNEXT[2]&1){
if (__ARRAY_LONG_UDTXNEXT[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTXNEXT[0]));
}else{
free((void*)(__ARRAY_LONG_UDTXNEXT[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTXNEXT)[8] );
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&1){
if (__ARRAY_INTEGER_UDTXVARIABLE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTXVARIABLE[0]));
}else{
free((void*)(__ARRAY_INTEGER_UDTXVARIABLE[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_UDTXVARIABLE)[8] );
if (__ARRAY_STRING256_UDTENAME[2]&1){
if (__ARRAY_STRING256_UDTENAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTENAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTENAME[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTENAME)[8] );
if (__ARRAY_STRING256_UDTECNAME[2]&1){
if (__ARRAY_STRING256_UDTECNAME[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_STRING256_UDTECNAME[0]));
}else{
free((void*)(__ARRAY_STRING256_UDTECNAME[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_STRING256_UDTECNAME)[8] );
if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&1){
if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]));
}else{
free((void*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_INTEGER_UDTEBYTEALIGN)[8] );
if (__ARRAY_LONG_UDTESIZE[2]&1){
if (__ARRAY_LONG_UDTESIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTESIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTESIZE[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTESIZE)[8] );
if (__ARRAY_LONG_UDTETYPE[2]&1){
if (__ARRAY_LONG_UDTETYPE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTETYPE[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTETYPE)[8] );
if (__ARRAY_LONG_UDTETYPESIZE[2]&1){
if (__ARRAY_LONG_UDTETYPESIZE[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTETYPESIZE[0]));
}else{
free((void*)(__ARRAY_LONG_UDTETYPESIZE[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTETYPESIZE)[8] );
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&1){
if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]));
}else{
free((void*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTEARRAYELEMENTS)[8] );
if (__ARRAY_LONG_UDTENEXT[2]&1){
if (__ARRAY_LONG_UDTENEXT[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_LONG_UDTENEXT[0]));
}else{
free((void*)(__ARRAY_LONG_UDTENEXT[0]));
}
}
free_mem_lock( (mem_lock*)((ptrszint*)__ARRAY_LONG_UDTENEXT)[8] );
if (__ARRAY_UDT_USEDVARIABLELIST[2]&1){
tmp_long=__ARRAY_UDT_USEDVARIABLELIST[5];
while(tmp_long--) {