Explorar o código

fcl-passrc: clean up

git-svn-id: trunk@47482 -
Mattias Gaertner %!s(int64=5) %!d(string=hai) anos
pai
achega
95addf15ce
Modificáronse 1 ficheiros con 0 adicións e 2 borrados
  1. 0 2
      packages/fcl-passrc/src/pscanner.pp

+ 0 - 2
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]);