summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Copits <ChrisCDev@live.com>2012-12-19 18:22:17 -0500
committerNorbert Thiebaud <nthiebaud@gmail.com>2012-12-27 20:33:43 +0000
commita8fdb0ba4d83e7df5b8c325aabf4ba2fa28e9545 (patch)
treef96ab4666b7c28afd9b03d64eacc283dfe249746
parenta1ff0ec108822d593bb293b6d37a34e6e7c012e5 (diff)
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@gmail.com> Tested-by: Norbert Thiebaud <nthiebaud@gmail.com>
-rw-r--r--basic/source/runtime/methods.cxx4
1 files changed, 3 insertions, 1 deletions
diff --git a/basic/source/runtime/methods.cxx b/basic/source/runtime/methods.cxx
index cbf7bda7c6f1..20fee906bd03 100644
--- a/basic/source/runtime/methods.cxx
+++ b/basic/source/runtime/methods.cxx
@@ -868,7 +868,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 );
}
}