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

2001-12-06 21:15 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2001-12-06 18:18:08 +00:00
parent f4f88de546
commit 6683bb77c2
2 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-12-06 21:15 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbfntx/dbfntx1.c
* Bug fixed, reported by Walter Negro
2001-12-05 21:20 UTC-0500 David G. Holm <dholm@jsd-llc.com>
* source/rtl/seconds.c

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

@@ -282,7 +282,7 @@ static int hb_ntxTagFindCurrentKey( LPPAGEINFO pPage, LONG lBlock, LPKEYINFO pKe
/* pKey <= p */
{
if( ( k == 0 && !lSeek && (ULONG)p->Xtra != pPage->TagParent->Owner->Owner->ulRecNo )
|| ( hb_set.HB_SET_DELETED && ntxIsDeleted( pPage->TagParent->Owner->Owner, p->Xtra ) ) )
|| ( hb_set.HB_SET_DELETED && ntxIsDeleted( pPage->TagParent->Owner->Owner, p->Xtra ) && lSeek ) )
k = 1;
if( k <= 0 )
{
@@ -2212,9 +2212,12 @@ static ERRCODE ntxSkipRaw( NTXAREAP pArea, LONG lToSkip )
SELF_GOTO( ( AREAP ) pArea, pTag->CurKeyInfo->Xtra );
else
{
SUPER_GOBOTTOM( ( AREAP ) pArea );
SUPER_SKIPRAW( ( AREAP ) pArea, 1 );
LPNTXINDEX lpCurIndex;
lpCurIndex = pArea->lpCurIndex;
pArea->lpCurIndex = NULL;
SUPER_GOTO( ( AREAP ) pArea, pArea->ulRecCount+1 );
pArea->fEof = pTag->TagEOF = TRUE;
pArea->lpCurIndex = lpCurIndex;
}
}
}