From 6a33f68fca0bd1afae99a8008bfc77c95da3f3ef 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 f13e70e716..22aa0a8ba2 100644
--- a/rtl/objpas/sysutils/sysstr.inc
+++ b/rtl/objpas/sysutils/sysstr.inc
@@ -180,9 +180,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