mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-04 04:50:22 +00:00
22 lines
1,017 B
Plaintext
22 lines
1,017 B
Plaintext
if(oldstr4007){
|
|
if(oldstr4007->fixed)qbs_set(oldstr4007,_FUNC_EVALUATEFUNCTION_STRING_ARGS);
|
|
qbs_free(_FUNC_EVALUATEFUNCTION_STRING_ARGS);
|
|
}
|
|
qbs_free(_FUNC_EVALUATEFUNCTION_STRING_NSTR);
|
|
if (_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[2]&1){
|
|
tmp_long=_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5];
|
|
while(tmp_long--) {
|
|
|
|
qbs_free(*(qbs**)(_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0]+(480/8+1-1)*tmp_long+ 48));}
|
|
free((void*)(_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0]));
|
|
}
|
|
free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS)[8] );
|
|
if (_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[2]&1){
|
|
tmp_long=_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[5];
|
|
while(tmp_long--) qbs_free((qbs*)((uint64*)(_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]))[tmp_long]);
|
|
free((void*)(_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]));
|
|
}
|
|
free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS)[8] );
|
|
qbs_free(_FUNC_EVALUATEFUNCTION_STRING_ELE);
|
|
qbs_free(_FUNC_EVALUATEFUNCTION_STRING_EVALUATENUMBERS);
|