From 03d60dec7f624b99c35214acec4616c0f53d1758 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 21 Dec 2003 20:31:50 +0000
Subject: [PATCH]   * fix getdir when directory contains files that give
 EACCESS

---
 rtl/bsd/osmain.inc | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/rtl/bsd/osmain.inc b/rtl/bsd/osmain.inc
index 738f0c2406..dd2dd7fa97 100644
--- a/rtl/bsd/osmain.inc
+++ b/rtl/bsd/osmain.inc
@@ -465,11 +465,6 @@ begin
                     ((d^.d_name[1]='.') and (d^.d_name[2]=#0))))) then
               name:='/'+strpas(d^.d_name);
           end;
-       end
-      else
-       begin
-         if (Errno<>ESysENOENT) then
-          Exit;
        end;
     until (name<>'');
     if Fpclosedir(dirstream)<0 then
@@ -671,7 +666,10 @@ End.
 
 {
    $Log$
-   Revision 1.7  2003-12-14 14:47:02  marco
+   Revision 1.8  2003-12-21 20:31:50  peter
+     * fix getdir when directory contains files that give EACCESS
+
+   Revision 1.7  2003/12/14 14:47:02  marco
     * fix for repeating 'x' bug
 
    Revision 1.6  2003/11/18 10:12:25  marco