harbour@cbn.net.id

harbour/ChangeLog

@@ -1,3 +1,10 @@
+2001-11-03 14:00 GMT+7 Andi Jahja <harbour@cbn.net.id>
+   * 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 <vogel@inttec.de>
 
    + contrib/libct/keyset.c

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 );

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,