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

FpDebug: asm-unwind, follow long jumps

Browse Source
This commit is contained in:
Martin 2025-02-26 18:53:39 +01:00
parent 4b04ea627b
commit bef76faa45
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/fpdebug/fpdbgdisasx86.pp
View File

@ -5695,7 +5695,7 @@ var
var
MaxAddr, StartStack, Tmp: TDBGPtr;
BackwardJumpAddress: TAlternativeAddressPoint;
BackwardJumpAddress, ForwardJumpAddress: TAlternativeAddressPoint;
Cnt: Integer;
instr: TX86AsmInstruction;
RSize: Cardinal;
@ -5711,6 +5711,7 @@ begin
StartStack := AStackPtr;
CurConditionalForwardAddr := -1;
BackwardJumpAddress.Address := 0;
ForwardJumpAddress.Address := 0;
WeakResultAddress := 0;
try
@ -5746,6 +5747,13 @@ begin
ContinueAt(BackwardJumpAddress);
BackwardJumpAddress.Address := 0;
end
else
if (ForwardJumpAddress.Address > 0) and (not AddrWasDone(ForwardJumpAddress.Address)) then begin
ContinueAt(ForwardJumpAddress);
ForwardJumpAddress.Address := 0;
MaxAddr := NewAddr + MAX_SEARCH_ADDR;
MaxAddrCurrentBlock := MaxAddr;
end
else
exit;
StartNextAddrBlock;
@ -6182,6 +6190,13 @@ begin
continue;
end;
if Tmp > MaxAddr then begin
if (ForwardJumpAddress.Address = 0) or (Tmp < ForwardJumpAddress.Address) then
StoreAltAddr(ForwardJumpAddress, Tmp);
ForceDifferentBranch := True;
continue;
end;
FinishCurAddrBlock;
NewAddr := Tmp;
StartNextAddrBlock;