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

DBG: defer setting some of the internal breakpoints (exception/run-error)

Browse Source 
git-svn-id: trunk@34921 -
This commit is contained in:
martin 2012-01-25 13:33:16 +00:00
parent d6762411a1
commit 0807b46fe7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
debugger/gdbmidebugger.pp
View File

@ -3987,11 +3987,6 @@ begin
FTheDebugger.FMainAddrBreak.Clear(Self);
// they may still exist from prev run, addr will be checked
FTheDebugger.FExceptionBreak.SetAddr(Self);
FTheDebugger.FBreakErrorBreak.SetAddr(Self);
FTheDebugger.FRunErrorBreak.SetAddr(Self);
// try to find PID (if not already found)
if (TargetInfo^.TargetPID = 0)
and ExecuteCommand('info program', [], R, [cfCheckState])
@ -4030,6 +4025,11 @@ begin
DebugLn('[Debugger] Target PID: %u', [TargetInfo^.TargetPID]);
// they may still exist from prev run, addr will be checked
FTheDebugger.FExceptionBreak.SetAddr(Self);
FTheDebugger.FBreakErrorBreak.SetAddr(Self);
FTheDebugger.FRunErrorBreak.SetAddr(Self);
if R.State = dsNone
then begin
SetDebuggerState(dsInit); // triggers all breakpoints to be set.