paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 12:19:18 +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 Read(var Buffer; Count: Longint): Longint; override;
function Write(const Buffer; Count: Longint): Longint; override; function Write(const Buffer; Count: Longint): Longint; override;
function Seek(const Offset: int64; Origin: TSeekOrigin): int64; override; function Seek(const Offset: int64; Origin: TSeekOrigin): int64; override;
procedure Check(err:integer); virtual; procedure Check(err:integer); virtual; abstract;
end; end;
{ TOwnerStream } { TOwnerStream }

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

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