1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-05 15:50:25 +00:00

Fix regression introduced in previous commit in LCASE$ function

This commit is contained in:
Luke Ceddia 2014-09-23 23:39:53 +10:00
parent 6e01fc8dce
commit c3c79964cf

View file

@ -7922,7 +7922,7 @@ qbs *qbs_lcase(qbs *str){
} }
unsigned char *c=tqbs->chr; unsigned char *c=tqbs->chr;
for (int32 i=0;i<str->len; i++) { for (int32 i=0;i<str->len; i++) {
if ((*c>='a')&&(*c<='z')) *c=*c|32; if ((*c>='A')&&(*c<='Z')) *c=*c|32;
c++; c++;
} }
if (tqbs!=str&&str->tmp) qbs_free(str); if (tqbs!=str&&str->tmp) qbs_free(str);
@ -34650,4 +34650,4 @@ render_state.cull_mode=CULL_MODE__UNKNOWN;
#endif #endif
} }
#include "User Mods/Users Routines-List.cpp" #include "User Mods/Users Routines-List.cpp"