paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 08:59:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

debugger: show variant array type on varArray variant evaluation

Browse Source 
git-svn-id: trunk@22960 -
This commit is contained in:
paul 2009-12-04 14:33:19 +00:00
parent 9d023d97f7
commit 378fa711b4
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
debugger/gdbmidebugger.pp
View File

@ -37,7 +37,7 @@ unit GDBMIDebugger;
interface
uses
Classes, SysUtils, LCLProc, Dialogs, LazConf, DebugUtils, Debugger,
Classes, SysUtils, Variants, LCLProc, Dialogs, LazConf, DebugUtils, Debugger,
FileUtil, CmdLineDebugger, GDBTypeInfo, Maps,
{$IFdef MSWindows}
Windows,
@ -2119,13 +2119,14 @@ function TGDBMIDebugger.GDBEvaluate(const AExpression: String; var AResult: Stri
end;
varany: Result := VarList.Values['VANY'];
else
Result := 'unsupported variant type: ' + IntToStr(VType);
Result := 'unsupported variant type: ' + VarTypeAsText(VType);
end;
end;
varArray:
begin
Result := VarList.Values['VARRAY'];
Result := 'variant array ' + Result + ': no debugger support yet'
Result := VarTypeAsText(VType);
// TODO: show variant array data?
// Result := VarList.Values['VARRAY'];
end;
varByRef:
begin
@ -2170,13 +2171,13 @@ function TGDBMIDebugger.GDBEvaluate(const AExpression: String; var AResult: Stri
varqword: Result := GetStrValue('pqword(%s)^', [Result]);
varstring: Result := MakePrintable(GetText('pansistring(%s)^', [Result]));
else
Result := 'unsupported variant type: ' + IntToStr(VType);
Result := 'unsupported variant type: ' + VarTypeAsText(VType);
end;
end;
end;
end;
else
Result := 'unsupported variant type: ' + IntToStr(VType);
Result := 'unsupported variant type: ' + VarTypeAsText(VType);
end;
finally
VarList.Free;