mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-05-12 12:00:13 +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*oldstr4019=NULL;
|
|
if(_FUNC_EVALUATEFUNCTION_STRING_ARGS->tmp||_FUNC_EVALUATEFUNCTION_STRING_ARGS->fixed||_FUNC_EVALUATEFUNCTION_STRING_ARGS->readonly){
|
|
oldstr4019=_FUNC_EVALUATEFUNCTION_STRING_ARGS;
|
|
if (oldstr4019->cmem_descriptor){
|
|
_FUNC_EVALUATEFUNCTION_STRING_ARGS=qbs_new_cmem(oldstr4019->len,0);
|
|
}else{
|
|
_FUNC_EVALUATEFUNCTION_STRING_ARGS=qbs_new(oldstr4019->len,0);
|
|
}
|
|
memcpy(_FUNC_EVALUATEFUNCTION_STRING_ARGS->chr,oldstr4019->chr,oldstr4019->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_value4021;
|
|
int64 fornext_finalvalue4021;
|
|
int64 fornext_step4021;
|
|
uint8 fornext_step_negative4021;
|
|
qbs *_FUNC_EVALUATEFUNCTION_STRING_ELE=NULL;
|
|
if (!_FUNC_EVALUATEFUNCTION_STRING_ELE)_FUNC_EVALUATEFUNCTION_STRING_ELE=qbs_new(0,0);
|
|
int32 pass4022;
|
|
int32 pass4023;
|
|
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_4024=qbs_new(0,0);
|
|
static uint64 sc_4026;
|
|
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_4027;
|
|
static int64 sc_4028;
|
|
qbs *_FUNC_EVALUATEFUNCTION_STRING_EVALUATENUMBERS=NULL;
|
|
if (!_FUNC_EVALUATEFUNCTION_STRING_EVALUATENUMBERS)_FUNC_EVALUATEFUNCTION_STRING_EVALUATENUMBERS=qbs_new(0,0);
|
|
static qbs *sc_4029=qbs_new(0,0);
|
|
static qbs *sc_4030=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;
|
|
}
|