From eeb55bc54e4fd03422e160666f103d8e40da597a Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Tue, 18 Oct 2011 18:20:35 +0000
Subject: [PATCH] DBG: Slightly more feedback on exceptions

git-svn-id: trunk@32964 -
---
 debugger/gdbmidebugger.pp | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp
index 93b3afd7b7..5a5ed839ae 100644
--- a/debugger/gdbmidebugger.pp
+++ b/debugger/gdbmidebugger.pp
@@ -10608,7 +10608,9 @@ begin
   except
     on e: Exception do begin
       try
-        debugln(['ERROR: Exception occured in DoExecute '+e.ClassName + ' Msg="'+ e.Message + '" Addr=', dbgs(ExceptAddr)]);
+        debugln(['ERROR: Exception occured in ',ClassName+'.DoExecute ',
+                  e.ClassName, ' Msg="', e.Message, '" Addr=', dbgs(ExceptAddr),
+                  ' Dbg.State=', dbgs(FTheDebugger.State)]);
         Report :=  BackTraceStrFunc(ExceptAddr);
         Report2 := Report;
         Frames := ExceptFrames;
@@ -10623,8 +10625,10 @@ begin
 
       if MessageDlg('The debugger experienced an unknown condition.',
         Format('Press "Ignore" to continue debugging. This may NOT be save. Press "Abort to stop the debugger. %0:s'
-          +'Exception: %1:s.with message "%2:s"%0:s%0:s%3:s',
-        [LineEnding, e.ClassName, e.Message, Report2]),
+          +'Exception: %1:s.with message "%2:s"%0:s'
+          +'Context: %4:s State: %5:s %0:s'
+          +'%0:s%3:s',
+        [LineEnding, e.ClassName, e.Message, Report2, ClassName, dbgs(FTheDebugger.State)]),
         mtWarning, [mbIgnore, mbAbort], 0, mbAbort) = mrAbort
       then begin
         try