From 3786221f6e0a65814c0b28cbb75868b280d03f0f Mon Sep 17 00:00:00 2001
From: Michael Van Canneyt <michael@freepascal.org>
Date: Fri, 7 Feb 2025 09:55:03 +0100
Subject: [PATCH] * Fix hints and warnings

---
 packages/rtl/src/rtti.pas | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/packages/rtl/src/rtti.pas b/packages/rtl/src/rtti.pas
index e3b800b..a0d28aa 100644
--- a/packages/rtl/src/rtti.pas
+++ b/packages/rtl/src/rtti.pas
@@ -1953,9 +1953,6 @@ begin
 end;
 
 function TRttiArrayType.GetDimension(aIndex: SizeInt): TRttiType;
-Var
-  I : Integer;
-  Res : TRttiType;
 
 begin
   if (aIndex >= DimensionCount) then