paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:39:33 +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 5e47b4a7b9
commit 8e7572faba
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

@ -181,9 +181,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