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

DBG, Attach: catch exceptions

Browse Source 
git-svn-id: trunk@38611 -
This commit is contained in:
martin 2012-09-10 20:10:20 +00:00
parent 468cd5b4d1
commit c410493ade
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/gdbmidebugger.pp
View File

@ -4758,7 +4758,6 @@ begin
TargetInfo^.TargetPID := NewPID; TargetInfo^.TargetPID := NewPID;
debugln(['XXXXXXXXXXXXXX ',FTheDebugger.FileName, ' -- ', pos('Reading symbols from', CmdResp)]);
if (FTheDebugger.FileName <> '') and (pos('READING SYMBOLS FROM', UpperCase(CmdResp)) < 1) then begin if (FTheDebugger.FileName <> '') and (pos('READING SYMBOLS FROM', UpperCase(CmdResp)) < 1) then begin
ExecuteCommand('ptype TObject', [], R); ExecuteCommand('ptype TObject', [], R);
if pos('NO SYMBOL TABLE IS LOADED', UpperCase(FFullCmdReply)) > 0 then begin if pos('NO SYMBOL TABLE IS LOADED', UpperCase(FFullCmdReply)) > 0 then begin
@ -4791,6 +4790,9 @@ debugln(['XXXXXXXXXXXXXX ',FTheDebugger.FileName, ' -- ', pos('Reading symbols f
end; end;
SetTargetInfo(FileType); SetTargetInfo(FileType);
FTheDebugger.FExceptionBreak.SetByAddr(Self);
FTheDebugger.FBreakErrorBreak.SetByAddr(Self);
FTheDebugger.FRunErrorBreak.SetByAddr(Self);
if not(DebuggerState in [dsPause]) then if not(DebuggerState in [dsPause]) then
SetDebuggerState(dsPause); SetDebuggerState(dsPause);