paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 09:19:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Try filename in app bundle for newer gdb

Browse Source 
git-svn-id: trunk@43240 -
This commit is contained in:
martin 2013-10-13 21:45:10 +00:00
parent 3a38088ecf
commit 4f8bfb32e9
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
debugger/gdbmidebugger.pp
View File

@ -2596,6 +2596,7 @@ function TGDBMIDebuggerCommandChangeFilename.DoExecute: Boolean;
var
R: TGDBMIExecResult;
List: TGDBMINameValueList;
S: String;
begin
Result := True;
FSuccess := False;
@ -2608,8 +2609,18 @@ begin
FTheDebugger.FRunErrorBreak.Clear(Self);
if DebuggerState = dsError then Exit;
FSuccess := ExecuteCommand('-file-exec-and-symbols %s', [FFileName], R);
S := FTheDebugger.ConvertToGDBPath(UTF8ToSys(FFileName), cgptExeName);
FSuccess := ExecuteCommand('-file-exec-and-symbols %s', [S], R);
if not FSuccess then exit;
{$IFDEF darwin}
if (R.State = dsError) and (FFileName <> '')
then begin
FFileName := FFileName + '/Contents/MacOS/' + ExtractFileNameOnly(FFileName);
S := FTheDebugger.ConvertToGDBPath(UTF8ToSys(FFileName), cgptExeName);
FSuccess := ExecuteCommand('-file-exec-and-symbols %s', [S], R);
if not FSuccess then exit;
end;
{$ENDIF}
if (R.State = dsError) and (FFileName <> '')
then begin
@ -7002,15 +7013,13 @@ end;
function TGDBMIDebugger.ChangeFileName: Boolean;
var
S: String;
Cmd: TGDBMIDebuggerCommandChangeFilename;
begin
Result := False;
FCurrentStackFrameValid := False; // not running => not valid
FCurrentThreadIdValid := False;
S := ConvertToGDBPath(UTF8ToSys(FileName), cgptExeName);
Cmd := TGDBMIDebuggerCommandChangeFilename.Create(Self, S);
Cmd := TGDBMIDebuggerCommandChangeFilename.Create(Self, FileName);
Cmd.AddReference;
QueueCommand(Cmd);
// if filename = '', then command may be queued