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

LazDebuggerFp (pure): do not crash range check

Browse Source 
git-svn-id: trunk@44635 -
This commit is contained in:
martin 2014-04-07 16:57:19 +00:00
parent f3e4622b30
commit 8536f38448
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

@ -198,7 +198,7 @@ end;
procedure TFpDebugDebugger.FDbgControllerProcessExitEvent(AExitCode: DWord); procedure TFpDebugDebugger.FDbgControllerProcessExitEvent(AExitCode: DWord);
begin begin
SetExitCode(AExitCode); SetExitCode(Integer(AExitCode));
DoDbgEvent(ecProcess, etProcessExit, Format('Process exited with exit-code %d',[AExitCode])); DoDbgEvent(ecProcess, etProcessExit, Format('Process exited with exit-code %d',[AExitCode]));
FreeDebugThread; FreeDebugThread;
SetState(dsStop); SetState(dsStop);