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

dbg(gdbserver): reset gdb after use

Browse Source 
git-svn-id: trunk@42408 -
This commit is contained in:
martin 2013-08-15 19:17:47 +00:00
parent df725a2c85
commit c9b03b1624
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/debugger.pp
View File

@ -2864,6 +2864,7 @@ type
function GetLocation: TDBGLocationRec; virtual;
procedure LockCommandProcessing; virtual;
procedure UnLockCommandProcessing; virtual;
function NeedReset: Boolean; virtual;
procedure AddNotifyEvent(AReason: TDebuggerNotifyReason; AnEvent: TNotifyEvent);
procedure RemoveNotifyEvent(AReason: TDebuggerNotifyReason; AnEvent: TNotifyEvent);
public
@ -6310,6 +6311,11 @@ begin
// nothing
end;
function TDebugger.NeedReset: Boolean;
begin
Result := False;
end;
procedure TDebugger.AddNotifyEvent(AReason: TDebuggerNotifyReason; AnEvent: TNotifyEvent);
begin
FDestroyNotificationList[AReason].Add(TMethod(AnEvent));

6
debugger/gdbmiserverdebugger.pas
View File

@ -44,6 +44,7 @@ type
function CreateCommandInit: TGDBMIDebuggerCommandInitDebugger; override;
function CreateCommandStartDebugging(AContinueCommand: TGDBMIDebuggerCommand): TGDBMIDebuggerCommandStartDebugging; override;
procedure InterruptTarget; override;
function NeedReset: Boolean; override;
public
class function CreateProperties: TDebuggerProperties; override; // Creates debuggerproperties
class function Caption: String; override;
@ -175,6 +176,11 @@ begin
inherited InterruptTarget;
end;
function TGDBMIServerDebugger.NeedReset: Boolean;
begin
Result := True;
end;
class function TGDBMIServerDebugger.CreateProperties: TDebuggerProperties;
begin
Result := TGDBMIServerDebuggerProperties.Create;