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

gdebugger, gdbmi: fix stepping over exceptions

Browse Source 
git-svn-id: trunk@56457 -
This commit is contained in:
martin 2017-11-21 12:32:40 +00:00
parent 691aefec4a
commit c0eb5da137
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -6347,6 +6347,8 @@ var
end; end;
ectStepOver, ectStepOverInstruction, ectStepOut, ectStepInto: ectStepOver, ectStepOverInstruction, ectStepOut, ectStepInto:
begin begin
FTheDebugger.FPopExceptStack.EnableOrSetByAddr(Self, True);
FTheDebugger.FCatchesBreak.EnableOrSetByAddr(Self, True);
Result := FStepBreakPoint > 0; Result := FStepBreakPoint > 0;
if Result then if Result then
exit; exit;