summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Copits <ChrisCDev@live.com>2012-12-19 18:22:17 -0500
committerMarkus Mohrhard <markus.mohrhard@googlemail.com>2012-12-29 06:15:48 +0100
commit43a3f734f9df07bbd11cad3e9418814b37be058c (patch)
tree6ac6252adbb9d2cd9127315449d56722f7d93db7
parent7e1c81e53d436407cae7f8ac915650839ec6d069 (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 8f1ac5d90f05..6c172341c7a1 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 );
}
}