paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 20:07:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Fixed array len for 64 bit

Browse Source 
git-svn-id: trunk@37368 -
This commit is contained in:
martin 2012-05-20 23:38:26 +00:00
parent 32221ff083
commit c070b17f46
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/gdbtypeinfo.pp
View File

@ -2590,7 +2590,7 @@ var
FBoundHigh := -1;
FLen := -1;
if not RequireRequests([gptrPtypeCustomEval], '^longint('+FExpression+')[-1]') then exit;
if not RequireRequests([gptrPtypeCustomEval], '^^longint('+FExpression+')[-1]') then exit;
if not IsReqError(gptrPtypeCustomEval, False) then begin
FBoundLow := 0;
FBoundHigh := StrToIntDef(GetParsedFromResult(FReqResults[gptrPtypeCustomEval].Result.GdbDescription, 'value'), -1);