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

* fixed severe bug: change by ? in dup2 (flushing) resulted in broken

Browse Source 
AssignStream functions
This commit is contained in:
sg 1999-11-11 19:43:49 +00:00
parent 3839c77a58
commit 02329a97bc
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/linux/linux.pp
View File

@ -1920,8 +1920,10 @@ Function Dup2(var oldfile,newfile:text):Boolean;
var
tmphandle : word;
begin
flush(oldfile);{ We cannot share buffers, so we flush them. }
flush(newfile);
if TextRec(oldfile).mode in [fmOutput, fmInOut, fmAppend] then
flush(oldfile);{ We cannot share buffers, so we flush them. }
if TextRec(newfile).mode in [fmOutput, fmInOut, fmAppend] then
flush(newfile);
tmphandle:=textrec(newfile).handle;
textrec(newfile):=textrec(oldfile);
textrec(newfile).handle:=tmphandle;
@ -3790,7 +3792,11 @@ End.
{
$Log$
Revision 1.50 1999-11-06 14:39:12 peter
Revision 1.51 1999-11-11 19:43:49 sg
* fixed severe bug: change by ? in dup2 (flushing) resulted in broken
AssignStream functions
Revision 1.50 1999/11/06 14:39:12 peter
* truncated log
Revision 1.49 1999/10/28 09:48:31 peter