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

fcl-passrc: clean up

Browse Source 
git-svn-id: trunk@40474 -
This commit is contained in:
Mattias Gaertner 2018-12-06 09:31:28 +00:00
parent c75d0ab3bd
commit b82026dcf8
1 changed files with 0 additions and 6 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,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;