Merge pull request #562 from QB64-Phoenix-Edition/various-refactoring

Various refactoring
QB64-Phoenix-Edition · Nov 3, 2024 · b46420d · b46420d
2 parents 63147d5 + df436b1
commit b46420d
Show file tree

Hide file tree

Showing 588 changed files with 217,701 additions and 217,987 deletions.
diff --git a/internal/c/libqb.cpp b/internal/c/libqb.cpp
@@ -23546,6 +23546,8 @@ qbs *func__connectionaddress(int32 i) {
     static int32 x;
     if (is_error_pending())
         goto error;
+
+#ifdef DEPENDENCY_SOCKETS
     if (!str)
         str = qbs_new(0, 0);
     if (!str2)
@@ -23629,8 +23631,8 @@ qbs *func__connectionaddress(int32 i) {
             break;
         }
     } // i<0
+#endif
     error(52);
-    goto error;
 
 error:
     tqbs = qbs_new(0, 1);

diff --git a/internal/source/clear.txt b/internal/source/clear.txt
@@ -8,8 +8,8 @@ memset((void*)(__STRING1_SP3->chr),0,1);
 *__LONG_SP_ASC=0;
 *__LONG_SP2_ASC=0;
 *__LONG_SP3_ASC=0;
-__STRING_CHR_QUOTE->len=0;
-__STRING_CHR_TAB->len=0;
+memset((void*)(__STRING1_CHR_QUOTE->chr),0,1);
+memset((void*)(__STRING1_CHR_TAB->chr),0,1);
 __STRING_CRLF->len=0;
 __STRING_NATIVE_LINEENDING->len=0;
 *__LONG_OS_BITS=0;
@@ -956,6 +956,9 @@ __STRING_IDECUSTOMFONTFILE->len=0;
 *__LONG_IDERUNMODE=0;
 *__BYTE_IDE_USEFONT8=0;
 *__INTEGER_NOEXESAVED=0;
+*__LONG_COLORSET=0;
+*__LONG_COLORRECOMPILEATTEMPTS=0;
+*__LONG_COLORSETDESIRED=0;
 *__LONG_VWATCHON=0;
 *__LONG_VWATCHRECOMPILEATTEMPTS=0;
 *__LONG_VWATCHDESIREDSTATE=0;
@@ -1073,7 +1076,9 @@ __ARRAY_BYTE_DEFINEELSE[0]=(ptrszint)nothingvalue;
 }
 }
 *__INTEGER_USERDEFINECOUNT=0;
+*__INTEGER_USERDEFINECOUNTPRESETS=0;
 __STRING_USERDEFINELIST->len=0;
+__STRING_USERDEFINELISTPRESETS->len=0;
 *__DOUBLE_QB64_UPTIME=0;
 *__LONG_INCLUDE_GDB_DEBUGGING_INFO=0;
 *__LONG_DEPENDENCY_LAST=0;
@@ -2506,7 +2511,6 @@ __STRING_F->len=0;
 *__LONG_DUMMY=0;
 __STRING_TERRMSG->len=0;
 __STRING_CURRENTDIR->len=0;
-*__LONG_BU_DEPENDENCY_CONSOLE_ONLY=0;
 *__LONG_CLOSEALL=0;
 *__LONG_BH=0;
 *__LONG_LASTUNRESOLVED=0;

diff --git a/internal/source/data1.txt b/internal/source/data1.txt
@@ -5,13 +5,13 @@ if(_FUNC_PARSECMDLINEARGS_LONG_I==NULL){
 _FUNC_PARSECMDLINEARGS_LONG_I=(int32*)mem_static_malloc(4);
 *_FUNC_PARSECMDLINEARGS_LONG_I=0;
 }
-int64 fornext_value2194;
-int64 fornext_finalvalue2194;
-int64 fornext_step2194;
-uint8 fornext_step_negative2194;
+int64 fornext_value2202;
+int64 fornext_finalvalue2202;
+int64 fornext_step2202;
+uint8 fornext_step_negative2202;
 qbs *_FUNC_PARSECMDLINEARGS_STRING_TOKEN=NULL;
 if (!_FUNC_PARSECMDLINEARGS_STRING_TOKEN)_FUNC_PARSECMDLINEARGS_STRING_TOKEN=qbs_new(0,0);
