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

implemented showing source lines in breakpoints dialog

Browse Source 
git-svn-id: trunk@4227 -
This commit is contained in:
mattias 2003-06-03 08:02:33 +00:00
parent 134c587eef
commit 4a8f4953a9
3 changed files with 32 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
debugger/breakpointsdlg.pp
View File

@ -353,7 +353,7 @@ begin
// line
if ABreakpoint.Line > 0
then AnItem.SubItems[1] := IntToStr(ABreakpoint.Line)
then AnItem.SubItems[1] := IntToStr(ABreakpoint.GetSourceLine)
else AnItem.SubItems[1] := '';
// expression
@ -402,6 +402,9 @@ end.
{ =============================================================================
$Log$
Revision 1.18 2003/06/03 08:02:33 mattias
implemented showing source lines in breakpoints dialog
Revision 1.17 2003/06/03 01:35:39 marc
MWE: = Splitted TDBGBreakpoint into TBaseBreakPoint, TIDEBreakpoint and
TDBGBreakPoint

15
debugger/debugger.pp
View File

@ -191,6 +191,7 @@ type
constructor Create(ACollection: TCollection); override;
destructor Destroy; override;
procedure EndUpdate;
function GetSourceLine: integer; virtual;
property Enabled: Boolean read GetEnabled write SetEnabled;
property Expression: String read GetExpression write SetExpression;
property HitCount: Integer read GetHitCount;
@ -1000,9 +1001,9 @@ begin
ReqCmd(dcStop, []);
end;
{ =========================================================================== }
{ TBaseBreakPoint }
{ =========================================================================== }
{ ===========================================================================
TBaseBreakPoint
=========================================================================== }
procedure TBaseBreakPoint.AssignTo (Dest: TPersistent );
var
@ -1085,6 +1086,11 @@ begin
end;
end;
function TBaseBreakPoint.GetSourceLine: integer;
begin
Result:=Line;
end;
function TBaseBreakPoint.GetEnabled: Boolean;
begin
Result := FEnabled;
@ -2438,6 +2444,9 @@ end;
end.
{ =============================================================================
$Log$
Revision 1.37 2003/06/03 08:02:33 mattias
implemented showing source lines in breakpoints dialog
Revision 1.36 2003/06/03 01:35:39 marc
MWE: = Splitted TDBGBreakpoint into TBaseBreakPoint, TIDEBreakpoint and
TDBGBreakPoint

18
ide/debugmanager.pas
View File

@ -94,7 +94,7 @@ type
FDialogs: array[TDebugDialogType] of TDebuggerDlg;
// When a source file is not found, the user can choose one
// Here are all choises stored
// here are all choices stored
FUserSourceFiles: TStringList;
// Breakpoint routines
@ -154,10 +154,10 @@ type
function DoCreateWatch(const AExpression: string): TModalResult; override;
end;
implementation
const
DebugDlgIDEWindow: array[TDebugDialogType] of TNonModalIDEWindow = (
nmiwDbgOutput, nmiwBreakPoints, nmiwWatches, nmiwLocals, nmiwCallStack
@ -185,6 +185,7 @@ type
constructor Create(ACollection: TCollection); override;
destructor Destroy; override;
procedure ResetMaster;
function GetSourceLine: integer; override;
property SourceMark: TSourceMark read FSourceMark write SetSourceMark;
end;
@ -252,6 +253,7 @@ end;
procedure TManagedBreakPoint.OnSourceMarkPositionChanged(Sender: TObject);
begin
Changed;
end;
procedure TManagedBreakPoint.OnSourceMarkBeforeFree(Sender: TObject);
@ -316,8 +318,17 @@ begin
Changed;
end;
function TManagedBreakPoint.GetSourceLine: integer;
begin
if FSourceMark<>nil then
Result:=FSourceMark.Line
else
Result:=inherited GetSourceLine;
end;
procedure TManagedBreakPoint.SetEnabled(const AValue: Boolean);
begin
writeln('TManagedBreakPoint.SetEnabled ',Line);
if Enabled = AValue then exit;
inherited SetEnabled(AValue);
if FMaster <> nil then FMaster.Enabled := AValue;
@ -1345,6 +1356,9 @@ end.
{ =============================================================================
$Log$
Revision 1.42 2003/06/03 08:02:32 mattias
implemented showing source lines in breakpoints dialog
Revision 1.41 2003/06/03 01:35:39 marc
MWE: = Splitted TDBGBreakpoint into TBaseBreakPoint, TIDEBreakpoint and
TDBGBreakPoint