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.
174 lines
7.1 KiB
Text
174 lines
7.1 KiB
Text
int32 *_SUB_IDEASCIIBOX_LONG_W=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_W==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_W=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_W=0;
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_H=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_H==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_H=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_H=0;
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_TEMP=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_TEMP==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_TEMP=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_TEMP=0;
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_TEMP1=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_TEMP1==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_TEMP1=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_TEMP1=0;
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_WS=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_WS==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_WS=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_WS=0;
|
|
}
|
|
ptrszint *_SUB_IDEASCIIBOX_ARRAY_LONG_CURRENTASC=NULL;
|
|
if (!_SUB_IDEASCIIBOX_ARRAY_LONG_CURRENTASC){
|
|
_SUB_IDEASCIIBOX_ARRAY_LONG_CURRENTASC=(ptrszint*)mem_static_malloc(13*ptrsz);
|
|
new_mem_lock();
|
|
mem_lock_tmp->type=4;
|
|
((ptrszint*)_SUB_IDEASCIIBOX_ARRAY_LONG_CURRENTASC)[12]=(ptrszint)mem_lock_tmp;
|
|
_SUB_IDEASCIIBOX_ARRAY_LONG_CURRENTASC[2]=0;
|
|
_SUB_IDEASCIIBOX_ARRAY_LONG_CURRENTASC[4]=2147483647;
|
|
_SUB_IDEASCIIBOX_ARRAY_LONG_CURRENTASC[5]=0;
|
|
_SUB_IDEASCIIBOX_ARRAY_LONG_CURRENTASC[6]=0;
|
|
_SUB_IDEASCIIBOX_ARRAY_LONG_CURRENTASC[8]=2147483647;
|
|
_SUB_IDEASCIIBOX_ARRAY_LONG_CURRENTASC[9]=0;
|
|
_SUB_IDEASCIIBOX_ARRAY_LONG_CURRENTASC[10]=0;
|
|
_SUB_IDEASCIIBOX_ARRAY_LONG_CURRENTASC[0]=(ptrszint)nothingvalue;
|
|
}
|
|
int16 *_SUB_IDEASCIIBOX_INTEGER_CURRENTONE=NULL;
|
|
if(_SUB_IDEASCIIBOX_INTEGER_CURRENTONE==NULL){
|
|
_SUB_IDEASCIIBOX_INTEGER_CURRENTONE=(int16*)mem_static_malloc(2);
|
|
*_SUB_IDEASCIIBOX_INTEGER_CURRENTONE=0;
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_Y=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_Y==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_Y=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_Y=0;
|
|
}
|
|
int64 fornext_value4620;
|
|
int64 fornext_finalvalue4620;
|
|
int64 fornext_step4620;
|
|
uint8 fornext_step_negative4620;
|
|
int32 *_SUB_IDEASCIIBOX_LONG_X=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_X==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_X=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_X=0;
|
|
}
|
|
int64 fornext_value4622;
|
|
int64 fornext_finalvalue4622;
|
|
int64 fornext_step4622;
|
|
uint8 fornext_step_negative4622;
|
|
int32 *_SUB_IDEASCIIBOX_LONG_COUNTER=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_COUNTER==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_COUNTER=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_COUNTER=0;
|
|
}
|
|
int64 fornext_value4624;
|
|
int64 fornext_finalvalue4624;
|
|
int64 fornext_step4624;
|
|
uint8 fornext_step_negative4624;
|
|
int64 fornext_value4626;
|
|
int64 fornext_finalvalue4626;
|
|
int64 fornext_step4626;
|
|
uint8 fornext_step_negative4626;
|
|
qbs *_SUB_IDEASCIIBOX_STRING_TEXT=NULL;
|
|
if (!_SUB_IDEASCIIBOX_STRING_TEXT)_SUB_IDEASCIIBOX_STRING_TEXT=qbs_new(0,0);
|
|
byte_element_struct *byte_element_4627=NULL;
|
|
if (!byte_element_4627){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4627=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4627=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_OLDMOUSEX=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_OLDMOUSEX==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_OLDMOUSEX=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_OLDMOUSEX=0;
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_OLDMOUSEY=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_OLDMOUSEY==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_OLDMOUSEY=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_OLDMOUSEY=0;
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_NUM=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_NUM==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_NUM=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_NUM=0;
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_FLASHCOUNTER=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_FLASHCOUNTER==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_FLASHCOUNTER=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_FLASHCOUNTER=0;
|
|
}
|
|
byte_element_struct *byte_element_4631=NULL;
|
|
if (!byte_element_4631){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4631=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4631=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_TOGGLE=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_TOGGLE==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_TOGGLE=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_TOGGLE=0;
|
|
}
|
|
byte_element_struct *byte_element_4632=NULL;
|
|
if (!byte_element_4632){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4632=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4632=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_K1=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_K1==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_K1=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_K1=0;
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_DONOTHING=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_DONOTHING==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_DONOTHING=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_DONOTHING=0;
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_ATALL=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_ATALL==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_ATALL=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_ATALL=0;
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_EX=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_EX==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_EX=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_EX=0;
|
|
}
|
|
int16 *_SUB_IDEASCIIBOX_INTEGER_RET=NULL;
|
|
if(_SUB_IDEASCIIBOX_INTEGER_RET==NULL){
|
|
_SUB_IDEASCIIBOX_INTEGER_RET=(int16*)mem_static_malloc(2);
|
|
*_SUB_IDEASCIIBOX_INTEGER_RET=0;
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_L=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_L==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_L=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_L=0;
|
|
}
|
|
qbs *_SUB_IDEASCIIBOX_STRING_A=NULL;
|
|
if (!_SUB_IDEASCIIBOX_STRING_A)_SUB_IDEASCIIBOX_STRING_A=qbs_new(0,0);
|
|
qbs *_SUB_IDEASCIIBOX_STRING_L=NULL;
|
|
if (!_SUB_IDEASCIIBOX_STRING_L)_SUB_IDEASCIIBOX_STRING_L=qbs_new(0,0);
|
|
qbs *_SUB_IDEASCIIBOX_STRING_R=NULL;
|
|
if (!_SUB_IDEASCIIBOX_STRING_R)_SUB_IDEASCIIBOX_STRING_R=qbs_new(0,0);
|
|
byte_element_struct *byte_element_4634=NULL;
|
|
if (!byte_element_4634){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4634=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4634=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int32 *_SUB_IDEASCIIBOX_LONG_TEXTLEN=NULL;
|
|
if(_SUB_IDEASCIIBOX_LONG_TEXTLEN==NULL){
|
|
_SUB_IDEASCIIBOX_LONG_TEXTLEN=(int32*)mem_static_malloc(4);
|
|
*_SUB_IDEASCIIBOX_LONG_TEXTLEN=0;
|
|
}
|
|
byte_element_struct *byte_element_4635=NULL;
|
|
if (!byte_element_4635){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4635=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4635=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
qbs *_SUB_IDEASCIIBOX_STRING_M=NULL;
|
|
if (!_SUB_IDEASCIIBOX_STRING_M)_SUB_IDEASCIIBOX_STRING_M=qbs_new(0,0);
|
|
byte_element_struct *byte_element_4636=NULL;
|
|
if (!byte_element_4636){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4636=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4636=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4637=NULL;
|
|
if (!byte_element_4637){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4637=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4637=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|