From 82edbea0ac8f214905862d2a09a42104cb3f15f0 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 12 Mar 2023 22:52:25 +0100
Subject: [PATCH] codetools: clean up

---
 components/codetools/finddeclarationtool.pas | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index f1454105f0..8a0994067a 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -5375,7 +5375,6 @@ var
     ResultNode: TCodeTreeNode;
     OldFlags: TFindDeclarationFlags;
     AliasContext: TFindContext;
-    Cache: TBaseTypeCache;
   begin
     if not( (NodeStack<>nil) and (NodeStack<>@MyNodeStack) )then begin // will be handled by caller
       if (Context.Node<>nil) and (Context.Node.Desc in [ctnProcedure,ctnProcedureHead])
@@ -12715,7 +12714,6 @@ procedure TFindDeclarationTool.CreateBaseTypeCaches(
 var i: integer;
   Entry: PCodeTreeNodeStackEntry;
   BaseTypeCache: TBaseTypeCache;
-  NextEntry: PCodeTreeNodeStackEntry;
 begin
   {$IFDEF ShowBaseTypeCache}
   DbgOut('[TFindDeclarationTool.CreateBaseTypeCaches] ',
@@ -14147,7 +14145,6 @@ function TFindDeclarationParams.FindGenericParamType: Boolean;
   function DoFindIdentifierInContext(Tool: TFindDeclarationTool): boolean;
   var
     SubParams: TFindDeclarationParams;
-    p: TFindDeclarationInput;
   begin
     SubParams:=TFindDeclarationParams.Create(Self);
     try