paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 13:09:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add FindIncludeFileName at higher level, virtual

Browse Source 
git-svn-id: trunk@40469 -
This commit is contained in:
michael 2018-12-04 21:39:59 +00:00
parent 32121de8ae
commit a38e67dfde
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-passrc/src/pscanner.pp
View File

@ -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;