2003-09-29 15:20 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

harbour/ChangeLog

@@ -8,6 +8,15 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2003-09-29 15:20 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+   *source/rtl/strcase.c
+     ! hb_strncpyUpper() is fixed ( borrowed from xHarbour ).
+   * make_tgz.sh
+   * bin/pack_src.sh
+     * release info changed
+   * include/hbver.h
+     * Release info has been corrected again :).
+
 2003-09-29 11:47 UTC+0300 Chen Kedem <niki@actcom.co.il>
   * doc/whatsnew.txt
     + Added information about builds 10..25, 43 based on information

harbour/bin/pack_src.sh

@@ -4,7 +4,7 @@
 #
 # This script requires "TAR" utilities for compression.
 
-hb_ver="0.42.0"
+hb_ver="0.43.0"
 
 hb_archbin="tar"
 hb_archopt="-cz --ignore-failed-read -f"

harbour/make_tgz.sh

@@ -18,7 +18,7 @@ hb_platform=`rel=$(rpm -q --queryformat='.%{VERSION}' mandrake-release 2>/dev/nu
 [ "${hb_platform}" = "" ] || hb_platform="-${hb_platform}"
 
 name="harbour"
-hb_ver="0.42.0"
+hb_ver="0.43.0"
 hb_lnkso="yes"
 hb_pref="hb"
 hb_libs="vm pp rtl rdd dbfdbt dbffpt dbfcdx dbfntx macro common lang codepage gtnul gtcrs gtsln gtcgi gtstd gtpca odbc ct debug profiler"

harbour/source/rtl/strcase.c

@@ -97,17 +97,29 @@ char * hb_strUpper( char * szText, ULONG ulLen )
  */
 char * hb_strncpyUpper( char * pDest, const char * pSource, ULONG ulLen )
 {
-   HB_TRACE(HB_TR_DEBUG, ("hb_strncpyUpper(%p, %s, %lu)", pDest, pSource, ulLen));
+    char *pBuf = pDest;
 
-   pDest[ ulLen ] ='\0';
-   while( ulLen-- )
-   {
-      /* some compilers impliment toupper as a macro, and this has side effects! */
-      /* *pDest++ = toupper( *pSource++ ); */
-      pDest[ ulLen ] = toupper( (unsigned char) pSource[ ulLen ] );
-   }
+    HB_TRACE(HB_TR_DEBUG, ("hb_strncpyUpper(%p, %s, %lu)", pDest, pSource, ulLen));
 
-   return pDest;
+    pDest[ ulLen ] ='\0';
+
+    /* some compilers impliment toupper as a macro, and this has side effects! */
+    /* *pDest++ = toupper( *pSource++ ); */
+    while( ulLen && (*pDest++ = toupper( *pSource )))
+    {
+       ulLen--;
+       pSource++;
+    }
+
+    if( ulLen )
+    {
+       while (--ulLen)
+       {
+          *pDest++ = '\0';
+       }
+    }
+
+    return pBuf;
 }
 
 /* This function copies and converts szText to upper case AND Trims it