DBG: gdb default locations for windows

git-svn-id: trunk@32341 -
This commit is contained in:
martin 2011-09-14 22:06:17 +00:00
parent 6f281ea701
commit c3fa344c51
2 changed files with 11 additions and 3 deletions

View File

@ -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;

View File

@ -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(