From 289ae1c43fc88b9c966a63d7deab346696e6a270 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Tue, 24 Jan 2023 23:49:11 +0000
Subject: [PATCH] Add missing S_ISUID and S_ISGID constants

(cherry picked from commit 0907628b73ebee55fde0ea0670f43e5aa3ebd4df)
---
 rtl/haiku/ostypes.inc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/rtl/haiku/ostypes.inc b/rtl/haiku/ostypes.inc
index 375edaa128..efaecbd617 100644
--- a/rtl/haiku/ostypes.inc
+++ b/rtl/haiku/ostypes.inc
@@ -53,7 +53,9 @@ Const
 
   S_IFSOCK= &0000000000; // not defined under BeOS
   S_IFWHT = &0000000000; // not defined under BeOS
-  S_ISVTX = &1000;
+  S_ISUID = &4000;       { set user id on execution }
+  S_ISGID = &2000;       { set group id on execution }
+  S_ISVTX = &1000;       { save swapped text even after use (sticky bit) }
 
 //      CONST SYS_NMLN=32;