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

166 lines
7.4 KiB
Text
Raw Blame History

qbs *_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP=NULL;
if (!_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP)_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP=qbs_new(0,0);
qbs*oldstr2272=NULL;
if(_FUNC_EVALUATETOTYP_STRING_A2->tmp||_FUNC_EVALUATETOTYP_STRING_A2->fixed||_FUNC_EVALUATETOTYP_STRING_A2->readonly){
oldstr2272=_FUNC_EVALUATETOTYP_STRING_A2;
if (oldstr2272->cmem_descriptor){
_FUNC_EVALUATETOTYP_STRING_A2=qbs_new_cmem(oldstr2272->len,0);
}else{
_FUNC_EVALUATETOTYP_STRING_A2=qbs_new(oldstr2272->len,0);
}
memcpy(_FUNC_EVALUATETOTYP_STRING_A2->chr,oldstr2272->chr,oldstr2272->len);
}
qbs *_FUNC_EVALUATETOTYP_STRING_A=NULL;
if (!_FUNC_EVALUATETOTYP_STRING_A)_FUNC_EVALUATETOTYP_STRING_A=qbs_new(0,0);
qbs *_FUNC_EVALUATETOTYP_STRING_E=NULL;
if (!_FUNC_EVALUATETOTYP_STRING_E)_FUNC_EVALUATETOTYP_STRING_E=qbs_new(0,0);
int32 *_FUNC_EVALUATETOTYP_LONG_SOURCETYP=NULL;
if(_FUNC_EVALUATETOTYP_LONG_SOURCETYP==NULL){
_FUNC_EVALUATETOTYP_LONG_SOURCETYP=(int32*)mem_static_malloc(4);
*_FUNC_EVALUATETOTYP_LONG_SOURCETYP=0;
}
int32 *_FUNC_EVALUATETOTYP_LONG_IDNUMBER=NULL;
if(_FUNC_EVALUATETOTYP_LONG_IDNUMBER==NULL){
_FUNC_EVALUATETOTYP_LONG_IDNUMBER=(int32*)mem_static_malloc(4);
*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=0;
}
int32 *_FUNC_EVALUATETOTYP_LONG_I=NULL;
if(_FUNC_EVALUATETOTYP_LONG_I==NULL){
_FUNC_EVALUATETOTYP_LONG_I=(int32*)mem_static_malloc(4);
*_FUNC_EVALUATETOTYP_LONG_I=0;
}
byte_element_struct *byte_element_2273=NULL;
if (!byte_element_2273){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2273=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2273=(byte_element_struct*)mem_static_malloc(12);
}
int32 *_FUNC_EVALUATETOTYP_LONG_U=NULL;
if(_FUNC_EVALUATETOTYP_LONG_U==NULL){
_FUNC_EVALUATETOTYP_LONG_U=(int32*)mem_static_malloc(4);
*_FUNC_EVALUATETOTYP_LONG_U=0;
}
byte_element_struct *byte_element_2274=NULL;
if (!byte_element_2274){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2274=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2274=(byte_element_struct*)mem_static_malloc(12);
}
byte_element_struct *byte_element_2275=NULL;
if (!byte_element_2275){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2275=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2275=(byte_element_struct*)mem_static_malloc(12);
}
qbs *_FUNC_EVALUATETOTYP_STRING_O=NULL;
if (!_FUNC_EVALUATETOTYP_STRING_O)_FUNC_EVALUATETOTYP_STRING_O=qbs_new(0,0);
qbs *_FUNC_EVALUATETOTYP_STRING_N=NULL;
if (!_FUNC_EVALUATETOTYP_STRING_N)_FUNC_EVALUATETOTYP_STRING_N=qbs_new(0,0);
qbs *_FUNC_EVALUATETOTYP_STRING_BYTES=NULL;
if (!_FUNC_EVALUATETOTYP_STRING_BYTES)_FUNC_EVALUATETOTYP_STRING_BYTES=qbs_new(0,0);
int32 pass2276;
int32 pass2277;
qbs *_FUNC_EVALUATETOTYP_STRING_DST=NULL;
if (!_FUNC_EVALUATETOTYP_STRING_DST)_FUNC_EVALUATETOTYP_STRING_DST=qbs_new(0,0);
int32 pass2278;
int32 pass2279;
int32 pass2280;
int32 pass2281;
int32 pass2282;
int32 pass2283;
int32 pass2284;
int32 *_FUNC_EVALUATETOTYP_LONG_SIZE=NULL;
if(_FUNC_EVALUATETOTYP_LONG_SIZE==NULL){
_FUNC_EVALUATETOTYP_LONG_SIZE=(int32*)mem_static_malloc(4);
*_FUNC_EVALUATETOTYP_LONG_SIZE=0;
}
byte_element_struct *byte_element_2285=NULL;
if (!byte_element_2285){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2285=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2285=(byte_element_struct*)mem_static_malloc(12);
}
byte_element_struct *byte_element_2286=NULL;
if (!byte_element_2286){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2286=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2286=(byte_element_struct*)mem_static_malloc(12);
}
byte_element_struct *byte_element_2287=NULL;
if (!byte_element_2287){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2287=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2287=(byte_element_struct*)mem_static_malloc(12);
}
int32 pass2288;
int32 *_FUNC_EVALUATETOTYP_LONG_T1=NULL;
if(_FUNC_EVALUATETOTYP_LONG_T1==NULL){
_FUNC_EVALUATETOTYP_LONG_T1=(int32*)mem_static_malloc(4);
*_FUNC_EVALUATETOTYP_LONG_T1=0;
}
int32 pass2289;
int32 *_FUNC_EVALUATETOTYP_LONG_T=NULL;
if(_FUNC_EVALUATETOTYP_LONG_T==NULL){
_FUNC_EVALUATETOTYP_LONG_T=(int32*)mem_static_malloc(4);
*_FUNC_EVALUATETOTYP_LONG_T=0;
}
qbs *_FUNC_EVALUATETOTYP_STRING_LK=NULL;
if (!_FUNC_EVALUATETOTYP_STRING_LK)_FUNC_EVALUATETOTYP_STRING_LK=qbs_new(0,0);
int32 pass2290;
int32 pass2291;
int32 pass2292;
int32 pass2293;
int32 pass2294;
int32 pass2295;
byte_element_struct *byte_element_2296=NULL;
if (!byte_element_2296){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2296=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2296=(byte_element_struct*)mem_static_malloc(12);
}
byte_element_struct *byte_element_2297=NULL;
if (!byte_element_2297){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2297=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2297=(byte_element_struct*)mem_static_malloc(12);
}
byte_element_struct *byte_element_2298=NULL;
if (!byte_element_2298){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2298=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2298=(byte_element_struct*)mem_static_malloc(12);
}
int32 pass2299;
int32 pass2300;
int32 *_FUNC_EVALUATETOTYP_LONG_TSIZE=NULL;
if(_FUNC_EVALUATETOTYP_LONG_TSIZE==NULL){
_FUNC_EVALUATETOTYP_LONG_TSIZE=(int32*)mem_static_malloc(4);
*_FUNC_EVALUATETOTYP_LONG_TSIZE=0;
}
qbs *_FUNC_EVALUATETOTYP_STRING_INDEX=NULL;
if (!_FUNC_EVALUATETOTYP_STRING_INDEX)_FUNC_EVALUATETOTYP_STRING_INDEX=qbs_new(0,0);
byte_element_struct *byte_element_2301=NULL;
if (!byte_element_2301){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2301=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2301=(byte_element_struct*)mem_static_malloc(12);
}
int32 pass2302;
int32 pass2303;
int32 *_FUNC_EVALUATETOTYP_LONG_BYTES=NULL;
if(_FUNC_EVALUATETOTYP_LONG_BYTES==NULL){
_FUNC_EVALUATETOTYP_LONG_BYTES=(int32*)mem_static_malloc(4);
*_FUNC_EVALUATETOTYP_LONG_BYTES=0;
}
int32 pass2304;
int32 pass2305;
byte_element_struct *byte_element_2306=NULL;
if (!byte_element_2306){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2306=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2306=(byte_element_struct*)mem_static_malloc(12);
}
byte_element_struct *byte_element_2307=NULL;
if (!byte_element_2307){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2307=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2307=(byte_element_struct*)mem_static_malloc(12);
}
byte_element_struct *byte_element_2308=NULL;
if (!byte_element_2308){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2308=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2308=(byte_element_struct*)mem_static_malloc(12);
}
int32 pass2309;
int32 pass2310;
byte_element_struct *byte_element_2311=NULL;
if (!byte_element_2311){
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_2311=(byte_element_struct*)(mem_static_pointer-12); else byte_element_2311=(byte_element_struct*)mem_static_malloc(12);
}
int32 pass2312;
int32 pass2313;
int32 pass2314;
int32 pass2315;
int32 pass2316;
int32 pass2317;
int32 pass2318;
int32 *_FUNC_EVALUATETOTYP_LONG_BITS=NULL;
if(_FUNC_EVALUATETOTYP_LONG_BITS==NULL){
_FUNC_EVALUATETOTYP_LONG_BITS=(int32*)mem_static_malloc(4);
*_FUNC_EVALUATETOTYP_LONG_BITS=0;
}
View git blame Copy permalink