paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 11:29:19 +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; end;
exit; exit;
end; end;
Result := t2.OrdHighBound - t2.OrdLowBound + 1; if t2.HasBounds then
Result := Integer(t2.OrdHighBound - t2.OrdLowBound + 1);
end; end;
function TFpDwarfValueArray.GetMemberCountEx(AIndex: array of Int64): Integer; function TFpDwarfValueArray.GetMemberCountEx(AIndex: array of Int64): Integer;
@ -3505,7 +3506,7 @@ begin
InitLocParserData.ObjectDataAddrPush := False; InitLocParserData.ObjectDataAddrPush := False;
if assigned(AValueObj) and LocationFromTag(DW_AT_upper_bound, AValueObj, AnAddress, @InitLocParserData, InformationEntry, True) then begin if assigned(AValueObj) and LocationFromTag(DW_AT_upper_bound, AValueObj, AnAddress, @InitLocParserData, InformationEntry, True) then begin
FHighBoundState := rfConst; FHighBoundState := rfConst;
FHighBoundConst := AnAddress.Address; FHighBoundConst := Int64(AnAddress.Address);
end end
else else
begin begin