paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'xtensa-breakinfo' into 'main'

Browse Source 
[fpdebug] Use byte offset to locate data to be replaced in MaskBreakpointsInReadData.

See merge request freepascal.org/lazarus/lazarus!278
This commit is contained in:
Martin 2024-04-13 23:29:06 +00:00
commit 2c0b888a90
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fpdbgclasses.pp
View File

@ -1625,10 +1625,14 @@ procedure TGenericBreakPointTargetHandler.MaskBreakpointsInReadData(const AAdres
const ASize: Cardinal; var AData);
var
MapEnumData: TFpBreakPointMap.TFpBreakPointMapEnumerationData;
offset: TDbgPtr;
begin
for MapEnumData in BreakMap do begin
if not HPtr(MapEnumData.TargetHandlerDataPtr)^.ErrorSetting and (MapEnumData.Location >= AAdress) and (MapEnumData.Location < (AAdress+ASize)) then
P_BRK_STORE(@AData)[MapEnumData.Location-AAdress] := HPtr(MapEnumData.TargetHandlerDataPtr)^.OrigValue;
begin
offset := MapEnumData.Location - AAdress;
P_BRK_STORE(@AData + offset)^ := HPtr(MapEnumData.TargetHandlerDataPtr)^.OrigValue;
end;
end;
end;