paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 13:39:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Handle exceptions in disassembler

Browse Source
This commit is contained in:
Martin 2022-06-10 15:18:40 +02:00
parent 8c90f8e536
commit 96271ad5c6
1 changed files with 21 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpdebug/fpdbgdisasx86.pp
View File

@ -4670,6 +4670,7 @@ begin
OperIdx := 0;
SimdOpcode := soInvalid;
try
DoDisassemble;
Instruction^.OperCnt := OperIdx;
@ -4686,6 +4687,14 @@ begin
Inc(CodeIdx, AnInstruction.Operand[n].ByteCount2);
end;
Inc(AAddress, CodeIdx);
except
Instruction := @AnInstruction;
SetOpcode(OPX_Invalid);
Instruction^.Flags := [];
Instruction^.Segment := '';
Instruction^.OperCnt := 0;
inc(AAddress,1);
end;
end;
{ TX86AsmInstruction }