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.
126 lines
6.1 KiB
Text
126 lines
6.1 KiB
Text
qbs *_SUB_IDEFINDAGAIN_STRING_S=NULL;
|
|
if (!_SUB_IDEFINDAGAIN_STRING_S)_SUB_IDEFINDAGAIN_STRING_S=qbs_new(0,0);
|
|
int32 *_SUB_IDEFINDAGAIN_LONG_START=NULL;
|
|
if(_SUB_IDEFINDAGAIN_LONG_START==NULL){
|
|
_SUB_IDEFINDAGAIN_LONG_START=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEFINDAGAIN_LONG_START=0;
|
|
}
|
|
int32 *_SUB_IDEFINDAGAIN_LONG_Y=NULL;
|
|
if(_SUB_IDEFINDAGAIN_LONG_Y==NULL){
|
|
_SUB_IDEFINDAGAIN_LONG_Y=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEFINDAGAIN_LONG_Y=0;
|
|
}
|
|
qbs *_SUB_IDEFINDAGAIN_STRING_L=NULL;
|
|
if (!_SUB_IDEFINDAGAIN_STRING_L)_SUB_IDEFINDAGAIN_STRING_L=qbs_new(0,0);
|
|
int32 *_SUB_IDEFINDAGAIN_LONG_LOOPED=NULL;
|
|
if(_SUB_IDEFINDAGAIN_LONG_LOOPED==NULL){
|
|
_SUB_IDEFINDAGAIN_LONG_LOOPED=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEFINDAGAIN_LONG_LOOPED=0;
|
|
}
|
|
byte_element_struct *byte_element_4062=NULL;
|
|
if (!byte_element_4062){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4062=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4062=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4063=NULL;
|
|
if (!byte_element_4063){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4063=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4063=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4064=NULL;
|
|
if (!byte_element_4064){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4064=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4064=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4065=NULL;
|
|
if (!byte_element_4065){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4065=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4065=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4066=NULL;
|
|
if (!byte_element_4066){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4066=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4066=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4067=NULL;
|
|
if (!byte_element_4067){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4067=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4067=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4068=NULL;
|
|
if (!byte_element_4068){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4068=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4068=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 *_SUB_IDEFINDAGAIN_LONG_X1=NULL;
|
|
if(_SUB_IDEFINDAGAIN_LONG_X1==NULL){
|
|
_SUB_IDEFINDAGAIN_LONG_X1=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEFINDAGAIN_LONG_X1=0;
|
|
}
|
|
byte_element_struct *byte_element_4069=NULL;
|
|
if (!byte_element_4069){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4069=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4069=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4070=NULL;
|
|
if (!byte_element_4070){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4070=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4070=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 *_SUB_IDEFINDAGAIN_LONG_X=NULL;
|
|
if(_SUB_IDEFINDAGAIN_LONG_X==NULL){
|
|
_SUB_IDEFINDAGAIN_LONG_X=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEFINDAGAIN_LONG_X=0;
|
|
}
|
|
int32 *_SUB_IDEFINDAGAIN_LONG_XX=NULL;
|
|
if(_SUB_IDEFINDAGAIN_LONG_XX==NULL){
|
|
_SUB_IDEFINDAGAIN_LONG_XX=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEFINDAGAIN_LONG_XX=0;
|
|
}
|
|
int64 fornext_value4072;
|
|
int64 fornext_finalvalue4072;
|
|
int64 fornext_step4072;
|
|
uint8 fornext_step_negative4072;
|
|
int32 *_SUB_IDEFINDAGAIN_LONG_XXO=NULL;
|
|
if(_SUB_IDEFINDAGAIN_LONG_XXO==NULL){
|
|
_SUB_IDEFINDAGAIN_LONG_XXO=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEFINDAGAIN_LONG_XXO=0;
|
|
}
|
|
int32 *_SUB_IDEFINDAGAIN_LONG_XX2=NULL;
|
|
if(_SUB_IDEFINDAGAIN_LONG_XX2==NULL){
|
|
_SUB_IDEFINDAGAIN_LONG_XX2=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEFINDAGAIN_LONG_XX2=0;
|
|
}
|
|
int64 fornext_value4074;
|
|
int64 fornext_finalvalue4074;
|
|
int64 fornext_step4074;
|
|
uint8 fornext_step_negative4074;
|
|
byte_element_struct *byte_element_4075=NULL;
|
|
if (!byte_element_4075){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4075=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4075=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4076=NULL;
|
|
if (!byte_element_4076){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4076=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4076=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 *_SUB_IDEFINDAGAIN_LONG_WHOLE=NULL;
|
|
if(_SUB_IDEFINDAGAIN_LONG_WHOLE==NULL){
|
|
_SUB_IDEFINDAGAIN_LONG_WHOLE=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEFINDAGAIN_LONG_WHOLE=0;
|
|
}
|
|
int32 *_SUB_IDEFINDAGAIN_LONG_C=NULL;
|
|
if(_SUB_IDEFINDAGAIN_LONG_C==NULL){
|
|
_SUB_IDEFINDAGAIN_LONG_C=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEFINDAGAIN_LONG_C=0;
|
|
}
|
|
byte_element_struct *byte_element_4077=NULL;
|
|
if (!byte_element_4077){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4077=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4077=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4078=NULL;
|
|
if (!byte_element_4078){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4078=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4078=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4079=NULL;
|
|
if (!byte_element_4079){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4079=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4079=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4080=NULL;
|
|
if (!byte_element_4080){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4080=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4080=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4081=NULL;
|
|
if (!byte_element_4081){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4081=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4081=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|