From 281d40f25cbd5c554f3f684858b44dda1bcd2b64 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Thu, 20 Feb 2014 01:31:45 +0000
Subject: [PATCH] FPDebug: correct class for member

git-svn-id: trunk@44180 -
---
 components/fpdebug/fpdbgdwarf.pas | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/components/fpdebug/fpdbgdwarf.pas b/components/fpdebug/fpdbgdwarf.pas
index d5f2a7a3f2..74982e35d6 100644
--- a/components/fpdebug/fpdbgdwarf.pas
+++ b/components/fpdebug/fpdbgdwarf.pas
@@ -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;