diff --git a/components/fpdebug/fpdbgdwarf.pas b/components/fpdebug/fpdbgdwarf.pas index 899c183174..115e61951f 100644 --- a/components/fpdebug/fpdbgdwarf.pas +++ b/components/fpdebug/fpdbgdwarf.pas @@ -205,7 +205,6 @@ type ASource: TFpValue): Boolean; // Used for Typecast // StructureValue: Any Value returned via GetMember points to its structure property StructureValue: TFpValueDwarf read FStructureValue write SetStructureValue; - property ValueSymbol: TFpSymbolDwarfData read FDataSymbol; // Same as DbgSymbol end; TFpValueDwarfUnknown = class(TFpValueDwarf) diff --git a/components/fpdebug/fppascalbuilder.pas b/components/fpdebug/fppascalbuilder.pas index 8aac7a2f6d..f84f19ccb1 100644 --- a/components/fpdebug/fppascalbuilder.pas +++ b/components/fpdebug/fppascalbuilder.pas @@ -740,7 +740,7 @@ function TFpPascalPrettyPrinter.InternalPrintValue(out APrintedValue: String; APrintedValue := APrintedValue + ': '; end else - t := TFpValueDwarf(AValue).ValueSymbol; + t := AValue.DbgSymbol; if AFlags * PV_FORWARD_FLAGS <> [] then GetTypeName(s, t)