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

* logfile appended if exists

Browse Source
This commit is contained in:
Tomas Hajny 2000-04-01 10:46:29 +00:00
parent 4909e55df6
commit b65e936773
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/verbose.pas
View File

@ -112,7 +112,9 @@ procedure SetRedirectFile(const fn:string);
begin begin
assign(status.redirfile,fn); assign(status.redirfile,fn);
{$I-} {$I-}
rewrite(status.redirfile); append(status.redirfile);
if ioresult <> 0 then
rewrite(status.redirfile);
{$I+} {$I+}
status.use_redir:=(ioresult=0); status.use_redir:=(ioresult=0);
if status.use_redir then if status.use_redir then
@ -516,7 +518,10 @@ end.
{ {
$Log$ $Log$
Revision 1.49 2000-03-12 08:24:45 daniel Revision 1.50 2000-04-01 10:46:29 hajny
* logfile appended if exists
Revision 1.49 2000/03/12 08:24:45 daniel
* Made check for message file TP compilable. * Made check for message file TP compilable.
Revision 1.48 2000/03/01 22:29:18 peter Revision 1.48 2000/03/01 22:29:18 peter