paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-27 03:07:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

debugger: fill TDBGType.Value.AsString for Variant data type

Browse Source 
git-svn-id: trunk@23004 -
This commit is contained in:
paul 2009-12-06 15:46:19 +00:00
parent 992c4e1f24
commit 12a6edefa1
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/gdbmidebugger.pp
View File

@ -2008,6 +2008,9 @@ function TGDBMIDebugger.GDBEvaluate(const AExpression: String; var AResult: Stri
GetPart('','{',ValData); GetPart('','{',ValData);
PutValuesInTypeRecord(ATypeInfo,ValData); PutValuesInTypeRecord(ATypeInfo,ValData);
end; end;
skVariant: begin
ATypeInfo.Value.AsString:=ValData;
end;
// skEnum: ; // skEnum: ;
// skSet: ; // skSet: ;
skSimple: begin skSimple: begin

2
debugger/inspectdlg.pas
View File

@ -136,7 +136,7 @@ begin
GridDataSetup; GridDataSetup;
FGridData.Cells[0,1]:=FExpression; FGridData.Cells[0,1]:=FExpression;
FGridData.Cells[1,1]:='Variant'; FGridData.Cells[1,1]:='Variant';
FGridData.Cells[2,1]:=FHumanReadable; FGridData.Cells[2,1]:=FDBGInfo.Value.AsString;
FGridData.AutoSizeColumn(1); FGridData.AutoSizeColumn(1);
end; end;