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

FpDebug: fixed uninitialized var, could prevent debugger from stopping when app exits

Browse Source 
git-svn-id: trunk@61869 -
This commit is contained in:
martin 2019-09-13 12:09:32 +00:00
parent 55976aef82
commit 85a2eb7321
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpdebug/fpdbgcontroller.pas
View File

@ -854,18 +854,15 @@ begin
FCurrentProcess.FormatAddress(FCurrentThread.GetStackPointerRegisterValue),
FCurrentProcess.FormatAddress(FCurrentThread.GetStackBasePointerRegisterValue),
dbgs(CurrentProcess.CurrentBreakpoint<>nil)]);
IsHandled:=false;
IsFinished:=false;
if FPDEvent=deExitProcess then
FreeAndNil(FCommand)
else
if assigned(FCommand) then
begin
begin
FCommand.ResolveEvent(FPDEvent, IsHandled, IsFinished);
DebugLn(FPDBG_COMMANDS, 'Command %s: IsFinished=%s, IsHandled=%s', [FCommand.ClassName, dbgs(IsFinished), dbgs(IsHandled)])
end
else
begin
IsHandled:=false;
IsFinished:=false;
end;
AExit:=true;