mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 21:19:31 +02:00
* assignpipe fix
This commit is contained in:
parent
09f64cba2c
commit
290dc30c52
@ -25,12 +25,15 @@ Uses
|
||||
Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
|
||||
|
||||
begin
|
||||
Result := AssignPipe (Inhandle,OutHandle);
|
||||
Result := (AssignPipe (Inhandle,OutHandle)<>-1);
|
||||
end;
|
||||
|
||||
{
|
||||
$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
|
||||
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user