From d107c6649c4b0e5336403dd959926e67c9f2922c Mon Sep 17 00:00:00 2001
From: Almindor <almindor@gmail.com>
Date: Thu, 5 Oct 2006 20:28:53 +0000
Subject: [PATCH] * fixes a findfirst bug (thanks to jesusrmx)

git-svn-id: trunk@4807 -
---
 rtl/unix/sysutils.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/unix/sysutils.pp b/rtl/unix/sysutils.pp
index ed474c64b0..2fe34d4817 100644
--- a/rtl/unix/sysutils.pp
+++ b/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;