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

DBG: fix an assert, if changing debugger-type (none vs gdb)

Browse Source 
git-svn-id: trunk@34665 -
This commit is contained in:
martin 2012-01-08 15:20:13 +00:00
parent 97cf2bf30c
commit 2de2216314
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/debugmanager.pas
View File

@ -2082,6 +2082,7 @@ begin
if EnvironmentOptions.DebuggerEventLogClearOnRun then if EnvironmentOptions.DebuggerEventLogClearOnRun then
ClearDebugEventsLog; ClearDebugEventsLog;
//ensure to unset all evemts in SetDebugger()
FDebugger.OnBreakPointHit := @DebuggerBreakPointHit; FDebugger.OnBreakPointHit := @DebuggerBreakPointHit;
FDebugger.OnBeforeState := @DebuggerBeforeChangeState; FDebugger.OnBeforeState := @DebuggerBeforeChangeState;
FDebugger.OnState := @DebuggerChangeState; FDebugger.OnState := @DebuggerChangeState;
@ -2636,6 +2637,19 @@ begin
FRunTimer.Enabled:=false; FRunTimer.Enabled:=false;
Exclude(FManagerStates,dmsWaitForRun); Exclude(FManagerStates,dmsWaitForRun);
if FDebugger <> nil then begin
FDebugger.OnBreakPointHit := nil;
FDebugger.OnBeforeState := nil;
FDebugger.OnState := nil;
FDebugger.OnCurrent := nil;
FDebugger.OnDbgOutput := nil;
FDebugger.OnDbgEvent := nil;
FDebugger.OnException := nil;
FDebugger.OnConsoleOutput := nil;
FDebugger.OnFeedback := nil;
FDebugger.OnIdle := nil;
end;
FDebugger := ADebugger; FDebugger := ADebugger;
if FDebugger = nil if FDebugger = nil
then begin then begin