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/data150.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

160 lines
6.4 KiB
Text
Raw Blame History

int32 *_FUNC_IDEADVANCEDBOX_LONG_IDEADVANCEDBOX=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_IDEADVANCEDBOX==NULL){
_FUNC_IDEADVANCEDBOX_LONG_IDEADVANCEDBOX=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_IDEADVANCEDBOX=0;
}
int32 *_FUNC_IDEADVANCEDBOX_LONG_FOCUS=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_FOCUS==NULL){
_FUNC_IDEADVANCEDBOX_LONG_FOCUS=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_FOCUS=0;
}
void *_FUNC_IDEADVANCEDBOX_UDT_P=NULL;
if(_FUNC_IDEADVANCEDBOX_UDT_P==NULL){
_FUNC_IDEADVANCEDBOX_UDT_P=(void*)mem_static_malloc(20);
memset(_FUNC_IDEADVANCEDBOX_UDT_P,0,20);
}
ptrszint *_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O=NULL;
if (!_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O){
_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O)[8]=(ptrszint)mem_lock_tmp;
_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[2]=0;
_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[4]=2147483647;
_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[5]=0;
_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[6]=0;
_FUNC_IDEADVANCEDBOX_ARRAY_UDT_O[0]=(ptrszint)nothingvalue;
}
void *_FUNC_IDEADVANCEDBOX_UDT_OO=NULL;
if(_FUNC_IDEADVANCEDBOX_UDT_OO==NULL){
_FUNC_IDEADVANCEDBOX_UDT_OO=(void*)mem_static_malloc(80);
memset(_FUNC_IDEADVANCEDBOX_UDT_OO,0,80);
}
qbs *_FUNC_IDEADVANCEDBOX_STRING1_SEP=NULL;
if(_FUNC_IDEADVANCEDBOX_STRING1_SEP==NULL){
_FUNC_IDEADVANCEDBOX_STRING1_SEP=qbs_new_fixed((uint8*)mem_static_malloc(1),1,0);
memset(_FUNC_IDEADVANCEDBOX_STRING1_SEP->chr,0,1);
}
ptrszint *_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT=NULL;
if (!_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT){
_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT=(ptrszint*)mem_static_malloc(9*ptrsz);
new_mem_lock();
mem_lock_tmp->type=4;
((ptrszint*)_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT)[8]=(ptrszint)mem_lock_tmp;
_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[2]=0;
_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[4]=2147483647;
_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[5]=0;
_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[6]=0;
_FUNC_IDEADVANCEDBOX_ARRAY_STRING_DIRECT_TEXT[0]=(ptrszint)&nothingstring;
}
int32 *_FUNC_IDEADVANCEDBOX_LONG_I=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_I==NULL){
_FUNC_IDEADVANCEDBOX_LONG_I=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_I=0;
}
int32 *_FUNC_IDEADVANCEDBOX_LONG_Y=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_Y==NULL){
_FUNC_IDEADVANCEDBOX_LONG_Y=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_Y=0;
}
int32 pass4413;
int64 fornext_value4415;
int64 fornext_finalvalue4415;
int64 fornext_step4415;
uint8 fornext_step_negative4415;
int32 *_FUNC_IDEADVANCEDBOX_LONG_F=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_F==NULL){
_FUNC_IDEADVANCEDBOX_LONG_F=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_F=0;
}
int32 *_FUNC_IDEADVANCEDBOX_LONG_CX=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_CX==NULL){
_FUNC_IDEADVANCEDBOX_LONG_CX=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_CX=0;
}
int32 *_FUNC_IDEADVANCEDBOX_LONG_CY=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_CY==NULL){
_FUNC_IDEADVANCEDBOX_LONG_CY=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_CY=0;
}
int64 fornext_value4418;
int64 fornext_finalvalue4418;
int64 fornext_step4418;
uint8 fornext_step_negative4418;
int32 *_FUNC_IDEADVANCEDBOX_LONG_LASTFOCUS=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_LASTFOCUS==NULL){
_FUNC_IDEADVANCEDBOX_LONG_LASTFOCUS=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_LASTFOCUS=0;
}
int64 fornext_value4420;
int64 fornext_finalvalue4420;
int64 fornext_step4420;
uint8 fornext_step_negative4420;
byte_element_struct *byte_element_4421=NULL;
if (!byte_element_4421){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4421=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4421=(byte_element_struct*)mem_static_malloc(12);
}
int32 *_FUNC_IDEADVANCEDBOX_LONG_CHANGE=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_CHANGE==NULL){
_FUNC_IDEADVANCEDBOX_LONG_CHANGE=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_CHANGE=0;
}
int32 *_FUNC_IDEADVANCEDBOX_LONG_MOUSEDOWN=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_MOUSEDOWN==NULL){
_FUNC_IDEADVANCEDBOX_LONG_MOUSEDOWN=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_MOUSEDOWN=0;
}
int32 *_FUNC_IDEADVANCEDBOX_LONG_MOUSEUP=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_MOUSEUP==NULL){
_FUNC_IDEADVANCEDBOX_LONG_MOUSEUP=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_MOUSEUP=0;
}
int32 *_FUNC_IDEADVANCEDBOX_LONG_ALT=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_ALT==NULL){
_FUNC_IDEADVANCEDBOX_LONG_ALT=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_ALT=0;
}
int32 *_FUNC_IDEADVANCEDBOX_LONG_OLDALT=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_OLDALT==NULL){
_FUNC_IDEADVANCEDBOX_LONG_OLDALT=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_OLDALT=0;
}
qbs *_FUNC_IDEADVANCEDBOX_STRING_ALTLETTER=NULL;
if (!_FUNC_IDEADVANCEDBOX_STRING_ALTLETTER)_FUNC_IDEADVANCEDBOX_STRING_ALTLETTER=qbs_new(0,0);
byte_element_struct *byte_element_4424=NULL;
if (!byte_element_4424){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4424=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4424=(byte_element_struct*)mem_static_malloc(12);
}
int32 *_FUNC_IDEADVANCEDBOX_LONG_K=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_K==NULL){
_FUNC_IDEADVANCEDBOX_LONG_K=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_K=0;
}
int32 *_FUNC_IDEADVANCEDBOX_LONG_INFO=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_INFO==NULL){
_FUNC_IDEADVANCEDBOX_LONG_INFO=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_INFO=0;
}
int64 fornext_value4426;
int64 fornext_finalvalue4426;
int64 fornext_step4426;
uint8 fornext_step_negative4426;
int32 *_FUNC_IDEADVANCEDBOX_LONG_T=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_T==NULL){
_FUNC_IDEADVANCEDBOX_LONG_T=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_T=0;
}
int32 *_FUNC_IDEADVANCEDBOX_LONG_FOCUSOFFSET=NULL;
if(_FUNC_IDEADVANCEDBOX_LONG_FOCUSOFFSET==NULL){
_FUNC_IDEADVANCEDBOX_LONG_FOCUSOFFSET=(int32*)mem_static_malloc(4);
*_FUNC_IDEADVANCEDBOX_LONG_FOCUSOFFSET=0;
}
int16 *_FUNC_IDEADVANCEDBOX_INTEGER_V=NULL;
if(_FUNC_IDEADVANCEDBOX_INTEGER_V==NULL){
_FUNC_IDEADVANCEDBOX_INTEGER_V=(int16*)mem_static_malloc(2);
*_FUNC_IDEADVANCEDBOX_INTEGER_V=0;
}
byte_element_struct *byte_element_4427=NULL;
if (!byte_element_4427){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4427=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4427=(byte_element_struct*)mem_static_malloc(12);
}
View git blame Copy permalink