From fb6e2e23728ba2a3bec62b761e4042317e41e77d Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 17 Nov 2010 02:23:38 +0000
Subject: [PATCH] DBG: Breakpoint, fixed break at HitCount

git-svn-id: trunk@28284 -
---
 ide/debugmanager.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index 1e77aa6645..211594685b 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -229,6 +229,7 @@ type
     procedure DoChanged; override;
     function GetHitCount: Integer; override;
     function GetValid: TValidState; override;
+    procedure SetBreakHitCount(const AValue: Integer); override;
     procedure SetEnabled(const AValue: Boolean); override;
     procedure SetInitialEnabled(const AValue: Boolean); override;
     procedure SetExpression(const AValue: String); override;
@@ -1230,6 +1231,13 @@ begin
   else Result := FMaster.Valid;
 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;
 begin
   if FMaster <> nil then FMaster.Slave := nil;