paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 15:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

GDB: better display of data with repeat count

Browse Source 
git-svn-id: trunk@47595 -
This commit is contained in:
martin 2015-02-06 02:05:51 +00:00
parent d2dc7a43e6
commit edf313e023
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazdebuggergdbmi/gdbtypeinfo.pp
View File

@ -2817,7 +2817,10 @@ var
FExprEvaluatedAsText := FExprEvaluatedAsText + ', ';
FExprEvaluatedAsText := FExprEvaluatedAsText + s;
FFields.Add(TDBGField.Create(IntToStr(FBoundLow + i), FArrayIndexValues[i], flPublic));
if FRepeatFirstIndex <> 0
then m := FRepeatFirstIndex
else m := FBoundLow;
FFields.Add(TDBGField.Create(IntToStr(m + i), FArrayIndexValues[i], flPublic));
end;
if Length(FArrayIndexValues) < FLen then
FExprEvaluatedAsText := FExprEvaluatedAsText + ', ...';
@ -2972,6 +2975,7 @@ var
s: String;
Idx: Int64;
Error: word;
i: Integer;
begin
FProcessState := gtpsEvalExprRepeated;
@ -2995,6 +2999,10 @@ var
exit;
end;
FExprEvaluatedAsText := FRepeatCountEval.ExprEvaluatedAsText;
FFields.Free;
FFields := TDBGFields.Create;
for i := 0 to FRepeatCountEval.Fields.Count - 1 do
FFields.Add(FRepeatCountEval.Fields[i]);
FHasExprEvaluatedAsText := True;
FreeAndNil(FRepeatCountEval);
Result := True;