paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-30 16:50:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: fixed AnsiSameText using toLowerCase to use default locale

Browse Source
This commit is contained in:
mattias 2020-07-08 14:11:41 +00:00
parent 9578fd2459
commit 3d92248d55
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl/sysutils.pas
View File

@ -2018,7 +2018,7 @@ end;
function AnsiSameText(const s1, s2: String): Boolean; assembler; function AnsiSameText(const s1, s2: String): Boolean; assembler;
asm asm
return s1.localeCompare(s2) == 0; return s1.toLowerCase() == s2.toLowerCase();
end; end;
function AnsiCompareStr(const s1, s2: String): Integer; function AnsiCompareStr(const s1, s2: String): Integer;