#97, only get simple type, fix perf issue

This commit is contained in:
Basile Burg 2016-11-27 12:32:33 +01:00
parent c33d66c060
commit 1e20361c5b
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 3 additions and 1 deletions

View File

@ -1902,6 +1902,8 @@ begin
end;
val := fJson.Find('variables');
if val.isNil then
val := fJson.Find('locals');
if val.isNotNil and (val.JSONType = jtArray) then
begin
i := varList.ItemIndex;
@ -2033,7 +2035,7 @@ end;
procedure TCEGdbWidget.infoVariables;
begin
gdbCommand('-stack-list-variables --skip-unavailable --all-values');
gdbCommand('-stack-list-variables --skip-unavailable --simple-values');
end;
procedure TCEGdbWidget.btnStartClick(Sender: TObject);