paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 09:50:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ debugging statement

Browse Source
This commit is contained in:
florian 2021-09-04 19:11:41 +02:00
parent b36154671b
commit 396a030fc2
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/exeinfo.pp
View File

@ -1660,6 +1660,9 @@ begin
end; end;
if not OpenExeFile(dsymexefile,e.filename+'.dSYM/Contents/Resources/DWARF/'+copy(e.filename,filenamestartpos,length(e.filename))) then if not OpenExeFile(dsymexefile,e.filename+'.dSYM/Contents/Resources/DWARF/'+copy(e.filename,filenamestartpos,length(e.filename))) then
begin begin
{$IFDEF DEBUG_LINEINFO}
writeln(stderr,'OpenExeFile for ',e.filename+'.dSYM/Contents/Resources/DWARF/'+copy(e.filename,filenamestartpos,length(e.filename)),' did not succeed.');
{$endif DEBUG_LINEINFO}
UnmapMachO(mappedexe, mappedexesize); UnmapMachO(mappedexe, mappedexesize);
exit; exit;
end; end;