diff options
author | Christopher Copits <ChrisCDev@live.com> | 2012-12-19 18:22:17 -0500 |
---|---|---|
committer | Markus Mohrhard <markus.mohrhard@googlemail.com> | 2012-12-29 06:15:48 +0100 |
commit | 43a3f734f9df07bbd11cad3e9418814b37be058c (patch) | |
tree | 6ac6252adbb9d2cd9127315449d56722f7d93db7 /basic | |
parent | 7e1c81e53d436407cae7f8ac915650839ec6d069 (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>
Diffstat (limited to 'basic')
-rw-r--r-- | basic/source/runtime/methods.cxx | 4 |
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 ); } } |