From 9701081657c43ade2291429b7ac7ec5817cde526 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 19 Dec 2004 18:03:29 +0000
Subject: [PATCH] + Added mode field to TSearchRec for Kylix compatibility

---
 rtl/objpas/sysutils/filutilh.inc | 6 +++++-
 rtl/unix/sysutils.pp             | 6 +++++-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/rtl/objpas/sysutils/filutilh.inc b/rtl/objpas/sysutils/filutilh.inc
index 66acd29520..d61bd198d4 100644
--- a/rtl/objpas/sysutils/filutilh.inc
+++ b/rtl/objpas/sysutils/filutilh.inc
@@ -23,6 +23,7 @@ Type
     ExcludeAttr : Longint;
 {$ifdef unix}    
     FindHandle : Pointer;
+    Mode : TMode;
 {$else unix}
     FindHandle : THandle;
 {$endif unix}    
@@ -92,7 +93,10 @@ Function GetFileHandle(var f : Text):Longint;
 
 {
   $Log$
-  Revision 1.7  2004-10-03 20:27:00  armin
+  Revision 1.8  2004-12-19 18:03:29  michael
+  + Added mode field to TSearchRec for Kylix compatibility
+
+  Revision 1.7  2004/10/03 20:27:00  armin
   * changed defines for netware
 
   Revision 1.6  2004/09/05 00:02:40  armin
diff --git a/rtl/unix/sysutils.pp b/rtl/unix/sysutils.pp
index 2ba0321cc3..932df8302e 100644
--- a/rtl/unix/sysutils.pp
+++ b/rtl/unix/sysutils.pp
@@ -529,6 +529,7 @@ begin
            Name:=strpas(p^.name);
            Time:=UnixToWinAge(Sinfo.st_mtime);
            Size:=Sinfo.st_Size;
+           Mode:=Sinfo.st_mode;
            end;
       end;
     P^.Next:=Nil;
@@ -1104,7 +1105,10 @@ end.
 {
 
   $Log$
-  Revision 1.55  2004-12-11 11:32:44  michael
+  Revision 1.56  2004-12-19 18:03:29  michael
+  + Added mode field to TSearchRec for Kylix compatibility
+
+  Revision 1.55  2004/12/11 11:32:44  michael
   + Added GetEnvironmentVariableCount and GetEnvironmentString calls
 
   Revision 1.54  2004/11/14 15:10:44  marco