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

MWE: * Fixed adding/removing breakpoints while paused

Browse Source 
git-svn-id: trunk@4210 -
This commit is contained in:
marc 2003-05-28 22:43:21 +00:00
parent a470913400
commit 06270715bc
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/debugmanager.pas
View File

@ -177,6 +177,7 @@ type
procedure UpdateSourceMark; procedure UpdateSourceMark;
public public
constructor Create(ACollection: TCollection); override; constructor Create(ACollection: TCollection); override;
destructor Destroy; override;
procedure ResetMaster; procedure ResetMaster;
property SourceMark: TSourceMark read FSourceMark write SetSourceMark; property SourceMark: TSourceMark read FSourceMark write SetSourceMark;
end; end;
@ -311,6 +312,12 @@ begin
FMaster := nil; FMaster := nil;
end; end;
destructor TManagedBreakPoint.Destroy;
begin
FreeAndNil(FMaster);
inherited Destroy;
end;
function TManagedBreakPoint.GetHitCount: Integer; function TManagedBreakPoint.GetHitCount: Integer;
begin begin
if FMaster = nil if FMaster = nil
@ -885,10 +892,17 @@ end;
procedure TDebugManager.BreakpointAdded(const ASender: TDBGBreakPoints; procedure TDebugManager.BreakpointAdded(const ASender: TDBGBreakPoints;
const ABreakpoint: TDBGBreakPoint); const ABreakpoint: TDBGBreakPoint);
var
BP: TDBGBreakPoint;
begin begin
writeln('TDebugManager.BreakpointAdded A ',ABreakpoint.Source,' ',ABreakpoint.Line); writeln('TDebugManager.BreakpointAdded A ',ABreakpoint.Source,' ',ABreakpoint.Line);
ABreakpoint.InitialEnabled := True; ABreakpoint.InitialEnabled := True;
ABreakpoint.Enabled := True; ABreakpoint.Enabled := True;
if FDebugger <> nil
then begin
BP := FDebugger.BreakPoints.Add(ABreakpoint.Source, ABreakpoint.Line);
BP.Assign(ABreakPoint);
end;
CreateSourceMarkForBreakPoint(ABreakpoint,nil); CreateSourceMarkForBreakPoint(ABreakpoint,nil);
Project1.Modified := True; Project1.Modified := True;
end; end;
@ -1316,6 +1330,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.35 2003/05/28 22:43:21 marc
MWE: * Fixed adding/removing breakpoints while paused
Revision 1.34 2003/05/28 15:56:19 mattias Revision 1.34 2003/05/28 15:56:19 mattias
implemented sourcemarks implemented sourcemarks