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

IDEIntf: renamed TDebuggerIntf.HasExePath to NeedsExePath, old kept as deprecated

Browse Source 
git-svn-id: trunk@47106 -
This commit is contained in:
mattias 2014-12-04 18:42:47 +00:00
parent e2c1838d3d
commit d7122737e1
5 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/debuggerintf/dbgintfdebuggerbase.pp
View File

@ -1729,7 +1729,8 @@ type
public
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 HasExePath: boolean; virtual; // If the debugger needs to have an exe path
class function HasExePath: boolean; virtual; deprecated; // use NeedsExePath instead
class function NeedsExePath: boolean; virtual; // If the debugger needs to have an exe path
// debugger properties
class function CreateProperties: TDebuggerProperties; virtual; // Creates debuggerproperties
@ -5484,6 +5485,11 @@ begin
Result := true; // most debugger are external and have an exe path
end;
class function TDebuggerIntf.NeedsExePath: boolean;
begin
Result := HasExePath;
end;
function TDebuggerIntf.GetCommands: TDBGCommands;
begin
Result := COMMANDMAP[State] * GetSupportedCommands;

4
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -156,7 +156,7 @@ type
function GetLocationRec(AnAddress: TDBGPtr=0): TDBGLocationRec;
function GetLocation: TDBGLocationRec; override;
class function Caption: String; override;
class function HasExePath: boolean; override;
class function NeedsExePath: boolean; override;
class function CreateProperties: TDebuggerProperties; override;
function GetSupportedCommands: TDBGCommands; override;
end;
@ -1799,7 +1799,7 @@ begin
Result:='FpDebug internal Dwarf-debugger (alpha)';
end;
class function TFpDebugDebugger.HasExePath: boolean;
class function TFpDebugDebugger.NeedsExePath: boolean;
begin
Result:=False;
end;

2
debugger/frames/debugger_general_options.pas
View File

@ -293,7 +293,7 @@ function TDebuggerGeneralOptionsFrame.Check: Boolean;
begin
Result := false;
if assigned(FCurDebuggerClass) and FCurDebuggerClass.HasExePath
if assigned(FCurDebuggerClass) and FCurDebuggerClass.NeedsExePath
and (EnvironmentOptions.DebuggerFilename <> cmbDebuggerPath.Text)
then begin
EnvironmentOptions.DebuggerFilename := cmbDebuggerPath.Text;

4
debugger/processdebugger.pp
View File

@ -57,7 +57,7 @@ type
function RequestCommand(const ACommand: TDBGCommand; const AParams: array of const): Boolean; override;
public
class function Caption: String; override;
class function HasExePath: boolean; override;
class function NeedsExePath: boolean; override;
published
end;
@ -169,7 +169,7 @@ begin
Result := '(none)';
end;
class function TProcessDebugger.HasExePath: boolean;
class function TProcessDebugger.NeedsExePath: boolean;
begin
Result:= false; // no need to have a valid exe path for the process debugger
end;

4
ide/debugmanager.pas
View File

@ -2168,7 +2168,7 @@ begin
end;
// check if debugger needs an Exe and the exe is there
if (NewDebuggerClass.HasExePath)
if (NewDebuggerClass.NeedsExePath)
and not FileIsExecutable(EnvironmentOptions.GetParsedDebuggerFilename)
then begin
if not PromptOnError then
@ -2351,7 +2351,7 @@ var
begin
DbgClass:=FindDebuggerClass(EnvironmentOptions.DebuggerConfig.DebuggerClass);
if (DbgClass=nil)
or (DbgClass.HasExePath
or (DbgClass.NeedsExePath
and (not FileIsExecutableCached(EnvironmentOptions.GetParsedDebuggerFilename)))
then begin
if IDEQuestionDialog(lisDbgMangNoDebuggerSpecified,