mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-26 13:15:52 +00:00
6e01fc8dce
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.
66 lines
2.8 KiB
Plaintext
66 lines
2.8 KiB
Plaintext
int32 *_FUNC_CHECK_LONG_CHECK=NULL;
|
|
if(_FUNC_CHECK_LONG_CHECK==NULL){
|
|
_FUNC_CHECK_LONG_CHECK=(int32*)mem_static_malloc(4);
|
|
*_FUNC_CHECK_LONG_CHECK=0;
|
|
}
|
|
qbs*oldstr4952=NULL;
|
|
if(_FUNC_CHECK_STRING_INSTRING->tmp||_FUNC_CHECK_STRING_INSTRING->fixed||_FUNC_CHECK_STRING_INSTRING->readonly){
|
|
oldstr4952=_FUNC_CHECK_STRING_INSTRING;
|
|
if (oldstr4952->cmem_descriptor){
|
|
_FUNC_CHECK_STRING_INSTRING=qbs_new_cmem(oldstr4952->len,0);
|
|
}else{
|
|
_FUNC_CHECK_STRING_INSTRING=qbs_new(oldstr4952->len,0);
|
|
}
|
|
memcpy(_FUNC_CHECK_STRING_INSTRING->chr,oldstr4952->chr,oldstr4952->len);
|
|
}
|
|
int32 *_FUNC_CHECK_LONG_RETVAL=NULL;
|
|
if(_FUNC_CHECK_LONG_RETVAL==NULL){
|
|
_FUNC_CHECK_LONG_RETVAL=(int32*)mem_static_malloc(4);
|
|
*_FUNC_CHECK_LONG_RETVAL=0;
|
|
}
|
|
byte_element_struct *byte_element_4953=NULL;
|
|
if (!byte_element_4953){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4953=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4953=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
static int32 sc_4955;
|
|
int32 *_FUNC_CHECK_LONG_I=NULL;
|
|
if(_FUNC_CHECK_LONG_I==NULL){
|
|
_FUNC_CHECK_LONG_I=(int32*)mem_static_malloc(4);
|
|
*_FUNC_CHECK_LONG_I=0;
|
|
}
|
|
int64 fornext_value4957;
|
|
int64 fornext_finalvalue4957;
|
|
int64 fornext_step4957;
|
|
uint8 fornext_step_negative4957;
|
|
static int32 sc_4958;
|
|
int16 *_FUNC_CHECK_INTEGER_DPC=NULL;
|
|
if(_FUNC_CHECK_INTEGER_DPC==NULL){
|
|
_FUNC_CHECK_INTEGER_DPC=(int16*)mem_static_malloc(2);
|
|
*_FUNC_CHECK_INTEGER_DPC=0;
|
|
}
|
|
byte_element_struct *byte_element_4959=NULL;
|
|
if (!byte_element_4959){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4959=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4959=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4960=NULL;
|
|
if (!byte_element_4960){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4960=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4960=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4961=NULL;
|
|
if (!byte_element_4961){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4961=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4961=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4963=NULL;
|
|
if (!byte_element_4963){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4963=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4963=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
byte_element_struct *byte_element_4965=NULL;
|
|
if (!byte_element_4965){
|
|
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_4965=(byte_element_struct*)(mem_static_pointer-12); else byte_element_4965=(byte_element_struct*)mem_static_malloc(12);
|
|
}
|
|
int64 fornext_value4967;
|
|
int64 fornext_finalvalue4967;
|
|
int64 fornext_step4967;
|
|
uint8 fornext_step_negative4967;
|
|
static int32 sc_4968;
|