paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:06:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bug that lead to never close the redir file

Browse Source
This commit is contained in:
pierre 1999-02-04 15:59:53 +00:00
parent 7f85dc1fe5
commit 0368aeb7d1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/text/fpredir.pas
View File

@ -166,6 +166,7 @@ function ChangeRedir(Const Redir : String; AppendToFile : Boolean) : Boolean;
{$endif UseDUP}
ChangeRedir:=True;
{$endif}
RedirChanged:=True;
end;
function ChangeErrorRedir(Const Redir : String; AppendToFile : Boolean) : Boolean;
@ -201,6 +202,7 @@ function ChangeErrorRedir(Const Redir : String; AppendToFile : Boolean) : Boolea
{$endif UseDUP}
ChangeErrorRedir:=True;
{$endif}
RedirErrorChanged:=True;
end;
{............................................................................}
@ -300,7 +302,7 @@ Begin
IOStatus:=0;
{$ifdef in_dos}
if RedirStdOut<>'' then
RedirChanged:=ChangeRedir(RedirStdOut,false);
ChangeRedir(RedirStdOut,false);
if RedirStdErr<>'stderr' then
RedirErrorChanged:=ChangeErrorRedir(RedirStdErr,false);
DosExecute(ProgName,ComLine);