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

Debugger: a bit reduced debugln-output.

Browse Source 
git-svn-id: trunk@28215 -
This commit is contained in:
martin 2010-11-14 18:09:20 +00:00
parent c2bf7803f7
commit 2be63ddc61
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/gdbmidebugger.pp
View File

@ -6422,14 +6422,16 @@ begin
if StoppedParams <> ''
then FTheDebugger.ProcessStopped(StoppedParams, FTheDebugger.PauseWaitState = pwsInternal);
if (StoppedParams <> '') and (FTheDebugger.State = dsRun) and (FTheDebugger.FTargetPID <> 0) then begin
{$IFDEF DBG_VERBOSE}
if (StoppedParams <> '') and (FTheDebugger.State = dsRun) and (FTheDebugger.FTargetPID <> 0) and (left(FCommand,1,5)='-exec') then begin
debugln(['ERROR: Got stop params, but did not chnage FTheDebugger.state: ', StoppedParams]);
//FTheDebugger.SetState(dsError); // we cannot be running anymore
end;
if (StoppedParams = '') and (FTheDebugger.State = dsRun) and (FTheDebugger.FTargetPID <> 0) then begin
if (StoppedParams = '') and (FTheDebugger.State = dsRun) and (FTheDebugger.FTargetPID <> 0) and (left(FCommand,1,5)='-exec') then begin
debugln(['ERROR: Got NO stop params at all, but was running']);
//FTheDebugger.SetState(dsError); // we cannot be running anymore
end;
{$ENDIF}
if Assigned(FCallback)
then FCallback(FResult, FTag);