mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-31 03:00:15 +00:00
272 lines
12 KiB
Text
272 lines
12 KiB
Text
|
qbs *_FUNC_EVALUATECONST_STRING_EVALUATECONST=NULL;
|
||
|
if (!_FUNC_EVALUATECONST_STRING_EVALUATECONST)_FUNC_EVALUATECONST_STRING_EVALUATECONST=qbs_new(0,0);
|
||
|
qbs*oldstr3045=NULL;
|
||
|
if(_FUNC_EVALUATECONST_STRING_A2->tmp||_FUNC_EVALUATECONST_STRING_A2->fixed||_FUNC_EVALUATECONST_STRING_A2->readonly){
|
||
|
oldstr3045=_FUNC_EVALUATECONST_STRING_A2;
|
||
|
if (oldstr3045->cmem_descriptor){
|
||
|
_FUNC_EVALUATECONST_STRING_A2=qbs_new_cmem(oldstr3045->len,0);
|
||
|
}else{
|
||
|
_FUNC_EVALUATECONST_STRING_A2=qbs_new(oldstr3045->len,0);
|
||
|
}
|
||
|
memcpy(_FUNC_EVALUATECONST_STRING_A2->chr,oldstr3045->chr,oldstr3045->len);
|
||
|
}
|
||
|
qbs *_FUNC_EVALUATECONST_STRING_A=NULL;
|
||
|
if (!_FUNC_EVALUATECONST_STRING_A)_FUNC_EVALUATECONST_STRING_A=qbs_new(0,0);
|
||
|
ptrszint *_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK=NULL;
|
||
|
if (!_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK){
|
||
|
_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK=(ptrszint*)mem_static_malloc(9*ptrsz);
|
||
|
new_mem_lock();
|
||
|
mem_lock_tmp->type=4;
|
||
|
((ptrszint*)_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK)[8]=(ptrszint)mem_lock_tmp;
|
||
|
_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[2]=0;
|
||
|
_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4]=2147483647;
|
||
|
_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]=0;
|
||
|
_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[6]=0;
|
||
|
_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]=(ptrszint)¬hingstring;
|
||
|
}
|
||
|
ptrszint *_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS=NULL;
|
||
|
if (!_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS){
|
||
|
_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS=(ptrszint*)mem_static_malloc(9*ptrsz);
|
||
|
new_mem_lock();
|
||
|
mem_lock_tmp->type=4;
|
||
|
((ptrszint*)_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS)[8]=(ptrszint)mem_lock_tmp;
|
||
|
_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]=0;
|
||
|
_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4]=2147483647;
|
||
|
_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]=0;
|
||
|
_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[6]=0;
|
||
|
_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]=(ptrszint)nothingvalue;
|
||
|
}
|
||
|
ptrszint *_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE=NULL;
|
||
|
if (!_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE){
|
||
|
_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE=(ptrszint*)mem_static_malloc(9*ptrsz);
|
||
|
new_mem_lock();
|
||
|
mem_lock_tmp->type=4;
|
||
|
((ptrszint*)_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE)[8]=(ptrszint)mem_lock_tmp;
|
||
|
_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]=0;
|
||
|
_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4]=2147483647;
|
||
|
_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]=0;
|
||
|
_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[6]=0;
|
||
|
_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]=(ptrszint)nothingvalue;
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_N=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_N==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_N=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_N=0;
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_I=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_I==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_I=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_I=0;
|
||
|
}
|
||
|
int64 fornext_value3048;
|
||
|
int64 fornext_finalvalue3048;
|
||
|
int64 fornext_step3048;
|
||
|
uint8 fornext_step_negative3048;
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_L=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_L==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_L=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_L=0;
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_B=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_B==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_B=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_B=0;
|
||
|
}
|
||
|
int64 fornext_value3050;
|
||
|
int64 fornext_finalvalue3050;
|
||
|
int64 fornext_step3050;
|
||
|
uint8 fornext_step_negative3050;
|
||
|
qbs *_FUNC_EVALUATECONST_STRING_E=NULL;
|
||
|
if (!_FUNC_EVALUATECONST_STRING_E)_FUNC_EVALUATECONST_STRING_E=qbs_new(0,0);
|
||
|
int64 fornext_value3052;
|
||
|
int64 fornext_finalvalue3052;
|
||
|
int64 fornext_step3052;
|
||
|
uint8 fornext_step_negative3052;
|
||
|
byte_element_struct *byte_element_3053=NULL;
|
||
|
if (!byte_element_3053){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3053=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3053=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_I2=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_I2==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_I2=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_I2=0;
|
||
|
}
|
||
|
int64 fornext_value3055;
|
||
|
int64 fornext_finalvalue3055;
|
||
|
int64 fornext_step3055;
|
||
|
uint8 fornext_step_negative3055;
|
||
|
byte_element_struct *byte_element_3056=NULL;
|
||
|
if (!byte_element_3056){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3056=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3056=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_A=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_A==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_A=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_A=0;
|
||
|
}
|
||
|
byte_element_struct *byte_element_3057=NULL;
|
||
|
if (!byte_element_3057){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3057=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3057=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_X=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_X==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_X=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_X=0;
|
||
|
}
|
||
|
byte_element_struct *byte_element_3058=NULL;
|
||
|
if (!byte_element_3058){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3058=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3058=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
byte_element_struct *byte_element_3059=NULL;
|
||
|
if (!byte_element_3059){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3059=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3059=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
byte_element_struct *byte_element_3060=NULL;
|
||
|
if (!byte_element_3060){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3060=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3060=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
byte_element_struct *byte_element_3061=NULL;
|
||
|
if (!byte_element_3061){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3061=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3061=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
byte_element_struct *byte_element_3062=NULL;
|
||
|
if (!byte_element_3062){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3062=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3062=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
byte_element_struct *byte_element_3063=NULL;
|
||
|
if (!byte_element_3063){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3063=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3063=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_N2=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_N2==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_N2=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_N2=0;
|
||
|
}
|
||
|
int64 fornext_value3065;
|
||
|
int64 fornext_finalvalue3065;
|
||
|
int64 fornext_step3065;
|
||
|
uint8 fornext_step_negative3065;
|
||
|
qbs *_FUNC_EVALUATECONST_STRING_O=NULL;
|
||
|
if (!_FUNC_EVALUATECONST_STRING_O)_FUNC_EVALUATECONST_STRING_O=qbs_new(0,0);
|
||
|
long double *_FUNC_EVALUATECONST_FLOAT_R=NULL;
|
||
|
if(_FUNC_EVALUATECONST_FLOAT_R==NULL){
|
||
|
_FUNC_EVALUATECONST_FLOAT_R=(long double*)mem_static_malloc(32);
|
||
|
*_FUNC_EVALUATECONST_FLOAT_R=0;
|
||
|
}
|
||
|
int64 *_FUNC_EVALUATECONST_INTEGER64_R=NULL;
|
||
|
if(_FUNC_EVALUATECONST_INTEGER64_R==NULL){
|
||
|
_FUNC_EVALUATECONST_INTEGER64_R=(int64*)mem_static_malloc(8);
|
||
|
*_FUNC_EVALUATECONST_INTEGER64_R=0;
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_ET=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_ET==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_ET=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_ET=0;
|
||
|
}
|
||
|
qbs *_FUNC_EVALUATECONST_STRING_EV=NULL;
|
||
|
if (!_FUNC_EVALUATECONST_STRING_EV)_FUNC_EVALUATECONST_STRING_EV=qbs_new(0,0);
|
||
|
qbs *_FUNC_EVALUATECONST_STRING_S1=NULL;
|
||
|
if (!_FUNC_EVALUATECONST_STRING_S1)_FUNC_EVALUATECONST_STRING_S1=qbs_new(0,0);
|
||
|
byte_element_struct *byte_element_3066=NULL;
|
||
|
if (!byte_element_3066){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3066=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3066=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_S1SIZE=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_S1SIZE==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_S1SIZE=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_S1SIZE=0;
|
||
|
}
|
||
|
byte_element_struct *byte_element_3067=NULL;
|
||
|
if (!byte_element_3067){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3067=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3067=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
byte_element_struct *byte_element_3068=NULL;
|
||
|
if (!byte_element_3068){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3068=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3068=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
qbs *_FUNC_EVALUATECONST_STRING_S2=NULL;
|
||
|
if (!_FUNC_EVALUATECONST_STRING_S2)_FUNC_EVALUATECONST_STRING_S2=qbs_new(0,0);
|
||
|
byte_element_struct *byte_element_3069=NULL;
|
||
|
if (!byte_element_3069){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3069=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3069=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_S2SIZE=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_S2SIZE==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_S2SIZE=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_S2SIZE=0;
|
||
|
}
|
||
|
byte_element_struct *byte_element_3070=NULL;
|
||
|
if (!byte_element_3070){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3070=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3070=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
byte_element_struct *byte_element_3071=NULL;
|
||
|
if (!byte_element_3071){
|
||
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_3071=(byte_element_struct*)(mem_static_pointer-12); else byte_element_3071=(byte_element_struct*)mem_static_malloc(12);
|
||
|
}
|
||
|
int32 pass3072;
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_LINTEGER=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_LINTEGER==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_LINTEGER=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_LINTEGER=0;
|
||
|
}
|
||
|
long double *_FUNC_EVALUATECONST_FLOAT_L=NULL;
|
||
|
if(_FUNC_EVALUATECONST_FLOAT_L==NULL){
|
||
|
_FUNC_EVALUATECONST_FLOAT_L=(long double*)mem_static_malloc(32);
|
||
|
*_FUNC_EVALUATECONST_FLOAT_L=0;
|
||
|
}
|
||
|
int64 *_FUNC_EVALUATECONST_INTEGER64_L=NULL;
|
||
|
if(_FUNC_EVALUATECONST_INTEGER64_L==NULL){
|
||
|
_FUNC_EVALUATECONST_INTEGER64_L=(int64*)mem_static_malloc(8);
|
||
|
*_FUNC_EVALUATECONST_INTEGER64_L=0;
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_RINTEGER=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_RINTEGER==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_RINTEGER=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_RINTEGER=0;
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_U=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_U==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_U=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_U=0;
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_LB=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_LB==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_LB=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_LB=0;
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_RB=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_RB==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_RB=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_RB=0;
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_OB=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_OB==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_OB=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_OB=0;
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_LFB=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_LFB==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_LFB=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_LFB=0;
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_RFB=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_RFB==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_RFB=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_RFB=0;
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_LIB=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_LIB==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_LIB=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_LIB=0;
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_RIB=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_RIB==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_RIB=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_RIB=0;
|
||
|
}
|
||
|
int32 *_FUNC_EVALUATECONST_LONG_F=NULL;
|
||
|
if(_FUNC_EVALUATECONST_LONG_F==NULL){
|
||
|
_FUNC_EVALUATECONST_LONG_F=(int32*)mem_static_malloc(4);
|
||
|
*_FUNC_EVALUATECONST_LONG_F=0;
|
||
|
}
|