paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 21:28:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@5340 -
This commit is contained in:
florian 2006-11-12 16:00:01 +00:00
parent 2162f63def
commit d80bfc692d
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/verbose.pas
View File

@ -145,12 +145,19 @@ var
procedure SetRedirectFile(const fn:string);
begin
{ close old redirection file because FileRedirection is handled in both passes }
if status.use_redir then
close(status.redirfile);
assign(status.redirfile,fn);
{$I-}
append(status.redirfile);
if ioresult <> 0 then
rewrite(status.redirfile);
{$I+}
{$I-}
append(status.redirfile);
if ioresult <> 0 then
begin
assign(status.redirfile,fn);
rewrite(status.redirfile);
end;
{$I+}
status.use_redir:=(ioresult=0);
end;
@ -384,7 +391,7 @@ var
status.currentmodule:=module.modulename^;
status.currentsource:=module.sourcefiles.get_file_name(current_filepos.fileindex);
status.currentsourcepath:=module.sourcefiles.get_file_path(current_filepos.fileindex);
{ update lastfileidx only if name known PM }
if status.currentsource<>'' then
lastfileidx:=current_filepos.fileindex