Basic: Doesn't allow non ASCII characters in numeric literals
Change-Id: I8b7755dbea56953a04cd7687181ec246fc680c43
Reviewed-on: https://gerrit.libreoffice.org/14691
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Caolán McNamara <caolanm@redhat.com>
Tested-by: Caolán McNamara <caolanm@redhat.com>
diff --git a/basic/source/comp/scanner.cxx b/basic/source/comp/scanner.cxx
index 13d37c8..2e20a0e 100644
--- a/basic/source/comp/scanner.cxx
+++ b/basic/source/comp/scanner.cxx
@@ -438,7 +438,7 @@ bool SbiScanner::NextSym()
// e.g. -2,147,483,648 through 2,147,483,647 (signed)
sal_uInt64 lu = 0;
bool bOverflow = false;
while(nCol < aLine.getLength() && theBasicCharClass::get().isAlphaNumeric(aLine[nCol], bCompatible))
while(nCol < aLine.getLength() && theBasicCharClass::get().isAlphaNumeric(aLine[nCol], false))
{
sal_Unicode ch = rtl::toAsciiUpperCase(aLine[nCol]);
++pLine; ++nCol;