From 1b1ec598f83c9c4f07486f0952dc8f9a62f6d4a8 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 14 May 2014 15:44:24 +0000
Subject: [PATCH] FpGdbmiDebugger:  fixed crash, accessing nil object

git-svn-id: trunk@45036 -
---
 .../lazdebuggers/lazdebuggerfpgdbmi/fpgdbmidebugger.pp     | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/components/lazdebuggers/lazdebuggerfpgdbmi/fpgdbmidebugger.pp b/components/lazdebuggers/lazdebuggerfpgdbmi/fpgdbmidebugger.pp
index 3d924a8178..92cd8650c9 100644
--- a/components/lazdebuggers/lazdebuggerfpgdbmi/fpgdbmidebugger.pp
+++ b/components/lazdebuggers/lazdebuggerfpgdbmi/fpgdbmidebugger.pp
@@ -1049,8 +1049,11 @@ DebugLn(FPGDBDBG_VERBOSE, [ErrorHandler.ErrorAsString(PasExpr.Error)]);
             else
               AResText := '{Type=} unknown';
             Result := True;
-            AWatchValue.Value    := AResText;
-            AWatchValue.Validity := ddsValid; // TODO ddsError ?
+            if AWatchValue <> nil then begin
+              if not IsWatchValueAlive then exit;
+              AWatchValue.Value    := AResText;
+              AWatchValue.Validity := ddsValid; // TODO ddsError ?
+            end;
             exit;
           end;
         end;