paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 21:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small cleanup, remove redundant result assignment and unused variable (from Lagprogramming on forum)

Browse Source
This commit is contained in:
marcoonthegit 2023-04-11 14:13:39 +02:00
parent 0c37a1483d
commit 6a33f68fca
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/sysutils/sysstr.inc
View File

@ -180,9 +180,8 @@ end;
{$ENDIF} {$ENDIF}
function CompareStr(const S1, S2: string): Integer; function CompareStr(const S1, S2: string): Integer;
var res,count, count1, count2: SizeInt; var count, count1, count2: SizeInt;
begin begin
result := 0;
Count1 := Length(S1); Count1 := Length(S1);
Count2 := Length(S2); Count2 := Length(S2);
if Count1>Count2 then if Count1>Count2 then