mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-08 19:35:13 +00:00
Fix regression introduced in previous commit in LCASE$ function
This commit is contained in:
parent
6e01fc8dce
commit
c3c79964cf
|
@ -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);
|
||||||
|
|
Loading…
Reference in a new issue