From c9b7a3b3b5dddec9aa02cfdcb8737afddf6248c5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 30 Jan 2024 13:35:34 +0100
Subject: [PATCH] * Use value for fmShareNoLocking which does not overlap with
 classes fmCreate

---
 rtl/objpas/sysutils/filutilh.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/sysutils/filutilh.inc b/rtl/objpas/sysutils/filutilh.inc
index fd98ef8a92..61ae7209c8 100644
--- a/rtl/objpas/sysutils/filutilh.inc
+++ b/rtl/objpas/sysutils/filutilh.inc
@@ -200,7 +200,7 @@ Const
   fmShareDenyRead  = $0030;
   fmShareDenyNone  = $0040;
   // internal to FPC
-  fmShareNoLocking = $0100;
+  fmShareNoLocking = $0080;
 
   { File seek origins }
   fsFromBeginning = 0;