From 2ef9140afe7990c8eae9469406a1b2c8ae8fd11a Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 25 Jul 1999 15:34:59 +0000
Subject: [PATCH] + Exception objects now descend from EPipeError

---
 fcl/inc/pipes.pp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/fcl/inc/pipes.pp b/fcl/inc/pipes.pp
index 0f73863104..acf2ad91b6 100644
--- a/fcl/inc/pipes.pp
+++ b/fcl/inc/pipes.pp
@@ -21,11 +21,11 @@ Interface
 Uses sysutils,Classes;
 
 Type
-
-  ENoReadPipe = Class(ESTreamError);
-  ENoWritePipe = Class (EStreamError);
-  EPipeSeek = Class (EStreamError);
-  EPipeCreation = Class (Exception);
+  EPipeError = Class(EStreamError);
+  ENoReadPipe = Class(EPipeError);
+  ENoWritePipe = Class (EPipeError);
+  EPipeSeek = Class (EPipeError);
+  EPipeCreation = Class (EPipeError);
 
   TPipeStream = Class (THandleStream)
     public