paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 19:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Slightly more feedback on exceptions

Browse Source 
git-svn-id: trunk@32964 -
This commit is contained in:
martin 2011-10-18 18:20:35 +00:00
parent a58a76fc72
commit eeb55bc54e
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
debugger/gdbmidebugger.pp
View File

@ -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