mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-16 03:54:01 +00:00
b586eafd3b
LINE INPUT will now use the faster method if passed a file handle that has been opened FOR BINARY. As such, the _BLINEINPUT command has been removed. qb64.bas now takes advantage of this for reading from '$include files, at least in Include Manager 1. Some tweaking of internal/source/main.txt was required to get things into a sane state, so I'm holing off changing the compiler any further so the auto-builder can make sure everything's smoothed over. Note: Everything should still compile as normal; I'm just being overcautious.
45 lines
1.8 KiB
Text
45 lines
1.8 KiB
Text
if(oldstr2111){
|
|
if(oldstr2111->fixed)qbs_set(oldstr2111,_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);
|