diff options
| author | Christopher Copits <ChrisCDev@live.com> | 2012-12-19 18:22:17 -0500 |
|---|---|---|
| committer | Norbert Thiebaud <nthiebaud@gmail.com> | 2012-12-27 20:33:43 +0000 |
| commit | a8fdb0ba4d83e7df5b8c325aabf4ba2fa28e9545 (patch) | |
| tree | f96ab4666b7c28afd9b03d64eacc283dfe249746 /basic | |
| parent | a1ff0ec108822d593bb293b6d37a34e6e7c012e5 (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 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 ); } } |