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

2008-09-22 16:19 UTC-0300 Antonio Carlos Pantaglione <toninho@fwi.com.br>

Browse Source 
* harbour/contrib/rddads/ads1.c
    * using AdsCreateIndex61 when ADS_LIB_VERSION >= 610. This functions use 
      ADS_DEFAULT as index page size parameter and force Advantage to compute
      a page size based on the key size to provide optimal balancing.
This commit is contained in:
Antonio Carlos Pantaglione
2008-09-22 19:16:31 +00:00
parent 700a0c4805
commit 19b2d7a10e
2 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-09-22 16:19 UTC-0300 Antonio Carlos Pantaglione <toninho@fwi.com.br>
* harbour/contrib/rddads/ads1.c
* using AdsCreateIndex61 when ADS_LIB_VERSION >= 610. This functions use
ADS_DEFAULT as index page size parameter and force Advantage to compute
a page size based on the key size to provide optimal balancing.
2008-09-22 20:54 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rdd/dbfntx/dbfntx1.c
* harbour/source/rdd/dbfcdx/dbfcdx1.c

8
harbour/contrib/rddads/ads1.c
View File

@@ -3572,11 +3572,19 @@ static ERRCODE adsOrderCreate( ADSAREAP pArea, LPDBORDERCREATEINFO pOrderInfo )
if( pOrderInfo->fUnique )
u32Options |= ADS_UNIQUE;
#if ADS_LIB_VERSION >= 610
u32RetVal = AdsCreateIndex61( hTableOrIndex, pOrderInfo->abBagName,
pOrderInfo->atomBagName, ( UNSIGNED8 * ) hb_itemGetCPtr( pExprItem ),
( pArea->lpdbOrdCondInfo && pArea->lpdbOrdCondInfo->abFor ) ?
( UNSIGNED8 * ) pArea->lpdbOrdCondInfo->abFor : ( UNSIGNED8 * ) "",
pucWhile, u32Options, ADS_DEFAULT, &hIndex);
#else
u32RetVal = AdsCreateIndex( hTableOrIndex, pOrderInfo->abBagName,
pOrderInfo->atomBagName, ( UNSIGNED8 * ) hb_itemGetCPtr( pExprItem ),
( pArea->lpdbOrdCondInfo && pArea->lpdbOrdCondInfo->abFor ) ?
( UNSIGNED8 * ) pArea->lpdbOrdCondInfo->abFor : ( UNSIGNED8 * ) "",
pucWhile, u32Options, &hIndex);
#endif
SELF_ORDSETCOND( ( AREAP ) pArea, NULL );