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

FPDebug: correct class for member

Browse Source 
git-svn-id: trunk@44180 -
This commit is contained in:
martin 2014-02-20 01:31:45 +00:00
parent 0660f0e9f4
commit 281d40f25c
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpdebug/fpdbgdwarf.pas
View File

@ -2895,14 +2895,8 @@ end;
function TDbgDwarfSymbolValue.GetContextTypeInfo: TDbgSymbol;
begin
if (FValueSymbol = nil) or (FValueSymbol.StructureValueInfo = nil) then
Result := nil
else
if FValueSymbol.StructureValueInfo is TDbgDwarfValueIdentifier then
Result := TDbgDwarfValueIdentifier(FValueSymbol.StructureValueInfo).TypeInfo
else
if FValueSymbol.StructureValueInfo is TDbgDwarfStructTypeCastSymbolValue then
Result := TDbgDwarfStructTypeCastSymbolValue(FValueSymbol.StructureValueInfo).TypeInfo
if (FValueSymbol <> nil) and (FValueSymbol.ParentTypeInfo <> nil) then
Result := FValueSymbol.ParentTypeInfo
else
Result := nil; // internal error
end;