paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-28 06:47:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

* the common code to all "-exec" gdb/mi commands moved to a single method

Browse Source 
git-svn-id: trunk@29740 -
This commit is contained in:
nickysn 2015-02-17 20:12:32 +00:00
parent f56990ee29
commit eb6c73c3df
1 changed files with 15 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
ide/gdbmicon.pas
View File

@ -26,6 +26,8 @@ uses
type
TGDBController = object(TGDBInterface)
private
procedure RunExecCommand(const Cmd: string);
protected
TBreakNumber,
start_break_number: LongInt;
@ -121,53 +123,46 @@ begin
Run;
end;
procedure TGDBController.Run;
procedure TGDBController.RunExecCommand(const Cmd: string);
begin
UserScreen;
Command('-exec-run');
Command(Cmd);
WaitForProgramStop;
end;
procedure TGDBController.Run;
begin
RunExecCommand('-exec-run');
end;
procedure TGDBController.TraceStep;
begin
UserScreen;
Command('-exec-step');
WaitForProgramStop;
RunExecCommand('-exec-step');
end;
procedure TGDBController.TraceNext;
begin
UserScreen;
Command('-exec-next');
WaitForProgramStop;
RunExecCommand('-exec-next');
end;
procedure TGDBController.TraceStepI;
begin
UserScreen;
Command('-exec-step-instruction');
WaitForProgramStop;
RunExecCommand('-exec-step-instruction');
end;
procedure TGDBController.TraceNextI;
begin
UserScreen;
Command('-exec-next-instruction');
WaitForProgramStop;
RunExecCommand('-exec-next-instruction');
end;
procedure TGDBController.Continue;
begin
UserScreen;
Command('-exec-continue');
WaitForProgramStop;
RunExecCommand('-exec-continue');
end;
procedure TGDBController.UntilReturn;
begin
UserScreen;
Command('-exec-finish');
WaitForProgramStop;
RunExecCommand('-exec-finish');
end;
procedure TGDBController.SetTBreak(tbreakstring : string);