paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 13:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* setting breakpoint ignore count implemented via gdb/mi command in the gdb/mi

Browse Source 
interface

git-svn-id: trunk@29790 -
This commit is contained in:
nickysn 2015-02-22 02:46:48 +00:00
parent 46695f37b4
commit 8ed6109955
3 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fpdebug.pas
View File

@ -1795,7 +1795,7 @@ begin
GDBState:=bs_enabled; GDBState:=bs_enabled;
Debugger^.BreakpointCondition(GDBIndex, GetStr(Conditions)); Debugger^.BreakpointCondition(GDBIndex, GetStr(Conditions));
If IgnoreCount>0 then If IgnoreCount>0 then
Debugger^.Command('ignore '+IntToStr(GDBIndex)+' '+IntToStr(IgnoreCount)); Debugger^.BreakpointSetIgnoreCount(GDBIndex, IgnoreCount);
If Assigned(Commands) then If Assigned(Commands) then
begin begin
{Commands are not handled yet } {Commands are not handled yet }

11
ide/gdbmicon.pas
View File

@ -60,6 +60,7 @@ type
function BreakpointEnable(BkptNo: LongInt): Boolean; function BreakpointEnable(BkptNo: LongInt): Boolean;
function BreakpointDisable(BkptNo: LongInt): Boolean; function BreakpointDisable(BkptNo: LongInt): Boolean;
function BreakpointCondition(BkptNo: LongInt; const ConditionExpr: string): Boolean; function BreakpointCondition(BkptNo: LongInt; const ConditionExpr: string): Boolean;
function BreakpointSetIgnoreCount(BkptNo: LongInt; const IgnoreCount: LongInt): Boolean;
procedure SetTBreak(tbreakstring : string); procedure SetTBreak(tbreakstring : string);
procedure Backtrace; procedure Backtrace;
function LoadFile(var fn: string): Boolean; function LoadFile(var fn: string): Boolean;
@ -248,6 +249,16 @@ begin
BreakpointCondition := GDB.ResultRecord.Success; BreakpointCondition := GDB.ResultRecord.Success;
end; end;
function TGDBController.BreakpointSetIgnoreCount(BkptNo: LongInt; const IgnoreCount: LongInt): Boolean;
var
BkptNoStr, IgnoreCountStr: string;
begin
Str(BkptNo, BkptNoStr);
Str(IgnoreCount, IgnoreCountStr);
Command('-break-after ' + BkptNoStr + ' ' + IgnoreCountStr);
BreakpointSetIgnoreCount := GDB.ResultRecord.Success;
end;
procedure TGDBController.SetTBreak(tbreakstring : string); procedure TGDBController.SetTBreak(tbreakstring : string);
begin begin
Command('-break-insert -t ' + tbreakstring); Command('-break-insert -t ' + tbreakstring);

11
packages/gdbint/src/gdbcon.pp
View File

@ -58,6 +58,7 @@ type
function BreakpointEnable(BkptNo: LongInt): Boolean; function BreakpointEnable(BkptNo: LongInt): Boolean;
function BreakpointDisable(BkptNo: LongInt): Boolean; function BreakpointDisable(BkptNo: LongInt): Boolean;
function BreakpointCondition(BkptNo: LongInt; const ConditionExpr: string): Boolean; function BreakpointCondition(BkptNo: LongInt; const ConditionExpr: string): Boolean;
function BreakpointSetIgnoreCount(BkptNo: LongInt; const IgnoreCount: LongInt): Boolean;
procedure SetTBreak(tbreakstring : string); procedure SetTBreak(tbreakstring : string);
procedure Backtrace; procedure Backtrace;
{ needed for dos because newlines are only #10 (PM) } { needed for dos because newlines are only #10 (PM) }
@ -376,6 +377,16 @@ begin
BreakpointCondition := not Error; BreakpointCondition := not Error;
end; end;
function TGDBController.BreakpointSetIgnoreCount(BkptNo: LongInt; const IgnoreCount: LongInt): Boolean;
var
BkptNoStr, IgnoreCountStr: string;
begin
Str(BkptNo, BkptNoStr);
Str(IgnoreCount, IgnoreCountStr);
Command('ignore ' + BkptNoStr + ' ' + IgnoreCountStr);
BreakpointSetIgnoreCount := not Error;
end;
procedure TGDBController.SetTBreak(tbreakstring : string); procedure TGDBController.SetTBreak(tbreakstring : string);
begin begin
Last_breakpoint_number:=0; Last_breakpoint_number:=0;