From 5f9ae2e3136fc1669b71267b1ffcce3bdccd0746 Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Wed, 11 Mar 2009 21:42:29 +0000
Subject: [PATCH] 2009-03-11 22:48 UTC+0100 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/source/common/hbgete.c     * disabled
 unsetenv() from Watcom builds - looks that this function       exists only in
 OpenWatcom header files.

  * harbour/source/common/hbprintf.c
    * do not use some FL functions which operates on long double values
      in SunOS builds
---
 harbour/ChangeLog                | 9 +++++++++
 harbour/source/common/hbgete.c   | 5 +----
 harbour/source/common/hbprintf.c | 2 +-
 3 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 81dd1ef23c..7212b85368 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,15 @@
    2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2009-03-11 22:48 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/common/hbgete.c
+    * disabled unsetenv() from Watcom builds - looks that this function
+      exists only in OpenWatcom header files.
+
+  * harbour/source/common/hbprintf.c
+    * do not use some FL functions which operates on long double values
+      in SunOS builds
+
 2009-03-11 17:45 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/include/hbdate.h
   * harbour/source/common/hbgete.c
diff --git a/harbour/source/common/hbgete.c b/harbour/source/common/hbgete.c
index b9df75d6af..f54574f5b8 100644
--- a/harbour/source/common/hbgete.c
+++ b/harbour/source/common/hbgete.c
@@ -166,15 +166,12 @@ BOOL hb_setenv( const char * szName, const char * szValue )
    {
 #  if ( defined( __DJGPP__ ) && \
         ( __DJGPP__ < 2 || ( __DJGPP__ == 2 && __DJGPP_MINOR__ < 4 ) ) ) || \
-      ( defined( __WATCOMC__ ) && defined( HB_OS_LINUX ) )
+      defined( __WATCOMC__ )
       szValue = getenv( szName );
       if( szValue && *szValue )
          return setenv( szName, "", 1 ) == 0;
       else
          return TRUE;
-#  elif defined( __WATCOMC__ )
-      unsetenv( szName );
-      return TRUE;
 #  else
       return unsetenv( szName ) == 0;
 #  endif
diff --git a/harbour/source/common/hbprintf.c b/harbour/source/common/hbprintf.c
index 55c86496e6..668881f985 100644
--- a/harbour/source/common/hbprintf.c
+++ b/harbour/source/common/hbprintf.c
@@ -194,7 +194,7 @@ optimized.
         defined( _XOPEN_SOURCE ) )
 
    /* use BSD floating point functions */
-#  ifdef __NO_LONGDOUBLE__
+#  if defined( __NO_LONGDOUBLE__ ) || defined( HB_OS_SUNOS )
 #     define HB_NUMTYPE( v, d )  do { \
                                     v = ( finite( d ) ? 0 : \
                                           ( isnan( d ) ? _HB_NUM_NAN : \