paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-20 23:30:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging (from foreign repository) r44090 into '.':

Browse Source 
U    rtl/unix/sysutils.pp

git-svn-id: branches/fixes_3_2@44228 -
This commit is contained in:
joost 2020-02-21 14:49:57 +00:00
parent 6704b5fa9f
commit 4b06ea7fe7
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/unix/sysutils.pp
View File

@ -662,6 +662,9 @@ var
SystemFileName: RawByteString; SystemFileName: RawByteString;
isdir: Boolean; isdir: Boolean;
begin begin
// Do not call fpAccess with an empty name. (Valgrind will complain)
if Filename='' then
Exit(False);
SystemFileName:=ToSingleByteFileSystemEncodedFileName(FileName); SystemFileName:=ToSingleByteFileSystemEncodedFileName(FileName);
// Don't use stat. It fails on files >2 GB. // Don't use stat. It fails on files >2 GB.
// Access obeys the same access rules, so the result should be the same. // Access obeys the same access rules, so the result should be the same.