* fixes a findfirst bug (thanks to jesusrmx)

git-svn-id: trunk@4807 -

rtl/unix/sysutils.pp

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