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

fpdebug: check for bounds, before accessing

Browse Source 
git-svn-id: trunk@49086 -
This commit is contained in:
martin 2015-05-18 20:11:13 +00:00
parent 2c26f71ea9
commit 311acd5b58
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fpdbgdwarf.pas
View File

@ -2648,7 +2648,8 @@ begin
end;
exit;
end;
Result := t2.OrdHighBound - t2.OrdLowBound + 1;
if t2.HasBounds then
Result := Integer(t2.OrdHighBound - t2.OrdLowBound + 1);
end;
function TFpDwarfValueArray.GetMemberCountEx(AIndex: array of Int64): Integer;
@ -3505,7 +3506,7 @@ begin
InitLocParserData.ObjectDataAddrPush := False;
if assigned(AValueObj) and LocationFromTag(DW_AT_upper_bound, AValueObj, AnAddress, @InitLocParserData, InformationEntry, True) then begin
FHighBoundState := rfConst;
FHighBoundConst := AnAddress.Address;
FHighBoundConst := Int64(AnAddress.Address);
end
else
begin