From 3cdf40920265d277384fe34b3cacb74b008f9113 Mon Sep 17 00:00:00 2001 From: bonazzi Date: Fri, 19 Jan 2018 00:39:06 +0000 Subject: [PATCH] Patch level : 12.0 no patch Files correlati : tentativo di miglirare il lock di dir per Visual Studio 2017 git-svn-id: svn://10.65.10.50/branches/R_10_00@24284 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- src/include/ccustio.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/include/ccustio.c b/src/include/ccustio.c index b94c164b3..b74730145 100755 --- a/src/include/ccustio.c +++ b/src/include/ccustio.c @@ -103,8 +103,10 @@ int seeklk(S, pos, lm, LockMode, rec) if (_lseek(S->F, LOCK_OFF + rec, SEEK_SET) == -1L) if ((S->IOR = CIOResult()) != NoErr) return(-1); - if ( _locking(S->F,lm, 1L) == -1) - { + if (lm == LK_UNLCK) + _locking(S->F, LK_NBLCK, 1L); + if (_locking(S->F, lm, 1L) == -1) + { S->IOR = CIOResult(); // EACCESS = 13, EAGAIN = 11