paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 20:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix strlcomp

Browse Source 
git-svn-id: trunk@39567 -
This commit is contained in:
michael 2018-08-04 08:40:25 +00:00
parent 3d740f13e4
commit 20917b4ec2
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/regexpr/src/regexpr.pas
View File

@ -786,7 +786,7 @@ begin
SetLength(S2, MaxLen); SetLength(S2, MaxLen);
if S1 > S2 then if S1 > S2 then
Result := 1 Result := 1
else if S2 < S2 then else if S1 < S2 then
Result := -1 Result := -1
else else
Result := 0; Result := 0;