paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 05:30:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
(cherry picked from commit 0922a747d7)
This commit is contained in:
Martin 2023-11-28 14:01:43 +01:00
parent 804ca7b377
commit 5501549f2a
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

@ -1424,7 +1424,7 @@ var
Brk: TBreakLocationEntry;
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;
end;
end;