From ff6179873249c2d24f1517e128b83ceacb24073a Mon Sep 17 00:00:00 2001 From: Jean-Francois Lefebvre Date: Mon, 5 Sep 2011 20:41:05 +0000 Subject: [PATCH] 2011-09-05 22:40 UTC+0100 Jean Lefebvre mafact (jfl@mafact.com) * contrib/rddads/ads1.c + Correction: ahIndex Back from 512 to 256 (max coumpound index) ( Thanks to you Toninho ) --- harbour/ChangeLog | 5 +++++ harbour/contrib/rddads/ads1.c | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 2f0d9c6d9d..f87e79673c 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,11 @@ The license applies to all entries newer than 2009-04-28. */ +2011-09-05 22:40 UTC+0100 Jean Lefebvre mafact (jfl@mafact.com) + * contrib/rddads/ads1.c + + Correction: ahIndex Back from 512 to 256 (max coumpound index) + ( Thanks to you Toninho ) + 2011-09-05 03:12 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbssl/sslsess.c ! fixed to define SSL_SESSION_CMP(), SSL_SESSION_HASH() diff --git a/harbour/contrib/rddads/ads1.c b/harbour/contrib/rddads/ads1.c index 7bf8bceb87..d15d2af73e 100644 --- a/harbour/contrib/rddads/ads1.c +++ b/harbour/contrib/rddads/ads1.c @@ -3915,8 +3915,8 @@ static HB_ERRCODE adsSetRel( ADSAREAP pArea, LPDBRELINFO lpdbRelations ) static HB_ERRCODE adsOrderListAdd( ADSAREAP pArea, LPDBORDERINFO pOrderInfo ) { - ADSHANDLE ahIndex[ 512 ]; - UNSIGNED16 u16ArrayLen = 512 ; + ADSHANDLE ahIndex[ 256 ]; + UNSIGNED16 u16ArrayLen = 256 ; UNSIGNED32 u32RetVal; HB_TRACE(HB_TR_DEBUG, ("adsOrderListAdd(%p, %p)", pArea, pOrderInfo)); @@ -4183,8 +4183,8 @@ static HB_ERRCODE adsOrderCreate( ADSAREAP pArea, LPDBORDERCREATEINFO pOrderInfo if( fClose ) { - ADSHANDLE ahIndex[ 512 ]; - UNSIGNED16 usArrayLen = 512 ; + ADSHANDLE ahIndex[ 256 ]; + UNSIGNED16 usArrayLen = 256 ; u32RetVal = AdsOpenIndex( pArea->hTable, ( UNSIGNED8 * ) pOrderInfo->abBagName, ahIndex, &usArrayLen );