mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-12 12:15:14 +00:00
85 lines
3.6 KiB
Plaintext
85 lines
3.6 KiB
Plaintext
qbs *_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION=NULL;
|
|
if (!_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION)_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION=qbs_new(0,0);
|
|
qbs*oldstr3998=NULL;
|
|
if(_FUNC_EVALUATEFUNCTION_STRING_ARGS->tmp||_FUNC_EVALUATEFUNCTION_STRING_ARGS->fixed||_FUNC_EVALUATEFUNCTION_STRING_ARGS->readonly){
|
|
oldstr3998=_FUNC_EVALUATEFUNCTION_STRING_ARGS;
|
|
if (oldstr3998->cmem_descriptor){
|
|
_FUNC_EVALUATEFUNCTION_STRING_ARGS=qbs_new_cmem(oldstr3998->len,0);
|
|
}else{
|
|
_FUNC_EVALUATEFUNCTION_STRING_ARGS=qbs_new(oldstr3998->len,0);
|
|
}
|
|
memcpy(_FUNC_EVALUATEFUNCTION_STRING_ARGS->chr,oldstr3998->chr,oldstr3998->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_value4000;
|
|
int64 fornext_finalvalue4000;
|
|
int64 fornext_step4000;
|
|
uint8 fornext_step_negative4000;
|
|
qbs *_FUNC_EVALUATEFUNCTION_STRING_ELE=NULL;
|
|
if (!_FUNC_EVALUATEFUNCTION_STRING_ELE)_FUNC_EVALUATEFUNCTION_STRING_ELE=qbs_new(0,0);
|
|
int32 pass4001;
|
|
int32 pass4002;
|
|
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_4003=qbs_new(0,0);
|
|
static uint64 sc_4005;
|
|
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_4006;
|
|
static int64 sc_4007;
|
|
qbs *_FUNC_EVALUATEFUNCTION_STRING_EVALUATENUMBERS=NULL;
|
|
if (!_FUNC_EVALUATEFUNCTION_STRING_EVALUATENUMBERS)_FUNC_EVALUATEFUNCTION_STRING_EVALUATENUMBERS=qbs_new(0,0);
|
|
static qbs *sc_4008=qbs_new(0,0);
|
|
static qbs *sc_4009=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;
|
|
}
|