paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 13:20:21 +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 + ', ';
FExprEvaluatedAsText := FExprEvaluatedAsText + s; 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; end;
if Length(FArrayIndexValues) < FLen then if Length(FArrayIndexValues) < FLen then
FExprEvaluatedAsText := FExprEvaluatedAsText + ', ...'; FExprEvaluatedAsText := FExprEvaluatedAsText + ', ...';
@ -2972,6 +2975,7 @@ var
s: String; s: String;
Idx: Int64; Idx: Int64;
Error: word; Error: word;
i: Integer;
begin begin
FProcessState := gtpsEvalExprRepeated; FProcessState := gtpsEvalExprRepeated;
@ -2995,6 +2999,10 @@ var
exit; exit;
end; end;
FExprEvaluatedAsText := FRepeatCountEval.ExprEvaluatedAsText; FExprEvaluatedAsText := FRepeatCountEval.ExprEvaluatedAsText;
FFields.Free;
FFields := TDBGFields.Create;
for i := 0 to FRepeatCountEval.Fields.Count - 1 do
FFields.Add(FRepeatCountEval.Fields[i]);
FHasExprEvaluatedAsText := True; FHasExprEvaluatedAsText := True;
FreeAndNil(FRepeatCountEval); FreeAndNil(FRepeatCountEval);
Result := True; Result := True;