paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:30:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed assignstream

Browse Source
This commit is contained in:
peter 1998-12-11 18:08:57 +00:00
parent 39c8939bcc
commit 5d3113b7f2
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/linux/linux.pp
View File

@ -1918,17 +1918,20 @@ begin
else
textrec(f).mode:=fmclosed;
end;
end;
Procedure IOPipe(var F:text);
begin
case textrec(f).mode of
fmoutput : Sys_write(textrec(f).handle,pchar(textrec(f).bufptr),textrec(f).bufpos);
fmoutput : begin
{ first check if we need something to write, else we may
get a SigPipe when Close() is called (PFV) }
if textrec(f).bufpos>0 then
Sys_write(textrec(f).handle,pchar(textrec(f).bufptr),textrec(f).bufpos);
end;
fminput : textrec(f).bufend:=Sys_read(textrec(f).handle,pchar(textrec(f).bufptr),textrec(f).bufsize);
end;
textrec(f).bufpos:=0;
end;
@ -1984,7 +1987,7 @@ begin
exit;
end;
{ Set up input }
Assign(Pipe_in,'.');
Assign(Pipe_in,'');
Textrec(Pipe_in).Handle:=f_in;
Textrec(Pipe_in).Mode:=fmInput;
Textrec(Pipe_in).userdata[1]:=P_IN;
@ -1993,7 +1996,7 @@ begin
TextRec(Pipe_in).FlushFunc:=@FlushPipe;
TextRec(Pipe_in).CloseFunc:=@ClosePipe;
{ Set up output }
Assign(Pipe_out,'.');
Assign(Pipe_out,'');
Textrec(Pipe_out).Handle:=f_out;
Textrec(Pipe_out).Mode:=fmOutput;
Textrec(Pipe_out).userdata[1]:=P_OUT;
@ -2020,13 +2023,13 @@ begin
exit;
end;
{ Set up input }
Assign(Pipe_in,'.');
Assign(Pipe_in,'');
Filerec(Pipe_in).Handle:=f_in;
Filerec(Pipe_in).Mode:=fmInput;
Filerec(Pipe_in).recsize:=1;
Filerec(Pipe_in).userdata[1]:=P_IN;
{ Set up output }
Assign(Pipe_out,'.');
Assign(Pipe_out,'');
Filerec(Pipe_out).Handle:=f_out;
Filerec(Pipe_out).Mode:=fmoutput;
Filerec(Pipe_out).recsize:=1;
@ -2041,7 +2044,6 @@ var
pl : ^longint;
res : longint;
begin
flush (f);
sr.reg2:=Textrec(F).Handle;
SysCall (syscall_nr_close,sr);
{ closed our side, Now wait for the other - this appears to be needed ?? }
@ -3517,7 +3519,10 @@ End.
{
$Log$
Revision 1.26 1998-11-24 15:30:12 michael
Revision 1.27 1998-12-11 18:08:57 peter
* fixed assignstream
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