paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 07:00:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Disassemble fixed/remove data for wrong annotations, if value is indirect or relative to register

Browse Source
This commit is contained in:
Martin 2023-03-19 21:54:58 +01:00
parent 8b93d1018e
commit c56eb62226
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/fpdebug/fpdbgdisasx86.pp
View File

@ -4995,7 +4995,8 @@ begin
if (Instr.OpCode.Opcode in [OPcall, OPj__, OPjcxz, OPjecxz, OPjmp, OPjmpe, OPjrcxz]) and if (Instr.OpCode.Opcode in [OPcall, OPj__, OPjcxz, OPjecxz, OPjmp, OPjmpe, OPjrcxz]) and
(Instr.OperCnt = 1) and (Instr.OperCnt = 1) and
(hvfSigned in Instr.Operand[1].FormatFlags) (hvfSigned in Instr.Operand[1].FormatFlags) and
(Instr.Operand[1].Value = '%s') // no register
then begin then begin
TargetAddrOffs := 1; TargetAddrOffs := 1;
case Instr.Operand[1].ByteCount of case Instr.Operand[1].ByteCount of