From 95addf15ced2ad0e1c1374e68d2cf3b1263e6a5f Mon Sep 17 00:00:00 2001
From: Mattias Gaertner <nc-gaertnma@netcologne.de>
Date: Fri, 20 Nov 2020 13:56:24 +0000
Subject: [PATCH] fcl-passrc: clean up

git-svn-id: trunk@47482 -
---
 packages/fcl-passrc/src/pscanner.pp | 2 --
 1 file changed, 2 deletions(-)

diff --git a/packages/fcl-passrc/src/pscanner.pp b/packages/fcl-passrc/src/pscanner.pp
index 228924ae1b..a5068bc84a 100644
--- a/packages/fcl-passrc/src/pscanner.pp
+++ b/packages/fcl-passrc/src/pscanner.pp
@@ -2984,8 +2984,6 @@ Procedure TPascalScanner.PopStackItem;
 
 var
   IncludeStackItem: TIncludeStackItem;
-  aFileName : String;
-
 begin
   IncludeStackItem :=
     TIncludeStackItem(FIncludeStack[FIncludeStack.Count - 1]);