mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-20 15:05:13 +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.
55 lines
1.8 KiB
Plaintext
55 lines
1.8 KiB
Plaintext
if(oldstr4870){
|
|
if(oldstr4870->fixed)qbs_set(oldstr4870,_FUNC_BTEN_STRING_INTOP);
|
|
qbs_free(_FUNC_BTEN_STRING_INTOP);
|
|
}
|
|
if(oldstr4871){
|
|
if(oldstr4871->fixed)qbs_set(oldstr4871,_FUNC_BTEN_STRING_OP);
|
|
qbs_free(_FUNC_BTEN_STRING_OP);
|
|
}
|
|
if(oldstr4872){
|
|
if(oldstr4872->fixed)qbs_set(oldstr4872,_FUNC_BTEN_STRING_INBOT);
|
|
qbs_free(_FUNC_BTEN_STRING_INBOT);
|
|
}
|
|
if (_FUNC_BTEN_ARRAY_LONG_RESULT[2]&1){
|
|
if (_FUNC_BTEN_ARRAY_LONG_RESULT[2]&4){
|
|
cmem_dynamic_free((uint8*)(_FUNC_BTEN_ARRAY_LONG_RESULT[0]));
|
|
}else{
|
|
free((void*)(_FUNC_BTEN_ARRAY_LONG_RESULT[0]));
|
|
}
|
|
}
|
|
free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_BTEN_ARRAY_LONG_RESULT)[8] );
|
|
qbs_free(_FUNC_BTEN_STRING_RETSTR);
|
|
if (_FUNC_BTEN_ARRAY_LONG_TARRAY[2]&1){
|
|
if (_FUNC_BTEN_ARRAY_LONG_TARRAY[2]&4){
|
|
cmem_dynamic_free((uint8*)(_FUNC_BTEN_ARRAY_LONG_TARRAY[0]));
|
|
}else{
|
|
free((void*)(_FUNC_BTEN_ARRAY_LONG_TARRAY[0]));
|
|
}
|
|
}
|
|
free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_BTEN_ARRAY_LONG_TARRAY)[8] );
|
|
if (_FUNC_BTEN_ARRAY_LONG_BARRAY[2]&1){
|
|
if (_FUNC_BTEN_ARRAY_LONG_BARRAY[2]&4){
|
|
cmem_dynamic_free((uint8*)(_FUNC_BTEN_ARRAY_LONG_BARRAY[0]));
|
|
}else{
|
|
free((void*)(_FUNC_BTEN_ARRAY_LONG_BARRAY[0]));
|
|
}
|
|
}
|
|
free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_BTEN_ARRAY_LONG_BARRAY)[8] );
|
|
if (_FUNC_BTEN_ARRAY_DOUBLE_RESDBL[2]&1){
|
|
if (_FUNC_BTEN_ARRAY_DOUBLE_RESDBL[2]&4){
|
|
cmem_dynamic_free((uint8*)(_FUNC_BTEN_ARRAY_DOUBLE_RESDBL[0]));
|
|
}else{
|
|
free((void*)(_FUNC_BTEN_ARRAY_DOUBLE_RESDBL[0]));
|
|
}
|
|
}
|
|
free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_BTEN_ARRAY_DOUBLE_RESDBL)[8] );
|
|
if (_FUNC_BTEN_ARRAY_LONG_IARRAY[2]&1){
|
|
if (_FUNC_BTEN_ARRAY_LONG_IARRAY[2]&4){
|
|
cmem_dynamic_free((uint8*)(_FUNC_BTEN_ARRAY_LONG_IARRAY[0]));
|
|
}else{
|
|
free((void*)(_FUNC_BTEN_ARRAY_LONG_IARRAY[0]));
|
|
}
|
|
}
|
|
free_mem_lock( (mem_lock*)((ptrszint*)_FUNC_BTEN_ARRAY_LONG_IARRAY)[8] );
|
|
qbs_free(_FUNC_BTEN_STRING_R);
|