fcl-passrc: clean up

packages/fcl-passrc/src/passrcutil.pp

@@ -141,8 +141,7 @@ begin
       TStreamResolver(Fresolver).AddStream(FileName,Stream);
       end
     else
-      {$IFDEF HASFS}FResolver:=TFileResolver.Create{$ENDIF}
-      ;
+      FResolver:=TFileResolver.Create;
     D:=ExtractFilePath(FileName);
     If (D='') then
       D:='.';

packages/fcl-passrc/src/pastree.pp

@@ -5469,7 +5469,7 @@ end;
 
 constructor TPasInlineVarDeclStatement.Create(const aName: TPasTreeString; aParent: TPasElement);
 begin
-  inherited Create('',aParent);
+  inherited Create(aName,aParent);
   Declarations:=TFPList.Create;
 end;
 

packages/fcl-passrc/src/pparser.pp

@@ -5178,7 +5178,6 @@ var
   Arg: TPasArgument;
   Access: TArgumentAccess;
   ArgType: TPasType;
-  HasAttr : Boolean;
 
 begin
   LastHadDefaultValue := false;
@@ -5191,7 +5190,7 @@ begin
     NextToken;
     // [ref] (const|var|) a : type;
     HasRef:=False;
-    HasAttr:=CheckAttributes(False);
+    CheckAttributes(False);
 
     if CurToken = tkDotDotDot then
     begin

packages/fcl-passrc/src/pscanner.pp

@@ -1331,7 +1331,6 @@ const
   Letters = ['a'..'z','A'..'Z'];
   HexDigits = ['0'..'9','a'..'f','A'..'F'];
   SingleQuote = #39;
-  TripleQuote = #39#39#39;
 
 Var
   SortedTokens : array of TToken;
@@ -4150,13 +4149,12 @@ function TPascalScanner.DoFetchDelphiMultiLineTextToken(quotelen : Integer): TTo
 // works similar to DoFetchTextToken, except changes indentation
 
 var
-  StartPos: Integer;
   TokenStart: {$ifdef UsePChar}PAnsiChar{$else}integer{$endif};
   {$ifndef UsePChar}
   s: TPasScannerString;
   l: integer;
   {$endif}
-  Msg,CurLF : TPasScannerString;
+  CurLF : TPasScannerString;
   Lines : Array of String;
   I,SpaceCount,QuoteCount,WhiteSpaces,CurLines : Integer;
 
@@ -5360,7 +5358,6 @@ var
   {$ifdef UsePChar}
   TokenStart: PAnsiChar;
   OldLength: integer;
-  Ch: AnsiChar;
   LE: String[2];
   I : Integer;
   {$else}
@@ -5458,7 +5455,6 @@ var
   {$ifdef UsePChar}
   TokenStart: PAnsiChar;
   OldLength: integer;
-  Ch: AnsiChar;
   I : Integer;
   LE: String[2];
   {$else}