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

rtl: fixed AnsiCompareStr

Browse Source
This commit is contained in:
mattias 2019-02-15 22:41:33 +00:00
parent 6731fdacd0
commit eff31f67be
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/rtl/sysutils.pas
View File

@ -33,9 +33,9 @@ Const
type
{ TFloatRec }
TFloatRec = Record
Exponent: Integer;
Negative: Boolean;
Digits: Array[0..FloatRecDigits-1] Of Char;
Exponent: Integer;
Negative: Boolean;
Digits: Array[0..FloatRecDigits-1] of Char;
End;
TEndian = (Little,Big);
TFileName = String;
@ -167,7 +167,6 @@ type
ENoConstructException = class(Exception);
//function GetTickCount: Integer;
@ -176,10 +175,10 @@ type
*****************************************************************************}
Const
EmptyStr = '';
EmptyWideStr = ''; // No difference here.
HexDisplayPrefix: string = '$';
LeadBytes = [] unimplemented;
EmptyStr = '';
EmptyWideStr = ''; // No difference here.
HexDisplayPrefix: string = '$';
LeadBytes = [] unimplemented;
Function CharInSet(Ch: Char;Const CSet : array of char) : Boolean;
@ -1413,7 +1412,7 @@ end;
function AnsiCompareStr(const s1, s2: String): Integer;
begin
{$IFDEF ECMAScript6}
Result:=CompareText(TJSString(s1).normalize(),TJSString(s1).normalize());
Result:=CompareText(TJSString(s1).normalize(),TJSString(s2).normalize());
{$ELSE}
Result:=CompareText(s1,s2);
{$ENDIF}
@ -1432,8 +1431,6 @@ Const
feInvalidArgIndex = 3;
Procedure DoFormatError (ErrCode : Longint;const fmt: String);
begin
//!! must be changed to contain format string...
Case ErrCode of