From b2830cbfb23a6d2b2f1046a1fb044825d286b922 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 4 May 2014 16:51:38 +0000
Subject: [PATCH] FpDebug: fix crash in type-printer

git-svn-id: trunk@44908 -
---
 components/fpdebug/fppascalbuilder.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/fpdebug/fppascalbuilder.pas b/components/fpdebug/fppascalbuilder.pas
index 9558e14232..dc5cfad23e 100644
--- a/components/fpdebug/fppascalbuilder.pas
+++ b/components/fpdebug/fppascalbuilder.pas
@@ -184,7 +184,7 @@ var
     s: String;
   begin
     s := '';
-    while ADbgSymbol.Kind = skPointer do begin
+    while (ADbgSymbol.Kind = skPointer) and (ADbgSymbol.TypeInfo <> nil) do begin
       ADbgSymbol := ADbgSymbol.TypeInfo;
       s := s + '^';
     end;