summaryrefslogtreecommitdiff
path: root/basic/source/comp/symtbl.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'basic/source/comp/symtbl.cxx')
-rw-r--r--basic/source/comp/symtbl.cxx13
1 files changed, 5 insertions, 8 deletions
diff --git a/basic/source/comp/symtbl.cxx b/basic/source/comp/symtbl.cxx
index 594b1d38f44b..99e02e3b3ae5 100644
--- a/basic/source/comp/symtbl.cxx
+++ b/basic/source/comp/symtbl.cxx
@@ -318,6 +318,8 @@ void SbiSymDef::SetType( SbxDataType t )
{
if( t == SbxVARIANT && pIn )
{
+ //See if there have been any deftype statements to set the default type
+ //of a variable based on its starting letter
sal_Unicode cu = aName[0];
if( cu < 256 )
{
@@ -327,14 +329,9 @@ void SbiSymDef::SetType( SbxDataType t )
ch = 'Z';
}
int ch2 = toupper( ch );
- unsigned char c = (unsigned char)ch2;
- if( c > 0 && c < 128 )
- {
- int nIndex = ch2 - 'A';
- assert(nIndex >= 0 && nIndex < N_DEF_TYPES);
- if (nIndex >= 0 && nIndex < N_DEF_TYPES)
- t = pIn->pParser->eDefTypes[nIndex];
- }
+ int nIndex = ch2 - 'A';
+ if (nIndex >= 0 && nIndex < N_DEF_TYPES)
+ t = pIn->pParser->eDefTypes[nIndex];
}
}
eType = t;