From d0c14fa6f5d83a70e0f98cc3cafd23a9bf99a9e4 Mon Sep 17 00:00:00 2001
From: "Alexander S.Kresin" <alex@belacy.belgorod.su>
Date: Tue, 18 Feb 2003 06:12:25 +0000
Subject: [PATCH] 2003-02-18 09:15 UTC+0300 Alexander Kresin
 <alex@belacy.belgorod.su>

---
 harbour/ChangeLog                 | 4 ++++
 harbour/contrib/rdd_ads/adsfunc.c | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 3c23f0eb6f..a660ad7928 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2003-02-18 09:15 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * contrib/rdd_ads/adsfunc.c
+    * Few type casts for MSVC
+
 2003-02-17 13:15 UTC-0500 David G. Holm <dholm@jsd-llc.com>
   * source/rtl/dbdelim.c
   	! Bug fix for EOL handling when using large import files,
diff --git a/harbour/contrib/rdd_ads/adsfunc.c b/harbour/contrib/rdd_ads/adsfunc.c
index c6658701fc..5a16581df5 100644
--- a/harbour/contrib/rdd_ads/adsfunc.c
+++ b/harbour/contrib/rdd_ads/adsfunc.c
@@ -250,7 +250,7 @@ HB_FUNC( ADSSETDEFAULT )
 
    AdsGetDefault( pucDefault, &pusLen);
 
-   hb_retclen( pucDefault, pusLen );
+   hb_retclen( (char*)pucDefault, pusLen );
 
    if( ISCHAR(1) )
       AdsSetDefault( (UNSIGNED8*) hb_parc( 1 ) );
@@ -265,7 +265,7 @@ HB_FUNC( ADSSETSEARCHPATH )
 
    AdsGetSearchPath( pucPath, &pusLen);
 
-   hb_retclen( pucPath, pusLen );
+   hb_retclen( (char*)pucPath, pusLen );
 
    if( ISCHAR(1) )
       AdsSetSearchPath( (UNSIGNED8*) hb_parc( 1 ) );