paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 13:39:25 +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 protected
function DoExecute: Boolean; override; function DoExecute: Boolean; override;
public 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; AnEnabled: Boolean);
constructor Create(AOwner: TGDBMIDebugger; ABreakId: Integer; AnExpression: string); constructor Create(AOwner: TGDBMIDebugger; ABreakId: Integer; AnExpression: string);
constructor Create(AOwner: TGDBMIDebugger; ABreakId: Integer; AnEnabled: Boolean; AnExpression: string); constructor Create(AOwner: TGDBMIDebugger; ABreakId: Integer; AnEnabled: Boolean; AnExpression: string);
@ -5405,9 +5405,10 @@ begin
then ExecBreakEnabled(FBreakID, FEnabled); then ExecBreakEnabled(FBreakID, FEnabled);
end; end;
constructor TGDBMIDebuggerCommandBreakUpdate.Create(AOwner: TGDBMIDebugger); constructor TGDBMIDebuggerCommandBreakUpdate.Create(AOwner: TGDBMIDebugger; ABreakId: Integer);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FBreakID := ABreakId;
FUpdateEnabled := False; FUpdateEnabled := False;
FUpdateExpression := False; FUpdateExpression := False;
end; end;
@ -5692,7 +5693,7 @@ begin
FUpdateFlags := FUpdateFlags - [bufEnabled, bufCondition]; FUpdateFlags := FUpdateFlags - [bufEnabled, bufCondition];
FCurrentCmd:= TGDBMIDebuggerCommandBreakUpdate.Create(TGDBMIDebugger(Debugger)); FCurrentCmd:= TGDBMIDebuggerCommandBreakUpdate.Create(TGDBMIDebugger(Debugger), FBreakID);
if bufEnabled in AFlags if bufEnabled in AFlags
then begin then begin
TGDBMIDebuggerCommandBreakUpdate(FCurrentCmd).UpdateEnabled := True; TGDBMIDebuggerCommandBreakUpdate(FCurrentCmd).UpdateEnabled := True;