paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 11:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* file locking API call updated according to changes in unit doscall2

Browse Source 
git-svn-id: trunk@29018 -
This commit is contained in:
Tomas Hajny 2014-11-08 01:07:30 +00:00
parent f330d2e981
commit a3e9954d73
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/dbase/dbf_wos2.inc
View File

@ -173,7 +173,7 @@ begin
TQRecC (FLock.Offset).C1 := dwFileOffsetLow; TQRecC (FLock.Offset).C1 := dwFileOffsetLow;
TQRecC (FLock.Range).C2 := nNumberOfBytesToLockHigh; TQRecC (FLock.Range).C2 := nNumberOfBytesToLockHigh;
TQRecC (FLock.Range).C1 := nNumberOfBytesToLockLow; TQRecC (FLock.Range).C1 := nNumberOfBytesToLockLow;
RC := Sys_DosSetFileLocksL (hFile, FLock, FUnlock, 50, 0); RC := DosSetFileLocksL (hFile, FLock, FUnlock, 50, 0);
if RC <> 0 then if RC <> 0 then
begin begin
LastErr := RC; LastErr := RC;
@ -194,7 +194,7 @@ begin
TQRecC (FUnlock.Offset).C1 := dwFileOffsetLow; TQRecC (FUnlock.Offset).C1 := dwFileOffsetLow;
TQRecC (FUnlock.Range).C2 := nNumberOfBytesToUnlockHigh; TQRecC (FUnlock.Range).C2 := nNumberOfBytesToUnlockHigh;
TQRecC (FUnlock.Range).C1 := nNumberOfBytesToUnlockLow; TQRecC (FUnlock.Range).C1 := nNumberOfBytesToUnlockLow;
RC := Sys_DosSetFileLocksL (hFile, FLock, FUnlock, 50, 0); RC := DosSetFileLocksL (hFile, FLock, FUnlock, 50, 0);
if RC <> 0 then if RC <> 0 then
begin begin
LastErr := RC; LastErr := RC;