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

2003-05-15 12:40 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2003-05-15 08:47:18 +00:00
parent 93a0ee9e05
commit 08aa0a55bd
3 changed files with 19 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2003-05-15 12:40 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* 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 <alinares@fivetechsoft.com>
+ source/rtl/tget.prg
! some fixes

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

@@ -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;

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

@@ -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;