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

@@ -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.

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;