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

FpDebugger (pure): Solved AV when the debuggee already has been stopped when a breakpoint is freed.

Browse Source 
git-svn-id: trunk@45935 -
This commit is contained in:
joost 2014-07-20 17:50:19 +00:00
parent 70300be121
commit fef936b68e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -573,7 +573,7 @@ end;
destructor TFPBreakpoint.Destroy; destructor TFPBreakpoint.Destroy;
begin begin
if (Debugger.State = dsRun) and assigned(FInternalBreakpoint) then if assigned(Debugger) and (Debugger.State = dsRun) and assigned(FInternalBreakpoint) then
begin begin
TFPBreakpoints(Collection).AddBreakpointToDelayedRemoveList(FInternalBreakpoint); TFPBreakpoints(Collection).AddBreakpointToDelayedRemoveList(FInternalBreakpoint);
FInternalBreakpoint:=nil; FInternalBreakpoint:=nil;