paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 09:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix getdir when directory contains files that give EACCESS

Browse Source
This commit is contained in:
peter 2003-12-21 20:31:50 +00:00
parent c6e1a6a6d1
commit 03d60dec7f
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/bsd/osmain.inc
View File

@ -465,11 +465,6 @@ begin
((d^.d_name[1]='.') and (d^.d_name[2]=#0))))) then ((d^.d_name[1]='.') and (d^.d_name[2]=#0))))) then
name:='/'+strpas(d^.d_name); name:='/'+strpas(d^.d_name);
end; end;
end
else
begin
if (Errno<>ESysENOENT) then
Exit;
end; end;
until (name<>''); until (name<>'');
if Fpclosedir(dirstream)<0 then if Fpclosedir(dirstream)<0 then
@ -671,7 +666,10 @@ End.
{ {
$Log$ $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 * fix for repeating 'x' bug
Revision 1.6 2003/11/18 10:12:25 marco Revision 1.6 2003/11/18 10:12:25 marco