mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 06:44:44 +00:00
84 lines
3.6 KiB
Text
84 lines
3.6 KiB
Text
qbs *_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION=NULL;
|
|
if (!_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION)_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION=qbs_new(0,0);
|
|
qbs*oldstr4035=NULL;
|
|
if(_FUNC_EVALUATEFUNCTION_STRING_ARGS->tmp||_FUNC_EVALUATEFUNCTION_STRING_ARGS->fixed||_FUNC_EVALUATEFUNCTION_STRING_ARGS->readonly){
|
|
oldstr4035=_FUNC_EVALUATEFUNCTION_STRING_ARGS;
|
|
if (oldstr4035->cmem_descriptor){
|
|
_FUNC_EVALUATEFUNCTION_STRING_ARGS=qbs_new_cmem(oldstr4035->len,0);
|
|
}else{
|
|
_FUNC_EVALUATEFUNCTION_STRING_ARGS=qbs_new(oldstr4035->len,0);
|
|
}
|
|
memcpy(_FUNC_EVALUATEFUNCTION_STRING_ARGS->chr,oldstr4035->chr,oldstr4035->len);
|
|
}
|
|
long double *_FUNC_EVALUATEFUNCTION_FLOAT_N1=NULL;
|
|
if(_FUNC_EVALUATEFUNCTION_FLOAT_N1==NULL){
|
|
_FUNC_EVALUATEFUNCTION_FLOAT_N1=(long double*)mem_static_malloc(32);
|
|
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=0;
|
|
}
|
|
qbs *_FUNC_EVALUATEFUNCTION_STRING_NSTR=NULL;
|
|
if (!_FUNC_EVALUATEFUNCTION_STRING_NSTR)_FUNC_EVALUATEFUNCTION_STRING_NSTR=qbs_new(0,0);
|
|
int32 *_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT=NULL;
|
|
if(_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT==NULL){
|
|
_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT=(int32*)mem_static_malloc(4);
|
|
*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT=0;
|
|
}
|
|
ptrszint *_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS=NULL;
|
|
if (!_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS){
|
|
_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS=(ptrszint*)mem_static_malloc(9*ptrsz);
|
|
new_mem_lock();
|
|
mem_lock_tmp->type=4;
|
|
((ptrszint*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS)[8]=(ptrszint)mem_lock_tmp;
|
|
_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[2]=0;
|
|
_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4]=2147483647;
|
|
_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]=0;
|
|
_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[6]=0;
|
|
_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0]=(ptrszint)nothingvalue;
|
|
}
|
|
ptrszint *_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS=NULL;
|
|
if (!_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS){
|
|
_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS=(ptrszint*)mem_static_malloc(9*ptrsz);
|
|
new_mem_lock();
|
|
mem_lock_tmp->type=4;
|
|
((ptrszint*)_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS)[8]=(ptrszint)mem_lock_tmp;
|
|
_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[2]=0;
|
|
_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[4]=2147483647;
|
|
_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[5]=0;
|
|
_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[6]=0;
|
|
_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]=(ptrszint)¬hingstring;
|
|
}
|
|
int32 *_FUNC_EVALUATEFUNCTION_LONG_I=NULL;
|
|
if(_FUNC_EVALUATEFUNCTION_LONG_I==NULL){
|
|
_FUNC_EVALUATEFUNCTION_LONG_I=(int32*)mem_static_malloc(4);
|
|
*_FUNC_EVALUATEFUNCTION_LONG_I=0;
|
|
}
|
|
int64 fornext_value4037;
|
|
int64 fornext_finalvalue4037;
|
|
int64 fornext_step4037;
|
|
uint8 fornext_step_negative4037;
|
|
qbs *_FUNC_EVALUATEFUNCTION_STRING_ELE=NULL;
|
|
if (!_FUNC_EVALUATEFUNCTION_STRING_ELE)_FUNC_EVALUATEFUNCTION_STRING_ELE=qbs_new(0,0);
|
|
int32 pass4038;
|
|
int32 pass4039;
|
|
int32 *_FUNC_EVALUATEFUNCTION_LONG_TYP=NULL;
|
|
if(_FUNC_EVALUATEFUNCTION_LONG_TYP==NULL){
|
|
_FUNC_EVALUATEFUNCTION_LONG_TYP=(int32*)mem_static_malloc(4);
|
|
*_FUNC_EVALUATEFUNCTION_LONG_TYP=0;
|
|
}
|
|
static qbs *sc_4040=qbs_new(0,0);
|
|
static uint64 sc_4042;
|
|
int32 *_FUNC_EVALUATEFUNCTION_LONG_T=NULL;
|
|
if(_FUNC_EVALUATEFUNCTION_LONG_T==NULL){
|
|
_FUNC_EVALUATEFUNCTION_LONG_T=(int32*)mem_static_malloc(4);
|
|
*_FUNC_EVALUATEFUNCTION_LONG_T=0;
|
|
}
|
|
static uint64 sc_4043;
|
|
static int64 sc_4044;
|
|
qbs *_FUNC_EVALUATEFUNCTION_STRING_EVALUATENUMBERS=NULL;
|
|
if (!_FUNC_EVALUATEFUNCTION_STRING_EVALUATENUMBERS)_FUNC_EVALUATEFUNCTION_STRING_EVALUATENUMBERS=qbs_new(0,0);
|
|
static qbs *sc_4045=qbs_new(0,0);
|
|
static qbs *sc_4046=qbs_new(0,0);
|
|
int64 *_FUNC_EVALUATEFUNCTION_INTEGER64_N=NULL;
|
|
if(_FUNC_EVALUATEFUNCTION_INTEGER64_N==NULL){
|
|
_FUNC_EVALUATEFUNCTION_INTEGER64_N=(int64*)mem_static_malloc(8);
|
|
*_FUNC_EVALUATEFUNCTION_INTEGER64_N=0;
|
|
}
|