paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 06:12:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fix AV on terminate

Browse Source 
git-svn-id: trunk@58334 -
This commit is contained in:
ondrej 2018-06-19 13:58:11 +00:00
parent 4c6e2b53b3
commit 1dd9410185
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/sourcemarks.pas
View File

@ -256,7 +256,7 @@ type
end;
var
SourceEditorMarks: TSourceMarks;
SourceEditorMarks: TSourceMarks = nil;
implementation
@ -635,6 +635,8 @@ end;
destructor TSourceMarks.Destroy;
begin
if SourceEditorMarks=Self then
SourceEditorMarks:=nil;
Clear;
FreeAndNil(FExtToolsMarks);
FreeThenNil(FItems);
@ -820,8 +822,5 @@ begin
Result := FImgList.GetImageIndex(Resname);
end;
initialization
SourceEditorMarks:=nil;
end.