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

recuced update notifications

Browse Source 
git-svn-id: trunk@4207 -
This commit is contained in:
mattias 2003-05-28 17:27:29 +00:00
parent 7d3cacb432
commit 8ab68b0b91
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
debugger/debugger.pp
View File

@ -1033,20 +1033,24 @@ begin
end;
procedure TDBGBreakPoint.DoStateChange;
var
OldHitCount: Integer;
begin
case Debugger.State of
dsStop, dsIdle: begin
FFirstRun := True;
end;
dsStop, dsIdle:
begin
FFirstRun := True;
end;
dsRun: begin
if FFirstRun
then begin
if FFirstRun then begin
OldHitCount:=FHitCount;
FHitCount := 0;
FFirstRun := False;
if OldHitCount<>FHitCount then
Changed(false);
end;
end;
end;
Changed(false);
end;
procedure TDBGBreakPoint.EnableGroups;
@ -2224,6 +2228,9 @@ end;
end.
{ =============================================================================
$Log$
Revision 1.31 2003/05/28 17:27:29 mattias
recuced update notifications
Revision 1.30 2003/05/28 00:58:50 marc
MWE: * Reworked breakpoint handling