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

* Bugfix in assignstream. . Now wait is performed upon close

Browse Source
This commit is contained in:
michael 1998-11-24 15:30:12 +00:00
parent 4ea629dcdc
commit 0cac0583d3
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
rtl/linux/linux.pp
View File

@ -2265,7 +2265,7 @@ var
pipi,
pipo : text;
pid : longint;
pl : ^Longint;
begin
LinuxError:=0;
@ -2304,18 +2304,16 @@ begin
else
begin
{ we're in the parent}
{
Let's redraw the schedule :
Parent Child
pipo[1] --> pipi[1]
pipi[0] <-- pipo[0]
}
close(pipo);
// dup(pipi[0],streamin);
// close (pipi[0]);
close(pipi);
// dup(pipo[1],streamout);
// close (pipo[1]);
close(pipo);
close(pipi);
{Save the process ID - needed when closing }
pl:=@(textrec(StreamIn).userdata[2]);
pl^:=pid;
textrec(StreamIn).closefunc:=@PCloseText;
{Save the process ID - needed when closing }
pl:=@(textrec(StreamOut).userdata[2]);
pl^:=pid;
textrec(StreamOut).closefunc:=@PCloseText;
end;
end;
@ -3519,7 +3517,10 @@ End.
{
$Log$
Revision 1.25 1998-11-16 10:21:28 peter
Revision 1.26 1998-11-24 15:30:12 michael
* Bugfix in assignstream. . Now wait is performed upon close
Revision 1.25 1998/11/16 10:21:28 peter
* fixes for H+
Revision 1.24 1998/11/10 14:57:53 peter