From a428527009a00e12bc27cb211a70940f19d29843 Mon Sep 17 00:00:00 2001 From: Andi Jahja Date: Sat, 3 Nov 2001 07:08:55 +0000 Subject: [PATCH] harbour@cbn.net.id --- harbour/ChangeLog | 7 +++++++ harbour/contrib/rdd_ads/ads1.c | 3 +-- harbour/contrib/rdd_ads/adsmgmnt.c | 2 +- 3 files changed, 9 insertions(+), 3 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 251a98e363..47994ddf8a 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,10 @@ +2001-11-03 14:00 GMT+7 Andi Jahja + * contrib/rdd_ads/ads1.c + ! some clean ups + + * contrib/rdd_ads/adsmgmnt.c + ! add type cast to quite MsVC + 2001-11-02 22:50 GMT+1 Martin Vogel + contrib/libct/keyset.c diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c index 81e81f06c3..916fab5926 100644 --- a/harbour/contrib/rdd_ads/ads1.c +++ b/harbour/contrib/rdd_ads/ads1.c @@ -1035,7 +1035,7 @@ static ERRCODE adsClose( ADSAREAP pArea ) HB_TRACE(HB_TR_DEBUG, ("adsClose(%p)", pArea)); - adsCloseCursor( pArea ); + uiError = adsCloseCursor( pArea ); if( pArea->szDataFileName ) { @@ -1493,7 +1493,6 @@ static ERRCODE adsOrderListFocus( ADSAREAP pArea, LPDBORDERINFO pOrderInfo ) { /* ADS can't handle a space-padded string--we have to trim it */ UNSIGNED8 pucTagName[ADS_MAX_TAG_NAME + 1]; - ULONG i; char * pSrc = hb_itemGetCPtr( pOrderInfo->itmOrder ); ULONG ulLen = hb_strRTrimLen( pSrc, hb_itemGetCLen( pOrderInfo->itmOrder ), FALSE ); diff --git a/harbour/contrib/rdd_ads/adsmgmnt.c b/harbour/contrib/rdd_ads/adsmgmnt.c index dba4d7f0ed..7fbfcc90bd 100644 --- a/harbour/contrib/rdd_ads/adsmgmnt.c +++ b/harbour/contrib/rdd_ads/adsmgmnt.c @@ -364,7 +364,7 @@ HB_FUNC( ADSMGGETUSERNAMES ) /* Return array of connected users */ // bh: Enhancement: Get # of tables from ADS_MGMT_ACTIVITY_INFO.stUsers instead of set size if ( ISNUM( 2 ) ) - ulMaxUsers = hb_parnl( 2 ); + ulMaxUsers = (UNSIGNED16) hb_parnl( 2 ); pastUserInfo = (ADS_MGMT_USER_INFO *) hb_xgrab( sizeof( ADS_MGMT_USER_INFO ) * ulMaxUsers ); // AdsMgGetUserNames ( ADSHANDLE hMgmtConnect,