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

Debugger: Do not crash IDE, if gdb.exe is invalid

Browse Source 
git-svn-id: trunk@42542 -
This commit is contained in:
martin 2013-09-01 13:34:39 +00:00
parent 5fc821cfef
commit 05147efc44
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/cmdlinedebugger.pp
View File

@ -338,8 +338,12 @@ begin
end; end;
if not FDbgProcess.Running if not FDbgProcess.Running
then begin then begin
FDbgProcess.Execute; try
DebugLn('[TCmdLineDebugger] Debug PID: ', IntToStr(FDbgProcess.Handle)); FDbgProcess.Execute;
DebugLn('[TCmdLineDebugger] Debug PID: ', IntToStr(FDbgProcess.Handle));
except
on E: Exception do DebugLn('Exeption while executing debugger: ', E.Message);
end;
end; end;
Result := FDbgProcess.Running; Result := FDbgProcess.Running;
end; end;