paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-16 06:49:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compiler warnings

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-05-01 16:39:32 +02:00
parent 97cd784cb9
commit fa4fc061a9
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/strutils.pas
View File

@ -609,7 +609,7 @@ end;
function NaturalCompareText (const S1 , S2 : string ): Integer ;
begin
Result := NaturalCompareText(S1, S2, DecimalSeparator,ThousandSeparator);
Result := NaturalCompareText(S1, S2, FormatSettings.DecimalSeparator,FormatSettings.ThousandSeparator);
end;
{ ---------------------------------------------------------------------