* don't open error file twice but close it first if necessary

git-svn-id: trunk@5340 -
This commit is contained in:
florian 2006-11-12 16:00:01 +00:00
parent 2162f63def
commit d80bfc692d

View File

@ -145,11 +145,18 @@ var
procedure SetRedirectFile(const fn:string); procedure SetRedirectFile(const fn:string);
begin begin
{ close old redirection file because FileRedirection is handled in both passes }
if status.use_redir then
close(status.redirfile);
assign(status.redirfile,fn); assign(status.redirfile,fn);
{$I-} {$I-}
append(status.redirfile); append(status.redirfile);
if ioresult <> 0 then if ioresult <> 0 then
begin
assign(status.redirfile,fn);
rewrite(status.redirfile); rewrite(status.redirfile);
end;
{$I+} {$I+}
status.use_redir:=(ioresult=0); status.use_redir:=(ioresult=0);
end; end;