paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 10:49:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed FindFirst/FindNext so it treats the attributes correctly

Browse Source
This commit is contained in:
michael 2004-05-22 14:25:03 +00:00
parent 3c8d4c8f11
commit 94ed600e1e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/unix/sysutils.pp
View File

@ -241,7 +241,7 @@ begin
New(GlobSearchRec);
GlobSearchRec^.Path:=ExpandFileName(ExtractFilePath(Path));
GlobSearchRec^.GlobHandle:=Glob(Path);
Rslt.ExcludeAttr:=Not Attr; //!! Not correct !!
Rslt.ExcludeAttr:=Not Attr and (faHidden or faSysFile or faVolumeID or faDirectory); //!! Not correct !!
Rslt.FindHandle:=GlobSearchRec;
Result:=DoFind (Rslt);
end;
@ -635,7 +635,10 @@ end.
{
$Log$
Revision 1.40 2004-04-28 20:48:20 peter
Revision 1.41 2004-05-22 14:25:03 michael
+ Fixed FindFirst/FindNext so it treats the attributes correctly
Revision 1.40 2004/04/28 20:48:20 peter
* ordinal-pointer conversions fixed
Revision 1.39 2004/04/26 14:50:19 peter