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

* fixes a findfirst bug (thanks to jesusrmx)

Browse Source 
git-svn-id: trunk@4807 -
This commit is contained in:
Almindor 2006-10-05 20:28:53 +00:00
parent ec1b8a90a6
commit d107c6649c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/unix/sysutils.pp
View File

@ -505,7 +505,7 @@ Begin
exit; exit;
{ Allocate UnixFindData } { Allocate UnixFindData }
New(UnixFindData); New(UnixFindData);
FillChar(UnixFindData^,sizeof(UnixFindData),0); FillChar(UnixFindData^,sizeof(UnixFindData^),0);
Rslt.FindHandle:=UnixFindData; Rslt.FindHandle:=UnixFindData;
{Create Info} {Create Info}
UnixFindData^.SearchSpec := Path; UnixFindData^.SearchSpec := Path;