From d4d4498fc04b92635fce045dcb44a91cc3443ac1 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 21 Jan 2023 21:19:24 +0100
Subject: [PATCH]   * building on darwin (and most likely other BSDs) fixed

---
 rtl/bsd/ostypes.inc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/rtl/bsd/ostypes.inc b/rtl/bsd/ostypes.inc
index e634e25ddd..65104a3c17 100644
--- a/rtl/bsd/ostypes.inc
+++ b/rtl/bsd/ostypes.inc
@@ -515,7 +515,9 @@ Const
   S_IFLNK = &120000;
   S_IFSOCK= &140000;
   S_IFWHT = &160000;
-  S_ISVTX =   &1000;
+  S_ISUID = &4000;
+  S_ISGID = &2000;
+  S_ISVTX = &1000;
 
 {
  * Resource limits from FreeBSD5. To be checked for the others.