paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-03 14:50:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Yet more Fixes to assignstream with rerouting of stderr

Browse Source
This commit is contained in:
michael 1999-07-29 16:33:24 +00:00
parent 636cb90714
commit 56215a0b16
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/linux/linux.pp
View File

@ -594,7 +594,7 @@ Procedure POpen(var F:file;const Prog:String;rw:char);
Function mkFifo(pathname:string;mode:longint):boolean;
Procedure AssignStream(Var StreamIn,Streamout:text;Const Prog:String);
procedure AssignStream(var StreamIn, StreamOut, StreamErr: Text; const prog: String);
function AssignStream(var StreamIn, StreamOut, StreamErr: Text; const prog: String): LongInt;
{**************************
General information
@ -2485,7 +2485,7 @@ begin
Close(PipeErr);
Close(PipeIn);
Close(StreamOut);
Result := -1;
AssignStream := -1;
exit;
end;
@ -2525,7 +2525,7 @@ begin
pl := @(TextRec(StreamErr).userdata[2]);
pl^ := pid;
TextRec(StreamErr).closefunc := @PCloseText;
Result := pid;
AssignStream := pid;
end;
end;
@ -3741,7 +3741,10 @@ End.
{
$Log$
Revision 1.42 1999-07-29 15:55:54 michael
Revision 1.43 1999-07-29 16:33:24 michael
+ Yet more Fixes to assignstream with rerouting of stderr
Revision 1.42 1999/07/29 15:55:54 michael
+ Fixes to assignstream with rerouting of stderr, by Sebastian Guenther
Revision 1.41 1999/07/29 15:53:55 michael