summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2>2013-06-02 17:45:00 +0000
committermarco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2>2013-06-02 17:45:00 +0000
commit38cdc02a8f99d9b73c88386c4d4d2f19f7a522ad (patch)
treebb8355cd2d8aecbd8e68120b6e398cac1f8720f6
parent4d1c3a5e2aa7e53cbb90d5731eb312b07bb931f7 (diff)
downloadfpc-38cdc02a8f99d9b73c88386c4d4d2f19f7a522ad.tar.gz
* Fix for attributes.
M unix/sysutils.pp git-svn-id: http://svn.freepascal.org/svn/fpc/branches/unicode@24782 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r--rtl/unix/sysutils.pp1
1 files changed, 1 insertions, 0 deletions
diff --git a/rtl/unix/sysutils.pp b/rtl/unix/sysutils.pp
index 3e42d3aee6..06eebd2b0d 100644
--- a/rtl/unix/sysutils.pp
+++ b/rtl/unix/sysutils.pp
@@ -716,6 +716,7 @@ begin
If not Do_FindGetFileInfo then
exit;
WinAttr:=LinuxToWinAttr(s,st);
+ result:=(WinAttr and Not d^.searchattr)=0;
end;
Type