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

+ Added debugger properties

Browse Source 
git-svn-id: trunk@4969 -
This commit is contained in:
marc 2003-12-27 01:05:03 +00:00
parent bf0d3c590f
commit 14928f7ae2
1 changed files with 43 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
debugger/debugger.pp
View File

@ -796,6 +796,9 @@ type
TDBGExceptionEvent = procedure(Sender: TObject; const AExceptionClass: String;
const AExceptionText: String) of object;
TDebuggerProperties = class(TPersistent)
end;
TDebugger = class(TObject)
private
FArguments: String;
@ -828,6 +831,8 @@ type
procedure SetEnvironment(const AValue: TStrings);
procedure SetFileName(const AValue: String);
protected
class function CreateProperties: TDebuggerProperties; virtual;
function CreateBreakPoints: TDBGBreakPoints; virtual;
function CreateLocals: TDBGLocals; virtual;
function CreateCallStack: TDBGCallStack; virtual;
@ -858,6 +863,8 @@ type
class function Caption: String; virtual; // The name of the debugger as shown in the debuggeroptions
class function ExePaths: String; virtual; // The default locations of the exe
class function GetProperties: TDebuggerProperties;
class procedure SetProperties(const AProperties: TDebuggerProperties);
procedure Init; virtual; // Initializes the debugger
procedure Done; virtual; // Kills the debugger
@ -873,7 +880,7 @@ type
function Modify(const AExpression, AValue: String): Boolean; // Modifies the given expression, returns true if valid
function TargetIsStarted: boolean; virtual;
public
public
property Arguments: String read FArguments write FArguments; // Arguments feed to the program
property BreakPoints: TDBGBreakPoints read FBreakPoints; // list of all breakpoints
property CallStack: TDBGCallStack read FCallStack;
@ -954,6 +961,9 @@ const
{dsRun } [dcPause, dcStop, dcBreak, dcWatch, dcEnvironment],
{dsError} [dcStop]
);
var
MDebuggerProperties: TDebuggerProperties;
function DBGCommandNameToCommand(const s: string): TDBGCommand;
begin
@ -1083,6 +1093,11 @@ begin
Result := TDBGLocals.Create(Self);
end;
class function TDebugger.CreateProperties: TDebuggerProperties;
begin
Result := TDebuggerProperties.Create;
end;
function TDebugger.CreateSignals: TDBGSignals;
begin
Result := TDBGSignals.Create(Self, TDBGSignal);
@ -1211,6 +1226,13 @@ begin
Result := COMMANDMAP[State] * GetSupportedCommands;
end;
class function TDebugger.GetProperties: TDebuggerProperties;
begin
if MDebuggerProperties = nil
then MDebuggerProperties := CreateProperties;
Result := MDebuggerProperties;
end;
function TDebugger.GetState: TDBGState;
begin
Result := FState;
@ -1310,6 +1332,17 @@ begin
end;
end;
class procedure SetProperties(const AProperties: TDebuggerProperties);
begin
if MDebuggerProperties = nil
then begin
GetDebuggerProperties;
if MDebuggerProperties = nil // they weren't created ?
then Exit;
end;
MDebuggerProperties.Assign(AProperties);
end;
procedure TDebugger.SetState(const AValue: TDBGState);
var
OldState: TDBGState;
@ -3091,9 +3124,18 @@ begin
inherited SetItem(Aindex, AValue);
end;
initialization
MDebuggerProperties := nil;
finalization
MDebuggerProperties.Free;
end.
{ =============================================================================
$Log$
Revision 1.52 2003/12/27 01:05:03 marc
+ Added debugger properties
Revision 1.51 2003/08/08 10:24:48 mattias
fixed initialenabled, debuggertype, linkscaner open string constant