paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 23:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bug #533, in findmatch

Browse Source
This commit is contained in:
michael 1999-08-18 08:38:42 +00:00
parent 0988042528
commit 2a03e0ab6c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/win32/filutil.inc
View File

@ -158,6 +158,7 @@ begin
f.size:=F.FindData.NFileSizeLow; f.size:=F.FindData.NFileSizeLow;
f.attr:=F.FindData.dwFileAttributes; f.attr:=F.FindData.dwFileAttributes;
f.Name:=StrPas(@F.FindData.cFileName); f.Name:=StrPas(@F.FindData.cFileName);
Result:=0;
end; end;
Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint; Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
@ -426,7 +427,10 @@ end;
{ {
$Log$ $Log$
Revision 1.10 1999-04-20 11:36:13 peter Revision 1.11 1999-08-18 08:38:42 michael
* Fixed bug 533, in findmatch
Revision 1.10 1999/04/20 11:36:13 peter
* compatibility fixes * compatibility fixes
Revision 1.9 1999/04/08 12:23:09 peter Revision 1.9 1999/04/08 12:23:09 peter