paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 01:59:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

debugger: skip pause when breakpoint action does not contain "Break"

Browse Source 
git-svn-id: trunk@30713 -
This commit is contained in:
paul 2011-05-13 06:48:12 +00:00
parent 012e19a7d9
commit e770073129
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/debugger.pp
View File

@ -4169,9 +4169,10 @@ begin
Changed;
end;
procedure TIDEBreakPoint.DoHit(const ACount: Integer; var AContinue: Boolean );
procedure TIDEBreakPoint.DoHit(const ACount: Integer; var AContinue: Boolean);
begin
inherited DoHit(ACount, AContinue);
AContinue := AContinue or not (bpaStop in Actions);
if bpaLogMessage in Actions
then FMaster.DoLogMessage(FLogMessage);
if bpaLogCallStack in Actions