From 38cde3817754458936db1662687ae37498500da5 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Wed, 6 Jan 2021 20:25:12 +0000
Subject: [PATCH] * make TProxyStream.Check an abstract method; as it is right
now one had to override it anyway because it always raised an exception
git-svn-id: trunk@48097 -
---
rtl/objpas/classes/classesh.inc | 2 +-
rtl/objpas/classes/streams.inc | 8 --------
2 files changed, 1 insertion(+), 9 deletions(-)
diff --git a/rtl/objpas/classes/classesh.inc b/rtl/objpas/classes/classesh.inc
index 6d9c45d55a..a65d49f94f 100644
--- a/rtl/objpas/classes/classesh.inc
+++ b/rtl/objpas/classes/classesh.inc
@@ -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 }
diff --git a/rtl/objpas/classes/streams.inc b/rtl/objpas/classes/streams.inc
index cd7419254c..0f96ed54ad 100644
--- a/rtl/objpas/classes/streams.inc
+++ b/rtl/objpas/classes/streams.inc
@@ -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}