diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2017-03-17 07:58:59 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2017-03-17 07:58:59 +0000 |
| commit | 40379c1fa7d30d346f72f937ee823628b66b75ef (patch) | |
| tree | 9dbf87cd90babf54adbebfd2d94524321d8865d5 /rtl/bsd | |
| parent | 6b20e5ad18361a1b26e8d839e5dec71caa93137c (diff) | |
| download | fpc-40379c1fa7d30d346f72f937ee823628b66b75ef.tar.gz | |
* Fix bug 31555, disbablefile locking
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@35611 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/bsd')
| -rw-r--r-- | rtl/bsd/suuid.inc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rtl/bsd/suuid.inc b/rtl/bsd/suuid.inc index eea2538049..6b5d0c90cd 100644 --- a/rtl/bsd/suuid.inc +++ b/rtl/bsd/suuid.inc @@ -51,7 +51,7 @@ Var begin P:=@Buf; - fd:=FileOpen(RandomDevice,fmOpenRead); + fd:=FileOpen(RandomDevice,fmOpenRead or fmShareDenyNone); Result:=(fd>=0); if Result then Try |