mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-09 02:16:48 +02:00
Debugger: set default for "enable dwarf" dialog
This commit is contained in:
parent
5882a5bfb5
commit
bf6c6ba4d9
@ -1537,7 +1537,15 @@ type
|
||||
etWindowsMessageSent
|
||||
);
|
||||
|
||||
TDebugCompilerRequirement = (dcrNoExternalDbgInfo, dcrExternalDbgInfoOnly, dcrDwarfOnly);
|
||||
TDebugCompilerRequirement = (
|
||||
dcrNoExternalDbgInfo,
|
||||
dcrExternalDbgInfoOnly,
|
||||
dcrDwarfOnly,
|
||||
|
||||
// preferred defaults
|
||||
dcrPreferDwarf2Sets,
|
||||
dcrPreferDwarf3
|
||||
);
|
||||
TDebugCompilerRequirements = set of TDebugCompilerRequirement;
|
||||
|
||||
TDBGFeedbackType = (ftInformation, ftWarning, ftError);
|
||||
|
@ -4569,6 +4569,7 @@ begin
|
||||
{$ELSE}
|
||||
Result:=[dcrDwarfOnly];
|
||||
{$ENDIF}
|
||||
Result := Result + [dcrPreferDwarf3];
|
||||
end;
|
||||
|
||||
class function TFpDebugDebugger.CreateProperties: TDebuggerProperties;
|
||||
|
@ -1714,6 +1714,7 @@ begin
|
||||
Result:=[dcrNoExternalDbgInfo, dcrDwarfOnly];
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
Result := Result + [dcrPreferDwarf3];
|
||||
end;
|
||||
|
||||
constructor TFpLldbDebugger.Create(const AExternalDebugger: String);
|
||||
|
@ -3134,7 +3134,7 @@ end;
|
||||
class function TLldbDebugger.RequiredCompilerOpts(ATargetCPU, ATargetOS: String
|
||||
): TDebugCompilerRequirements;
|
||||
begin
|
||||
Result:=[dcrDwarfOnly];
|
||||
Result:=[dcrDwarfOnly, dcrPreferDwarf2Sets];
|
||||
end;
|
||||
|
||||
function TLldbDebugger.GetLocation: TDBGLocationRec;
|
||||
|
@ -7347,6 +7347,11 @@ begin
|
||||
ModalResult := 400;
|
||||
Caption := lisTheProjectDoesNotUseDwarf_TaskDlg_NoDebugBtn_Caption;
|
||||
end;
|
||||
if dcrPreferDwarf2Sets in ReqOpts then
|
||||
ChangeDebugInfoFormatDialog.RadioButtons.DefaultButton := ChangeDebugInfoFormatDialog.RadioButtons[0]
|
||||
else
|
||||
if dcrPreferDwarf3 in ReqOpts then
|
||||
ChangeDebugInfoFormatDialog.RadioButtons.DefaultButton := ChangeDebugInfoFormatDialog.RadioButtons[2];
|
||||
|
||||
ChangeDebugInfoFormatDialog.OnButtonClicked := @DlgDebugInfoHelpRequested;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user