* Add FindIncludeFileName at higher level, virtual

git-svn-id: trunk@40469 -

packages/fcl-passrc/src/pscanner.pp

@@ -486,6 +486,7 @@ 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;
@@ -2386,6 +2387,11 @@ end;
   TBaseFileResolver
   ---------------------------------------------------------------------}
 
+function TBaseFileResolver.FindIncludeFileName(const AName: string): String;
+begin
+  Result:=aName;
+end;
+
 procedure TBaseFileResolver.SetBaseDirectory(AValue: string);
 begin
   if FBaseDirectory=AValue then Exit;