paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 02:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #34087: Small optimization of StrlComp

Browse Source 
git-svn-id: trunk@39563 -
This commit is contained in:
michael 2018-08-04 08:05:31 +00:00
parent 473a028523
commit 08d574bf7d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/regexpr/src/regexpr.pas
View File

@ -760,13 +760,16 @@ function StrLComp (Str1, Str2: PRegExprChar; MaxLen: PtrUInt): PtrInt;
var var
S1, S2: RegExprString; S1, S2: RegExprString;
begin begin
S1 := Str1; S1 := Str1;
S2 := Str2; S2 := Str2;
if Copy (S1, 1, MaxLen) > Copy (S2, 1, MaxLen) then if Length(S1) > MaxLen then
SetLength(S1, MaxLen);
if Length(S2) > MaxLen then
SetLength(S2, MaxLen);
if S1 > S2 then
Result := 1 Result := 1
else if Copy (S1, 1, MaxLen) < Copy (S2, 1, MaxLen) then else if S2 < S2 then
Result := -1 Result := -1
else else
Result := 0; Result := 0;