paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 14:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: fix commit 59943 #31fe8e6955 / open-array bounds

Browse Source 
git-svn-id: trunk@59959 -
This commit is contained in:
martin 2018-12-31 14:26:38 +00:00
parent ff82fa5222
commit 52dda0c955
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgdwarffreepascal.pas
View File

@ -560,8 +560,8 @@ begin
if UpperBoundSym <> nil then begin
val := UpperBoundSym.Value;
TFpDwarfValue(val).Context := Context;
l := Val.AsInteger;
h := t2.OrdLowBound;
l := t2.OrdLowBound;
h := Val.AsInteger;
if h > l then begin
if h - l > 5000 then
h := l + 5000;