Explorar o código

+ debugging statement

florian %!s(int64=4) %!d(string=hai) anos
pai
achega
396a030fc2
Modificáronse 1 ficheiros con 3 adicións e 0 borrados
  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;