paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 04:10:44 +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; end;
var var
SourceEditorMarks: TSourceMarks; SourceEditorMarks: TSourceMarks = nil;
implementation implementation
@ -635,6 +635,8 @@ end;
destructor TSourceMarks.Destroy; destructor TSourceMarks.Destroy;
begin begin
if SourceEditorMarks=Self then
SourceEditorMarks:=nil;
Clear; Clear;
FreeAndNil(FExtToolsMarks); FreeAndNil(FExtToolsMarks);
FreeThenNil(FItems); FreeThenNil(FItems);
@ -820,8 +822,5 @@ begin
Result := FImgList.GetImageIndex(Resname); Result := FImgList.GetImageIndex(Resname);
end; end;
initialization
SourceEditorMarks:=nil;
end. end.