* make it compile with 2.2.0

git-svn-id: trunk@10208 -

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;