paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 11:37:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

* CurrSt,InfoSt and LineSt were not disposed correctly in done

Browse Source 
* TComiplerMessage destructor first calls SetCompileShow(false)
    to get proper cleaning up
This commit is contained in:
pierre 1999-04-01 10:15:17 +00:00
parent 99562698de
commit f3cdaf7608
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/text/fpcompil.pas
View File

@ -299,9 +299,12 @@ begin
inc(r.b.y,r.a.y-4); inc(r.b.y,r.a.y-4);
ChangeBounds(r); ChangeBounds(r);
{ remove infost and line } { remove infost and line }
Delete(CurrSt); Dispose(CurrSt,Done);
Delete(InfoSt); CurrSt:=nil;
Delete(LineSt); Dispose(InfoSt,Done);
InfoSt:=nil;
Dispose(LineSt,Done);
LineSt:=nil;
end; end;
CompileShowed:=b; CompileShowed:=b;
{ update all windows } { update all windows }
@ -421,6 +424,7 @@ end;
destructor TCompilerMessageWindow.Done; destructor TCompilerMessageWindow.Done;
begin begin
SetCompileShow(false);
CompilerMessageWindow:=nil; CompilerMessageWindow:=nil;
inherited Done; inherited Done;
end; end;
@ -804,7 +808,12 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.20 1999-03-23 16:16:38 peter Revision 1.21 1999-04-01 10:15:17 pierre
* CurrSt,InfoSt and LineSt were not disposed correctly in done
* TComiplerMessage destructor first calls SetCompileShow(false)
to get proper cleaning up
Revision 1.20 1999/03/23 16:16:38 peter
* linux fixes * linux fixes
Revision 1.19 1999/03/19 16:04:27 peter Revision 1.19 1999/03/19 16:04:27 peter