paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-24 09:26:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: gdb default locations for windows

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
debugger/frames/debugger_general_options.pas
View File

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

4
debugger/gdbmidebugger.pp
View File

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