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

See ChangeLog entry 19991105-23:30 EDT David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
1999-11-06 04:46:03 +00:00
parent 11da192379
commit 019d2f1dd9
2 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
19991105-23:30 EDT David G. Holm <dholm@jsd-llc.com>
* source/rtl/filesys.c
! Only truncate the file when the size of the write is zero bytes.
19991105-21:20 EDT David G. Holm <dholm@jsd-llc.com>
* config/os2/icc.cf

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

@@ -535,16 +535,16 @@ USHORT hb_fsRead( FHANDLE hFileHandle, BYTE * pBuff, USHORT uiCount )
USHORT hb_fsWrite( FHANDLE hFileHandle, BYTE * pBuff, USHORT uiCount )
{
USHORT uiWritten;
USHORT uiWritten = 0;
HB_TRACE(HB_TR_DEBUG, ("hb_fsWrite(%p, %p, %hu)", hFileHandle, pBuff, uiCount));
#if defined(HAVE_POSIX_IO) || defined(_MSC_VER) || defined(__MINGW32__)
errno = 0;
uiWritten = write( hFileHandle, pBuff, uiCount );
if( uiCount ) uiWritten = write( hFileHandle, pBuff, uiCount );
else ftruncate( hFileHandle, tell( hFileHandle ) );
s_uiErrorLast = errno;
ftruncate( hFileHandle, tell( hFileHandle ) );
if( uiWritten == ( USHORT ) -1 )
uiWritten = 0;
@@ -622,7 +622,7 @@ ULONG hb_fsWriteLarge( FHANDLE hFileHandle, BYTE * pBuff, ULONG ulCount )
#if defined(HAVE_POSIX_IO) || defined(_MSC_VER) || defined(__MINGW32__)
errno = 0;
while( ulLeftToWrite )
if( ulCount ) while( ulLeftToWrite )
{
/* Determine how much to write this time */
if( ulLeftToWrite > ( ULONG ) INT_MAX )
@@ -645,8 +645,8 @@ ULONG hb_fsWriteLarge( FHANDLE hFileHandle, BYTE * pBuff, ULONG ulCount )
ulWritten += ( ULONG ) uiWritten;
pPtr += uiWritten;
}
else ftruncate( hFileHandle, tell( hFileHandle ) );
s_uiErrorLast = errno;
ftruncate( hFileHandle, tell( hFileHandle ) );
#else