paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix warning about unimplemented abstract method

Browse Source 
git-svn-id: trunk@43331 -
This commit is contained in:
michael 2019-10-30 09:04:54 +00:00
parent c35331dc57
commit 3518f456a4
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -536,7 +536,7 @@ type
Function FindIncludeFileName(const AName: string): String; override;
Function CreateFileReader(Const AFileName : String) : TLineReader; virtual;
Public
function FindResourceFileName(const AName: string): String; override;
function FindResourceFileName(const AFileName: string): String; override;
function FindSourceFile(const AName: string): TLineReader; override;
function FindIncludeFile(const AName: string): TLineReader; override;
{$ifdef HasStreams}
@ -561,6 +561,7 @@ type
constructor Create; override;
destructor Destroy; override;
Procedure Clear;
function FindResourceFileName(const AFileName: string): String; override;
Procedure AddStream(Const AName : String; AStream : TStream);
function FindSourceFile(const AName: string): TLineReader; override;
function FindIncludeFile(const AName: string): TLineReader; override;
@ -2603,7 +2604,7 @@ begin
Result:=TFileLineReader.Create(AFileName);
end;
function TFileResolver.FindResourceFileName(const AName: string): String;
function TFileResolver.FindResourceFileName(const AFileName: string): String;
Function FindInPath(FN : String) : String;
@ -2629,7 +2630,7 @@ var
begin
Result := '';
// convert pathdelims to system
FN:=SetDirSeparators(AName);
FN:=SetDirSeparators(AFileName);
If FilenameIsAbsolute(FN) then
begin
Result := SearchLowUpCase(FN);
@ -2687,6 +2688,12 @@ begin
Result:='';
end;
function TStreamResolver.FindResourceFileName(const AFileName: string): String;
begin
raise EFileNotFoundError.Create('TStreamResolver.FindResourceFileName not supported '+aFileName);
Result:='';
end;
constructor TStreamResolver.Create;
begin
Inherited;