fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Paul Tucker
1999-08-09 07:41:50 +00:00
parent 32785ee2b7
commit ca14c60c01
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/source/rtl/filesys.c
View File

@@ -412,7 +412,7 @@ BOOL hb_fsLock ( FHANDLE handle, ULONG start,
ULONG length, USHORT mode )
{
int result=0;
long pos;
ULONG position;
#if defined(HAVE_POSIX_IO) && !defined(__GNUC__) && !defined(__IBMCPP__)
errno = 0;
@@ -428,9 +428,9 @@ BOOL hb_fsLock ( FHANDLE handle, ULONG start,
last_error = errno;
#else
#if defined(_MSC_VER)
pos = hb_fsSeek( handle, start, 0 );
position = hb_fsSeek( handle, start, 0 );
result = locking( handle, mode?_LK_UNLCK:_LK_LOCK,length );
hb_fsSeek( handle, pos, 0 );
hb_fsSeek( handle, position, 0 );
#else
result = 1;
last_error = FS_ERROR;