From 2e9daf5cfafcd9cb9a67486c7693d7376f9c6bb9 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Wed, 17 Sep 2003 11:14:25 +0000
Subject: [PATCH]  * two extra FPIS added

---
 rtl/unix/bunxh.inc | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/rtl/unix/bunxh.inc b/rtl/unix/bunxh.inc
index 5b0d3c57ec..927a20db18 100644
--- a/rtl/unix/bunxh.inc
+++ b/rtl/unix/bunxh.inc
@@ -108,6 +108,10 @@ Type TGrpArr = Array [0..0] of TGid;		{ C style array workarounds}
     Function  FPIsReg	   (m : TMode): Boolean;
     Function  FPIsFIFO	   (m : TMode): Boolean;
 
+// The following two are very common, but not POSIX.
+    Function FPISLNK       (m:TMode) : Boolean;
+    Function FPISSOCK      (m:TMode : Boolean;
+
     Function  wifexited    (Status : cInt): cInt;
     Function  wexitStatus  (Status : cInt): cInt;
     Function  wstopsig	   (Status : cInt): cInt;
@@ -118,7 +122,10 @@ Type TGrpArr = Array [0..0] of TGid;		{ C style array workarounds}
 
 {
   $Log$
-  Revision 1.5  2003-09-16 16:13:56  marco
+  Revision 1.6  2003-09-17 11:14:25  marco
+   * two extra FPIS added
+
+  Revision 1.5  2003/09/16 16:13:56  marco
    * fdset functions renamed to fp<posix name>
 
   Revision 1.4  2003/09/14 20:15:01  marco