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

FpDebug: mask range check

Browse Source
This commit is contained in:
Martin 2024-11-08 20:07:14 +01:00
parent 4a2319c986
commit eeca861ba4
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgclasses.pp
View File

@ -1693,11 +1693,13 @@ var
begin
for MapEnumData in BreakMap do begin
// Does break instruction fall completely outside AData
{$PUSH}{$R-}{$Q-}
if (MapEnumData.Location + SizeOf(_BRK_STORE) <= AAdress) or
(MapEnumData.Location >= (AAdress + ASize)) or
(MapEnumData.MapDataPtr^.ErrorSetting)
then
continue;
{$POP}
if (MapEnumData.Location >= AAdress) and (MapEnumData.Location + SizeOf(_BRK_STORE) <= (AAdress + ASize)) then begin
// Breakpoint is completely inside AData