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

LazDebuggerFp: Fix removing temp break from "FBreakPoints[bplSehW64Except]". "Rdx" was a copy and paste error, once hit the address is "PC".

Browse Source
This commit is contained in:
Martin 2021-12-07 12:37:56 +01:00
parent 70646c0d65
commit ba63a18843
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -2644,17 +2644,16 @@ begin
AFinishLoopAndSendEvents := False; AFinishLoopAndSendEvents := False;
FBreakPoints[bplSehW64Finally].RemoveAllAddresses; FBreakPoints[bplSehW64Finally].RemoveAllAddresses;
o := FAddressFrameList.IndexOf(PC); o := FAddressFrameList.IndexOf(PC);
Rdx := CurrentThread.RegisterValueList.FindRegisterByDwarfIndex(1).NumValue;
if o >= 0 then begin if o >= 0 then begin
Frames := FAddressFrameList.Data[o]; Frames := FAddressFrameList.Data[o];
Frames.Remove(CurrentThread.GetStackPointerRegisterValue); Frames.Remove(CurrentThread.GetStackPointerRegisterValue);
if Frames.Count = 0 then begin if Frames.Count = 0 then begin
FBreakPoints[bplSehW64Except].RemoveAddress(Rdx); FBreakPoints[bplSehW64Except].RemoveAddress(PC);
FAddressFrameList.Delete(o); FAddressFrameList.Delete(o);
end; end;
end end
else else
FBreakPoints[bplSehW64Except].RemoveAddress(Rdx); FBreakPoints[bplSehW64Except].RemoveAddress(PC);
// TODO: esStepToFinally has "CurrentCommand = nil" and is Running, not stepping => thread not avail // TODO: esStepToFinally has "CurrentCommand = nil" and is Running, not stepping => thread not avail
if (CurrentCommand <> nil) and (CurrentCommand.Thread <> CurrentThread) then if (CurrentCommand <> nil) and (CurrentCommand.Thread <> CurrentThread) then