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

FpDebug: fix MaskBreakpointsInReadData. Don't remove non-set breakpoints

Browse Source
This commit is contained in:
Martin 2023-11-28 14:01:43 +01:00
parent 55475340ca
commit 0922a747d7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgclasses.pp
View File

@ -1469,7 +1469,7 @@ var
Brk: TBreakLocationEntry; Brk: TBreakLocationEntry;
begin begin
for Brk in Self do begin for Brk in Self do begin
if (Brk.Location >= AAdress) and (Brk.Location < (AAdress+ASize)) then if (not Brk.ErrorSetting) and (Brk.Location >= AAdress) and (Brk.Location < (AAdress+ASize)) then
PByte(@AData)[Brk.Location-AAdress] := Brk.OrigValue; PByte(@AData)[Brk.Location-AAdress] := Brk.OrigValue;
end; end;
end; end;