paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 08:41:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

dbg(gdbserver): reset gdb after use

Browse Source 
git-svn-id: trunk@42411 -
This commit is contained in:
martin 2013-08-16 12:19:39 +00:00
parent bd29b651ed
commit 2df276e409
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/debugmanager.pas
View File

@ -1239,7 +1239,7 @@ begin
EnvironmentOptions.DebuggerShowStopMessage:=false; EnvironmentOptions.DebuggerShowStopMessage:=false;
end; end;
if EnvironmentOptions.DebuggerResetAfterRun then if EnvironmentOptions.DebuggerResetAfterRun or FDebugger.NeedReset then
ResetDebugger ResetDebugger
else else
FDebugger.FileName := ''; // SetState(dsIdle) via ResetStateToIdle FDebugger.FileName := ''; // SetState(dsIdle) via ResetStateToIdle
@ -2213,6 +2213,7 @@ begin
if (FDebugger <> nil) if (FDebugger <> nil)
and (not (FDebugger.ClassType = NewDebuggerClass) // exact class match and (not (FDebugger.ClassType = NewDebuggerClass) // exact class match
or (FDebugger.ExternalDebugger <> EnvironmentOptions.GetParsedDebuggerFilename) or (FDebugger.ExternalDebugger <> EnvironmentOptions.GetParsedDebuggerFilename)
or (FDebugger.State in [dsError])
) )
then begin then begin
// the current debugger is the wrong type -> free it // the current debugger is the wrong type -> free it