From c9a909a717b2de12724d23e6de731eb00a4721cd Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Thu, 31 Mar 2011 22:19:42 +0000 Subject: [PATCH] 2011-04-01 00:19 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/contrib/rddads/ads1.c + added missing GOCOLD() method to ADS* RDDs --- harbour/ChangeLog | 4 ++++ harbour/contrib/rddads/ads1.c | 11 ++++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index e7b2619992..f8257a17c5 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,10 @@ The license applies to all entries newer than 2009-04-28. */ +2011-04-01 00:19 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/contrib/rddads/ads1.c + + added missing GOCOLD() method to ADS* RDDs + 2011-03-31 12:55 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbide/ideharbourhelp.prg ! Fixed: a regression. diff --git a/harbour/contrib/rddads/ads1.c b/harbour/contrib/rddads/ads1.c index b6d6ba9f07..489911daf3 100644 --- a/harbour/contrib/rddads/ads1.c +++ b/harbour/contrib/rddads/ads1.c @@ -2542,7 +2542,16 @@ static HB_ERRCODE adsGetVarLen( ADSAREAP pArea, HB_USHORT uiIndex, HB_ULONG * ul return HB_SUCCESS; } -#define adsGoCold NULL +static HB_ERRCODE adsGoCold( ADSAREAP pArea ) +{ + HB_TRACE(HB_TR_DEBUG, ("adsGoCold(%p)", pArea )); + + if( !pArea->fReadonly ) + AdsWriteRecord( pArea->hTable ); + + return HB_SUCCESS; +} + #define adsGoHot NULL static HB_ERRCODE adsPutRec( ADSAREAP pArea, const HB_BYTE * pBuffer )