paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 11:10:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented updates between source marks and breakpoints

Browse Source 
git-svn-id: trunk@3111 -
This commit is contained in:
mattias 2002-08-18 08:57:42 +00:00
parent 7699663a3f
commit 17654f617d
1 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
debugger/gdbmidebugger.pp
View File

@ -119,7 +119,8 @@ type
private private
protected protected
procedure DoDebuggerStateChange; override; procedure DoDebuggerStateChange; override;
procedure SetBreakPoints; procedure SetBreakPoints(ResetAll: boolean);
procedure InitTargetStart; override;
public public
end; end;
@ -662,7 +663,7 @@ begin
Exit; Exit;
end; end;
TGDBMIBreakPoints(BreakPoints).SetBreakPoints; //TGDBMIBreakPoints(BreakPoints).SetBreakPoints;
if ResultState = dsNone if ResultState = dsNone
then begin then begin
@ -1196,10 +1197,12 @@ begin
inherited DoDebuggerStateChange; inherited DoDebuggerStateChange;
if (Debugger <> nil) if (Debugger <> nil)
and (Debugger.State in [dsStop, dsPause]) and (Debugger.State in [dsStop, dsPause])
then SetBreakPoints; then begin
//SetBreakPoints;
end;
end; end;
procedure TGDBMIBreakPoints.SetBreakPoints; procedure TGDBMIBreakPoints.SetBreakPoints(ResetAll: boolean);
var var
n: Integer; n: Integer;
BreakPoint: TGDBMIBreakPoint; BreakPoint: TGDBMIBreakPoint;
@ -1207,11 +1210,17 @@ begin
for n := 0 to Count - 1 do for n := 0 to Count - 1 do
begin begin
BreakPoint := TGDBMIBreakPoint(Items[n]); BreakPoint := TGDBMIBreakPoint(Items[n]);
if Breakpoint.FBreakID = 0 if (Breakpoint.FBreakID = 0) or ResetAll
then BreakPoint.SetBreakPoint; then BreakPoint.SetBreakPoint;
end; end;
end; end;
procedure TGDBMIBreakPoints.InitTargetStart;
begin
inherited InitTargetStart;
SetBreakPoints(false);
end;
{ =========================================================================== } { =========================================================================== }
{ TGDBMIBreakPoint } { TGDBMIBreakPoint }
{ =========================================================================== } { =========================================================================== }
@ -1247,9 +1256,8 @@ end;
procedure TGDBMIBreakPoint.InitTargetStart; procedure TGDBMIBreakPoint.InitTargetStart;
begin begin
// initialize values
inherited InitTargetStart; inherited InitTargetStart;
UpdateExpression;
UpdateEnable;
end; end;
procedure TGDBMIBreakPoint.SetBreakpoint; procedure TGDBMIBreakPoint.SetBreakpoint;
@ -1274,7 +1282,8 @@ begin
SetValid(vsValid) SetValid(vsValid)
else else
SetValid(vsInvalid); SetValid(vsInvalid);
DoEnableChange; UpdateExpression;
UpdateEnable;
ResultList.Free; ResultList.Free;
BkptList.Free; BkptList.Free;
finally finally
@ -1863,6 +1872,9 @@ end;
end. end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.24 2003/06/03 10:29:22 mattias
implemented updates between source marks and breakpoints
Revision 1.23 2003/06/03 01:35:40 marc Revision 1.23 2003/06/03 01:35:40 marc
MWE: = Splitted TDBGBreakpoint into TBaseBreakPoint, TIDEBreakpoint and MWE: = Splitted TDBGBreakpoint into TBaseBreakPoint, TIDEBreakpoint and
TDBGBreakPoint TDBGBreakPoint