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

ChangeLogTag:19990831-19:47 GMT+1 Bruno Cantero <bruno@issnet.net>

Browse Source
This commit is contained in:
Bruno Cantero
1999-08-31 18:02:15 +00:00
parent 02daa6189a
commit 78427c4559
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19990831-19:47 GMT+1 Bruno Cantero <bruno@issnet.net>
* source/rdd/dbf1.c
* Bug fixed
19990831-19:09 GMT+1 Bruno Cantero <bruno@issnet.net>
* include/rddapi.h
source/rdd/dbcmd.c

10
harbour/source/rdd/dbf1.c
View File

@@ -229,7 +229,7 @@ static BOOL hb_dbfWriteMemo( AREAP pArea, LPDBFMEMO pMemo, ULONG * lNewRecNo )
if( * lNewRecNo == 0 ) /* Add an entry at eof */
{
hb_fsSeek( pArea->lpFileInfo->pNext->hFile, 1, FS_SET );
hb_fsSeek( pArea->lpFileInfo->pNext->hFile, 0, FS_SET );
hb_fsRead( pArea->lpFileInfo->pNext->hFile, ( BYTE * ) &pMemoHeader,
sizeof( MEMOHEADER ) );
* lNewRecNo = pMemoHeader.lNextBlock;
@@ -669,17 +669,15 @@ static ERRCODE Append( AREAP pArea, BOOL bUnLockAll )
static ERRCODE Close( AREAP pArea )
{
SELF_FLUSH( pArea );
if( pArea->lpExtendInfo->fHasMemo )
SELF_CLOSEMEMFILE( pArea );
if( pArea->lpFileInfo->hFile != FS_ERROR )
{
SELF_RAWLOCK( pArea, FILE_UNLOCK, 0 );
SELF_FLUSH( pArea );
hb_fsClose( pArea->lpFileInfo->hFile );
pArea->lpFileInfo->hFile = FS_ERROR;
}
if( pArea->lpExtendInfo->fHasMemo )
SELF_CLOSEMEMFILE( pArea );
return SUPER_CLOSE( pArea );
}