paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 21:09:30 +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

33
components/fpdebug/fpdbgdisasx86.pp
View File

@ -4670,22 +4670,31 @@ begin
OperIdx := 0;
SimdOpcode := soInvalid;
DoDisassemble;
try
DoDisassemble;
Instruction^.OperCnt := OperIdx;
Instruction^.ParseFlags := Flags;
Instruction^.MaskIndex := Vex.MaskIndex;
Instruction^.OperCnt := OperIdx;
Instruction^.ParseFlags := Flags;
Instruction^.MaskIndex := Vex.MaskIndex;
if flagModRM in Flags then Inc(CodeIdx);
if flagSib in Flags then Inc(CodeIdx);
if flagModRM in Flags then Inc(CodeIdx);
if flagSib in Flags then Inc(CodeIdx);
for n := 1 to OperIdx do
begin
AnInstruction.Operand[n].CodeIndex := CodeIdx;
Inc(CodeIdx, AnInstruction.Operand[n].ByteCount);
Inc(CodeIdx, AnInstruction.Operand[n].ByteCount2);
for n := 1 to OperIdx do
begin
AnInstruction.Operand[n].CodeIndex := CodeIdx;
Inc(CodeIdx, AnInstruction.Operand[n].ByteCount);
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;
Inc(AAddress, CodeIdx);
end;
{ TX86AsmInstruction }