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

2011-04-01 00:19 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/contrib/rddads/ads1.c
    + added missing GOCOLD() method to ADS* RDDs
This commit is contained in:
Przemyslaw Czerpak
2011-03-31 22:19:42 +00:00
parent ed1f17048b
commit c9a909a717
2 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -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.

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

@@ -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 )