[Libreoffice-commits] .: Branch 'libreoffice-4-0' - basic/source

[Libreoffice Gerrit user]

 basic/source/runtime/methods.cxx |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

New commits:
commit 43a3f734f9df07bbd11cad3e9418814b37be058c
Author: Christopher Copits <ChrisCDev at live.com>
Date:   Wed Dec 19 18:22:17 2012 -0500

    fdo#58222 The BASIC HEX Command now returns uppercase hexadecimal characters
    
    Instead of returning lowercase characters with BASIC's HEX command, uppercase characters are now returned. Digits from 0-9 are not affected. This change utilizes on OUString's toAsciiUpperCase() method.
    
    Change-Id: Id6ea93a7635c1913c8592bf5519bdd7391f4e3bc
    Reviewed-on: https://gerrit.libreoffice.org/1428
    Reviewed-by: Norbert Thiebaud <nthiebaud at gmail.com>
    Tested-by: Norbert Thiebaud <nthiebaud at gmail.com>

diff --git a/basic/source/runtime/methods.cxx b/basic/source/runtime/methods.cxx
index 8f1ac5d..6c17234 100644
--- a/basic/source/runtime/methods.cxx
+++ b/basic/source/runtime/methods.cxx
@@ -861,7 +861,9 @@ RTLFUNC(Hex)
         sal_uInt32 nVal = pArg->IsInteger() ?
             static_cast<sal_uInt16>(pArg->GetInteger()) :
             static_cast<sal_uInt32>(pArg->GetLong());
-        rPar.Get(0)->PutString( rtl::OUString::valueOf( sal_Int64(nVal), 16 ) );
+        rtl::OUString aStr(rtl::OUString::valueOf( sal_Int64(nVal), 16 ));
+        aStr = aStr.toAsciiUpperCase();
+        rPar.Get(0)->PutString( aStr );
     }
 }