Explorar el Código

ppudump: catch exception on illegal datetime (mainly cross compiled units)

git-svn-id: trunk@45219 -
marcus hace 5 años
padre
commit
4d71051859
Se han modificado 1 ficheros con 6 adiciones y 3 borrados
  1. 6 3
      compiler/utils/ppuutils/ppudump.pp

+ 6 - 3
compiler/utils/ppuutils/ppudump.pp

@@ -4762,9 +4762,12 @@ begin
                    with TPpuSrcFile.Create(CurUnit.SourceFiles) do begin
                      Name:=getstring;
                      i:=getlongint;
-                     if i >= 0 then
-                       FileTime:=FileDateToDateTime(i);
-                     Writeln(['Source file ',sourcenumber,' : ',Name,' ',filetimestring(i)]);
+                     try
+                       if i >= 0 then
+                         FileTime:=FileDateToDateTime(i);
+                       Writeln(['Source file ',sourcenumber,' : ',Name,' ',filetimestring(i)]);
+                     except
+                     end;
                    end;
 
                    inc(sourcenumber);