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

Ensure ErrNo is within the limits of Integer to prevent range error when ReadUnsignedInt returns false.

Browse Source
This commit is contained in:
ccrause 2024-02-25 17:34:39 +02:00 committed by Martin
parent 0375bb8ae9
commit d30cfb0a95
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -3761,8 +3761,10 @@ begin
SizeVal(SizeOf(LongInt)), ErrNo)
then
ExceptName := Format('RunError(%d)', [ErrNo])
else
else begin
ExceptName := 'RunError(unknown)';
ErrNo := 0;
end;
ExceptItem := Exceptions.Find(ExceptName);
if (ExceptItem <> nil) and (ExceptItem.Enabled)
@ -3797,8 +3799,10 @@ begin
SizeVal(SizeOf(Word)), ErrNo)
then
ExceptName := Format('RunError(%d)', [ErrNo])
else
else begin
ExceptName := 'RunError(unknown)';
ErrNo := 0;
end;
ExceptItem := Exceptions.Find(ExceptName);
if (ExceptItem <> nil) and (ExceptItem.Enabled)