Explorar o código

--- Merging (from foreign repository) r44090 into '.':
U rtl/unix/sysutils.pp

git-svn-id: branches/fixes_3_2@44228 -

joost %!s(int64=5) %!d(string=hai) anos
pai
achega
4b06ea7fe7
Modificáronse 1 ficheiros con 3 adicións e 0 borrados
  1. 3 0
      rtl/unix/sysutils.pp

+ 3 - 0
rtl/unix/sysutils.pp

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