paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 06:39:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

MWE: + Added working dir

Browse Source 
git-svn-id: trunk@4247 -
This commit is contained in:
marc 2003-06-09 14:16:52 +00:00
parent 57effbf6b3
commit e23ac51d8f
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
debugger/debugger.pp
View File

@ -589,11 +589,13 @@ type
FOnOutput: TDBGOutputEvent; FOnOutput: TDBGOutputEvent;
FOnDbgOutput: TDBGOutputEvent; FOnDbgOutput: TDBGOutputEvent;
FOnState: TDebuggerStateChangedEvent; FOnState: TDebuggerStateChangedEvent;
FWorkingDir: String;
function GetState: TDBGState; function GetState: TDBGState;
function ReqCmd(const ACommand: TDBGCommand; function ReqCmd(const ACommand: TDBGCommand;
const AParams: array of const): Boolean; const AParams: array of const): Boolean;
procedure SetEnvironment(const AValue: TStrings); procedure SetEnvironment(const AValue: TStrings);
procedure SetFileName(const AValue: String); procedure SetFileName(const AValue: String);
procedure SetWorkingDir (const AValue: String );
protected protected
function CreateBreakPoints: TDBGBreakPoints; virtual; function CreateBreakPoints: TDBGBreakPoints; virtual;
function CreateLocals: TDBGLocals; virtual; function CreateLocals: TDBGLocals; virtual;
@ -605,6 +607,7 @@ type
procedure DoOutput(const AText: String); procedure DoOutput(const AText: String);
procedure DoState(const OldState: TDBGState); virtual; procedure DoState(const OldState: TDBGState); virtual;
function ChangeFileName: Boolean; virtual; function ChangeFileName: Boolean; virtual;
function ChangeWorkingDir: Boolean; virtual;
function GetCommands: TDBGCommands; function GetCommands: TDBGCommands;
function GetSupportedCommands: TDBGCommands; virtual; function GetSupportedCommands: TDBGCommands; virtual;
function RequestCommand(const ACommand: TDBGCommand; function RequestCommand(const ACommand: TDBGCommand;
@ -642,7 +645,7 @@ type
*) *)
public public
property Arguments: String read FArguments write FArguments; // Arguments feed to the program property Arguments: String read FArguments write FArguments; // Arguments feed to the program
property BreakPoints: TDBGBreakPoints read FBreakPoints; // list of all breakpoints property BreakPoints: TDBGBreakPoints read FBreakPoints; // list of all breakpoints
property CallStack: TDBGCallStack read FCallStack; property CallStack: TDBGCallStack read FCallStack;
property Commands: TDBGCommands read GetCommands; // All current available commands of the debugger property Commands: TDBGCommands read GetCommands; // All current available commands of the debugger
property Environment: TStrings read FEnvironment write SetEnvironment; property Environment: TStrings read FEnvironment write SetEnvironment;
@ -654,10 +657,11 @@ type
property OnDbgOutput: TDBGOutputEvent read FOnDbgOutput write FOnDbgOutput; // Passes all debuggeroutput property OnDbgOutput: TDBGOutputEvent read FOnDbgOutput write FOnDbgOutput; // Passes all debuggeroutput
property OnException: TDBGExceptionEvent read FOnException write FOnException; // Fires when the debugger received an exeption property OnException: TDBGExceptionEvent read FOnException write FOnException; // Fires when the debugger received an exeption
property OnOutput: TDBGOutputEvent read FOnOutput write FOnOutput; // Passes all output of the debugged target property OnOutput: TDBGOutputEvent read FOnOutput write FOnOutput; // Passes all output of the debugged target
property OnState: TDebuggerStateChangedEvent read FOnState write FOnState; // Fires when the current state of the debugger changes property OnState: TDebuggerStateChangedEvent read FOnState write FOnState; // Fires when the current state of the debugger changes
property State: TDBGState read FState; // The current state of the debugger property State: TDBGState read FState; // The current state of the debugger
property SupportedCommands: TDBGCommands read GetSupportedCommands; // All available commands of the debugger property SupportedCommands: TDBGCommands read GetSupportedCommands; // All available commands of the debugger
property Watches: TDBGWatches read FWatches; // list of all watches localvars etc property Watches: TDBGWatches read FWatches; // list of all watches localvars etc
property WorkingDir: String read FWorkingDir write SetWorkingDir; // The wirking dir of the exe being debugged
end; end;
const const
@ -739,6 +743,11 @@ begin
Result := True; Result := True;
end; end;
function TDebugger.ChangeWorkingDir: Boolean;
begin
Result := True;
end;
constructor TDebugger.Create(const AExternalDebugger: String); constructor TDebugger.Create(const AExternalDebugger: String);
begin begin
inherited Create; inherited Create;
@ -981,6 +990,13 @@ begin
end; end;
end; end;
procedure TDebugger.SetWorkingDir (const AValue: String );
begin
if FWorkingDir = AValue then exit;
FWorkingDir := AValue;
ChangeWorkingDir;
end;
procedure TDebugger.InitTargetStart; procedure TDebugger.InitTargetStart;
begin begin
FBreakPoints.InitTargetStart; FBreakPoints.InitTargetStart;
@ -2454,6 +2470,9 @@ end;
end. end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.40 2003/06/09 14:16:52 marc
MWE: + Added working dir
Revision 1.39 2003/06/03 16:12:14 mattias Revision 1.39 2003/06/03 16:12:14 mattias
fixed loading bookmarks for editor index 0 fixed loading bookmarks for editor index 0