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

2001-04-01 12:20 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2001-04-01 08:22:03 +00:00
parent a973ffb448
commit b49ed3be8f
2 changed files with 16 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-04-01 12:20 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbfntx/dbfntx1.c
* ntxOrderListRebuild() mostly completed
2001-03-30 14:10 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbfntx/dbfntx1.c
! fixed the bug, reported by John M. S. Chiang, which appeared while

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

@@ -998,7 +998,7 @@ static LPPAGEINFO hb_ntxPageNew(LPTAGINFO pParentTag )
pPage->pKeys = ( LPKEYINFO ) hb_xgrab( sizeof( KEYINFO ) * ( pParentTag->MaxKeys + 1 ) );
}
memset( pPage->pKeys, 0, sizeof( KEYINFO ) * ( pParentTag->MaxKeys + 1 ) );
pParentTag->TagBlock = pParentTag->TagBlock + 1024;
pParentTag->TagBlock += 1024;
pPage->Page = pParentTag->TagBlock;
pPage->CurKey = -1;
pPage->lBusy = TRUE;
@@ -2215,7 +2215,7 @@ static ERRCODE ntxZap( NTXAREAP pArea )
}
pArea->lpCurIndex = lpIndexTmp;
hb_xfree( buffer );
return SUCCESS;
return SELF_GOTOP( ( AREAP ) pArea );
}
else
return FAILURE;
@@ -2654,12 +2654,21 @@ static ERRCODE ntxOrderListRebuild( NTXAREAP pArea )
lpIndex = pArea->lpNtxIndex;
lpIndexTmp = pArea->lpCurIndex;
pArea->fValidBuffer = TRUE;
while( lpIndex )
{
hb_fsSeek( lpIndex->DiskFile, NTXBLOCKSIZE, FS_SET );
hb_fsWrite( lpIndex->DiskFile, NULL, 0 );
hb_ntxIndexCreate( lpIndex );
hb_fsSeek( lpIndex->DiskFile , 0 , 0 );
lpIndex->CompoundTag->TagBlock =
hb_fsSeek( lpIndex->DiskFile, 0, SEEK_END ) - 1024;
lpIndex = lpIndex->pNext;
}
pArea->lpCurIndex = lpIndexTmp;
return SUCCESS;
return SELF_GOTOP( ( AREAP ) pArea );
}
static ERRCODE ntxClose( NTXAREAP pArea )