From 8e7572faba7c97b4b0c029e394f0eea41bf880d9 Mon Sep 17 00:00:00 2001
From: marcoonthegit <marco@freepascal.org>
Date: Tue, 11 Apr 2023 14:13:39 +0200
Subject: [PATCH] * small cleanup, remove redundant result assignment and
 unused variable (from Lagprogramming on forum)

---
 rtl/objpas/sysutils/sysstr.inc | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/rtl/objpas/sysutils/sysstr.inc b/rtl/objpas/sysutils/sysstr.inc
index 318ef2c03c..ee45222d2f 100644
--- a/rtl/objpas/sysutils/sysstr.inc
+++ b/rtl/objpas/sysutils/sysstr.inc
@@ -181,9 +181,8 @@ end;
 {$ENDIF}
 
 function CompareStr(const S1, S2: string): Integer;
-var res,count, count1, count2: SizeInt;
+var count, count1, count2: SizeInt;
 begin
-  result := 0;
   Count1 := Length(S1);
   Count2 := Length(S2);
   if Count1>Count2 then