From 42d2da428a10bf5cdf50bdf8acd36f2bdcc7d91e Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sun, 18 Aug 2002 08:57:26 +0000
Subject: [PATCH] MWE:   * Some minor debugger updates   + Added evaluate to
 debugboss   + Added hint debug evaluation

git-svn-id: trunk@3065 -
---
 debugger/gdbmidebugger.pp | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp
index 8b1fd1cf36..2408a495d2 100644
--- a/debugger/gdbmidebugger.pp
+++ b/debugger/gdbmidebugger.pp
@@ -507,6 +507,15 @@ end;
 
 function TGDBMIDebugger.GDBStop: Boolean;
 begin
+  if State = dsError 
+  then begin
+    // We don't know the state of the debugger, 
+    // force a reinit. Let's hope this works.
+    DebugProcess.Terminate(0);
+    Done;
+    Exit;
+  end;
+
   if State = dsRun
   then GDBPause;
 
@@ -1137,6 +1146,12 @@ end;
 end.
 { =============================================================================
   $Log$
+  Revision 1.8  2002/11/05 22:41:13  lazarus
+  MWE:
+    * Some minor debugger updates
+    + Added evaluate to debugboss
+    + Added hint debug evaluation
+
   Revision 1.7  2002/05/10 06:57:48  lazarus
   MG: updated licenses