paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 02:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazdebugger: fixed mem leak SetSoftwareExceptionBreakpoint

Browse Source 
git-svn-id: trunk@46952 -
This commit is contained in:
mattias 2014-11-22 00:37:59 +00:00
parent 3b64b2922b
commit 39eddb6bfb
1 changed files with 6 additions and 1 deletions

7
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -1310,6 +1310,7 @@ function TFpDebugDebugger.SetSoftwareExceptionBreakpoint: boolean;
var
AContext: TFpDbgInfoContext;
AValue: TFpDbgValue;
AnAddr: TDBGPtr;
begin
result := false;
if assigned(FDbgController.CurrentProcess.SymbolTableInfo) then
@ -1320,7 +1321,9 @@ begin
AValue := AContext.FindSymbol('FPC_RAISEEXCEPTION');
if assigned(AValue) then
begin
FRaiseExceptionBreakpoint := AddBreak(AValue.Address.Address);
AnAddr:=AValue.Address.Address;
AValue.ReleaseReference;
FRaiseExceptionBreakpoint := AddBreak(AnAddr);
if assigned(FRaiseExceptionBreakpoint) then
result := True;
end;
@ -1735,6 +1738,8 @@ end;
destructor TFpDebugDebugger.Destroy;
begin
if FLogAsyncQueued or FWatchAsyncQueued then
debugln(['WARNING: TFpDebugDebugger.Destroy FLogAsyncQueued=',FLogAsyncQueued,' FWatchAsyncQueued=',FWatchAsyncQueued]);
Application.RemoveAsyncCalls(Self);
if assigned(FFpDebugThread) then
FreeDebugThread;