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

2007-09-10 20:05 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* 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
This commit is contained in:
Przemyslaw Czerpak
2007-09-10 18:05:25 +00:00
parent 5575f09593
commit 4ddbb1a14e
2 changed files with 8 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
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

15
harbour/contrib/rdd_ads/ads1.c
View File

@@ -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;
}
}