From 3f43a1ee382403ff3ef8bcd28121ad5bfba47627 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Wed, 13 May 2009 23:08:13 +0000 Subject: [PATCH] 2009-05-14 01:16 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/contrib/rddads/ads1.c * enable workaround code added in previous commit only for ACE 9.00. If other ACE clients need it too then please report them. Fernando reported that 9.10 is fixed. --- harbour/ChangeLog | 6 ++++++ harbour/contrib/rddads/ads1.c | 2 ++ 2 files changed, 8 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d57f23f429..dd4ae55e26 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,12 @@ past entries belonging to these authors: Viktor Szakats. */ +2009-05-14 01:16 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/contrib/rddads/ads1.c + * enable workaround code added in previous commit only for ACE 9.00. + If other ACE clients need it too then please report them. + Fernando reported that 9.10 is fixed. + 2009-05-14 01:05 UTC+0200 Viktor Szakats (harbour.01 syenar hu) * utils/hbmk2/hbmk2.prg ! Fixed -map for msvc compilers. diff --git a/harbour/contrib/rddads/ads1.c b/harbour/contrib/rddads/ads1.c index ee4a6e305a..412f8d4749 100644 --- a/harbour/contrib/rddads/ads1.c +++ b/harbour/contrib/rddads/ads1.c @@ -2054,11 +2054,13 @@ static HB_ERRCODE adsGetValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem ) update area flags, Druzus */ hb_adsUpdateAreaFlags( pArea ); } +#if ADS_LIB_VERSION == 900 /* workaround for ACE bug: character fields longer then 23 bytes are * increased by one byte when read by AdsGetField() [druzus]. */ if( u32Length > ( ULONG ) pField->uiLen ) u32Length = pField->uiLen; +#endif hb_itemPutCL( pItem, ( char * ) pBuffer, u32Length ); break;