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

DBG: fixed updating breakpoints (last commit)

Browse Source 
git-svn-id: trunk@28327 -
This commit is contained in:
martin 2010-11-18 19:09:35 +00:00
parent 65b68428b7
commit bbf6ccc85b
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/gdbmidebugger.pp
View File

@ -655,7 +655,7 @@ type
protected
function DoExecute: Boolean; override;
public
constructor Create(AOwner: TGDBMIDebugger);
constructor Create(AOwner: TGDBMIDebugger; ABreakId: Integer);
constructor Create(AOwner: TGDBMIDebugger; ABreakId: Integer; AnEnabled: Boolean);
constructor Create(AOwner: TGDBMIDebugger; ABreakId: Integer; AnExpression: string);
constructor Create(AOwner: TGDBMIDebugger; ABreakId: Integer; AnEnabled: Boolean; AnExpression: string);
@ -5405,9 +5405,10 @@ begin
then ExecBreakEnabled(FBreakID, FEnabled);
end;
constructor TGDBMIDebuggerCommandBreakUpdate.Create(AOwner: TGDBMIDebugger);
constructor TGDBMIDebuggerCommandBreakUpdate.Create(AOwner: TGDBMIDebugger; ABreakId: Integer);
begin
inherited Create(AOwner);
FBreakID := ABreakId;
FUpdateEnabled := False;
FUpdateExpression := False;
end;
@ -5692,7 +5693,7 @@ begin
FUpdateFlags := FUpdateFlags - [bufEnabled, bufCondition];
FCurrentCmd:= TGDBMIDebuggerCommandBreakUpdate.Create(TGDBMIDebugger(Debugger));
FCurrentCmd:= TGDBMIDebuggerCommandBreakUpdate.Create(TGDBMIDebugger(Debugger), FBreakID);
if bufEnabled in AFlags
then begin
TGDBMIDebuggerCommandBreakUpdate(FCurrentCmd).UpdateEnabled := True;