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

2009-05-14 00:23 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/contrib/rddads/ads1.c
    ! added workaround for ACE bug: character fields longer then 23 bytes are
      increased by one byte when read by AdsGetField().
This commit is contained in:
Przemyslaw Czerpak
2009-05-13 22:14:57 +00:00
parent 3f3ad79c24
commit 1b3799ce6b
2 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -17,6 +17,11 @@
past entries belonging to these authors: Viktor Szakats.
*/
2009-05-14 00:23 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/rddads/ads1.c
! added workaround for ACE bug: character fields longer then 23 bytes are
increased by one byte when read by AdsGetField().
2009-05-13 23:48 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/vm/hvm.c
! fixed vary bad bug: possible complex variable corruption caused by

5
harbour/contrib/rddads/ads1.c
View File

@@ -2054,6 +2054,11 @@ static HB_ERRCODE adsGetValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
update area flags, Druzus */
hb_adsUpdateAreaFlags( pArea );
}
/* 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;
hb_itemPutCL( pItem, ( char * ) pBuffer, u32Length );
break;