Browse Source

+ debugging statement

florian 4 years ago
parent
commit
396a030fc2
1 changed files with 3 additions and 0 deletions
  1. 3 0
      rtl/inc/exeinfo.pp

+ 3 - 0
rtl/inc/exeinfo.pp

@@ -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;