Selaa lähdekoodia

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

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

joost 5 vuotta sitten
vanhempi
commit
4b06ea7fe7
1 muutettua tiedostoa jossa 3 lisäystä ja 0 poistoa
  1. 3 0
      rtl/unix/sysutils.pp

+ 3 - 0
rtl/unix/sysutils.pp

@@ -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.