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

DBG: Exception handling

Browse Source 
git-svn-id: trunk@32794 -
This commit is contained in:
martin 2011-10-10 09:33:26 +00:00
parent f9810a2611
commit bfd5aebbd4
2 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/cmdlinedebugger.pp
View File

@ -169,7 +169,11 @@ begin
Step:=0;
Application.Idle(false);
end;
try
Application.ProcessMessages;
except
Application.HandleException(Application);
end;
if Application.Terminated then Break;
until R <> 0;
@ -244,7 +248,11 @@ begin
Step:=0;
Application.Idle(false);
end;
try
Application.ProcessMessages;
except
Application.HandleException(Application);
end;
if Application.Terminated then Break;
// sleep a bit
Sleep(10);

6
debugger/gdbmidebugger.pp
View File

@ -10545,11 +10545,13 @@ begin
Report := BackTraceStrFunc(ExceptAddr);
Report2 := Report;
Frames := ExceptFrames;
for I := 0 to ExceptFrameCount - 1 do
for I := 0 to ExceptFrameCount - 1 do begin
Report := Report + LineEnding + BackTraceStrFunc(Frames[I]);
if i < 5
then Report2 := Report;
except end;
end;
except
end;
debugln(Report);
if MessageDlg('The debugger experienced an unknown condition.',