paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed FileExists for >2GB files

Browse Source 
git-svn-id: trunk@5929 -
This commit is contained in:
michael 2007-01-12 19:36:24 +00:00
parent 227ec1012d
commit ea0fc335d1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/unix/sysutils.pp
View File

@ -269,10 +269,10 @@ end;
Function FileExists (Const FileName : String) : Boolean;
Var Info : Stat;
begin
FileExists:=fpstat(filename,Info)>=0;
// Don't use stat. It fails on files >2 GB.
// Access obeys the same access rules, so the result should be the same.
FileExists:=fpAccess(filename,F_OK)=0;
end;