paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cleaned out some ver2_2_0 defines.

Browse Source 
git-svn-id: trunk@26230 -
This commit is contained in:
marco 2013-12-14 09:18:38 +00:00
parent 6ea9ce1077
commit 10ff8bf74e
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-process/src/pipes.pp
View File

@ -86,11 +86,7 @@ end;
Function TInputPipeStream.Write (Const Buffer; Count : Longint) : longint; Function TInputPipeStream.Write (Const Buffer; Count : Longint) : longint;
begin begin
{$ifdef ver2_2_0}
raise EStreamError.Create( 'Cannot write to InputPipeStream');
{$else}
WriteNotImplemented; WriteNotImplemented;
{$endif}
Result := 0; Result := 0;
end; end;
@ -117,11 +113,7 @@ end;
Function TOutputPipeStream.Read(Var Buffer; Count : Longint) : longint; Function TOutputPipeStream.Read(Var Buffer; Count : Longint) : longint;
begin begin
{$ifdef ver2_2_0}
raise EStreamError.Create( 'Cannot read from OutputPipeStream');
{$else}
ReadNotImplemented; ReadNotImplemented;
{$endif}
Result := 0; Result := 0;
end; end;