paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Handle partial overlap between breakpoint data and AData buffer. By CCrause. MR: !279

Browse Source
This commit is contained in:
ccrause 2024-04-14 13:45:28 +02:00 committed by Martin
parent baef7180da
commit b73bed0fed
1 changed files with 37 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
components/fpdebug/fpdbgclasses.pp
View File

@ -1625,13 +1625,45 @@ procedure TGenericBreakPointTargetHandler.MaskBreakpointsInReadData(const AAdres
const ASize: Cardinal; var AData); const ASize: Cardinal; var AData);
var var
MapEnumData: TFpBreakPointMap.TFpBreakPointMapEnumerationData; MapEnumData: TFpBreakPointMap.TFpBreakPointMapEnumerationData;
offset: TDbgPtr; i, len: TDBGPtr;
PtrOrig: Pointer;
begin begin
for MapEnumData in BreakMap do begin for MapEnumData in BreakMap do begin
if not HPtr(MapEnumData.TargetHandlerDataPtr)^.ErrorSetting and (MapEnumData.Location >= AAdress) and (MapEnumData.Location < (AAdress+ASize)) then // Does break instruction fall completely outside AData
begin if (MapEnumData.Location + SizeOf(_BRK_STORE) <= AAdress) or
offset := MapEnumData.Location - AAdress; (MapEnumData.Location >= (AAdress + ASize)) or
P_BRK_STORE(@AData + offset)^ := HPtr(MapEnumData.TargetHandlerDataPtr)^.OrigValue; HPtr(MapEnumData.TargetHandlerDataPtr)^.ErrorSetting then
continue;
if (MapEnumData.Location >= AAdress) and (MapEnumData.Location + SizeOf(_BRK_STORE) <= (AAdress + ASize)) then begin
// Breakpoint is completely inside AData
// MapEnumData.Location >= AAdress
i := MapEnumData.Location - AAdress;
P_BRK_STORE(@AData + i)^ := HPtr(MapEnumData.TargetHandlerDataPtr)^.OrigValue;
end
else
if (MapEnumData.Location < AAdress) then begin
// Breakpoint starts on or partially overlaps with start of AData
// Breakpoint may overhang past end of AData
// AAdress > MapEnumData.Location
i := AAdress - MapEnumData.Location;
// i < SizeOf(_BRK_STORE) / since MapEnumData.Location + SizeOf(_BRK_STORE) > AAdress
len := SizeOf(_BRK_STORE) - i;
// Do not write past end of AData
if len > ASize then
len := ASize;
PtrOrig := @HPtr(MapEnumData.TargetHandlerDataPtr)^.OrigValue;
move(PByte(PtrOrig+i)^, PByte(@AData)^, len);
end
else begin
// Breakpoint partially overlaps with end of AData
// MapEnumData.Location > AAdress
// MapEnumData.Location < AAdress + ASize;
i := MapEnumData.Location - AAdress;
len := ASize - i; // AAdress + ASize - MapEnumData.Location;
PtrOrig := @HPtr(MapEnumData.TargetHandlerDataPtr)^.OrigValue;
move(PByte(PtrOrig)^, PByte(@AData+i)^, len);
end; end;
end; end;
end; end;