[Libreoffice-commits] core.git: basic/source

[Arnaud Versini]

 basic/source/comp/parser.cxx |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

New commits:
commit d417059dae303685de7aa0f4b1c192ffcf5304d5
Author: Arnaud Versini <arnaud.versini at gmail.com>
Date:   Wed Aug 19 19:23:27 2015 +0200

    BASIC : SbiParser::DefXXX Only convert the first letter to uppercase
    
    Change-Id: Iccee4712459653b35b11d8dbe99c45df753307be
    Reviewed-on: https://gerrit.libreoffice.org/17859
    Tested-by: Jenkins <ci at libreoffice.org>
    Reviewed-by: Samuel Mehrbrodt <s.mehrbrodt at gmail.com>

diff --git a/basic/source/comp/parser.cxx b/basic/source/comp/parser.cxx
index b7af29d..2406e1c 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;
             }
         }