From 35ec9d73841a0240b038894f358cb0e9f218dd7c Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 18 Aug 2013 09:53:29 +0000
Subject: [PATCH] debugger: add safety check

git-svn-id: trunk@42420 -
---
 debugger/gdbmidebugger.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp
index 2f44cf4226..59cbcae0b5 100644
--- a/debugger/gdbmidebugger.pp
+++ b/debugger/gdbmidebugger.pp
@@ -7809,7 +7809,7 @@ begin
     Exit;
   end;
 
-  if FCurrentCommand.KillNow then begin
+  if (FCurrentCommand <> nil) and FCurrentCommand.KillNow then begin
     debugln(DBG_VERBOSE, ['KillNow did stop']);
     Result := True;
     exit;