From ba6b524a80eed2f7cbda2c8e0742e85108301aa5 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 11 Apr 2014 20:27:46 +0000
Subject: [PATCH] FpGdbmiDebugger: fix crash in temp self-debug code

git-svn-id: trunk@44686 -
---
 components/lazdebuggers/lazdebuggerfpgdbmi/fpgdbmidebugger.pp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/components/lazdebuggers/lazdebuggerfpgdbmi/fpgdbmidebugger.pp b/components/lazdebuggers/lazdebuggerfpgdbmi/fpgdbmidebugger.pp
index 5941520b60..5f95b27179 100644
--- a/components/lazdebuggers/lazdebuggerfpgdbmi/fpgdbmidebugger.pp
+++ b/components/lazdebuggers/lazdebuggerfpgdbmi/fpgdbmidebugger.pp
@@ -181,7 +181,7 @@ var
 procedure IDEMenuClicked(Sender: TObject);
 begin
   UseGDB := (MenuCmd.MenuItem <> nil) and MenuCmd.MenuItem.Checked;
-  if CurrentDebugger <> nil then
+  if (CurrentDebugger <> nil) and (CurrentDebugger.Watches <> nil) then
     CurrentDebugger.Watches.CurrentWatches.ClearValues;
 end;
 
@@ -1102,7 +1102,6 @@ begin
   FWatchEvalList := TList.Create;
   inherited Create(AExternalDebugger);
   CurrentDebugger := self;
-  IDEMenuClicked(nil);
 end;
 
 destructor TFpGDBMIDebugger.Destroy;