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

FpDebug: Fix upper/lower spelling of Contents/MacOS

Browse Source 
git-svn-id: trunk@61066 -
This commit is contained in:
martin 2019-04-27 15:10:17 +00:00
parent bce16b1033
commit 157ea70bdb
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpimgreaderbase.pas
View File

@ -202,7 +202,7 @@ begin
{$IFDEF MacOS}
if (RightStr(AFileName,4) = '.app') then begin
s := ExtractFileName(AFileName);
s := AFileName + PathDelim + 'Contents' + PathDelim + 'MacOs' + PathDelim + copy(s, 1, Length(s) - 4);
s := AFileName + PathDelim + 'Contents' + PathDelim + 'MacOS' + PathDelim + copy(s, 1, Length(s) - 4);
if (FileExists(s)) then AFileName := s
end;
{$ENDIF}

4
components/fpdebug/fpimgreadermacho.pas
View File

@ -353,11 +353,11 @@ begin
// those .o files a dSYM-bundle could be used, which could be generated
// with dsymutil.
// PLoader.FileName in Contents/MacOs
// PLoader.FileName in Contents/MacOS
ALoader:=nil;
fname := PLoader.FileName;
i := pos('/Contents/MacOs', fname);
i := pos('/Contents/MacOS', fname);
if i > 0 then delete(fname, i, Length(fname));
dSYMFilename:=ChangeFileExt(PLoader.FileName, '.dSYM');
dSYMFilename:=dSYMFilename+'/Contents/Resources/DWARF/'+ExtractFileName(fname); // TDbgProcess.Name