forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix possible range violation while interpreting FPU registers

This commit is contained in:
Basile Burg 2018-01-20 00:42:21 +01:00
parent 9bea125d29
commit 64debff767
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/ce_gdb.pas
View File

@ -2107,6 +2107,7 @@ var
signame: string; signame: string;
brkreason: TCEDebugBreakReason; brkreason: TCEDebugBreakReason;
// FPU // FPU
fpustr: string;
fFpuExtended: extended; fFpuExtended: extended;
fFpuRaw: array[0..9] of Byte absolute fFpuExtended; fFpuRaw: array[0..9] of Byte absolute fFpuExtended;
begin begin
@ -2274,16 +2275,21 @@ begin
end; end;
stOffset..stOffset+7: stOffset..stOffset+7:
begin begin
fFpuRaw[9] := StrToInt('$' + val.AsString[3..4]); fpustr := val.AsString;
fFpuRaw[8] := StrToInt('$' + val.AsString[5..6]); fpustr := fpustr[3..fpustr.length];
fFpuRaw[7] := StrToInt('$' + val.AsString[7..8]); if fpustr.length < 20 then
fFpuRaw[6] := StrToInt('$' + val.AsString[9..10]); while fpustr.length < 20 do
fFpuRaw[5] := StrToInt('$' + val.AsString[11..12]); fpustr += '0';
fFpuRaw[4] := StrToInt('$' + val.AsString[13..14]); fFpuRaw[9] := StrToInt('$' + fpustr[1..2]);
fFpuRaw[3] := StrToInt('$' + val.AsString[15..16]); fFpuRaw[8] := StrToInt('$' + fpustr[3..4]);
fFpuRaw[2] := StrToInt('$' + val.AsString[17..18]); fFpuRaw[7] := StrToInt('$' + fpustr[5..6]);
fFpuRaw[1] := StrToInt('$' + val.AsString[19..20]); fFpuRaw[6] := StrToInt('$' + fpustr[7..8]);
fFpuRaw[0] := StrToInt('$' + val.AsString[21..22]); fFpuRaw[5] := StrToInt('$' + fpustr[9..10]);
fFpuRaw[4] := StrToInt('$' + fpustr[11..12]);
fFpuRaw[3] := StrToInt('$' + fpustr[13..14]);
fFpuRaw[2] := StrToInt('$' + fpustr[15..16]);
fFpuRaw[1] := StrToInt('$' + fpustr[17..18]);
fFpuRaw[0] := StrToInt('$' + fpustr[19..20]);
fInspState.FPU.setInspectableRegister fInspState.FPU.setInspectableRegister
(TFpuRegister(number - stOffset), fFpuExtended); (TFpuRegister(number - stOffset), fFpuExtended);
end; end;