paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 19:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* doneverbose sets msg to nil

Browse Source
This commit is contained in:
peter 1999-01-15 16:08:21 +00:00
parent 7838e830a5
commit 951c1707d1
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/verbose.pas
View File

@ -424,15 +424,21 @@ end;
procedure DoneVerbose;
begin
if not(msg=nil) then
dispose(msg,Done);
if assigned(msg) then
begin
dispose(msg,Done);
msg:=nil;
end;
end;
end.
{
$Log$
Revision 1.33 1999-01-14 21:47:10 peter
Revision 1.34 1999-01-15 16:08:21 peter
* doneverbose sets msg to nil
Revision 1.33 1999/01/14 21:47:10 peter
* status.currentmodule is now also updated
+ status.currentsourcepath