paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-16 03:23:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: fix a memory leak I made in TSourceEditor.OnGutterClick

Browse Source 
git-svn-id: trunk@18964 -
This commit is contained in:
paul 2009-03-12 03:39:56 +00:00
parent 0ecf4167d0
commit 09b40cf1b1
1 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/sourceeditor.pp
View File

@ -2088,6 +2088,8 @@ var
begin begin
// create or delete breakpoint // create or delete breakpoint
// find breakpoint mark at line // find breakpoint mark at line
Marks := nil;
try
SourceEditorMarks.GetMarksForLine(FEditor, Line, Marks, MarkCount); SourceEditorMarks.GetMarksForLine(FEditor, Line, Marks, MarkCount);
BreakFound := False; BreakFound := False;
ExecutionFound := False; ExecutionFound := False;
@ -2104,6 +2106,9 @@ begin
if Marks[i] = FExecutionMark then if Marks[i] = FExecutionMark then
ExecutionFound := True; ExecutionFound := True;
end; end;
finally
FreeMem(Marks);
end;
if not BreakFound then if not BreakFound then
DebugBoss.DoCreateBreakPoint(Filename, Line, True); DebugBoss.DoCreateBreakPoint(Filename, Line, True);