QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-09-19 15:35:01 +00:00
Code Issues Releases Wiki Activity
QB64-PE/internal/source/data147.txt
SMcNeill 6e01fc8dce Altered string compare routines (<,<=,>,>=) so they don't give false results with CHR$(0). 
Added new _STRCMP and _STRICMP commands for quick string comparisons.
Cleaned up QB64 to finish removing the QUI (quick user insert) code and folders.
Altered UCASE and LCASE routines to be faster in some situations for us.
2014-09-22 08:19:03 -04:00

175 lines
7.2 KiB
Text
Raw Blame History

int32 *_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX==NULL){
_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX=0;
}
int32 *_FUNC_IDELAYOUTBOX_LONG_FOCUS=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_FOCUS==NULL){
_FUNC_IDELAYOUTBOX_LONG_FOCUS=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_FOCUS=0;
}
void *_FUNC_IDELAYOUTBOX_UDT_P=NULL;
if(_FUNC_IDELAYOUTBOX_UDT_P==NULL){
_FUNC_IDELAYOUTBOX_UDT_P=(void*)mem_static_malloc(20);
memset(_FUNC_IDELAYOUTBOX_UDT_P,0,20);
}
ptrszint *_FUNC_IDELAYOUTBOX_ARRAY_UDT_O=NULL;
if (!_FUNC_IDELAYOUTBOX_ARRAY_UDT_O){
_FUNC_IDELAYOUTBOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp;
_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]=0;
_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4]=2147483647;
_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]=0;
_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[6]=0;
_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue;
}
void *_FUNC_IDELAYOUTBOX_UDT_OO=NULL;
if(_FUNC_IDELAYOUTBOX_UDT_OO==NULL){
_FUNC_IDELAYOUTBOX_UDT_OO=(void*)mem_static_malloc(80);
memset(_FUNC_IDELAYOUTBOX_UDT_OO,0,80);
}
qbs *_FUNC_IDELAYOUTBOX_STRING1_SEP=NULL;
if(_FUNC_IDELAYOUTBOX_STRING1_SEP==NULL){
_FUNC_IDELAYOUTBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0);
memset(_FUNC_IDELAYOUTBOX_STRING1_SEP->chr,0,1);
}
int32 *_FUNC_IDELAYOUTBOX_LONG_I=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_I==NULL){
_FUNC_IDELAYOUTBOX_LONG_I=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_I=0;
}
int32 pass4360;
int32 pass4361;
qbs *_FUNC_IDELAYOUTBOX_STRING_A2=NULL;
if (!_FUNC_IDELAYOUTBOX_STRING_A2)_FUNC_IDELAYOUTBOX_STRING_A2=qbs_new(0,0);
byte_element_struct *byte_element_4362=NULL;
if (!byte_element_4362){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4362=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4362=(byte_element_struct*)mem_static_malloc(12);
}
int64 fornext_value4364;
int64 fornext_finalvalue4364;
int64 fornext_step4364;
uint8 fornext_step_negative4364;
int32 *_FUNC_IDELAYOUTBOX_LONG_F=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_F==NULL){
_FUNC_IDELAYOUTBOX_LONG_F=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_F=0;
}
int32 *_FUNC_IDELAYOUTBOX_LONG_CX=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_CX==NULL){
_FUNC_IDELAYOUTBOX_LONG_CX=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_CX=0;
}
int32 *_FUNC_IDELAYOUTBOX_LONG_CY=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_CY==NULL){
_FUNC_IDELAYOUTBOX_LONG_CY=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_CY=0;
}
int64 fornext_value4367;
int64 fornext_finalvalue4367;
int64 fornext_step4367;
uint8 fornext_step_negative4367;
int32 *_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS==NULL){
_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS=0;
}
int32 *_FUNC_IDELAYOUTBOX_LONG_CHANGE=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_CHANGE==NULL){
_FUNC_IDELAYOUTBOX_LONG_CHANGE=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_CHANGE=0;
}
int32 *_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN==NULL){
_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN=0;
}
int32 *_FUNC_IDELAYOUTBOX_LONG_MOUSEUP=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_MOUSEUP==NULL){
_FUNC_IDELAYOUTBOX_LONG_MOUSEUP=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_MOUSEUP=0;
}
int32 *_FUNC_IDELAYOUTBOX_LONG_ALT=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_ALT==NULL){
_FUNC_IDELAYOUTBOX_LONG_ALT=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_ALT=0;
}
int32 *_FUNC_IDELAYOUTBOX_LONG_OLDALT=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_OLDALT==NULL){
_FUNC_IDELAYOUTBOX_LONG_OLDALT=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_OLDALT=0;
}
qbs *_FUNC_IDELAYOUTBOX_STRING_ALTLETTER=NULL;
if (!_FUNC_IDELAYOUTBOX_STRING_ALTLETTER)_FUNC_IDELAYOUTBOX_STRING_ALTLETTER=qbs_new(0,0);
byte_element_struct *byte_element_4369=NULL;
if (!byte_element_4369){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4369=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4369=(byte_element_struct*)mem_static_malloc(12);
}
int32 *_FUNC_IDELAYOUTBOX_LONG_K=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_K==NULL){
_FUNC_IDELAYOUTBOX_LONG_K=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_K=0;
}
int32 *_FUNC_IDELAYOUTBOX_LONG_INFO=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_INFO==NULL){
_FUNC_IDELAYOUTBOX_LONG_INFO=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_INFO=0;
}
int64 fornext_value4371;
int64 fornext_finalvalue4371;
int64 fornext_step4371;
uint8 fornext_step_negative4371;
int32 *_FUNC_IDELAYOUTBOX_LONG_T=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_T==NULL){
_FUNC_IDELAYOUTBOX_LONG_T=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_T=0;
}
int32 *_FUNC_IDELAYOUTBOX_LONG_FOCUSOFFSET=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_FOCUSOFFSET==NULL){
_FUNC_IDELAYOUTBOX_LONG_FOCUSOFFSET=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_FOCUSOFFSET=0;
}
qbs *_FUNC_IDELAYOUTBOX_STRING_A=NULL;
if (!_FUNC_IDELAYOUTBOX_STRING_A)_FUNC_IDELAYOUTBOX_STRING_A=qbs_new(0,0);
byte_element_struct *byte_element_4372=NULL;
if (!byte_element_4372){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4372=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4372=(byte_element_struct*)mem_static_malloc(12);
}
int64 fornext_value4374;
int64 fornext_finalvalue4374;
int64 fornext_step4374;
uint8 fornext_step_negative4374;
byte_element_struct *byte_element_4375=NULL;
if (!byte_element_4375){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4375=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4375=(byte_element_struct*)mem_static_malloc(12);
}
int32 *_FUNC_IDELAYOUTBOX_LONG_A=NULL;
if(_FUNC_IDELAYOUTBOX_LONG_A==NULL){
_FUNC_IDELAYOUTBOX_LONG_A=(int32*)mem_static_malloc(4);
*_FUNC_IDELAYOUTBOX_LONG_A=0;
}
byte_element_struct *byte_element_4376=NULL;
if (!byte_element_4376){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4376=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4376=(byte_element_struct*)mem_static_malloc(12);
}
int16 *_FUNC_IDELAYOUTBOX_INTEGER_V=NULL;
if(_FUNC_IDELAYOUTBOX_INTEGER_V==NULL){
_FUNC_IDELAYOUTBOX_INTEGER_V=(int16*)mem_static_malloc(2);
*_FUNC_IDELAYOUTBOX_INTEGER_V=0;
}
byte_element_struct *byte_element_4377=NULL;
if (!byte_element_4377){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4377=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4377=(byte_element_struct*)mem_static_malloc(12);
}
byte_element_struct *byte_element_4378=NULL;
if (!byte_element_4378){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4378=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4378=(byte_element_struct*)mem_static_malloc(12);
}
qbs *_FUNC_IDELAYOUTBOX_STRING_V=NULL;
if (!_FUNC_IDELAYOUTBOX_STRING_V)_FUNC_IDELAYOUTBOX_STRING_V=qbs_new(0,0);
byte_element_struct *byte_element_4379=NULL;
if (!byte_element_4379){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4379=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4379=(byte_element_struct*)mem_static_malloc(12);
}
View git blame Copy permalink