From 941c119340091a8efdc65a2e05eb8bdca4e3be66 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Thu, 6 Jul 2006 21:16:57 +0000 Subject: [PATCH] 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, to prevent freeze in some empty ADT tabes.) --- harbour/ChangeLog | 6 ++++++ harbour/contrib/rdd_ads/ads1.c | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 5020c44ee3..b5a7ed3152 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,12 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ + + * 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, diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c index 3ccf2d83f8..2c62e63c3e 100644 --- a/harbour/contrib/rdd_ads/ads1.c +++ b/harbour/contrib/rdd_ads/ads1.c @@ -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 ) {