Browse Source

+ debugging statement

florian 3 năm trước cách đây
mục cha
commit
396a030fc2
1 tập tin đã thay đổi với 3 bổ sung0 xóa
  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;