From 970d2a85d99b20ec0e947c8ba989328e55027cef Mon Sep 17 00:00:00 2001 From: "David G. Holm" Date: Mon, 14 Aug 2000 18:51:31 +0000 Subject: [PATCH] See ChangeLog entry 2000-08-14 14:45 UTC-0400 David G. Holm --- harbour/ChangeLog | 12 ++++++++++++ harbour/contrib/rdd_ads/ace.h | 4 +++- harbour/contrib/rdd_ads/ads1.c | 1 + harbour/contrib/rdd_ads/adsfunc.c | 3 --- 4 files changed, 16 insertions(+), 4 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d4a513289a..d53bf035cb 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,15 @@ +2000-08-14 14:45 UTC-0400 David G. Holm + + * contrib/rdd_ads/ace.h + + Added separate test for RSXNT for definition of ENTRYPOINT. + * contrib/rdd_ads/ads1.c + + Added #include to eliminate implicit declaration of + function 'tolower' warning in function `strcmpNoCase' + * contrib/rdd_ads/adsfunc.c + - Eliminated unused variable 'ulRetVal' in functions + HB_FUN_ADSISENCRYPTIONENABLED, HB_FUN_ADSISRECORDENCRYPTED, + and HB_FUN_ADSISTABLEENCRYPTED. + 2000-08-14 11:00 GMT+3 Alexander Kresin * source/rtl/gtwin/gtwin.c * fixed handling of arrow keys for international keyboards diff --git a/harbour/contrib/rdd_ads/ace.h b/harbour/contrib/rdd_ads/ace.h index 307c7bc01c..1a3a8328d7 100644 --- a/harbour/contrib/rdd_ads/ace.h +++ b/harbour/contrib/rdd_ads/ace.h @@ -31,7 +31,9 @@ typedef double DOUBLE; #define EXTERN extern #define STATIC static -#if defined( __GNUC__ ) +#if defined( __RSXNT__ ) + #define ENTRYPOINT _export WINAPI +#elif defined( __GNUC__ ) #define ENTRYPOINT __attribute__ (( dllexport )) #elif defined( WIN32 ) && !defined( ASANT ) && !defined( __BORLANDC__ ) #define ENTRYPOINT _declspec( dllexport ) WINAPI diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c index 7e3bb29ed0..3e507d8c8f 100644 --- a/harbour/contrib/rdd_ads/ads1.c +++ b/harbour/contrib/rdd_ads/ads1.c @@ -38,6 +38,7 @@ #define HB_OS_WIN_32_USED #define MAX_STR_LEN 255 +#include #include "hbapi.h" #include "hbinit.h" #include "hbapiitm.h" diff --git a/harbour/contrib/rdd_ads/adsfunc.c b/harbour/contrib/rdd_ads/adsfunc.c index f81a500fe5..79d35d773e 100644 --- a/harbour/contrib/rdd_ads/adsfunc.c +++ b/harbour/contrib/rdd_ads/adsfunc.c @@ -534,7 +534,6 @@ HB_FUNC( ADSDECRYPTRECORD ) HB_FUNC( ADSISENCRYPTIONENABLED ) { ADSAREAP pArea; - UNSIGNED32 ulRetVal; UNSIGNED16 usIsEnabled; pArea = (ADSAREAP) hb_rddGetCurrentWorkAreaPointer(); @@ -550,7 +549,6 @@ HB_FUNC( ADSISENCRYPTIONENABLED ) HB_FUNC( ADSISRECORDENCRYPTED ) { ADSAREAP pArea; - UNSIGNED32 ulRetVal; UNSIGNED16 usIsEnabled; pArea = (ADSAREAP) hb_rddGetCurrentWorkAreaPointer(); @@ -566,7 +564,6 @@ HB_FUNC( ADSISRECORDENCRYPTED ) HB_FUNC( ADSISTABLEENCRYPTED ) { ADSAREAP pArea; - UNSIGNED32 ulRetVal; UNSIGNED16 usIsEnabled; pArea = (ADSAREAP) hb_rddGetCurrentWorkAreaPointer();