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

LazDebuggerGdbmi: Win64-SEH, fix stepping out of finally block, if the block was entered without exception

Browse Source 
git-svn-id: trunk@62333 -
This commit is contained in:
martin 2019-12-07 02:00:04 +00:00
parent c22ac41cb7
commit f8622385f7
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -7033,6 +7033,12 @@ var
// Did we just leave an SEH finally block?
if (FStepStartedInFinSub = sfsStepExited) and (FTheDebugger.FStoppedReason = srNone) then begin
if (UpperCase(FTheDebugger.FCurrentLocation.FuncName) <> '__FPC_SPECIFIC_HANDLER') and
(FTheDebugger.FCurrentLocation.SrcFile <> '')
then begin
DoEndStepping;
exit;
end;
// run to next finally
if ExecuteCommand('-data-read-memory $pc-2 x 1 1 2', [], R, [cfNoThreadContext, cfNoStackContext, cfNoMemLimits]) and
(r.State <> dsError)
@ -7045,14 +7051,18 @@ var
then begin
FTheDebugger.FFpcSpecificHandlerCallFin.Clear(Self);
FTheDebugger.FFpcSpecificHandlerCallFin.SetAtCustomAddr(Self, MemDump.Addr);
end;
FStepStartedInFinSub := sfsNone;
FCurrentExecCmd := ectContinue;
EnableFpcSpecificHandler;
Result := True;
end
else
DoEndStepping;
MemDump.Free;
end
else begin
DoEndStepping;
end;
FStepStartedInFinSub := sfsNone;
FCurrentExecCmd := ectContinue;
EnableFpcSpecificHandler;
Result := True;
exit;
end;
@ -7393,7 +7403,7 @@ begin
else
CheckWin64StepOverFinally; // Finally is in a subroutine, and may need step into
if (FExecType in [ectRunTo, ectStepOver{, ectStepInto}, ectStepOut, ectStepOverInstruction {, ectStepIntoInstruction}]) and
if (FExecType in [ectRunTo, ectStepOver, ectStepInto, ectStepOut, ectStepOverInstruction {, ectStepIntoInstruction}]) and
(ieRaiseBreakPoint in TGDBMIDebuggerPropertiesBase(FTheDebugger.GetProperties).InternalExceptionBreakPoints)
then
FTheDebugger.FReRaiseBreak.EnableOrSetByAddr(Self, True)