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

FpDebugger (pure): If the debugger failed to start, clear TDebuggerIntf.FileName to make sure the state of the debugger is set properly on the next start.

Browse Source 
git-svn-id: trunk@45599 -
This commit is contained in:
joost 2014-06-22 08:34:03 +00:00
parent 4af1d3acba
commit 5ca2fb27e0
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1177,6 +1177,11 @@ begin
result := FFpDebugThread.StartSuccesfull;
if not result then
begin
// TDebuggerIntf.SetFileName has set the state to dsStop, to make sure
// that dcRun could be requested. Reset the filename so that the state
// is set to dsIdle again and is set to dsStop on the next try
// to run.
FileName := '';
FreeDebugThread;
Exit;
end;