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

FpDebug: Clean up. Remove ValueSymbol => same as DbgSymbol

Browse Source 
git-svn-id: trunk@61924 -
This commit is contained in:
martin 2019-09-26 16:37:25 +00:00
parent 9c280bd0e3
commit ca3bcf9fa2
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpdebug/fpdbgdwarf.pas
View File

@ -205,7 +205,6 @@ type
ASource: TFpValue): Boolean; // Used for Typecast ASource: TFpValue): Boolean; // Used for Typecast
// StructureValue: Any Value returned via GetMember points to its structure // StructureValue: Any Value returned via GetMember points to its structure
property StructureValue: TFpValueDwarf read FStructureValue write SetStructureValue; property StructureValue: TFpValueDwarf read FStructureValue write SetStructureValue;
property ValueSymbol: TFpSymbolDwarfData read FDataSymbol; // Same as DbgSymbol
end; end;
TFpValueDwarfUnknown = class(TFpValueDwarf) TFpValueDwarfUnknown = class(TFpValueDwarf)

2
components/fpdebug/fppascalbuilder.pas
View File

@ -740,7 +740,7 @@ function TFpPascalPrettyPrinter.InternalPrintValue(out APrintedValue: String;
APrintedValue := APrintedValue + ': '; APrintedValue := APrintedValue + ': ';
end end
else else
t := TFpValueDwarf(AValue).ValueSymbol; t := AValue.DbgSymbol;
if AFlags * PV_FORWARD_FLAGS <> [] then if AFlags * PV_FORWARD_FLAGS <> [] then
GetTypeName(s, t) GetTypeName(s, t)