summaryrefslogtreecommitdiff
path: root/basic
diff options
context:
space:
mode:
authorArnaud Versini <arnaud.versini@gmail.com>2015-08-19 19:23:27 +0200
committerSamuel Mehrbrodt <s.mehrbrodt@gmail.com>2015-09-05 09:22:41 +0000
commitd417059dae303685de7aa0f4b1c192ffcf5304d5 (patch)
tree199c044f24b7e83a06a03f0326592eba4c74bbae /basic
parentcf9fbdb379e2935677a73ced513d7faf855c299c (diff)
BASIC : SbiParser::DefXXX Only convert the first letter to uppercase
Change-Id: Iccee4712459653b35b11d8dbe99c45df753307be Reviewed-on: https://gerrit.libreoffice.org/17859 Tested-by: Jenkins <ci@libreoffice.org> Reviewed-by: Samuel Mehrbrodt <s.mehrbrodt@gmail.com>
Diffstat (limited to 'basic')
-rw-r--r--basic/source/comp/parser.cxx5
1 files changed, 3 insertions, 2 deletions
diff --git a/basic/source/comp/parser.cxx b/basic/source/comp/parser.cxx
index b7af29db05ba..2406e1c2e66d 100644
--- a/basic/source/comp/parser.cxx
+++ b/basic/source/comp/parser.cxx
@@ -22,6 +22,7 @@
#include <osl/diagnose.h>
#include <com/sun/star/script/ModuleType.hpp>
#include <svtools/miscopt.hxx>
+#include <rtl/character.hxx>
struct SbiParseStack { // "Stack" for statement-blocks
SbiParseStack* pNext; // Chain
@@ -677,7 +678,7 @@ void SbiParser::DefXXX()
while( !bAbort )
{
if( Next() != SYMBOL ) break;
- ch1 = aSym.toAsciiUpperCase()[0];
+ ch1 = rtl::toAsciiUpperCase(aSym[0]);
ch2 = 0;
if( Peek() == MINUS )
{
@@ -685,7 +686,7 @@ void SbiParser::DefXXX()
if( Next() != SYMBOL ) Error( ERRCODE_BASIC_SYMBOL_EXPECTED );
else
{
- ch2 = aSym.toAsciiUpperCase()[0];
+ ch2 = rtl::toAsciiUpperCase(aSym[0]);
if( ch2 < ch1 ) Error( ERRCODE_BASIC_SYNTAX ), ch2 = 0;
}
}