paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 21:19:35 +01: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; end;
procedure TDBGBreakPoint.DoStateChange; procedure TDBGBreakPoint.DoStateChange;
var
OldHitCount: Integer;
begin begin
case Debugger.State of case Debugger.State of
dsStop, dsIdle: begin dsStop, dsIdle:
FFirstRun := True; begin
end; FFirstRun := True;
end;
dsRun: begin dsRun: begin
if FFirstRun if FFirstRun then begin
then begin OldHitCount:=FHitCount;
FHitCount := 0; FHitCount := 0;
FFirstRun := False; FFirstRun := False;
if OldHitCount<>FHitCount then
Changed(false);
end; end;
end; end;
end; end;
Changed(false);
end; end;
procedure TDBGBreakPoint.EnableGroups; procedure TDBGBreakPoint.EnableGroups;
@ -2224,6 +2228,9 @@ end;
end. end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.31 2003/05/28 17:27:29 mattias
recuced update notifications
Revision 1.30 2003/05/28 00:58:50 marc Revision 1.30 2003/05/28 00:58:50 marc
MWE: * Reworked breakpoint handling MWE: * Reworked breakpoint handling