From a8fdb0ba4d83e7df5b8c325aabf4ba2fa28e9545 Mon Sep 17 00:00:00 2001 From: Christopher Copits Date: Wed, 19 Dec 2012 18:22:17 -0500 Subject: 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 Tested-by: Norbert Thiebaud --- basic/source/runtime/methods.cxx | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'basic') 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(pArg->GetInteger()) : static_cast(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 ); } } -- cgit