From 090aa22750ea24c72eeca22e668ca8f317410ece Mon Sep 17 00:00:00 2001 From: mtollari Date: Fri, 19 Jan 2018 09:29:32 +0000 Subject: [PATCH] Patch level : 12.0 no-patch Files correlati : Commento : Caricate modifiche suggerite da Alessandro (sono ovviamente da testare) git-svn-id: svn://10.65.10.50/branches/R_10_00@24289 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- src/include/ccustio.c | 5 ++++- src/include/cfiles.c | 2 +- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/src/include/ccustio.c b/src/include/ccustio.c index b74730145..3aa1a68f9 100755 --- a/src/include/ccustio.c +++ b/src/include/ccustio.c @@ -102,7 +102,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 (lm == LK_UNLCK) + _locking(S->F, LK_NBLCK, 1L); + if (lm == LK_UNLCK) _locking(S->F, LK_NBLCK, 1L); if (_locking(S->F, lm, 1L) == -1) diff --git a/src/include/cfiles.c b/src/include/cfiles.c index 92a01840c..4a7427228 100755 --- a/src/include/cfiles.c +++ b/src/include/cfiles.c @@ -226,7 +226,7 @@ void CPutFile(logicname,filed,dirflg) int dirflg; /* flag per file comuni */ { - CWrite(&fdir[dirflg], (RecType)filed, (long)logicname, NoLock /* non viene mai bloccato UnLock*/); + CWrite(&fdir[dirflg], (RecType)filed, (long)logicname, UnLock); } /*