paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 20:40:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Testcase, fix mem leak

Browse Source
This commit is contained in:
Martin 2022-09-10 21:40:28 +02:00
parent 712b3e161d
commit ddd2194c61
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazdebuggers/lazdebuggerfp/test/testwatches.pas
View File

@ -3857,6 +3857,7 @@ begin
AssertTrue('Start debugger', Debugger.StartDebugger(AppDir, ExeName));
AnExpressionScope := nil;
try
BrkPrg := Debugger.SetBreakPoint(Src, 'Prg');
AssertDebuggerNotInErrorState;
@ -3922,12 +3923,12 @@ begin
APasExpr.Free;
end;
finally
AnExpressionScope.ReleaseReference;
Debugger.RunToNextPause(dcStop);
Debugger.ClearDebuggerMonitors;
Debugger.FreeDebugger;