From 4ddbb1a14ece32b27d4415430d25c438403e2f82 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Mon, 10 Sep 2007 18:05:25 +0000 Subject: [PATCH] 2007-09-10 20:05 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/contrib/rdd_ads/ads1.c * changed HB_TR_ALWAYS to HB_TR_DEBUG in two places and removed some old comment for which Brian received answer from ExtSys --- harbour/ChangeLog | 5 +++++ harbour/contrib/rdd_ads/ads1.c | 15 +++------------ 2 files changed, 8 insertions(+), 12 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index e33f70af2f..c19ee7a52a 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2007-09-10 20:05 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/contrib/rdd_ads/ads1.c + * changed HB_TR_ALWAYS to HB_TR_DEBUG in two places and + removed some old comment for which Brian received answer from ExtSys + 2007-09-10 19:25 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/include/hbset.h * declare hb_set with HB_EXPORT attribute when HB_SET_IMPORT macro diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c index 51e32b134c..03506044e7 100644 --- a/harbour/contrib/rdd_ads/ads1.c +++ b/harbour/contrib/rdd_ads/ads1.c @@ -658,7 +658,7 @@ ERRCODE adsCloseCursor( ADSAREAP pArea ) if( u32RetVal != AE_SUCCESS ) { - HB_TRACE(HB_TR_ALWAYS, ("adsCloseTable failed (%lu, %s)", u32RetVal, pArea->szDataFileName)); + HB_TRACE(HB_TR_DEBUG, ("adsCloseTable failed (%lu, %s)", u32RetVal, pArea->szDataFileName)); } pArea->hTable = 0; } @@ -1316,16 +1316,7 @@ static ERRCODE adsAppend( ADSAREAP pArea, BOOL fUnLockAll ) if( pArea->fShared && !pArea->fFLocked ) { ULONG ulRecNo; - /* - * Brian, please ask about it ExtSys guys. - * Does it create race condition (the implicit lock is removed - * and then the explicit one set) or just simply the flag indicating - * lock type is changed only. We have to know that. - * Without explicit locking the lock on appended record will be - * removed on any record movement or flushing. It may cause very - * serious synchronization problems in programs written for other - * RDDs and then ported to ADS. Druzus. - */ + if( SELF_RECNO( ( AREAP ) pArea, &ulRecNo ) == SUCCESS ) { /* to avoid unnecessary record refreshing after locking */ @@ -3020,7 +3011,7 @@ static ERRCODE adsSysName( ADSAREAP pArea, BYTE * pBuffer ) u32RetVal = AdsGetTableType( pArea->hTable, &u16TableType ); if( u32RetVal != AE_SUCCESS ) { - HB_TRACE(HB_TR_ALWAYS, ("Error in adsSysName: %d pArea->hTable %d\n", u32RetVal, pArea->hTable)); + HB_TRACE(HB_TR_DEBUG, ("Error in adsSysName: %d pArea->hTable %d\n", u32RetVal, pArea->hTable)); u16TableType = (UNSIGNED16) pArea->iFileType; } }