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

2000-10-12 10:30 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2000-10-12 06:31:46 +00:00
parent b705127b49
commit b5641e30ee
3 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
2000-10-12 10:30 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/rddcpy.c
* added casts, posted by John Skelton
* contrib/rdd_ads/ads1.c
* minor bug fixed in adsSeek()
2000-10-11 3:58 UTC+0800 Brian Hays <bhays@abacuslaw.com>
Re-posting changes that had a CVS error yesterday...
* contrib/rdd_ads/ads1.c

2
harbour/contrib/rdd_ads/ads1.c
View File

@@ -394,7 +394,7 @@ static ERRCODE adsSeek( ADSAREAP pArea, BOOL bSoftSeek, PHB_ITEM pKey, BOOL bFin
hb_ndtoa( hb_itemGetND( pKey ), ( char * ) szText, uiLen, uiDec );
szText[ uiLen ] = '\0';
AdsSeekLast( pArea->hOrdCurrent, szText,
8, ADS_DOUBLEKEY, (UNSIGNED16*) &(pArea->fFound) );
8, ADS_STRINGKEY, (UNSIGNED16*) &(pArea->fFound) );
}
}
else

8
harbour/source/rdd/rddcpy.c
View File

@@ -146,19 +146,19 @@ static ERRCODE rddMoveRecords( char *cAreaFrom, char *cAreaTo, PHB_ITEM pFields,
if ( cAreaTo ) // it's a COPY TO
{
pAreaRelease = GetTheOtherArea( szDriver, cAreaTo );
pAreaTo = pAreaRelease->pArea;
pAreaTo = (AREAP) pAreaRelease->pArea;
}
else
pAreaTo = s_pCurrArea->pArea;
pAreaTo = (AREAP) s_pCurrArea->pArea;
if ( cAreaFrom ) // it's an APPEND FROM
{ // make it current
pAreaRelease = s_pCurrArea = GetTheOtherArea( szDriver, cAreaFrom );
pAreaFrom = pAreaRelease->pArea;
pAreaFrom = (AREAP) pAreaRelease->pArea;
}
else
pAreaFrom = s_pCurrArea->pArea;
pAreaFrom = (AREAP) s_pCurrArea->pArea;
// or one or the other but necer none
if ( !pAreaRelease ) // We need another Area to APPEND TO