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

* the long version of AssignStream now sets the result value to -1 in

Browse Source 
_all_ cases when it would fail.
This commit is contained in:
sg 1999-12-28 09:38:07 +00:00
parent c57914dd58
commit 89314732f1
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/linux/linux.pp
View File

@ -2495,6 +2495,7 @@ var
pl: ^LongInt;
begin
LinuxError := 0;
AssignStream := -1;
// Assign pipes
AssignPipe(StreamIn, PipeOut);
@ -2526,7 +2527,6 @@ begin
Close(PipeErr);
Close(PipeIn);
Close(StreamOut);
AssignStream := -1;
exit;
end;
@ -3817,7 +3817,11 @@ End.
{
$Log$
Revision 1.55 1999-12-08 01:03:54 peter
Revision 1.56 1999-12-28 09:38:07 sg
* the long version of AssignStream now sets the result value to -1 in
_all_ cases when it would fail.
Revision 1.55 1999/12/08 01:03:54 peter
* overloaded gettime functions supporting hsec and msec,usec
Revision 1.54 1999/12/01 22:46:59 peter