-static qbs *sc_2195=qbs_new(0,0);
+static qbs *sc_2203=qbs_new(0,0);
 int32 *_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH=NULL;
 if(_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH==NULL){
 _FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH=(int32*)mem_static_malloc(4);
@@ -22,20 +22,20 @@ if(_FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE==NULL){
 _FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE=(int32*)mem_static_malloc(4);
 *_FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE=0;
 }
-static qbs *sc_2223=qbs_new(0,0);
+static qbs *sc_2231=qbs_new(0,0);
 qbs *_FUNC_PARSECMDLINEARGS_STRING_DEBUGINFOINIWARNING=NULL;
 if (!_FUNC_PARSECMDLINEARGS_STRING_DEBUGINFOINIWARNING)_FUNC_PARSECMDLINEARGS_STRING_DEBUGINFOINIWARNING=qbs_new(0,0);
-int32 pass2239;
-int32 pass2241;
 int32 pass2247;
-static qbs *sc_2248=qbs_new(0,0);
+int32 pass2249;
+int32 pass2255;
+static qbs *sc_2256=qbs_new(0,0);
 qbs *_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME=NULL;
 if (!_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME)_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME=qbs_new(0,0);
-byte_element_struct *byte_element_2249=NULL;
-if (!byte_element_2249){
-if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2249=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2249=(byte_element_struct*)mem_static_malloc(12);
+byte_element_struct *byte_element_2257=NULL;
+if (!byte_element_2257){
+if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2257=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2257=(byte_element_struct*)mem_static_malloc(12);
 }
-byte_element_struct *byte_element_2251=NULL;
-if (!byte_element_2251){
-if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2251=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2251=(byte_element_struct*)mem_static_malloc(12);
+byte_element_struct *byte_element_2259=NULL;
+if (!byte_element_2259){
+if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2259=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2259=(byte_element_struct*)mem_static_malloc(12);
 }
diff --git a/internal/source/data10.txt b/internal/source/data10.txt
@@ -1,22 +1,22 @@
-qbs*oldstr2375=NULL;
+qbs*oldstr2383=NULL;
 if(_SUB_ASSIGN_STRING_A->tmp||_SUB_ASSIGN_STRING_A->fixed||_SUB_ASSIGN_STRING_A->readonly){
-oldstr2375=_SUB_ASSIGN_STRING_A;
-if (oldstr2375->cmem_descriptor){
-_SUB_ASSIGN_STRING_A=qbs_new_cmem(oldstr2375->len,0);
+oldstr2383=_SUB_ASSIGN_STRING_A;
+if (oldstr2383->cmem_descriptor){
+_SUB_ASSIGN_STRING_A=qbs_new_cmem(oldstr2383->len,0);
 }else{
-_SUB_ASSIGN_STRING_A=qbs_new(oldstr2375->len,0);
+_SUB_ASSIGN_STRING_A=qbs_new(oldstr2383->len,0);
 }
-memcpy(_SUB_ASSIGN_STRING_A->chr,oldstr2375->chr,oldstr2375->len);
+memcpy(_SUB_ASSIGN_STRING_A->chr,oldstr2383->chr,oldstr2383->len);
 }
 int32 *_SUB_ASSIGN_LONG_I=NULL;
 if(_SUB_ASSIGN_LONG_I==NULL){
 _SUB_ASSIGN_LONG_I=(int32*)mem_static_malloc(4);
 *_SUB_ASSIGN_LONG_I=0;
 }
-int64 fornext_value2377;
-int64 fornext_finalvalue2377;
-int64 fornext_step2377;
-uint8 fornext_step_negative2377;
+int64 fornext_value2385;
+int64 fornext_finalvalue2385;
+int64 fornext_step2385;
+uint8 fornext_step_negative2385;
 int32 *_SUB_ASSIGN_LONG_C=NULL;
 if(_SUB_ASSIGN_LONG_C==NULL){
 _SUB_ASSIGN_LONG_C=(int32*)mem_static_malloc(4);
@@ -29,8 +29,8 @@ _SUB_ASSIGN_LONG_B=(int32*)mem_static_malloc(4);
 }
 qbs *_SUB_ASSIGN_STRING_A2=NULL;
 if (!_SUB_ASSIGN_STRING_A2)_SUB_ASSIGN_STRING_A2=qbs_new(0,0);
-int32 pass2378;
-int32 pass2379;
+int32 pass2386;
+int32 pass2387;
 qbs *_SUB_ASSIGN_STRING_L=NULL;
 if (!_SUB_ASSIGN_STRING_L)_SUB_ASSIGN_STRING_L=qbs_new(0,0);
 int32 *_SUB_ASSIGN_LONG_TRY=NULL;
@@ -43,5 +43,5 @@ if(_SUB_ASSIGN_LONG_TYP==NULL){
 _SUB_ASSIGN_LONG_TYP=(int32*)mem_static_malloc(4);
 *_SUB_ASSIGN_LONG_TYP=0;
 }
-int32 pass2381;
-int32 pass2382;
+int32 pass2389;
+int32 pass2390;
diff --git a/internal/source/data100.txt b/internal/source/data100.txt
@@ -1,21 +1,21 @@
 qbs *_FUNC_GETPREVELEMENT_STRING_GETPREVELEMENT=NULL;
 if (!_FUNC_GETPREVELEMENT_STRING_GETPREVELEMENT)_FUNC_GETPREVELEMENT_STRING_GETPREVELEMENT=qbs_new(0,0);
-qbs*oldstr3696=NULL;
+qbs*oldstr3709=NULL;
 if(_FUNC_GETPREVELEMENT_STRING_A->tmp||_FUNC_GETPREVELEMENT_STRING_A->fixed||_FUNC_GETPREVELEMENT_STRING_A->readonly){
-oldstr3696=_FUNC_GETPREVELEMENT_STRING_A;
-if (oldstr3696->cmem_descriptor){
-_FUNC_GETPREVELEMENT_STRING_A=qbs_new_cmem(oldstr3696->len,0);
+oldstr3709=_FUNC_GETPREVELEMENT_STRING_A;
+if (oldstr3709->cmem_descriptor){
+_FUNC_GETPREVELEMENT_STRING_A=qbs_new_cmem(oldstr3709->len,0);
 }else{
-_FUNC_GETPREVELEMENT_STRING_A=qbs_new(oldstr3696->len,0);
+_FUNC_GETPREVELEMENT_STRING_A=qbs_new(oldstr3709->len,0);
 }
-memcpy(_FUNC_GETPREVELEMENT_STRING_A->chr,oldstr3696->chr,oldstr3696->len);
+memcpy(_FUNC_GETPREVELEMENT_STRING_A->chr,oldstr3709->chr,oldstr3709->len);
 }
 int32 *_FUNC_GETPREVELEMENT_LONG_I=NULL;
 if(_FUNC_GETPREVELEMENT_LONG_I==NULL){
 _FUNC_GETPREVELEMENT_LONG_I=(int32*)mem_static_malloc(4);
 *_FUNC_GETPREVELEMENT_LONG_I=0;
 }
-byte_element_struct *byte_element_3697=NULL;
-if (!byte_element_3697){
-if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3697=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3697=(byte_element_struct*)mem_static_malloc(12);
+byte_element_struct *byte_element_3710=NULL;
+if (!byte_element_3710){
+if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3710=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3710=(byte_element_struct*)mem_static_malloc(12);
 }
diff --git a/internal/source/data101.txt b/internal/source/data101.txt
@@ -1,14 +1,14 @@
 qbs *_FUNC_GETELEMENTS_STRING_GETELEMENTS=NULL;
 if (!_FUNC_GETELEMENTS_STRING_GETELEMENTS)_FUNC_GETELEMENTS_STRING_GETELEMENTS=qbs_new(0,0);
-qbs*oldstr3698=NULL;
+qbs*oldstr3711=NULL;
 if(_FUNC_GETELEMENTS_STRING_A->tmp||_FUNC_GETELEMENTS_STRING_A->fixed||_FUNC_GETELEMENTS_STRING_A->readonly){
-oldstr3698=_FUNC_GETELEMENTS_STRING_A;
-if (oldstr3698->cmem_descriptor){
-_FUNC_GETELEMENTS_STRING_A=qbs_new_cmem(oldstr3698->len,0);
+oldstr3711=_FUNC_GETELEMENTS_STRING_A;
+if (oldstr3711->cmem_descriptor){
+_FUNC_GETELEMENTS_STRING_A=qbs_new_cmem(oldstr3711->len,0);
 }else{
-_FUNC_GETELEMENTS_STRING_A=qbs_new(oldstr3698->len,0);
+_FUNC_GETELEMENTS_STRING_A=qbs_new(oldstr3711->len,0);
 }
-memcpy(_FUNC_GETELEMENTS_STRING_A->chr,oldstr3698->chr,oldstr3698->len);
+memcpy(_FUNC_GETELEMENTS_STRING_A->chr,oldstr3711->chr,oldstr3711->len);
 }
 int32 *_FUNC_GETELEMENTS_LONG_P=NULL;
 if(_FUNC_GETELEMENTS_LONG_P==NULL){
@@ -30,7 +30,7 @@ if(_FUNC_GETELEMENTS_LONG_I1POS==NULL){
 _FUNC_GETELEMENTS_LONG_I1POS=(int32*)mem_static_malloc(4);
 *_FUNC_GETELEMENTS_LONG_I1POS=0;
 }
-byte_element_struct *byte_element_3699=NULL;
-if (!byte_element_3699){
-if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3699=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3699=(byte_element_struct*)mem_static_malloc(12);
+byte_element_struct *byte_element_3712=NULL;
+if (!byte_element_3712){
+if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3712=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3712=(byte_element_struct*)mem_static_malloc(12);
 }
diff --git a/internal/source/data102.txt b/internal/source/data102.txt
@@ -1,13 +1,13 @@
 qbs *_FUNC_GETELEMENTSBEFORE_STRING_GETELEMENTSBEFORE=NULL;
 if (!_FUNC_GETELEMENTSBEFORE_STRING_GETELEMENTSBEFORE)_FUNC_GETELEMENTSBEFORE_STRING_GETELEMENTSBEFORE=qbs_new(0,0);
-qbs*oldstr3700=NULL;
+qbs*oldstr3713=NULL;
 if(_FUNC_GETELEMENTSBEFORE_STRING_A->tmp||_FUNC_GETELEMENTSBEFORE_STRING_A->fixed||_FUNC_GETELEMENTSBEFORE_STRING_A->readonly){
-oldstr3700=_FUNC_GETELEMENTSBEFORE_STRING_A;
-if (oldstr3700->cmem_descriptor){
-_FUNC_GETELEMENTSBEFORE_STRING_A=qbs_new_cmem(oldstr3700->len,0);
+oldstr3713=_FUNC_GETELEMENTSBEFORE_STRING_A;
+if (oldstr3713->cmem_descriptor){
+_FUNC_GETELEMENTSBEFORE_STRING_A=qbs_new_cmem(oldstr3713->len,0);
 }else{
-_FUNC_GETELEMENTSBEFORE_STRING_A=qbs_new(oldstr3700->len,0);
+_FUNC_GETELEMENTSBEFORE_STRING_A=qbs_new(oldstr3713->len,0);
 }
-memcpy(_FUNC_GETELEMENTSBEFORE_STRING_A->chr,oldstr3700->chr,oldstr3700->len);
+memcpy(_FUNC_GETELEMENTSBEFORE_STRING_A->chr,oldstr3713->chr,oldstr3713->len);
 }
-int32 pass3701;
+int32 pass3714;
diff --git a/internal/source/data103.txt b/internal/source/data103.txt
@@ -1,14 +1,14 @@
 qbs *_FUNC_GETELEMENTSAFTER_STRING_GETELEMENTSAFTER=NULL;
 if (!_FUNC_GETELEMENTSAFTER_STRING_GETELEMENTSAFTER)_FUNC_GETELEMENTSAFTER_STRING_GETELEMENTSAFTER=qbs_new(0,0);
-qbs*oldstr3702=NULL;
+qbs*oldstr3715=NULL;
 if(_FUNC_GETELEMENTSAFTER_STRING_A->tmp||_FUNC_GETELEMENTSAFTER_STRING_A->fixed||_FUNC_GETELEMENTSAFTER_STRING_A->readonly){
-oldstr3702=_FUNC_GETELEMENTSAFTER_STRING_A;
-if (oldstr3702->cmem_descriptor){
-_FUNC_GETELEMENTSAFTER_STRING_A=qbs_new_cmem(oldstr3702->len,0);
+oldstr3715=_FUNC_GETELEMENTSAFTER_STRING_A;
+if (oldstr3715->cmem_descriptor){
+_FUNC_GETELEMENTSAFTER_STRING_A=qbs_new_cmem(oldstr3715->len,0);
 }else{
-_FUNC_GETELEMENTSAFTER_STRING_A=qbs_new(oldstr3702->len,0);
+_FUNC_GETELEMENTSAFTER_STRING_A=qbs_new(oldstr3715->len,0);
 }
-memcpy(_FUNC_GETELEMENTSAFTER_STRING_A->chr,oldstr3702->chr,oldstr3702->len);
+memcpy(_FUNC_GETELEMENTSAFTER_STRING_A->chr,oldstr3715->chr,oldstr3715->len);
 }
 int32 *_FUNC_GETELEMENTSAFTER_LONG_P=NULL;
 if(_FUNC_GETELEMENTSAFTER_LONG_P==NULL){
@@ -25,7 +25,7 @@ if(_FUNC_GETELEMENTSAFTER_LONG_I==NULL){
 _FUNC_GETELEMENTSAFTER_LONG_I=(int32*)mem_static_malloc(4);
 *_FUNC_GETELEMENTSAFTER_LONG_I=0;
 }
-byte_element_struct *byte_element_3703=NULL;
-if (!byte_element_3703){
-if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3703=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3703=(byte_element_struct*)mem_static_malloc(12);
+byte_element_struct *byte_element_3716=NULL;
+if (!byte_element_3716){
+if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3716=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3716=(byte_element_struct*)mem_static_malloc(12);
 }
diff --git a/internal/source/data104.txt b/internal/source/data104.txt
@@ -1,22 +1,22 @@
-qbs*oldstr3704=NULL;
+qbs*oldstr3717=NULL;
 if(_SUB_INSERTELEMENTS_STRING_A->tmp||_SUB_INSERTELEMENTS_STRING_A->fixed||_SUB_INSERTELEMENTS_STRING_A->readonly){
-oldstr3704=_SUB_INSERTELEMENTS_STRING_A;
-if (oldstr3704->cmem_descriptor){
-_SUB_INSERTELEMENTS_STRING_A=qbs_new_cmem(oldstr3704->len,0);
+oldstr3717=_SUB_INSERTELEMENTS_STRING_A;
+if (oldstr3717->cmem_descriptor){
+_SUB_INSERTELEMENTS_STRING_A=qbs_new_cmem(oldstr3717->len,0);
 }else{
-_SUB_INSERTELEMENTS_STRING_A=qbs_new(oldstr3704->len,0);
+_SUB_INSERTELEMENTS_STRING_A=qbs_new(oldstr3717->len,0);
 }
-memcpy(_SUB_INSERTELEMENTS_STRING_A->chr,oldstr3704->chr,oldstr3704->len);
+memcpy(_SUB_INSERTELEMENTS_STRING_A->chr,oldstr3717->chr,oldstr3717->len);
 }
-qbs*oldstr3705=NULL;
+qbs*oldstr3718=NULL;
 if(_SUB_INSERTELEMENTS_STRING_ELEMENTS->tmp||_SUB_INSERTELEMENTS_STRING_ELEMENTS->fixed||_SUB_INSERTELEMENTS_STRING_ELEMENTS->readonly){
-oldstr3705=_SUB_INSERTELEMENTS_STRING_ELEMENTS;
-if (oldstr3705->cmem_descriptor){
-_SUB_INSERTELEMENTS_STRING_ELEMENTS=qbs_new_cmem(oldstr3705->len,0);
+oldstr3718=_SUB_INSERTELEMENTS_STRING_ELEMENTS;
+if (oldstr3718->cmem_descriptor){
+_SUB_INSERTELEMENTS_STRING_ELEMENTS=qbs_new_cmem(oldstr3718->len,0);
 }else{
-_SUB_INSERTELEMENTS_STRING_ELEMENTS=qbs_new(oldstr3705->len,0);
+_SUB_INSERTELEMENTS_STRING_ELEMENTS=qbs_new(oldstr3718->len,0);
 }
-memcpy(_SUB_INSERTELEMENTS_STRING_ELEMENTS->chr,oldstr3705->chr,oldstr3705->len);
+memcpy(_SUB_INSERTELEMENTS_STRING_ELEMENTS->chr,oldstr3718->chr,oldstr3718->len);
 }
 qbs *_SUB_INSERTELEMENTS_STRING_A2=NULL;
 if (!_SUB_INSERTELEMENTS_STRING_A2)_SUB_INSERTELEMENTS_STRING_A2=qbs_new(0,0);
@@ -30,7 +30,7 @@ if(_SUB_INSERTELEMENTS_LONG_I2==NULL){
 _SUB_INSERTELEMENTS_LONG_I2=(int32*)mem_static_malloc(4);
 *_SUB_INSERTELEMENTS_LONG_I2=0;
 }
-int64 fornext_value3707;
-int64 fornext_finalvalue3707;
-int64 fornext_step3707;
-uint8 fornext_step_negative3707;
+int64 fornext_value3720;
+int64 fornext_finalvalue3720;
+int64 fornext_step3720;
+uint8 fornext_step_negative3720;
diff --git a/internal/source/data105.txt b/internal/source/data105.txt
@@ -3,15 +3,15 @@ if(_FUNC_NUMELEMENTS_LONG_NUMELEMENTS==NULL){
 _FUNC_NUMELEMENTS_LONG_NUMELEMENTS=(int32*)mem_static_malloc(4);
 *_FUNC_NUMELEMENTS_LONG_NUMELEMENTS=0;
 }
-qbs*oldstr3708=NULL;
+qbs*oldstr3721=NULL;
 if(_FUNC_NUMELEMENTS_STRING_A->tmp||_FUNC_NUMELEMENTS_STRING_A->fixed||_FUNC_NUMELEMENTS_STRING_A->readonly){
-oldstr3708=_FUNC_NUMELEMENTS_STRING_A;
-if (oldstr3708->cmem_descriptor){
-_FUNC_NUMELEMENTS_STRING_A=qbs_new_cmem(oldstr3708->len,0);
+oldstr3721=_FUNC_NUMELEMENTS_STRING_A;
+if (oldstr3721->cmem_descriptor){
+_FUNC_NUMELEMENTS_STRING_A=qbs_new_cmem(oldstr3721->len,0);
 }else{
-_FUNC_NUMELEMENTS_STRING_A=qbs_new(oldstr3708->len,0);
+_FUNC_NUMELEMENTS_STRING_A=qbs_new(oldstr3721->len,0);
 }
-memcpy(_FUNC_NUMELEMENTS_STRING_A->chr,oldstr3708->chr,oldstr3708->len);
+memcpy(_FUNC_NUMELEMENTS_STRING_A->chr,oldstr3721->chr,oldstr3721->len);
 }
 int32 *_FUNC_NUMELEMENTS_LONG_P=NULL;
 if(_FUNC_NUMELEMENTS_LONG_P==NULL){

diff --git a/internal/source/data106.txt b/internal/source/data106.txt
@@ -1,12 +1,12 @@
-qbs*oldstr3709=NULL;
+qbs*oldstr3722=NULL;
 if(_SUB_REMOVEELEMENTS_STRING_A->tmp||_SUB_REMOVEELEMENTS_STRING_A->fixed||_SUB_REMOVEELEMENTS_STRING_A->readonly){
-oldstr3709=_SUB_REMOVEELEMENTS_STRING_A;
-if (oldstr3709->cmem_descriptor){
-_SUB_REMOVEELEMENTS_STRING_A=qbs_new_cmem(oldstr3709->len,0);
+oldstr3722=_SUB_REMOVEELEMENTS_STRING_A;
+if (oldstr3722->cmem_descriptor){
+_SUB_REMOVEELEMENTS_STRING_A=qbs_new_cmem(oldstr3722->len,0);
 }else{
-_SUB_REMOVEELEMENTS_STRING_A=qbs_new(oldstr3709->len,0);
+_SUB_REMOVEELEMENTS_STRING_A=qbs_new(oldstr3722->len,0);
 }
-memcpy(_SUB_REMOVEELEMENTS_STRING_A->chr,oldstr3709->chr,oldstr3709->len);
+memcpy(_SUB_REMOVEELEMENTS_STRING_A->chr,oldstr3722->chr,oldstr3722->len);
 }
 int32 *_SUB_REMOVEELEMENTS_LONG_N=NULL;
 if(_SUB_REMOVEELEMENTS_LONG_N==NULL){
@@ -20,11 +20,11 @@ _SUB_REMOVEELEMENTS_LONG_I=(int32*)mem_static_malloc(4);
 }
 qbs *_SUB_REMOVEELEMENTS_STRING_A2=NULL;
 if (!_SUB_REMOVEELEMENTS_STRING_A2)_SUB_REMOVEELEMENTS_STRING_A2=qbs_new(0,0);
-int64 fornext_value3711;
-int64 fornext_finalvalue3711;
-int64 fornext_step3711;
-uint8 fornext_step_negative3711;
-byte_element_struct *byte_element_3712=NULL;
-if (!byte_element_3712){
-if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3712=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3712=(byte_element_struct*)mem_static_malloc(12);
+int64 fornext_value3724;
+int64 fornext_finalvalue3724;
+int64 fornext_step3724;
+uint8 fornext_step_negative3724;
+byte_element_struct *byte_element_3725=NULL;
+if (!byte_element_3725){
+if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3725=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3725=(byte_element_struct*)mem_static_malloc(12);
 }