paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 13:17:12 +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);
ChangeBounds(r);
{ remove infost and line }
Delete(CurrSt);
Delete(InfoSt);
Delete(LineSt);
Dispose(CurrSt,Done);
CurrSt:=nil;
Dispose(InfoSt,Done);
InfoSt:=nil;
Dispose(LineSt,Done);
LineSt:=nil;
end;
CompileShowed:=b;
{ update all windows }
@ -421,6 +424,7 @@ end;
destructor TCompilerMessageWindow.Done;
begin
SetCompileShow(false);
CompilerMessageWindow:=nil;
inherited Done;
end;
@ -804,7 +808,12 @@ end;
end.
{
$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
Revision 1.19 1999/03/19 16:04:27 peter