mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-09 11:40:15 +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*oldstr4009=NULL;
|
|
if(_FUNC_EVALUATEFUNCTION_STRING_ARGS->tmp||_FUNC_EVALUATEFUNCTION_STRING_ARGS->fixed||_FUNC_EVALUATEFUNCTION_STRING_ARGS->readonly){
|
|
oldstr4009=_FUNC_EVALUATEFUNCTION_STRING_ARGS;
|
|
if (oldstr4009->cmem_descriptor){
|
|
_FUNC_EVALUATEFUNCTION_STRING_ARGS=qbs_new_cmem(oldstr4009->len,0);
|
|
}else{
|
|
_FUNC_EVALUATEFUNCTION_STRING_ARGS=qbs_new(oldstr4009->len,0);
|
|
}
|
|
memcpy(_FUNC_EVALUATEFUNCTION_STRING_ARGS->chr,oldstr4009->chr,oldstr4009->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_value4011;
|
|
int64 fornext_finalvalue4011;
|
|
int64 fornext_step4011;
|
|
uint8 fornext_step_negative4011;
|
|
qbs *_FUNC_EVALUATEFUNCTION_STRING_ELE=NULL;
|
|
if (!_FUNC_EVALUATEFUNCTION_STRING_ELE)_FUNC_EVALUATEFUNCTION_STRING_ELE=qbs_new(0,0);
|
|
int32 pass4012;
|
|
int32 pass4013;
|
|
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_4014=qbs_new(0,0);
|
|
static uint64 sc_4016;
|
|
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_4017;
|
|
static int64 sc_4018;
|
|
qbs *_FUNC_EVALUATEFUNCTION_STRING_EVALUATENUMBERS=NULL;
|
|
if (!_FUNC_EVALUATEFUNCTION_STRING_EVALUATENUMBERS)_FUNC_EVALUATEFUNCTION_STRING_EVALUATENUMBERS=qbs_new(0,0);
|
|
static qbs *sc_4019=qbs_new(0,0);
|
|
static qbs *sc_4020=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;
|
|
}
|