mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-22 16:27:20 +02:00
DBG: gdb default locations for windows
git-svn-id: trunk@32341 -
This commit is contained in:
parent
6f281ea701
commit
c3fa344c51
@ -27,7 +27,7 @@ interface
|
||||
uses
|
||||
Classes, SysUtils, TypInfo, FileUtil, Forms, Controls, StdCtrls,
|
||||
ExtCtrls, Buttons, Dialogs, LCLProc,
|
||||
PropEdits, ObjectInspector,
|
||||
PropEdits, ObjectInspector, TransferMacros,
|
||||
LazarusIDEStrConsts, IDEOptionsIntf, PathEditorDlg, InputHistory, IDEProcs,
|
||||
EnvironmentOpts, BaseDebugManager, Debugger;
|
||||
|
||||
@ -159,7 +159,7 @@ end;
|
||||
|
||||
procedure TDebuggerGeneralOptionsFrame.FetchDebuggerSpecificOptions;
|
||||
var
|
||||
S: String;
|
||||
S, S2, S3: String;
|
||||
i: Integer;
|
||||
Filename: string;
|
||||
NewFilename: string;
|
||||
@ -174,7 +174,11 @@ begin
|
||||
S := FCurDebuggerClass.ExePaths;
|
||||
while S <> '' do
|
||||
begin
|
||||
Add(GetPart([], [';'], S));
|
||||
S2 := GetPart([], [';'], S);
|
||||
S3 := S2;
|
||||
if GlobalMacroList.SubstituteStr(S2)
|
||||
then Add(S2)
|
||||
else Add(S3);
|
||||
if S <> '' then System.Delete(S, 1, 1);
|
||||
end;
|
||||
end;
|
||||
|
@ -6049,7 +6049,11 @@ end;
|
||||
|
||||
class function TGDBMIDebugger.ExePaths: String;
|
||||
begin
|
||||
{$IFdef MSWindows}
|
||||
Result := '$(LazarusDir)\mingw\bin\gdb.exe;C:\lazarus\mingw\bin\gdb.exe';
|
||||
{$ELSE}
|
||||
Result := '/usr/bin/gdb;/usr/local/bin/gdb;/opt/fpc/gdb';
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function TGDBMIDebugger.FindBreakpoint(
|
||||
|
Loading…
Reference in New Issue
Block a user