瀏覽代碼

+ debugging statement

florian 3 年之前
父節點
當前提交
396a030fc2
共有 1 個文件被更改,包括 3 次插入0 次删除
  1. 3 0
      rtl/inc/exeinfo.pp

+ 3 - 0
rtl/inc/exeinfo.pp

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