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

DBG: clean up, ProcessStopped is no longer called during startup. Mo meed to test for it

Browse Source 
git-svn-id: trunk@36013 -
This commit is contained in:
martin 2012-03-14 21:30:19 +00:00
parent fb644ca8c1
commit 1b462526b8
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
debugger/gdbmidebugger.pp
View File

@ -4767,8 +4767,7 @@ function TGDBMIDebuggerCommandExecute.ProcessStopped(const AParams: String;
exit;
end;
// The temp-at-start breakpoint is not checked. Ignore it
if (DebuggerState = dsRun) and (FTheDebugger.TargetPID <> 0) // not in startup
if (DebuggerState = dsRun)
then begin
debugln(['********** WARNING: breakpoint hit, but nothing known about it ABreakId=', ABreakID, ' brbtno=', List.Values['bkptno'] ]);
{$IFDEF DBG_VERBOSE_BRKPOINT}
@ -4927,14 +4926,9 @@ begin
Exit;
end;
// Some versions of GDB do not give any reason if hitting a temporary breakpoint
// (like the temp-at-main during startup)
if (FTheDebugger.TargetPID <> 0) // not in startup
then begin
DebugLn('[WARNING] Debugger: Unknown stopped reason: ', Reason);
SetDebuggerState(dsPause);
ProcessFrame(List.Values['frame']);
end;
DebugLn('[WARNING] Debugger: Unknown stopped reason: ', Reason);
SetDebuggerState(dsPause);
ProcessFrame(List.Values['frame']);
finally
FTheDebugger.FInProcessStopped := False;
List.Free;
@ -5345,7 +5339,7 @@ begin
end;
if (not ContinueExecution) and (DebuggerState = dsRun) and
(TargetInfo^.TargetPID <> 0) and (FTheDebugger.PauseWaitState <> pwsInternal)
(FTheDebugger.PauseWaitState <> pwsInternal)
then begin
// Handle the unforeseen
if (StoppedParams <> '')