mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-16 17:54:16 +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.
34 lines
1.7 KiB
Text
34 lines
1.7 KiB
Text
qbs *_FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT=NULL;
|
|
if (!_FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT)_FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT=qbs_new(0,0);
|
|
qbs*oldstr3359=NULL;
|
|
if(_FUNC_GL2QB_TYPE_CONVERT_STRING_A->tmp||_FUNC_GL2QB_TYPE_CONVERT_STRING_A->fixed||_FUNC_GL2QB_TYPE_CONVERT_STRING_A->readonly){
|
|
oldstr3359=_FUNC_GL2QB_TYPE_CONVERT_STRING_A;
|
|
if (oldstr3359->cmem_descriptor){
|
|
_FUNC_GL2QB_TYPE_CONVERT_STRING_A=qbs_new_cmem(oldstr3359->len,0);
|
|
}else{
|
|
_FUNC_GL2QB_TYPE_CONVERT_STRING_A=qbs_new(oldstr3359->len,0);
|
|
}
|
|
memcpy(_FUNC_GL2QB_TYPE_CONVERT_STRING_A->chr,oldstr3359->chr,oldstr3359->len);
|
|
}
|
|
qbs*oldstr3360=NULL;
|
|
if(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL->tmp||_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL->fixed||_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL->readonly){
|
|
oldstr3360=_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL;
|
|
if (oldstr3360->cmem_descriptor){
|
|
_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL=qbs_new_cmem(oldstr3360->len,0);
|
|
}else{
|
|
_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL=qbs_new(oldstr3360->len,0);
|
|
}
|
|
memcpy(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL->chr,oldstr3360->chr,oldstr3360->len);
|
|
}
|
|
qbs*oldstr3361=NULL;
|
|
if(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP->tmp||_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP->fixed||_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP->readonly){
|
|
oldstr3361=_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP;
|
|
if (oldstr3361->cmem_descriptor){
|
|
_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP=qbs_new_cmem(oldstr3361->len,0);
|
|
}else{
|
|
_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP=qbs_new(oldstr3361->len,0);
|
|
}
|
|
memcpy(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP->chr,oldstr3361->chr,oldstr3361->len);
|
|
}
|
|
qbs *_FUNC_GL2QB_TYPE_CONVERT_STRING_B=NULL;
|
|
if (!_FUNC_GL2QB_TYPE_CONVERT_STRING_B)_FUNC_GL2QB_TYPE_CONVERT_STRING_B=qbs_new(0,0);
|