* use fileage for retrieving file timestamps

git-svn-id: trunk@5110 -

compiler/comphook.pas

@@ -379,13 +379,8 @@ end;
 
 
 Function def_GetNamedFileTime (Const F : String) : Longint;
-var
-  fh : THandle;
 begin
-  Result := -1;
-  fh := FileOpen(f, faArchive+faReadOnly+faHidden);
-  Result := FileGetDate(fh);
-  FileClose(fh);
+  Result:=FileAge(F);
 end;
 
 end.