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

2006-07-06 23:15 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/contrib/rdd_ads/ads1.c
    * synced with Toninho modifications in xHarbour:
      (! Inverted checking for memo data types, verifying binary first,
         to prevent freeze in some empty ADT tabes.)
This commit is contained in:
Przemyslaw Czerpak
2006-07-06 21:16:57 +00:00
parent fe67521514
commit 941c119340
2 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
* harbour/source/vm/arrays.c
! fixed bug I introduce recently in AEVAL and additional range checking
* minor optimizations in ASCAN
2006-07-06 23:15 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/rdd_ads/ads1.c
* synced with Toninho modifications in xHarbour:
(! Inverted checking for memo data types, verifying binary first,

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

@@ -1808,7 +1808,8 @@ static ERRCODE adsGetValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
UNSIGNED16 pusType;
AdsGetMemoDataType( pArea->hTable, ADSFIELD( uiIndex ), &pusType );
if( pusType == ADS_MEMO )
if( pusType != ADS_BINARY )
{
if( AdsGetMemoLength( pArea->hTable, ADSFIELD( uiIndex ), &pulLen ) == AE_NO_CURRENT_RECORD )
{