paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 11:49:28 +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

3
rtl/inc/exeinfo.pp
View File

@ -1660,6 +1660,9 @@ begin
end;
if not OpenExeFile(dsymexefile,e.filename+'.dSYM/Contents/Resources/DWARF/'+copy(e.filename,filenamestartpos,length(e.filename))) then
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);
exit;
end;