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

* assignpipe fix

Browse Source
This commit is contained in:
marco 2003-11-14 11:08:50 +00:00
parent 09f64cba2c
commit 290dc30c52
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/unix/pipes.inc
View File

@ -25,12 +25,15 @@ Uses
Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean; Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
begin begin
Result := AssignPipe (Inhandle,OutHandle); Result := (AssignPipe (Inhandle,OutHandle)<>-1);
end; end;
{ {
$Log$ $Log$
Revision 1.5 2002-09-07 15:15:29 peter Revision 1.6 2003-11-14 11:08:50 marco
* assignpipe fix
Revision 1.5 2002/09/07 15:15:29 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
} }