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

* make TProxyStream.Check an abstract method; as it is right now one had to override it anyway because it always raised an exception

Browse Source 
git-svn-id: trunk@48097 -
This commit is contained in:
svenbarth 2021-01-06 20:25:12 +00:00
parent 6160abe37e
commit 38cde38177
2 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/classesh.inc
View File

@ -1139,7 +1139,7 @@ type
function Read(var Buffer; Count: Longint): Longint; override;
function Write(const Buffer; Count: Longint): Longint; override;
function Seek(const Offset: int64; Origin: TSeekOrigin): int64; override;
procedure Check(err:integer); virtual;
procedure Check(err:integer); virtual; abstract;
end;
{ TOwnerStream }

8
rtl/objpas/classes/streams.inc
View File

@ -2038,12 +2038,4 @@ begin
Result := FStream;
end;
procedure TProxyStream.Check(err:integer);
var e : EInOutError;
begin
e:= EInOutError.Create('Proxystream.Check');
e.Errorcode:=err;
raise e;
end;
{$pop}