Merged revisions 10208 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r10208 | peter | 2008-02-04 21:01:11 +0100 (Mon, 04 Feb 2008) | 2 lines
  
    * make it compile with 2.2.0
........

git-svn-id: branches/fixes_2_2@10289 -

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;