From 0c5124c295df2ca0d18045f662d5b271405ad0c6 Mon Sep 17 00:00:00 2001
From: micha <micha@idefix.freepascal.org>
Date: Wed, 11 Oct 2006 18:19:06 +0000
Subject: [PATCH] * fix compilation of sysutils, partly revert patch from peter
 which was a modified version of my patch

git-svn-id: trunk@4863 -
---
 rtl/unix/sysutils.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/unix/sysutils.pp b/rtl/unix/sysutils.pp
index 26847cd7aa..75d259191e 100644
--- a/rtl/unix/sysutils.pp
+++ b/rtl/unix/sysutils.pp
@@ -388,6 +388,7 @@ End;
 
 Type
   TUnixFindData = Record
+    NamePos    : LongInt;     {to track which search this is}
     DirPtr     : Pointer;     {directory pointer for reading directory}
     SearchSpec : String;
     SearchType : Byte;        {0=normal, 1=open will close, 2=only 1 file}
@@ -460,8 +461,7 @@ Begin
       If UnixFindData^.NamePos = 0 Then
         DirName:='./'
       Else
-        DirName:=
-	Copy(UnixFindData^.SearchSpec,1,UnixFindData^.NamePos);
+        DirName:=Copy(UnixFindData^.SearchSpec,1,UnixFindData^.NamePos);
       UnixFindData^.DirPtr := fpopendir(Pchar(DirName));
     end;
   SName:=Copy(UnixFindData^.SearchSpec,UnixFindData^.NamePos+1,Length(UnixFindData^.SearchSpec));