fcl-passrc: clean up

packages/fcl-passrc/src/pasresolver.pp

@@ -12014,7 +12014,7 @@ procedure TPasResolver.DeanonymizeType(El: TPasType);
   procedure InsertInFront(NewParent, Child: TPasElement; List: TFPList);
   var
     i: Integer;
-    p, Prev: TPasElement;
+    Prev: TPasElement;
   begin
     // e.g. m,n:array of longint; -> insert n$a in front of m
     i:=List.Count-1;

packages/fcl-passrc/src/pastree.pp

@@ -3393,9 +3393,6 @@ begin
 end;
 
 function TPasAliasType.FixTypeDecl(aDecl: TPasTreeString): TPasTreeString;
-
-var
-  PasType : TPasType;
 begin
   Result:=aDecl;
   if (Name<>'') then

packages/fcl-passrc/src/pparser.pp

@@ -5265,7 +5265,6 @@ var
 
   var
     Expr: TPasExpr;
-    Prim: TPrimitiveExpr;
     i: Integer;
     AddAttributes: TPasAttributes;
   begin
@@ -6676,7 +6675,7 @@ var
   end;
 
 var
-  StartP, ElType: Integer;
+  ElType: Integer;
   Value: TPasScannerString;
   Visibility: TPasMembersType.TRTTIVisibilitySections;
 begin
@@ -8620,13 +8619,8 @@ end;
 procedure TPasParser.TParseStatementParams.ParseVarStatement;
 
 var
-  List : TFPList;
   VarSt : TPasInlineVarDeclStatement;
   SrcPos: TPasSourcePos;
-  I : Integer;
-  V : TPasVariable;
-  Obj: TObject;
-
 begin
   // var a : Integer;
   // var a : Integer = Expr;