paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 19:10:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed Marco's fix to make the pipes unit compiling in both branches again

Browse Source
This commit is contained in:
sg 2003-11-22 12:47:07 +00:00
parent f35267db01
commit 68c4c570c3
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/unix/pipes.inc
View File

@ -25,12 +25,19 @@ Uses
Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
begin
{$ifdef ver1_0}
Result := AssignPipe (Inhandle,OutHandle);
{$else}
Result := (AssignPipe (Inhandle,OutHandle)<>-1);
{$endif}
end;
{
$Log$
Revision 1.6 2003-11-14 11:08:50 marco
Revision 1.7 2003-11-22 12:47:07 sg
* Fixed Marco's fix to make the pipes unit compiling in both branches again
Revision 1.6 2003/11/14 11:08:50 marco
* assignpipe fix
Revision 1.5 2002/09/07 15:15:29 peter