fcl-passrc: clean up

git-svn-id: trunk@40474 -

packages/fcl-passrc/src/pscanner.pp

@@ -486,7 +486,6 @@ type
     FIncludePaths: TStringList;
     FStrictFileCase : Boolean;
   Protected
-    Function FindIncludeFileName(const AName: string): String; virtual;
     procedure SetBaseDirectory(AValue: string); virtual;
     procedure SetStrictFileCase(AValue: Boolean); virtual;
     Property IncludePaths: TStringList Read FIncludePaths;
@@ -2387,11 +2386,6 @@ end;
   TBaseFileResolver
   ---------------------------------------------------------------------}
 
-function TBaseFileResolver.FindIncludeFileName(const AName: string): String;
-begin
-  Result:=aName;
-end;
-
 procedure TBaseFileResolver.SetBaseDirectory(AValue: string);
 begin
   if FBaseDirectory=AValue then Exit;