paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 11:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: display info about types in watches

Browse Source 
git-svn-id: trunk@61734 -
This commit is contained in:
martin 2019-08-20 18:58:50 +00:00
parent 4c83d18f8d
commit 335f49891d
3 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/debuggerintf/dbgintfbasetypes.pas
View File

@ -25,7 +25,7 @@ type
TDbgSymbolKind = (
skNone, // undefined type
//skType // Not a value, but a type description
skType, // Not a value, but a type description
//skUser, // userdefined type, this sym refers to another sym defined elswhere
//--------------------------------------------------------------------------
skInstance, // the main exe/dll, containing all other syms

2
components/fpdebug/fpdbgdwarf.pas
View File

@ -1458,7 +1458,7 @@ end;
function TFpValueDwarfTypeDefinition.GetKind: TDbgSymbolKind;
begin
Result := skNone;
Result := skType;
end;
function TFpValueDwarfTypeDefinition.GetDbgSymbol: TFpSymbol;

10
components/fpdebug/fppascalbuilder.pas
View File

@ -665,6 +665,15 @@ function TFpPascalPrettyPrinter.InternalPrintValue(out APrintedValue: String;
Result := True;
end;
procedure DoType;
begin
if GetTypeAsDeclaration(APrintedValue, AValue.DbgSymbol) then
APrintedValue := 'type ' + APrintedValue
else
DoUnknown;
Result := True;
end;
procedure DoFunction;
var
s: String;
@ -1133,6 +1142,7 @@ begin
skClass: DoStructure;
skInterface: ;
skArray: DoArray;
skType: DoType;
skNone: DoUnknown;
end;