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.
241 lines
10 KiB
Text
241 lines
10 KiB
Text
int32 *_FUNC_DIM2_LONG_DIM2=NULL;
|
|
if(_FUNC_DIM2_LONG_DIM2==NULL){
|
|
_FUNC_DIM2_LONG_DIM2=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_DIM2=0;
|
|
}
|
|
qbs*oldstr1955=NULL;
|
|
if(_FUNC_DIM2_STRING_VARNAME->tmp||_FUNC_DIM2_STRING_VARNAME->fixed||_FUNC_DIM2_STRING_VARNAME->readonly){
|
|
oldstr1955=_FUNC_DIM2_STRING_VARNAME;
|
|
if (oldstr1955->cmem_descriptor){
|
|
_FUNC_DIM2_STRING_VARNAME=qbs_new_cmem(oldstr1955->len,0);
|
|
}else{
|
|
_FUNC_DIM2_STRING_VARNAME=qbs_new(oldstr1955->len,0);
|
|
}
|
|
memcpy(_FUNC_DIM2_STRING_VARNAME->chr,oldstr1955->chr,oldstr1955->len);
|
|
}
|
|
qbs*oldstr1956=NULL;
|
|
if(_FUNC_DIM2_STRING_TYP2->tmp||_FUNC_DIM2_STRING_TYP2->fixed||_FUNC_DIM2_STRING_TYP2->readonly){
|
|
oldstr1956=_FUNC_DIM2_STRING_TYP2;
|
|
if (oldstr1956->cmem_descriptor){
|
|
_FUNC_DIM2_STRING_TYP2=qbs_new_cmem(oldstr1956->len,0);
|
|
}else{
|
|
_FUNC_DIM2_STRING_TYP2=qbs_new(oldstr1956->len,0);
|
|
}
|
|
memcpy(_FUNC_DIM2_STRING_TYP2->chr,oldstr1956->chr,oldstr1956->len);
|
|
}
|
|
qbs*oldstr1957=NULL;
|
|
if(_FUNC_DIM2_STRING_ELEMENTS->tmp||_FUNC_DIM2_STRING_ELEMENTS->fixed||_FUNC_DIM2_STRING_ELEMENTS->readonly){
|
|
oldstr1957=_FUNC_DIM2_STRING_ELEMENTS;
|
|
if (oldstr1957->cmem_descriptor){
|
|
_FUNC_DIM2_STRING_ELEMENTS=qbs_new_cmem(oldstr1957->len,0);
|
|
}else{
|
|
_FUNC_DIM2_STRING_ELEMENTS=qbs_new(oldstr1957->len,0);
|
|
}
|
|
memcpy(_FUNC_DIM2_STRING_ELEMENTS->chr,oldstr1957->chr,oldstr1957->len);
|
|
}
|
|
qbs *_FUNC_DIM2_STRING_TYP=NULL;
|
|
if (!_FUNC_DIM2_STRING_TYP)_FUNC_DIM2_STRING_TYP=qbs_new(0,0);
|
|
qbs *_FUNC_DIM2_STRING_CVARNAME=NULL;
|
|
if (!_FUNC_DIM2_STRING_CVARNAME)_FUNC_DIM2_STRING_CVARNAME=qbs_new(0,0);
|
|
qbs *_FUNC_DIM2_STRING_L=NULL;
|
|
if (!_FUNC_DIM2_STRING_L)_FUNC_DIM2_STRING_L=qbs_new(0,0);
|
|
int32 *_FUNC_DIM2_LONG_F=NULL;
|
|
if(_FUNC_DIM2_LONG_F==NULL){
|
|
_FUNC_DIM2_LONG_F=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_F=0;
|
|
}
|
|
qbs *_FUNC_DIM2_STRING_SCOPE2=NULL;
|
|
if (!_FUNC_DIM2_STRING_SCOPE2)_FUNC_DIM2_STRING_SCOPE2=qbs_new(0,0);
|
|
byte_element_struct *byte_element_1959=NULL;
|
|
if (!byte_element_1959){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_1959=(byte_element_struct*)(mem_static_pointer-12); else byte_element_1959=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_I=NULL;
|
|
if(_FUNC_DIM2_LONG_I==NULL){
|
|
_FUNC_DIM2_LONG_I=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_I=0;
|
|
}
|
|
int64 fornext_value1961;
|
|
int64 fornext_finalvalue1961;
|
|
int64 fornext_step1961;
|
|
uint8 fornext_step_negative1961;
|
|
qbs *_FUNC_DIM2_STRING_N=NULL;
|
|
if (!_FUNC_DIM2_STRING_N)_FUNC_DIM2_STRING_N=qbs_new(0,0);
|
|
int32 *_FUNC_DIM2_LONG_TRY=NULL;
|
|
if(_FUNC_DIM2_LONG_TRY==NULL){
|
|
_FUNC_DIM2_LONG_TRY=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_TRY=0;
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_BITS=NULL;
|
|
if(_FUNC_DIM2_LONG_BITS==NULL){
|
|
_FUNC_DIM2_LONG_BITS=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_BITS=0;
|
|
}
|
|
byte_element_struct *byte_element_1963=NULL;
|
|
if (!byte_element_1963){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_1963=(byte_element_struct*)(mem_static_pointer-12); else byte_element_1963=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_NUME=NULL;
|
|
if(_FUNC_DIM2_LONG_NUME==NULL){
|
|
_FUNC_DIM2_LONG_NUME=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_NUME=0;
|
|
}
|
|
int32 pass1964;
|
|
int32 *_FUNC_DIM2_LONG_BYTES=NULL;
|
|
if(_FUNC_DIM2_LONG_BYTES==NULL){
|
|
_FUNC_DIM2_LONG_BYTES=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_BYTES=0;
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_UNSGN=NULL;
|
|
if(_FUNC_DIM2_LONG_UNSGN==NULL){
|
|
_FUNC_DIM2_LONG_UNSGN=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_UNSGN=0;
|
|
}
|
|
byte_element_struct *byte_element_1976=NULL;
|
|
if (!byte_element_1976){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_1976=(byte_element_struct*)(mem_static_pointer-12); else byte_element_1976=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_1977=NULL;
|
|
if (!byte_element_1977){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_1977=(byte_element_struct*)(mem_static_pointer-12); else byte_element_1977=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_1978=NULL;
|
|
if (!byte_element_1978){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_1978=(byte_element_struct*)(mem_static_pointer-12); else byte_element_1978=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
qbs *_FUNC_DIM2_STRING_C=NULL;
|
|
if (!_FUNC_DIM2_STRING_C)_FUNC_DIM2_STRING_C=qbs_new(0,0);
|
|
byte_element_struct *byte_element_1979=NULL;
|
|
if (!byte_element_1979){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_1979=(byte_element_struct*)(mem_static_pointer-12); else byte_element_1979=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_HASHFOUND=NULL;
|
|
if(_FUNC_DIM2_LONG_HASHFOUND==NULL){
|
|
_FUNC_DIM2_LONG_HASHFOUND=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_HASHFOUND=0;
|
|
}
|
|
qbs *_FUNC_DIM2_STRING_HASHNAME=NULL;
|
|
if (!_FUNC_DIM2_STRING_HASHNAME)_FUNC_DIM2_STRING_HASHNAME=qbs_new(0,0);
|
|
int32 *_FUNC_DIM2_LONG_HASHCHKFLAGS=NULL;
|
|
if(_FUNC_DIM2_LONG_HASHCHKFLAGS==NULL){
|
|
_FUNC_DIM2_LONG_HASHCHKFLAGS=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_HASHCHKFLAGS=0;
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_HASHRES=NULL;
|
|
if(_FUNC_DIM2_LONG_HASHRES==NULL){
|
|
_FUNC_DIM2_LONG_HASHRES=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_HASHRES=0;
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_HASHRESFLAGS=NULL;
|
|
if(_FUNC_DIM2_LONG_HASHRESFLAGS==NULL){
|
|
_FUNC_DIM2_LONG_HASHRESFLAGS=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_HASHRESFLAGS=0;
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_HASHRESREF=NULL;
|
|
if(_FUNC_DIM2_LONG_HASHRESREF==NULL){
|
|
_FUNC_DIM2_LONG_HASHRESREF=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_HASHRESREF=0;
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_I2=NULL;
|
|
if(_FUNC_DIM2_LONG_I2==NULL){
|
|
_FUNC_DIM2_LONG_I2=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_I2=0;
|
|
}
|
|
int32 *_FUNC_DIM2_LONG_T=NULL;
|
|
if(_FUNC_DIM2_LONG_T==NULL){
|
|
_FUNC_DIM2_LONG_T=(int32*)mem_static_malloc(4);
|
|
*_FUNC_DIM2_LONG_T=0;
|
|
}
|
|
long double *_FUNC_DIM2_FLOAT_V=NULL;
|
|
if(_FUNC_DIM2_FLOAT_V==NULL){
|
|
_FUNC_DIM2_FLOAT_V=(long double*)mem_static_malloc(32);
|
|
*_FUNC_DIM2_FLOAT_V=0;
|
|
}
|
|
int64 *_FUNC_DIM2_INTEGER64_V=NULL;
|
|
if(_FUNC_DIM2_INTEGER64_V==NULL){
|
|
_FUNC_DIM2_INTEGER64_V=(int64*)mem_static_malloc(8);
|
|
*_FUNC_DIM2_INTEGER64_V=0;
|
|
}
|
|
uint64 *_FUNC_DIM2_UINTEGER64_V=NULL;
|
|
if(_FUNC_DIM2_UINTEGER64_V==NULL){
|
|
_FUNC_DIM2_UINTEGER64_V=(uint64*)mem_static_malloc(8);
|
|
*_FUNC_DIM2_UINTEGER64_V=0;
|
|
}
|
|
byte_element_struct *byte_element_1981=NULL;
|
|
if (!byte_element_1981){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_1981=(byte_element_struct*)(mem_static_pointer-12); else byte_element_1981=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_1983=NULL;
|
|
if (!byte_element_1983){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_1983=(byte_element_struct*)(mem_static_pointer-12); else byte_element_1983=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
qbs *_FUNC_DIM2_STRING_O=NULL;
|
|
if (!_FUNC_DIM2_STRING_O)_FUNC_DIM2_STRING_O=qbs_new(0,0);
|
|
byte_element_struct *byte_element_1997=NULL;
|
|
if (!byte_element_1997){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_1997=(byte_element_struct*)(mem_static_pointer-12); else byte_element_1997=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass1998;
|
|
byte_element_struct *byte_element_2004=NULL;
|
|
if (!byte_element_2004){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2004=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2004=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_2005=NULL;
|
|
if (!byte_element_2005){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2005=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2005=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_2006=NULL;
|
|
if (!byte_element_2006){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2006=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2006=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
qbs *_FUNC_DIM2_STRING_CT=NULL;
|
|
if (!_FUNC_DIM2_STRING_CT)_FUNC_DIM2_STRING_CT=qbs_new(0,0);
|
|
qbs *_FUNC_DIM2_STRING_CMPS=NULL;
|
|
if (!_FUNC_DIM2_STRING_CMPS)_FUNC_DIM2_STRING_CMPS=qbs_new(0,0);
|
|
byte_element_struct *byte_element_2008=NULL;
|
|
if (!byte_element_2008){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2008=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2008=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2009;
|
|
byte_element_struct *byte_element_2018=NULL;
|
|
if (!byte_element_2018){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2018=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2018=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2019;
|
|
byte_element_struct *byte_element_2029=NULL;
|
|
if (!byte_element_2029){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2029=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2029=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2030;
|
|
byte_element_struct *byte_element_2040=NULL;
|
|
if (!byte_element_2040){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2040=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2040=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2041;
|
|
int32 pass2045;
|
|
int32 pass2049;
|
|
byte_element_struct *byte_element_2053=NULL;
|
|
if (!byte_element_2053){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2053=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2053=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2054;
|
|
byte_element_struct *byte_element_2064=NULL;
|
|
if (!byte_element_2064){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2064=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2064=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2065;
|
|
byte_element_struct *byte_element_2075=NULL;
|
|
if (!byte_element_2075){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2075=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2075=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2076;
|
|
byte_element_struct *byte_element_2086=NULL;
|
|
if (!byte_element_2086){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2086=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2086=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2087;
|
|
byte_element_struct *byte_element_2097=NULL;
|
|
if (!byte_element_2097){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2097=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2097=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 pass2098;
|