paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-22 10:19:32 +01: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, pipi,
pipo : text; pipo : text;
pid : longint; pid : longint;
pl : ^Longint;
begin begin
LinuxError:=0; LinuxError:=0;
@ -2304,18 +2304,16 @@ begin
else else
begin begin
{ we're in the parent} { we're in the parent}
{ close(pipo);
Let's redraw the schedule : close(pipi);
Parent Child {Save the process ID - needed when closing }
pipo[1] --> pipi[1] pl:=@(textrec(StreamIn).userdata[2]);
pipi[0] <-- pipo[0] pl^:=pid;
} textrec(StreamIn).closefunc:=@PCloseText;
close(pipo); {Save the process ID - needed when closing }
// dup(pipi[0],streamin); pl:=@(textrec(StreamOut).userdata[2]);
// close (pipi[0]); pl^:=pid;
close(pipi); textrec(StreamOut).closefunc:=@PCloseText;
// dup(pipo[1],streamout);
// close (pipo[1]);
end; end;
end; end;
@ -3519,7 +3517,10 @@ End.
{ {
$Log$ $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+ * fixes for H+
Revision 1.24 1998/11/10 14:57:53 peter Revision 1.24 1998/11/10 14:57:53 peter