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

Debugger: Adding more debugln-output. Added some exception handling, Adding handling unknown breakpoint

Browse Source 
git-svn-id: trunk@28212 -
This commit is contained in:
martin 2010-11-14 17:47:31 +00:00
parent a2518e7ff7
commit b817142e8e
1 changed files with 42 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
debugger/gdbmidebugger.pp
View File

@ -37,7 +37,7 @@ unit GDBMIDebugger;
interface
uses
Classes, SysUtils, Math, Variants, LCLProc, Dialogs, LazConf, DebugUtils,
Classes, SysUtils, Controls, Math, Variants, LCLProc, Dialogs, LazConf, DebugUtils,
Debugger, FileUtil, CmdLineDebugger, GDBTypeInfo, Maps,
{$IFdef MSWindows}
Windows,
@ -775,6 +775,16 @@ begin
if StoppedParams <> ''
then FTheDebugger.ProcessStopped(StoppedParams, FTheDebugger.PauseWaitState = pwsInternal);
if (StoppedParams <> '') and (FTheDebugger.State = dsRun) and (FTheDebugger.FTargetPID <> 0) 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
debugln(['ERROR: Got NO stop params at all, but was running']);
FTheDebugger.SetState(dsError); // we cannot be running anymore
end;
end;
constructor TGDBMIDebuggerCommandExecute.Create(AOwner: TGDBMIDebugger;
@ -3591,6 +3601,11 @@ begin
ProcessFrame(List.Values['frame']);
end;
end;
if (State = dsRun) and (FTargetPID <> 0) // not in startup
then begin
debugln('WARNING: breakpoint hit, but nothing known about it');
SetState(dsPause);
end;
Exit;
end;
@ -6310,9 +6325,24 @@ begin
try
Result := DoExecute;
DoOnExecuted;
finally
DoUnockQueueExecute;
except
on e: Exception do begin
debugln(['ERROR: Exception occured in DoExecute '+e.ClassName + ' Msg="'+ e.Message + '"']);
if MessageDlg('The debugger experienced an unknown condition.',
Format('Press "Ignore" to continue debugging. This may NOT be save. Press "Abort to stop the debugger. %s'
+'Exception: %s.with message "%s"',
[LineEnding, e.ClassName, e.Message]),
mtWarning, [mbIgnore, mbAbort], 0, mbAbort) = mrAbort
then begin
try
FTheDebugger.CancelAllQueued;
finally
FTheDebugger.Stop;
end;
end;
end;
end;
DoUnockQueueExecute;
end;
procedure TGDBMIDebuggerCommand.Cancel;
@ -6392,6 +6422,15 @@ begin
if StoppedParams <> ''
then FTheDebugger.ProcessStopped(StoppedParams, FTheDebugger.PauseWaitState = pwsInternal);
if (StoppedParams <> '') and (FTheDebugger.State = dsRun) and (FTheDebugger.FTargetPID <> 0) 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
debugln(['ERROR: Got NO stop params at all, but was running']);
FTheDebugger.SetState(dsError); // we cannot be running anymore
end;
if Assigned(FCallback)
then FCallback(FResult, FTag);
end;