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

19991109-01:09 GMT+1 Victor Szel <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
1999-11-09 00:22:41 +00:00
parent aadcf9d0e0
commit 516ea8d5d6
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19991109-01:09 GMT+1 Victor Szel <info@szelvesz.hu>
* source/rtl/filesys.c
! tell() changed to lseek() for Posix (tell() is not a Posix function)
19991108-23:41 GMT+1 Victor Szel <info@szelvesz.hu>
* source/rtl/filesys.c
% hb_fsWrite(), hb_fsReadLarge(), hb_fsWriteLarge() double var

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

@@ -557,7 +557,7 @@ USHORT hb_fsWrite( FHANDLE hFileHandle, BYTE * pBuff, USHORT uiCount )
else
{
uiWritten = 0;
ftruncate( hFileHandle, tell( hFileHandle ) );
ftruncate( hFileHandle, lseek( hFileHandle, 0L, SEEK_CUR ) );
}
s_uiErrorLast = errno;
@@ -677,7 +677,7 @@ ULONG hb_fsWriteLarge( FHANDLE hFileHandle, BYTE * pBuff, ULONG ulCount )
else
{
ulWritten = 0;
ftruncate( hFileHandle, tell( hFileHandle ) );
ftruncate( hFileHandle, lseek( hFileHandle, 0L, SEEK_CUR ) );
}
s_uiErrorLast = errno;