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

Debugger: let the debugger request certain compiler opts (eg: needs dwarf, or external info)

Browse Source 
git-svn-id: trunk@58680 -
This commit is contained in:
martin 2018-08-05 13:05:21 +00:00
parent 9f8beba93e
commit b3d8d81fe7
3 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2057,10 +2057,10 @@ end;
class function TFpDebugDebugger.RequiredCompilerOpts(ATargetCPU, ATargetOS: String): TDebugCompilerRequirements;
begin
{$ifdef CD_Cocoa}{$DEFINE MacOS}
if ATargetCPU = '' then ATargetCPU := 'x86_64'
if ATargetCPU = '' then ATargetCPU := 'x86_64';
{$ENDIF}
{$IFDEF Darwin}{$DEFINE MacOS}
if ATargetCPU = '' then ATargetCPU := 'i386'
if ATargetCPU = '' then ATargetCPU := 'i386';
{$ENDIF}
{$IFDEF MacOs}
if LowerCase(ATargetCPU) = 'i386' then

4
components/lazdebuggers/lazdebuggerfplldb/fplldbdebugger.pas
View File

@ -1150,10 +1150,10 @@ end;
class function TFpLldbDebugger.RequiredCompilerOpts(ATargetCPU, ATargetOS: String): TDebugCompilerRequirements;
begin
{$ifdef CD_Cocoa}{$DEFINE MacOS}
if ATargetCPU = '' then ATargetCPU := 'x86_64'
if ATargetCPU = '' then ATargetCPU := 'x86_64';
{$ENDIF}
{$IFDEF Darwin}{$DEFINE MacOS}
if ATargetCPU = '' then ATargetCPU := 'i386'
if ATargetCPU = '' then ATargetCPU := 'i386';
{$ENDIF}
{$IFDEF MacOs}
if LowerCase(ATargetCPU) = 'i386' then

8
components/lazdebuggers/lazdebuggerlldb/lldbdebugger.pas
View File

@ -214,6 +214,8 @@ type
procedure Init; override; // Initializes external debugger
procedure Done; override; // Kills external debugger
class function RequiredCompilerOpts(ATargetCPU, ATargetOS: String
): TDebugCompilerRequirements; override;
function GetLocation: TDBGLocationRec; override;
// function GetProcessList({%H-}AList: TRunningProcessInfoList): boolean; override;
// function NeedReset: Boolean; override;
@ -1929,6 +1931,12 @@ begin
DebugLnExit('!!! TLldbDebugger.Done;');
end;
class function TLldbDebugger.RequiredCompilerOpts(ATargetCPU, ATargetOS: String
): TDebugCompilerRequirements;
begin
Result:=[dcrDwarfOnly];
end;
function TLldbDebugger.GetLocation: TDBGLocationRec;
begin
Result := FCurrentLocation;