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

FpDebug: fixes for stack frame search

Browse Source 
(cherry picked from commit 97c7e680b7)
This commit is contained in:
Martin 2023-10-07 14:06:07 +02:00
parent ef3d0d8d54
commit ed52d68381
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgdisasx86.pp
View File

@ -5221,7 +5221,7 @@ function TX86AsmDecoder.UnwindFrame(var AnAddress, AStackPtr,
function IsRegister(Val, Reg: String): boolean;
begin
Result := (Length(val) >= 2) and (val[1] in ['r', 'e']) and (strlcomp(@Val[2], PChar(Reg), Length(Reg)) = 0);
Result := (Length(Val) = Length(Reg) + 1) and (Length(val) >= 2) and (val[1] in ['r', 'e']) and (strlcomp(@Val[2], PChar(Reg), Length(Reg)) = 0);
end;
function RegisterSize(Reg: String): Cardinal;
begin
@ -5258,7 +5258,9 @@ begin
instr := TX86AsmInstruction(GetInstructionInfo(NewAddr));
if instr.InstructionLength <= 0 then
exit;
{$PUSH}{$R-}{$Q-}
NewAddr := NewAddr + instr.InstructionLength;
{$POP}
CurAddr := @instr.FCodeBin[0];
case instr.X86OpCode of