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

2001-05-17 13:25 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2001-05-17 09:25:05 +00:00
parent b75cbcc5eb
commit 6c44badd16
2 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2001-05-17 13:25 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbfntx/dbfntx1.c
* bugs fixed, reported by John M. S. Chiang, related to appending of
new records
2001-05-16 22:50 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbfntx/dbfntx1.c
* bugs fixed, reported by John M. S. Chiang, related to seek with

9
harbour/source/rdd/dbfntx/dbfntx1.c
View File

@@ -1269,7 +1269,9 @@ static int hb_ntxPageKeyAdd( LPPAGEINFO pPage, PHB_ITEM pKey, int level, BOOL is
/* printf( "\nntxPageKeyAdd - 0 ( %d / %d )",level,pPage->TagParent->uiPages ); */
if( pPage->uiKeys == 0 )
{
pPage->uiKeys=1;
if( pPage->TagParent->Owner->NextAvail == pPage->Page )
pPage->TagParent->Owner->NextAvail = 0;
pPage->uiKeys = 1;
pPage->Changed = TRUE;
pPage->pKeys->Xtra = pPage->TagParent->Owner->Owner->ulRecNo;
pPage->pKeys->pItem = hb_itemNew( pKey );
@@ -2068,13 +2070,12 @@ static ERRCODE ntxSeek( NTXAREAP pArea, BOOL bSoftSeek, PHB_ITEM pKey, BOOL bFin
return SELF_GOTO( ( AREAP ) pArea, lRecno );
}
else
{
{
lpCurIndex = pArea->lpCurIndex;
pArea->lpCurIndex = NULL;
SELF_GOBOTTOM( ( AREAP ) pArea );
retvalue = SELF_SKIPRAW( ( AREAP ) pArea, 1 );
pArea->lpCurIndex = lpCurIndex;
pArea->fBof = FALSE;
return retvalue;
}
}
@@ -2772,6 +2773,8 @@ static ERRCODE ntxClose( NTXAREAP pArea )
{
HB_TRACE(HB_TR_DEBUG, ("ntxClose(%p)", pArea));
if( SELF_GOCOLD( ( AREAP ) pArea ) == FAILURE )
return FAILURE;
ntxOrderListClear( pArea );
return SUPER_CLOSE( ( AREAP ) pArea );
}