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

FpDebug: Fix calculating length of open array param

Browse Source 
git-svn-id: trunk@62018 -
This commit is contained in:
martin 2019-10-10 01:01:43 +00:00
parent a43265e3af
commit 6fb009a232
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpdebug/fpdbgdwarffreepascal.pas
View File

@ -884,15 +884,14 @@ begin
if UpperBoundSym <> nil then begin
val := UpperBoundSym.Value;
TFpValueDwarf(val).Context := Context;
//l := t2.OrdLowBound;
h := Val.AsInteger;
val.ReleaseReference;
if h > l then begin
if h >= 0 then begin
{$PUSH}{$Q-}
if QWord(h - l) > 5000 then
h := l + 5000;
if QWord(h) > 5000 - 1 then
h := 5000 - 1;
{$POP}
Result := h - l + 1;
Result := h + 1;
end
else
Result := 0;