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

2002-02-01 08:57 UTC-0300 Horacio Roldan <harbour_ar@yahoo.com.ar>

Browse Source 
* source/rdd/dbf1.c
     ! fixed bof bug in hb_dbfGoTo and hb_dbfSkipRaw
This commit is contained in:
Horacio Dario Roldan Kasimatis
2002-02-04 20:12:56 +00:00
parent 1feca68bca
commit 5b08a03f50
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -703,10 +703,11 @@ ERRCODE hb_dbfGoTo( DBFAREAP pArea, ULONG ulRecNo )
else /* Out of space */
{
pArea->ulRecNo = pArea->ulRecCount + 1;
if( pArea->ulRecCount == 0 )
/* pArea->fBof = pArea->fEof = pArea->fValidBuffer = TRUE; */
if ( pArea->ulRecCount == 0 )
{
pArea->fBof = pArea->fEof = pArea->fValidBuffer = TRUE;
} else if(ulRecNo == 0)
} else if (ulRecNo <= 0)
{
pArea->fBof = pArea->fValidBuffer = TRUE;
pArea->fEof = FALSE;
@@ -715,7 +716,6 @@ ERRCODE hb_dbfGoTo( DBFAREAP pArea, ULONG ulRecNo )
pArea->fBof = FALSE;
pArea->fEof = pArea->fValidBuffer = TRUE;
}
pArea->fPositioned = pArea->fDeleted = FALSE;
/* Clear buffer */
@@ -826,7 +826,8 @@ ERRCODE hb_dbfSkipRaw( DBFAREAP pArea, LONG lToSkip )
return SUCCESS;
}
else
return SELF_GOTO( ( AREAP ) pArea, pArea->ulRecNo + lToSkip );
/* return SELF_GOTO( ( AREAP ) pArea, pArea->ulRecNo + lToSkip ); */
return SELF_GOTO( ( AREAP ) pArea, ((LONG)pArea->ulRecNo + lToSkip) <= 0 ? 0 : (pArea->ulRecNo + lToSkip));
}
/*