mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-23 08:45:55 +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
|
uses
|
||||||
Classes, SysUtils, TypInfo, FileUtil, Forms, Controls, StdCtrls,
|
Classes, SysUtils, TypInfo, FileUtil, Forms, Controls, StdCtrls,
|
||||||
ExtCtrls, Buttons, Dialogs, LCLProc,
|
ExtCtrls, Buttons, Dialogs, LCLProc,
|
||||||
PropEdits, ObjectInspector,
|
PropEdits, ObjectInspector, TransferMacros,
|
||||||
LazarusIDEStrConsts, IDEOptionsIntf, PathEditorDlg, InputHistory, IDEProcs,
|
LazarusIDEStrConsts, IDEOptionsIntf, PathEditorDlg, InputHistory, IDEProcs,
|
||||||
EnvironmentOpts, BaseDebugManager, Debugger;
|
EnvironmentOpts, BaseDebugManager, Debugger;
|
||||||
|
|
||||||
@ -159,7 +159,7 @@ end;
|
|||||||
|
|
||||||
procedure TDebuggerGeneralOptionsFrame.FetchDebuggerSpecificOptions;
|
procedure TDebuggerGeneralOptionsFrame.FetchDebuggerSpecificOptions;
|
||||||
var
|
var
|
||||||
S: String;
|
S, S2, S3: String;
|
||||||
i: Integer;
|
i: Integer;
|
||||||
Filename: string;
|
Filename: string;
|
||||||
NewFilename: string;
|
NewFilename: string;
|
||||||
@ -174,7 +174,11 @@ begin
|
|||||||
S := FCurDebuggerClass.ExePaths;
|
S := FCurDebuggerClass.ExePaths;
|
||||||
while S <> '' do
|
while S <> '' do
|
||||||
begin
|
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);
|
if S <> '' then System.Delete(S, 1, 1);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
@ -6049,7 +6049,11 @@ end;
|
|||||||
|
|
||||||
class function TGDBMIDebugger.ExePaths: String;
|
class function TGDBMIDebugger.ExePaths: String;
|
||||||
begin
|
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';
|
Result := '/usr/bin/gdb;/usr/local/bin/gdb;/opt/fpc/gdb';
|
||||||
|
{$ENDIF}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TGDBMIDebugger.FindBreakpoint(
|
function TGDBMIDebugger.FindBreakpoint(
|
||||||
|
Loading…
Reference in New Issue
Block a user