paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 00:09:17 +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 FindIncludeFileName(const AName: string): String; override;
Function CreateFileReader(Const AFileName : String) : TLineReader; virtual; Function CreateFileReader(Const AFileName : String) : TLineReader; virtual;
Public Public
function FindResourceFileName(const AName: string): String; override; function FindResourceFileName(const AFileName: string): String; override;
function FindSourceFile(const AName: string): TLineReader; override; function FindSourceFile(const AName: string): TLineReader; override;
function FindIncludeFile(const AName: string): TLineReader; override; function FindIncludeFile(const AName: string): TLineReader; override;
{$ifdef HasStreams} {$ifdef HasStreams}
@ -561,6 +561,7 @@ type
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
Procedure Clear; Procedure Clear;
function FindResourceFileName(const AFileName: string): String; override;
Procedure AddStream(Const AName : String; AStream : TStream); Procedure AddStream(Const AName : String; AStream : TStream);
function FindSourceFile(const AName: string): TLineReader; override; function FindSourceFile(const AName: string): TLineReader; override;
function FindIncludeFile(const AName: string): TLineReader; override; function FindIncludeFile(const AName: string): TLineReader; override;
@ -2603,7 +2604,7 @@ begin
Result:=TFileLineReader.Create(AFileName); Result:=TFileLineReader.Create(AFileName);
end; end;
function TFileResolver.FindResourceFileName(const AName: string): String; function TFileResolver.FindResourceFileName(const AFileName: string): String;
Function FindInPath(FN : String) : String; Function FindInPath(FN : String) : String;
@ -2629,7 +2630,7 @@ var
begin begin
Result := ''; Result := '';
// convert pathdelims to system // convert pathdelims to system
FN:=SetDirSeparators(AName); FN:=SetDirSeparators(AFileName);
If FilenameIsAbsolute(FN) then If FilenameIsAbsolute(FN) then
begin begin
Result := SearchLowUpCase(FN); Result := SearchLowUpCase(FN);
@ -2687,6 +2688,12 @@ begin
Result:=''; Result:='';
end; end;
function TStreamResolver.FindResourceFileName(const AFileName: string): String;
begin
raise EFileNotFoundError.Create('TStreamResolver.FindResourceFileName not supported '+aFileName);
Result:='';
end;
constructor TStreamResolver.Create; constructor TStreamResolver.Create;
begin begin
Inherited; Inherited;