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

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

Browse Source
This commit is contained in:
Alexander S.Kresin
2002-05-15 07:57:34 +00:00
parent 5b1b3c05df
commit ab3c684351
2 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -7,6 +7,11 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
* contrib/rdd_ads/adsmgmt.c
! UINT, which is not defined in gcc system, is changed to unsigned int,
fixed one warning
2002-05-15 12:00 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* contrib/rdd_ads/ads1.c
! fixed a bug in adsSeek() for date indexes, changes was posted
by Carlos Mora.

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

@@ -514,11 +514,10 @@ static ERRCODE adsSeek( ADSAREAP pArea, BOOL bSoftSeek, PHB_ITEM pKey, BOOL bFin
}
else if(hb_itemType( pKey ) & HB_IT_DATE )
{
char szData[9];
hb_itemGetDS( pKey, (char *) szData );
AdsSeekLast( pArea->hOrdCurrent, szData,
8, ADS_STRINGKEY,
(UNSIGNED16*) &(pArea->fFound) );
double dTemp;
dTemp = hb_itemGetDL( pKey );
AdsSeekLast( pArea->hOrdCurrent, (UNSIGNED8 *) &dTemp,
8, ADS_DOUBLEKEY, (UNSIGNED16*) &(pArea->fFound) );
}else
{
hb_itemGetNLen( pKey, &uiLen, &uiDec );
@@ -542,10 +541,10 @@ static ERRCODE adsSeek( ADSAREAP pArea, BOOL bSoftSeek, PHB_ITEM pKey, BOOL bFin
}
else if(hb_itemType( pKey ) & HB_IT_DATE )
{
char szData[9];
hb_itemGetDS( pKey, (char *) szData );
AdsSeek( pArea->hOrdCurrent, szData,
8, ADS_STRINGKEY, usSeekType, (UNSIGNED16*) &(pArea->fFound) );
double dTemp;
dTemp = hb_itemGetDL( pKey );
AdsSeek( pArea->hOrdCurrent, (UNSIGNED8 *) &dTemp,
8, ADS_DOUBLEKEY, usSeekType, (UNSIGNED16*) &(pArea->fFound) );
}
/*