* make it compile with 2.2.0

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@10208 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 8 insertions, 0 deletions

diff --git a/packages/fcl-process/src/pipes.pp b/packages/fcl-process/src/pipes.pp
index ea72f12315..ad24dabb00 100644
--- a/packages/fcl-process/src/pipes.pp
+++ b/packages/fcl-process/src/pipes.pp
@@ -75,7 +75,11 @@ end;
 Function TInputPipeStream.Write (Const Buffer; Count : Longint) : longint;
 
 begin
+{$ifdef ver2_2_0}
+  raise EStreamError.Create( 'Cannot write to InputPipeStream');
+{$else}
   WriteNotImplemented;
+{$endif}
   Result := 0;
 end;
 
@@ -112,7 +116,11 @@ end;
 Function TOutputPipeStream.Read(Var Buffer; Count : Longint) : longint;
 
 begin
+{$ifdef ver2_2_0}
+  raise EStreamError.Create( 'Cannot read from OutputPipeStream');
+{$else}
   ReadNotImplemented;
+{$endif}
   Result := 0;
 end;