From 96ba03b237a19e0d915fd179df28987ebd911d58 Mon Sep 17 00:00:00 2001
From: "Alexander S.Kresin" <alex@belacy.belgorod.su>
Date: Tue, 15 Jan 2002 19:29:06 +0000
Subject: [PATCH] 2002-01-15 22:30 UTC+0300 Alexander Kresin
 <alex@belacy.belgorod.su>

---
 harbour/ChangeLog              | 4 ++++
 harbour/contrib/rdd_ads/ads1.c | 8 +++++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 4bf180cc22..568826c10a 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -7,6 +7,10 @@
    For example:
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
+  * include/hbrddntx.h
+2002-01-16 17:21 UTC-0300 Horacio Roldan <harbour_ar@yahoo.com.ar>
+   * source/rdd/dbfcdx1.c
+     * fixed some simple warnings by bcc32 (with -w)
      * fixed 3 bugs with index not updating the tree
 
 2002-01-16 11:10 UTC-0500 David G. Holm <dholm@jsd-llc.com>
diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c
index 14b36bcd3e..292b77293d 100644
--- a/harbour/contrib/rdd_ads/ads1.c
+++ b/harbour/contrib/rdd_ads/ads1.c
@@ -2304,7 +2304,13 @@ BOOL adsExists( PHB_ITEM pItemTable, PHB_ITEM pItemIndex )
 #define  adsPutValueFile          NULL
 #define  adsReadDBHeader          NULL
 #define  adsWriteDBHeader         NULL
-#define  adsExit                  NULL
+
+static ERRCODE adsExit( void )
+{
+   AdsApplicationExit();
+   return SUCCESS;
+}
+
 #define  adsWhoCares              NULL
 
 static RDDFUNCS adsTable = { ( DBENTRYP_BP ) adsBof,