paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:29:16 +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

10
compiler/verbose.pas
View File

@ -424,15 +424,21 @@ end;
procedure DoneVerbose; procedure DoneVerbose;
begin begin
if not(msg=nil) then if assigned(msg) then
begin
dispose(msg,Done); dispose(msg,Done);
msg:=nil;
end;
end; end;
end. end.
{ {
$Log$ $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.currentmodule is now also updated
+ status.currentsourcepath + status.currentsourcepath