paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 16:49:07 +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} {$endif UseDUP}
ChangeRedir:=True; ChangeRedir:=True;
{$endif} {$endif}
RedirChanged:=True;
end; end;
function ChangeErrorRedir(Const Redir : String; AppendToFile : Boolean) : Boolean; function ChangeErrorRedir(Const Redir : String; AppendToFile : Boolean) : Boolean;
@ -201,6 +202,7 @@ function ChangeErrorRedir(Const Redir : String; AppendToFile : Boolean) : Boolea
{$endif UseDUP} {$endif UseDUP}
ChangeErrorRedir:=True; ChangeErrorRedir:=True;
{$endif} {$endif}
RedirErrorChanged:=True;
end; end;
{............................................................................} {............................................................................}
@ -300,7 +302,7 @@ Begin
IOStatus:=0; IOStatus:=0;
{$ifdef in_dos} {$ifdef in_dos}
if RedirStdOut<>'' then if RedirStdOut<>'' then
RedirChanged:=ChangeRedir(RedirStdOut,false); ChangeRedir(RedirStdOut,false);
if RedirStdErr<>'stderr' then if RedirStdErr<>'stderr' then
RedirErrorChanged:=ChangeErrorRedir(RedirStdErr,false); RedirErrorChanged:=ChangeErrorRedir(RedirStdErr,false);
DosExecute(ProgName,ComLine); DosExecute(ProgName,ComLine);