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

DebuggerGdbMI: Fixed Win-64bit Step-to-exception for ignored exception, the except block must be skipped / Fixed clearing temp breakpoints

Browse Source 
git-svn-id: trunk@62322 -
This commit is contained in:
martin 2019-12-03 22:11:56 +00:00
parent 59b37b9fc9
commit 9fbffccd0d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -7066,7 +7066,7 @@ var
exit; exit;
end; end;
// SEH // SEH
srSehCatches, srSehFinally: begin srSehFinally: begin
DoEndStepping; DoEndStepping;
exit; exit;
end; end;
@ -12973,6 +12973,7 @@ begin
FList.List^[i].FCount := FList.List^[i].FCount + 1; FList.List^[i].FCount := FList.List^[i].FCount + 1;
if ABasePtr <> 0 then if ABasePtr <> 0 then
FList.List^[i].AddBasePointer(ABasePtr); FList.List^[i].AddBasePointer(ABasePtr);
exit;
end; end;
E.FCount := 1; E.FCount := 1;