diff --git a/harbour/ChangeLog b/harbour/ChangeLog index a6ec9e5199..ae9c624674 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,12 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2003-05-15 12:40 UTC+0300 Alexander Kresin + * source/rdd/dbfntx/dbfntx1.c + ! Minor fix + * source/rdd/dbf1.c + * DBI_FILEHANDLE and DBI_MEMOHANDLE added to dbInfo() + 2003-05-15 09:33 UTC+0100 Antonio Linares + source/rtl/tget.prg ! some fixes diff --git a/harbour/source/rdd/dbf1.c b/harbour/source/rdd/dbf1.c index ffcbe31527..581653f708 100644 --- a/harbour/source/rdd/dbf1.c +++ b/harbour/source/rdd/dbf1.c @@ -1687,6 +1687,10 @@ ERRCODE hb_dbfInfo( DBFAREAP pArea, USHORT uiIndex, PHB_ITEM pItem ) hb_itemPutC( pItem, DBF_MEMOEXT ); break; + case DBI_MEMOBLOCKSIZE: + hb_itemPutNI( pItem, DBT_BLOCKSIZE ); + break; + case DBI_FULLPATH: hb_itemPutC( pItem, pArea->szDataFileName); break; @@ -1694,6 +1698,14 @@ ERRCODE hb_dbfInfo( DBFAREAP pArea, USHORT uiIndex, PHB_ITEM pItem ) case DBI_SHARED: hb_itemPutL( pItem, pArea->fShared ); break; + + case DBI_FILEHANDLE: + hb_itemPutNL( pItem, (LONG)pArea->hDataFile ); + break; + + case DBI_MEMOHANDLE: + hb_itemPutNL( pItem, (LONG)pArea->hMemoFile ); + break; } return SUCCESS; diff --git a/harbour/source/rdd/dbfntx/dbfntx1.c b/harbour/source/rdd/dbfntx/dbfntx1.c index a51d7e43be..babdc19ea0 100644 --- a/harbour/source/rdd/dbfntx/dbfntx1.c +++ b/harbour/source/rdd/dbfntx/dbfntx1.c @@ -568,7 +568,7 @@ static ERRCODE hb_ntxGoEof( NTXAREAP pArea ) LPTAGINFO lpCurTag = pArea->lpCurTag; pArea->lpCurTag = NULL; - retvalue = SUPER_GOTO( ( AREAP ) pArea, pArea->ulRecCount+1 ); + retvalue = SUPER_GOTO( ( AREAP ) pArea, pArea->ulRecCount+1000 ); if( pArea->ulRecCount ) pArea->fBof = lpCurTag->TagBOF = FALSE; pArea->fEof = lpCurTag->TagEOF = TRUE;