paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 10:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

debugger: fix compilation on mac

Browse Source 
git-svn-id: trunk@43289 -
This commit is contained in:
paul 2013-10-20 03:24:35 +00:00
parent f9cf79728d
commit 74bd6a45c6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/gdbmidebugger.pp
View File

@ -1643,10 +1643,10 @@ begin
Result := ExecuteCommand('-file-exec-and-symbols %s', [S], R); Result := ExecuteCommand('-file-exec-and-symbols %s', [S], R);
if not Result then exit; if not Result then exit;
{$IFDEF darwin} {$IFDEF darwin}
if (R.State = dsError) and (FFileName <> '') if (R.State = dsError) and (FTheDebugger.FileName <> '')
then begin then begin
FFileName := FFileName + '/Contents/MacOS/' + ExtractFileNameOnly(FTheDebugger.FileName); S := FTheDebugger.FileName + '/Contents/MacOS/' + ExtractFileNameOnly(FTheDebugger.FileName);
S := FTheDebugger.ConvertToGDBPath(UTF8ToSys(FFileName), cgptExeName); S := FTheDebugger.ConvertToGDBPath(UTF8ToSys(S), cgptExeName);
Result := ExecuteCommand('-file-exec-and-symbols %s', [S], R); Result := ExecuteCommand('-file-exec-and-symbols %s', [S], R);
if not Result then exit; if not Result then exit;
end; end;