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

DBG: Breakpoint, fixed break at HitCount

Browse Source 
git-svn-id: trunk@28284 -
This commit is contained in:
martin 2010-11-17 02:23:38 +00:00
parent bcfc277639
commit fb6e2e2372
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/debugmanager.pas
View File

@ -229,6 +229,7 @@ type
procedure DoChanged; override; procedure DoChanged; override;
function GetHitCount: Integer; override; function GetHitCount: Integer; override;
function GetValid: TValidState; override; function GetValid: TValidState; override;
procedure SetBreakHitCount(const AValue: Integer); override;
procedure SetEnabled(const AValue: Boolean); override; procedure SetEnabled(const AValue: Boolean); override;
procedure SetInitialEnabled(const AValue: Boolean); override; procedure SetInitialEnabled(const AValue: Boolean); override;
procedure SetExpression(const AValue: String); override; procedure SetExpression(const AValue: String); override;
@ -1230,6 +1231,13 @@ begin
else Result := FMaster.Valid; else Result := FMaster.Valid;
end; end;
procedure TManagedBreakPoint.SetBreakHitCount(const AValue: Integer);
begin
if BreakHitCount = AValue then exit;
inherited SetBreakHitCount(AValue);
if FMaster <> nil then FMaster.BreakHitCount := AValue;
end;
procedure TManagedBreakPoint.ResetMaster; procedure TManagedBreakPoint.ResetMaster;
begin begin
if FMaster <> nil then FMaster.Slave := nil; if FMaster <> nil then FMaster.Slave := nil;