mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mib16: contributed bugfixes and various new symbols in VBA compatibility implementation

Browse Source
This commit is contained in:
Daniel Rentz
2010-06-15 20:02:53 +02:00
parent f956107199
commit 5ed103d2dd
95 changed files with 3320 additions and 1159 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
basic/source/comp/exprnode.cxx
View File

@@ -100,6 +100,15 @@ SbiExprNode::SbiExprNode( SbiParser* p, SbiExprNode* l, USHORT nId )
nTypeStrId = nId;
}
// new <type>
SbiExprNode::SbiExprNode( SbiParser* p, USHORT nId )
{
BaseInit( p );
eType = SbxOBJECT;
eNodeType = SbxNEW;
nTypeStrId = nId;
}
// AB: 17.12.95, Hilfsfunktion fuer Ctor fuer einheitliche Initialisierung
void SbiExprNode::BaseInit( SbiParser* p )
@@ -253,7 +262,8 @@ void SbiExprNode::CollectBits()
void SbiExprNode::FoldConstants()
{
if( IsOperand() || eTok == LIKE ) return;
pLeft->FoldConstants();
if( pLeft )
pLeft->FoldConstants();
if( pRight )
{
pRight->FoldConstants();
@@ -431,7 +441,7 @@ void SbiExprNode::FoldConstants()
}
}
}
else if( pLeft->IsNumber() )
else if( pLeft && pLeft->IsNumber() )
{
nVal = pLeft->nVal;
delete pLeft;