paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-27 00:16:07 +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 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;

4
debugger/gdbmidebugger.pp
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(