mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-26 17:10:38 +00:00
46 lines
1.8 KiB
Plaintext
46 lines
1.8 KiB
Plaintext
if(oldstr2554){
|
|
if(oldstr2554->fixed)qbs_set(oldstr2554,_FUNC_EVALUATE_STRING_A2);
|
|
qbs_free(_FUNC_EVALUATE_STRING_A2);
|
|
}
|
|
if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&1){
|
|
tmp_long=_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5];
|
|
while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long]);
|
|
free((void*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]));
|
|
}
|
|
free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATE_ARRAY_STRING_BLOCK)[8] );
|
|
if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&1){
|
|
if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&4){
|
|
cmem_dynamic_free((uint8*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]));
|
|
}else{
|
|
free((void*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]));
|
|
}
|
|
}
|
|
free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK)[8] );
|
|
if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&1){
|
|
if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&4){
|
|
cmem_dynamic_free((uint8*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]));
|
|
}else{
|
|
free((void*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]));
|
|
}
|
|
}
|
|
free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE)[8] );
|
|
qbs_free(_FUNC_EVALUATE_STRING_A);
|
|
qbs_free(_FUNC_EVALUATE_STRING_L);
|
|
qbs_free(_FUNC_EVALUATE_STRING_NEXTL);
|
|
qbs_free(_FUNC_EVALUATE_STRING_L2);
|
|
qbs_free(_FUNC_EVALUATE_STRING_DTYP);
|
|
qbs_free(_FUNC_EVALUATE_STRING_C);
|
|
qbs_free(_FUNC_EVALUATE_STRING_O);
|
|
qbs_free(_FUNC_EVALUATE_STRING_E2);
|
|
qbs_free(_FUNC_EVALUATE_STRING_E);
|
|
qbs_free(_FUNC_EVALUATE_STRING_FAKEE);
|
|
qbs_free(_FUNC_EVALUATE_STRING_VARNAME2);
|
|
qbs_free(_FUNC_EVALUATE_STRING_TYP2);
|
|
qbs_free(_FUNC_EVALUATE_STRING_L3);
|
|
qbs_free(_FUNC_EVALUATE_STRING_S);
|
|
qbs_free(_FUNC_EVALUATE_STRING_R);
|
|
qbs_free(_FUNC_EVALUATE_STRING_NUM);
|
|
qbs_free(_FUNC_EVALUATE_STRING_X);
|
|
qbs_free(_FUNC_EVALUATE_STRING_TYP);
|
|
qbs_free(_FUNC_EVALUATE_STRING_I);
|